version 1.120, 2007/07/30 21:50:29
|
version 1.122, 2007/08/03 05:58:12
|
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 715 sub get_font {
|
Line 716 sub get_font {
|
$size = '9'; |
$size = '9'; |
} |
} |
} else { |
} else { |
|
$size = $Apache::lonplot::plot{'font'}; |
$selected_font = $font_properties{$Apache::lonplot::plot{'fontface'}}; |
$selected_font = $font_properties{$Apache::lonplot::plot{'fontface'}}; |
} |
} |
return ($size, $selected_font); |
return ($size, $selected_font); |
Line 1159 sub write_gnuplot_file {
|
Line 1161 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/". |