loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.102, 2004/09/09 19:48:21	version 1.103, 2004/09/13 13:34:06
Line 1030 sub write_gnuplot_file {	Line 1030 sub write_gnuplot_file {
}	}
# set term	# set term
if ($target eq 'web') {	if ($target eq 'web') {
$gnuplot_input .= 'set term gif ';	$gnuplot_input .= 'set term '.$weboutputformat .' ';
$gnuplot_input .= 'transparent ' if ($plot{'transparent'} eq 'on');	$gnuplot_input .= 'transparent ' if ($plot{'transparent'} eq 'on');
$gnuplot_input .= $plot{'font'} . ' ';	$gnuplot_input .= $plot{'font'} . ' ';
$gnuplot_input .= 'size '.$plot{'width'}.','.$plot{'height'}.' ';	$gnuplot_input .= 'size '.$plot{'width'}.','.$plot{'height'}.' ';
Line 1123 sub write_gnuplot_file {	Line 1123 sub write_gnuplot_file {
my $label;	my $label;
foreach $label (@labels) {	foreach $label (@labels) {
$gnuplot_input .= 'set label "'.$label->{'text'}.'" at '.	$gnuplot_input .= 'set label "'.$label->{'text'}.'" at '.
$label->{'xpos'}.','.$label->{'ypos'}.' '.$label->{'justify'}.' font "Helvetica,'.$pt.'pt"'.$/ ;	$label->{'xpos'}.','.$label->{'ypos'}.' '.$label->{'justify'};
	if ($target eq 'tex') {
	$gnuplot_input .=' font "Helvetica,'.$pt.'pt"' ;
	}
	$gnuplot_input .= $/;
}	}
if ($target eq 'tex') {	if ($target eq 'tex') {
$gnuplot_input .="set size 1,".$plot{'height'}/$plot{'width'}*1.38;	$gnuplot_input .="set size 1,".$plot{'height'}/$plot{'width'}*1.38;