version 1.131, 2007/10/09 22:11:51
|
version 1.132, 2007/12/05 23:22:18
|
Line 435 my %tic_defaults =
|
Line 435 my %tic_defaults =
|
}, |
}, |
); |
); |
|
|
my @axis_edit_order = ('color','xmin','xmax','ymin','ymax'); |
my @axis_edit_order = ('color','xmin','xmax','ymin','ymax','xformat', 'yformat'); |
my %axis_defaults = |
my %axis_defaults = |
( |
( |
color => { |
color => { |
Line 472 my %axis_defaults =
|
Line 472 my %axis_defaults =
|
description => 'Maximum y-value shown in plot', |
description => 'Maximum y-value shown in plot', |
edit_type => 'entry', |
edit_type => 'entry', |
size => '10' |
size => '10' |
} |
}, |
|
xformat => { |
|
default => 'on', |
|
test => sub {$_[0]=~/^(on|off|\d+(f|F|e|E))$/}, |
|
description => 'X-axis number formatting', |
|
edit_type => 'choice', |
|
choices => ['on', 'off', '2e', '2f'], |
|
}, |
|
yformat => { |
|
default => 'on', |
|
test => sub {$_[0]=~/^(on|off|\d+(f|F|e|E))$/}, |
|
description => 'X-axis number formatting', |
|
edit_type => 'choice', |
|
choices => ['on', 'off', '2e', '2f'], |
|
}, |
|
|
); |
); |
|
|
my @curve_edit_order = ('color','name','linestyle','linewidth','pointtype','pointsize','limit'); |
my @curve_edit_order = ('color','name','linestyle','linewidth','pointtype','pointsize','limit'); |
Line 1321 sub write_gnuplot_file {
|
Line 1336 sub write_gnuplot_file {
|
} |
} |
# axis |
# axis |
if (%axis) { |
if (%axis) { |
|
if ($axis{'xformat'} ne 'on') { |
|
$gnuplot_input .= "set format x "; |
|
if ($axis{'xformat'} eq 'off') { |
|
$gnuplot_input .= "\"\"\n"; |
|
} else { |
|
$gnuplot_input .= "\"\%.".$axis{'xformat'}."\"\n"; |
|
} |
|
} |
|
if ($axis{'yformat'} ne 'on') { |
|
$gnuplot_input .= "set format y "; |
|
if ($axis{'yformat'} eq 'off') { |
|
$gnuplot_input .= "\"\"\n"; |
|
} else { |
|
$gnuplot_input .= "\"\%.".$axis{'yformat'}."\"\n"; |
|
} |
|
} |
$gnuplot_input .= "set xrange \[$axis{'xmin'}:$axis{'xmax'}\]\n"; |
$gnuplot_input .= "set xrange \[$axis{'xmin'}:$axis{'xmax'}\]\n"; |
$gnuplot_input .= "set yrange \[$axis{'ymin'}:$axis{'ymax'}\]\n"; |
$gnuplot_input .= "set yrange \[$axis{'ymin'}:$axis{'ymax'}\]\n"; |
} |
} |