version 1.164, 2012/07/24 11:02:58
|
version 1.166, 2012/09/10 09:51:15
|
Line 1759 sub generate_tics {
|
Line 1759 sub generate_tics {
|
sub write_gnuplot_file { |
sub write_gnuplot_file { |
my ($tmpdir,$filename,$target)= @_; |
my ($tmpdir,$filename,$target)= @_; |
my ($fontsize, $font_properties) = &get_font($target); |
my ($fontsize, $font_properties) = &get_font($target); |
|
&Apache::lonnet::logthis("Fontsize: $fontsize"); |
my $gnuplot_input = ''; |
my $gnuplot_input = ''; |
my $curve; |
my $curve; |
# |
# |
Line 2091 sub write_gnuplot_file {
|
Line 2092 sub write_gnuplot_file {
|
} |
} |
# Write the output to a file. |
# Write the output to a file. |
|
|
&Apache::lonnet::logthis($gnuplot_input); # uncomment to log the gnuplot input. |
# &Apache::lonnet::logthis($gnuplot_input); # uncomment to log the gnuplot input. |
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; |