version 1.11, 2002/05/13 16:52:11
|
version 1.12, 2002/05/16 01:31:23
|
Line 54 for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
|
Line 54 for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
|
|
|
my @data =(\@xlabels,\@data11,\@data12); |
my @data =(\@xlabels,\@data11,\@data12); |
|
|
my $Range; |
my $Range1; |
|
my $Range2; |
|
|
if ($xlab=~/^Concepts$/){ |
if ($xlab=~/^Concepts$/){ |
$Range=500; |
$Range1=270; |
} |
$Range2=200; |
else { |
} else { |
if ( $PNo > 10 ) {$Range = 30*$PNo;} |
if ( $PNo > 10 ) { |
else { $Range = 400+30*$PNo; } |
$Range1 = 20*$PNo; |
|
} else { |
|
$Range1 = 250+30*$PNo; |
|
} |
|
$Range2=200; |
} |
} |
|
|
|
|
my $MyGraph = GD::Graph::bars->new($Range, 400); |
my $MyGraph = GD::Graph::bars->new($Range1,$Range2); |
|
|
$MyGraph->set( |
$MyGraph->set( |
x_label => $xlab, |
# x_label => $xlab, |
y_label => $ylab, |
y_label => $ylab, |
long_ticks => 1, |
long_ticks => 1, |
tick_length => 0, |
tick_length => 0, |
Line 90 $MyGraph->set(
|
Line 96 $MyGraph->set(
|
boxclr => 'lorange', |
boxclr => 'lorange', |
accentclr => 'dblue', |
accentclr => 'dblue', |
valuesclr => '#ffff77', |
valuesclr => '#ffff77', |
|
|
l_margin => 10, |
l_margin => 10, |
b_margin => 10, |
b_margin => 10, |
r_margin => 10, |
r_margin => 10, |
Line 98 $MyGraph->set(
|
Line 103 $MyGraph->set(
|
|
|
transparent => 0, |
transparent => 0, |
) or warn $MyGraph->error; |
) or warn $MyGraph->error; |
if ($xlab=~/^Concepts$/){ |
#if ($xlab=~/^Concepts$/){ |
$MyGraph->set_legend( 'Correct Answers', 'Incorrect Answers'); |
# $MyGraph->set_legend( 'Correct Answers', 'Incorrect Answers'); |
} |
#} |
|
|
|
|
# Tell the server we are sending a gif graphic |
# Tell the server we are sending a gif graphic |
print <<END; |
print <<END; |
Content-type: image/gif |
Content-type: image/gif |
|
|
END |
END |
|
|
|
#$MyGraph->set_y_label_font('/home/httpd/cgi-bin/cetus.ttf', 16); |
|
#$MyGraph->set_x_label_font('/home/httpd/cgi-bin/cetus.ttf', 16); |
|
#$MyGraph->set_y_axis_font('/home/httpd/cgi-bin/cetus.ttf', 12); |
|
#$MyGraph->set_x_axis_font('/home/httpd/cgi-bin/cetus.ttf', 12); |
|
#$MyGraph->set_title_font('/home/httpd/cgi-bin/cetus.ttf', 18); |
|
#$MyGraph->set_legend_font('/home/httpd/cgi-bin/cetus.ttf', 10); |
|
#$MyGraph->set_values_font('/home/httpd/cgi-bin/cetus.ttf', 10); |
|
|
|
|
my $BinaryData=$MyGraph->plot(\@data)->png; |
my $BinaryData=$MyGraph->plot(\@data)->png; |
undef $MyGraph; |
undef $MyGraph; |
binmode(STDOUT); |
binmode(STDOUT); |