|
version 1.66, 2002/04/24 16:38:40
|
version 1.67, 2002/04/24 21:24:40
|
|
Line 104 my $onoff_test = sub {$_[0]=~/^(on|o
|
Line 104 my $onoff_test = sub {$_[0]=~/^(on|o
|
| my $key_pos_test = sub {$_[0]=~/^(top|bottom|right|left|outside|below| )+$/}; |
my $key_pos_test = sub {$_[0]=~/^(top|bottom|right|left|outside|below| )+$/}; |
| my $sml_test = sub {$_[0]=~/^(small|medium|large)$/}; |
my $sml_test = sub {$_[0]=~/^(small|medium|large)$/}; |
| my $linestyle_test = sub {exists($linestyles{$_[0]})}; |
my $linestyle_test = sub {exists($linestyles{$_[0]})}; |
| my $words_test = sub {$_[0]=~s/\s+/ /g;$_[0]=~/^([\w\(\)]+ ?)+$/}; |
my $words_test = sub {$_[0]=~s/\s+/ /g;$_[0]=~/^([\w~!\@\#\$\%^&\*\(\)-=_\+\[\]\{\}:\;\'<>,\.\/\?\\]+ ?)+$/}; |
| |
|
| ################################################################### |
################################################################### |
| ## ## |
## ## |
|
Line 999 sub write_gnuplot_file {
|
Line 999 sub write_gnuplot_file {
|
| # border |
# border |
| $gnuplot_input .= ($plot{'border'} eq 'on'? |
$gnuplot_input .= ($plot{'border'} eq 'on'? |
| 'set border'.$/ : |
'set border'.$/ : |
| 'set noborder'.$/ ); # title, xlabel, ylabel |
'set noborder'.$/ ); |
| |
# title, xlabel, ylabel |
| # titles |
# titles |
| $gnuplot_input .= "set title \"$title\"\n" if (defined($title)) ; |
$gnuplot_input .= "set title \"$title\"\n" if (defined($title)) ; |
| $gnuplot_input .= "set xlabel \"$xlabel\"\n" if (defined($xlabel)); |
$gnuplot_input .= "set xlabel \"$xlabel\"\n" if (defined($xlabel)); |
|
Line 1028 sub write_gnuplot_file {
|
Line 1029 sub write_gnuplot_file {
|
| if (%key) { |
if (%key) { |
| $gnuplot_input .= 'set key '.$key{'pos'}.' '; |
$gnuplot_input .= 'set key '.$key{'pos'}.' '; |
| if ($key{'title'} ne '') { |
if ($key{'title'} ne '') { |
| $gnuplot_input .= 'title " '.$key{'title'}.'" '; |
$gnuplot_input .= 'title "'.$key{'title'}.'" '; |
| } |
} |
| $gnuplot_input .= ($key{'box'} eq 'on' ? 'box ' : 'nobox ').$/; |
$gnuplot_input .= ($key{'box'} eq 'on' ? 'box ' : 'nobox ').$/; |
| } else { |
} else { |
![[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