loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

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;