loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

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;