Return to lonquickgrades.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.15, 2003/06/18 19:31:38 | version 1.16, 2003/06/23 20:01:20 |
---|---|
Line 241 sub mixColors { | Line 241 sub mixColors { |
$a = $start->[2]; $b = $end->[2]; | $a = $start->[2]; $b = $end->[2]; |
my $mix3 = POSIX::floor((1-$ratio)*$a + $ratio*$b); | my $mix3 = POSIX::floor((1-$ratio)*$a + $ratio*$b); |
$final = sprintf "%2x%2x%2x", $mix1, $mix2, $mix3; | $final = sprintf "%02x%02x%02x", $mix1, $mix2, $mix3; |
return "#" . $final; | return "#" . $final; |
} | } |