… | |
… | |
619 | my ($self, $color, $text) = @_; |
619 | my ($self, $color, $text) = @_; |
620 | |
620 | |
621 | my @color = ( |
621 | my @color = ( |
622 | [1.00, 1.00, 1.00], #[0.00, 0.00, 0.00], |
622 | [1.00, 1.00, 1.00], #[0.00, 0.00, 0.00], |
623 | [1.00, 1.00, 1.00], |
623 | [1.00, 1.00, 1.00], |
624 | [0.50, 0.50, 1.00], # changed |
624 | [0.50, 0.50, 1.00], #[0.00, 0.00, 0.55] |
625 | [1.00, 0.00, 0.00], |
625 | [1.00, 0.00, 0.00], |
626 | [1.00, 0.54, 0.00], |
626 | [1.00, 0.54, 0.00], |
627 | [0.11, 0.56, 1.00], |
627 | [0.11, 0.56, 1.00], |
628 | [0.93, 0.46, 0.00], |
628 | [0.93, 0.46, 0.00], |
629 | [0.18, 0.54, 0.34], |
629 | [0.18, 0.54, 0.34], |