version 1.157, 2012/07/04 11:06:57
|
version 1.159, 2012/07/09 11:11:47
|
Line 1653 sub write_gnuplot_file {
|
Line 1653 sub write_gnuplot_file {
|
$gnuplot_input .= "set encoding iso_8859_1\n"; # Get access to extended font. |
$gnuplot_input .= "set encoding iso_8859_1\n"; # Get access to extended font. |
|
|
} |
} |
|
$gnuplot_input .= "set encoding utf8\n"; |
# cartesian or polar plot? |
# cartesian or polar plot? |
if (lc($Apache::lonplot::plot{'plottype'}) eq 'polar') { |
if (lc($Apache::lonplot::plot{'plottype'}) eq 'polar') { |
$gnuplot_input .= 'set polar'.$/; |
$gnuplot_input .= 'set polar'.$/; |
Line 1904 sub write_gnuplot_file {
|
Line 1905 sub write_gnuplot_file {
|
$plot_command.= ' '.$curve->{'limit'}; |
$plot_command.= ' '.$curve->{'limit'}; |
} |
} |
|
|
#elsif ($curve->{'linetype'} ne '' && |
|
# $curve->{'linestyle'} eq 'lines') |
|
# |
|
# |
|
# $plot_command.= ' linetype '; |
|
# $plot_command.= $linetypes{$curve->{'linetype'}}; |
|
# $plot_command.= ' linecolor rgb "'; |
|
# # convert color from xaaaaaa to #aaaaaa |
|
# $curve->{'color'} =~ s/^x/#/; |
|
# $plot_command.= $curve->{'color'}.'"'; |
|
# } |
|
|
|
# Figure out the linestyle: |
# Figure out the linestyle: |
|
|
Line 1940 sub write_gnuplot_file {
|
Line 1930 sub write_gnuplot_file {
|
} |
} |
# Write the output to a file. |
# Write the output to a file. |
open (my $fh,">$tmpdir$filename.data"); |
open (my $fh,">$tmpdir$filename.data"); |
binmode($fh, ":utf8"); |
# binmode($fh, ":utf8"); |
print $fh $gnuplot_input; |
print $fh $gnuplot_input; |
close($fh); |
close($fh); |
# That's all folks. |
# That's all folks. |