version 1.133, 2007/12/14 06:34:59
|
version 1.134, 2008/01/20 02:47:06
|
Line 385 my %label_defaults =
|
Line 385 my %label_defaults =
|
description => 'justification of the label text on the plot', |
description => 'justification of the label text on the plot', |
edit_type => 'choice', |
edit_type => 'choice', |
choices => ['left','right','center'] |
choices => ['left','right','center'] |
|
}, |
|
rotate => { |
|
default => 0, |
|
test => $real_test, |
|
description => 'Rotation of label (degrees)', |
|
edit_type => 'entry', |
|
size => '10', |
} |
} |
); |
); |
|
|
Line 1418 sub write_gnuplot_file {
|
Line 1425 sub write_gnuplot_file {
|
my $label; |
my $label; |
foreach $label (@labels) { |
foreach $label (@labels) { |
$gnuplot_input .= 'set label "'.$label->{'text'}.'" at '. |
$gnuplot_input .= 'set label "'.$label->{'text'}.'" at '. |
$label->{'xpos'}.','.$label->{'ypos'}.' '.$label->{'justify'}; |
$label->{'xpos'}.','.$label->{'ypos'}; |
|
if ($label->{'rotate'} ne '') { |
|
$gnuplot_input .= ' rotate by '.$label->{'rotate'}; |
|
} |
|
$gnuplot_input .= ' '.$label->{'justify'}; |
|
|
if ($target eq 'tex') { |
if ($target eq 'tex') { |
$gnuplot_input .=' font "'.$font_properties->{'printname'}.','.$fontsize.'pt"' ; |
$gnuplot_input .=' font "'.$font_properties->{'printname'}.','.$fontsize.'pt"' ; |
} |
} |