version 1.2, 2001/10/10 16:03:26
|
version 1.3, 2001/10/14 17:57:07
|
Line 9
|
Line 9
|
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
|
|
use strict; |
use strict; |
use GD::Graph::bars; |
use GD::Graph::bars3d; |
use GD::Graph::colour; |
use GD::Graph::colour; |
use GD::Graph::Data; |
use GD::Graph::Data; |
|
|
Line 27 my $Range;
|
Line 27 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; } |
if ( $Max <= 1 ) { $Max = 1; } |
elsif ( $Max < 10 ) { $Max = 10; } |
elsif ( $Max <= 10 ) { $Max = 10; } |
elsif ( $Max < 100 ) { $Max = 100; } |
elsif ( $Max >= 60 ) { $Max = 100; } |
|
|
my $MyGraph = GD::Graph::bars->new($Range, 400); |
my $MyGraph = GD::Graph::bars3d->new($Range, 400); |
|
|
$MyGraph->set( |
$MyGraph->set( |
x_label => 'Problems #', |
x_label => 'Problems #', |
Line 43 $MyGraph->set(
|
Line 43 $MyGraph->set(
|
x_label_skip => 2, |
x_label_skip => 2, |
|
|
# colors |
# colors |
dclrs => [ qw(green lblue lyellow lpurple cyan lorange)], |
dclrs => [ qw( green lblue lyellow lpurple cyan lorange)], |
|
|
# shadows |
# shadows |
bar_spacing => 4, |
bar_spacing => 4, |
Line 66 open IMG,"|pngtopnm|ppmtogif 2>/dev/null
|
Line 66 open IMG,"|pngtopnm|ppmtogif 2>/dev/null
|
print IMG $BinaryData; # output image |
print IMG $BinaryData; # output image |
$|=1; # be sure to flush before closing |
$|=1; # be sure to flush before closing |
close IMG; |
close IMG; |
|
|