version 1.163, 2012/07/24 10:50:54
|
version 1.164, 2012/07/24 11:02:58
|
Line 463 my %tic_defaults =
|
Line 463 my %tic_defaults =
|
description => 'Number of minor tics per major tic mark', |
description => 'Number of minor tics per major tic mark', |
edit_type => 'entry', |
edit_type => 'entry', |
size => '10' |
size => '10' |
}, |
}, |
|
rotate => { |
|
default => 'off', |
|
test => $onoff_test, |
|
description => 'Rotate tic label by 90 degrees if on', |
|
edit_type => 'onoff' |
|
} |
); |
); |
|
|
my @axis_edit_order = ('color','xmin','xmax','ymin','ymax','xformat', 'yformat', 'xzero', 'yzero'); |
my @axis_edit_order = ('color','xmin','xmax','ymin','ymax','xformat', 'yformat', 'xzero', 'yzero'); |
Line 1714 sub generate_tics {
|
Line 1720 sub generate_tics {
|
|
|
$result .= "set $type $spec->{'location'} "; |
$result .= "set $type $spec->{'location'} "; |
$result .= ($spec->{'mirror'} eq 'on') ? 'mirror ' : 'nomirror '; |
$result .= ($spec->{'mirror'} eq 'on') ? 'mirror ' : 'nomirror '; |
|
if ($spec->{'rotate'} eq 'on') { |
|
$result .= ' rotate '; |
|
} |
if (defined $spec->{'ticspecs'}) { |
if (defined $spec->{'ticspecs'}) { |
$result .= '( '; |
$result .= '( '; |
my @ticspecs; |
my @ticspecs; |
Line 2081 sub write_gnuplot_file {
|
Line 2090 sub write_gnuplot_file {
|
$linestyle_index++; # Each curve get a unique linestyle. |
$linestyle_index++; # Each curve get a unique linestyle. |
} |
} |
# 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; |