loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8, 2002/12/02 10:14:57	version 1.9, 2002/12/06 19:29:28
Line 159 HEADER	Line 159 HEADER
}	}

$iterator = $navmap->getIterator(undef, undef, undef, 1);	$iterator = $navmap->getIterator(undef, undef, undef, 1);
my $depth = 1;	$depth = 1;
$iterator->next(); # ignore first BEGIN_MAP	$iterator->next(); # ignore first BEGIN_MAP
my $curRes = $iterator->next();	$curRes = $iterator->next();

my @start = (255, 255, 192);	my @start = (255, 255, 192);
my @end = (0, 192, 0);	my @end = (0, 192, 0);
Line 241 sub mixColors {	Line 241 sub mixColors {
my $end = shift;	my $end = shift;
my $ratio = shift;	my $ratio = shift;

	my ($a,$b);
my $final = "";	my $final = "";
my $a = $start->[0]; my $b = $end->[0];	$a = $start->[0]; $b = $end->[0];
my $mix1 = POSIX::floor((1-$ratio)$a + $ratio$b);	my $mix1 = POSIX::floor((1-$ratio)$a + $ratio$b);
my $a = $start->[1]; my $b = $end->[1];	$a = $start->[1]; $b = $end->[1];
my $mix2 = POSIX::floor((1-$ratio)$a + $ratio$b);	my $mix2 = POSIX::floor((1-$ratio)$a + $ratio$b);
my $a = $start->[2]; my $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);

my $final = sprintf "%2x%2x%2x", $mix1, $mix2, $mix3;	$final = sprintf "%2x%2x%2x", $mix1, $mix2, $mix3;
return "#" . $final;	return "#" . $final;
}	}