|
version 1.102, 2004/09/09 19:48:21
|
version 1.104, 2004/12/02 15:38:11
|
|
Line 246 my %gnuplot_defaults =
|
Line 246 my %gnuplot_defaults =
|
| bmargin => { |
bmargin => { |
| default => 'default', |
default => 'default', |
| test => sub {$_[0]=~/^(default|\d+)$/}, |
test => sub {$_[0]=~/^(default|\d+)$/}, |
| description => 'Bottm margin width (pts):', |
description => 'Bottom margin width (pts):', |
| edit_type => 'choice', |
edit_type => 'choice', |
| choices => $margin_choices, |
choices => $margin_choices, |
| }, |
}, |
|
Line 1030 sub write_gnuplot_file {
|
Line 1030 sub write_gnuplot_file {
|
| } |
} |
| # set term |
# set term |
| if ($target eq 'web') { |
if ($target eq 'web') { |
| $gnuplot_input .= 'set term gif '; |
$gnuplot_input .= 'set term '.$weboutputformat .' '; |
| $gnuplot_input .= 'transparent ' if ($plot{'transparent'} eq 'on'); |
$gnuplot_input .= 'transparent ' if ($plot{'transparent'} eq 'on'); |
| $gnuplot_input .= $plot{'font'} . ' '; |
$gnuplot_input .= $plot{'font'} . ' '; |
| $gnuplot_input .= 'size '.$plot{'width'}.','.$plot{'height'}.' '; |
$gnuplot_input .= 'size '.$plot{'width'}.','.$plot{'height'}.' '; |
|
Line 1123 sub write_gnuplot_file {
|
Line 1123 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'}.' font "Helvetica,'.$pt.'pt"'.$/ ; |
$label->{'xpos'}.','.$label->{'ypos'}.' '.$label->{'justify'}; |
| |
if ($target eq 'tex') { |
| |
$gnuplot_input .=' font "Helvetica,'.$pt.'pt"' ; |
| |
} |
| |
$gnuplot_input .= $/; |
| } |
} |
| if ($target eq 'tex') { |
if ($target eq 'tex') { |
| $gnuplot_input .="set size 1,".$plot{'height'}/$plot{'width'}*1.38; |
$gnuplot_input .="set size 1,".$plot{'height'}/$plot{'width'}*1.38; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonplot.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml