version 1.14, 2002/08/06 18:10:03
|
version 1.16, 2002/12/13 21:33:30
|
Line 61 if ($xlab=~/^Concepts$/){
|
Line 61 if ($xlab=~/^Concepts$/){
|
$Range1=270; |
$Range1=270; |
$Range2=200; |
$Range2=200; |
} else { |
} else { |
if ( $PNo > 10 ) { |
$Range1=450;#250+30*$PNo; |
$Range1 = 20*$PNo; |
|
} else { |
|
$Range1 = 250+30*$PNo; |
|
} |
|
$Range2=200; |
$Range2=200; |
} |
} |
|
|
Line 108 $MyGraph->set(
|
Line 104 $MyGraph->set(
|
#} |
#} |
|
|
|
|
# Tell the server we are sending a gif graphic |
# Tell the server we are sending a png graphic |
print <<END; |
print <<END; |
Content-type: image/gif |
Content-type: image/png |
|
|
END |
END |
|
|
Line 126 END
|
Line 122 END
|
my $BinaryData=$MyGraph->plot(\@data)->png; |
my $BinaryData=$MyGraph->plot(\@data)->png; |
undef $MyGraph; |
undef $MyGraph; |
binmode(STDOUT); |
binmode(STDOUT); |
open IMG,"|pngtopnm|ppmtogif 2>/dev/null"; # convert into a gif image |
#open IMG,"|pngtopnm|ppmtogif 2>/dev/null"; # convert into a gif image |
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; |
|
print $BinaryData; |