loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.120, 2007/07/30 21:50:29	version 1.121, 2007/08/03 05:56:00
Line 687 my %font_properties =	Line 687 my %font_properties =
face => 'classic',	face => 'classic',
file => 'DejaVuSansMono-Bold',	file => 'DejaVuSansMono-Bold',
printname => 'Helvetica',	printname => 'Helvetica',
	tex_no_file => 1,
},	},
'sans-serif' => {	'sans-serif' => {
face => 'sans-serif',	face => 'sans-serif',
Line 1159 sub write_gnuplot_file {	Line 1160 sub write_gnuplot_file {
$gnuplot_input .= "set output\n";	$gnuplot_input .= "set output\n";
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$gnuplot_input .= "set term postscript eps enhanced $Apache::lonplot::plot{'plotcolor'} solid ";	$gnuplot_input .= "set term postscript eps enhanced $Apache::lonplot::plot{'plotcolor'} solid ";
$gnuplot_input .=	if (!$font_properties->{'tex_no_file'}) {
'fontfile "'.$Apache::lonnet::perlvar{'lonFontsDir'}.	$gnuplot_input .=
'/'.$font_properties->{'file'}.'.pfb" ';	'fontfile "'.$Apache::lonnet::perlvar{'lonFontsDir'}.
	'/'.$font_properties->{'file'}.'.pfb" ';
	}
$gnuplot_input .= ' "'.$font_properties->{'printname'}.'" ';	$gnuplot_input .= ' "'.$font_properties->{'printname'}.'" ';
$gnuplot_input .= $fontsize;	$gnuplot_input .= $fontsize;
$gnuplot_input .= "\nset output \"/home/httpd/perl/tmp/".	$gnuplot_input .= "\nset output \"/home/httpd/perl/tmp/".