Return to graph.png CVS log | Up to [LON-CAPA] / loncom / cgi |
version 1.5, 2001/12/25 23:37:43 | version 1.8, 2002/01/23 12:39:19 |
---|---|
Line 53 my $Range; | Line 53 my $Range; |
if ( $PNo > 10 ) {$Range = 30*$PNo;} | if ( $PNo > 10 ) {$Range = 30*$PNo;} |
else { $Range = 300+30*$PNo; } | else { $Range = 300+30*$PNo; } |
if ( $Max <= 1 ) { $Max = 1; } | $Max+=(10 - $Max % 10); |
elsif ( $Max <= 10 ) { $Max = 10; } | $Max=int($Max); |
elsif ( $Max >= 60 ) { $Max = 100; } | |
my $MyGraph = GD::Graph::bars3d->new($Range, 400); | my $MyGraph = GD::Graph::bars3d->new($Range, 400); |