loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.42, 2002/01/21 16:41:31	version 1.44, 2002/01/23 11:10:14
Line 780 sub write_gnuplot_file {	Line 780 sub write_gnuplot_file {
if (%key) {	if (%key) {
$gnuplot_input .= 'set key '.$key{'pos'}.' ';	$gnuplot_input .= 'set key '.$key{'pos'}.' ';
if ($key{'title'} ne '') {	if ($key{'title'} ne '') {
$gnuplot_input .= 'title "'.$key{'title'}.'" ';	$gnuplot_input .= 'title " '.$key{'title'}.'" ';
}	}
$gnuplot_input .= ($key{'box'} eq 'on' ? 'box ' : 'nobox ').$/;	$gnuplot_input .= ($key{'box'} eq 'on' ? 'box ' : 'nobox ').$/;
} else {	} else {
Line 905 sub insert_plot {	Line 905 sub insert_plot {
}	}
$result .= ">\n";	$result .= ">\n";
# Add the components	# Add the components
$result .= &insert_key();	# $result .= &insert_key();
$result .= &insert_axis();	# $result .= &insert_axis();
$result .= &insert_title();	# $result .= &insert_title();
$result .= &insert_xlabel();	# $result .= &insert_xlabel();
$result .= &insert_ylabel();	# $result .= &insert_ylabel();
$result .= &insert_curve();	$result .= &insert_curve();
# close up the <plot>	# close up the <plot>
$result .= "</plot>\n";	$result .= "</plot>\n";