loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.73, 2002/04/25 21:33:52	version 1.74, 2002/04/29 12:45:57
Line 990 sub write_gnuplot_file {	Line 990 sub write_gnuplot_file {
# set output	# set output
$gnuplot_input .= "set output\n";	$gnuplot_input .= "set output\n";
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$gnuplot_input .= "set term postscript eps monochrome\n";	$gnuplot_input .= "set term postscript eps monochrome solid\n";
$gnuplot_input .= "set output \"/home/httpd/perl/tmp/".	$gnuplot_input .= "set output \"/home/httpd/perl/tmp/".
&Apache::lonnet::unescape($filename).".eps\"\n";	&Apache::lonnet::unescape($filename).".eps\"\n";
}	}
Line 1041 sub write_gnuplot_file {	Line 1041 sub write_gnuplot_file {
$gnuplot_input .= 'set label "'.$label->{'text'}.'" at '.	$gnuplot_input .= 'set label "'.$label->{'text'}.'" at '.
$label->{'xpos'}.','.$label->{'ypos'}.' '.$label->{'justify'}.$/ ;	$label->{'xpos'}.','.$label->{'ypos'}.' '.$label->{'justify'}.$/ ;
}	}
	if ($target eq 'tex') {
	$gnuplot_input .="set size 1,".$plot{'height'}/$plot{'width'};
	$gnuplot_input .="\n";
	}
# curves	# curves
$gnuplot_input .= 'plot ';	$gnuplot_input .= 'plot ';
for (my $i = 0;$i<=$#curves;$i++) {	for (my $i = 0;$i<=$#curves;$i++) {