loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.6, 2001/12/19 18:27:30	version 1.7, 2001/12/19 19:22:22
Line 392 sub write_gnuplot_file {	Line 392 sub write_gnuplot_file {
$gnuplot_input .= 'size ' . $plot{'width'} . ' ';	$gnuplot_input .= 'size ' . $plot{'width'} . ' ';
$gnuplot_input .= $plot{'height'} . ' ';	$gnuplot_input .= $plot{'height'} . ' ';
$gnuplot_input .= "@Colors\n";	$gnuplot_input .= "@Colors\n";
# title, xlabel, ylabel	# grid
	$gnuplot_input .= ($plot->{'grid'} eq 'on' ?
	'set grid\n' :
	'' );
	# border
	$gnuplot_input .= ($plot->{'border'} eq 'on'?
	'set border\n' :
	'set noborder\n' ); # title, xlabel, ylabel
{	{
$gnuplot_input .<<"ENDLABELS";	$gnuplot_input .<<"ENDLABELS";
set title $title->{'text'}	set title $title->{'text'}
Line 412 ENDLABELS	Line 419 ENDLABELS
$gnuplot_input .= '\n';	$gnuplot_input .= '\n';
}	}
} else {	} else {
$gnuplot_input .= 'set nokey\n';	$gnuGplot_input .= 'set nokey\n';
}	}
# axis	# axis
$gnuplot_input .= 'set xrange ['.$axis{'xmin'}.':'.$axis{'xmin'}.']\n';	$gnuplot_input .= 'set xrange ['.$axis{'xmin'}.':'.$axis{'xmin'}.']\n';