|
version 1.135, 2008/03/19 21:09:09
|
version 1.136, 2008/03/24 21:53:41
|
|
Line 1483 sub write_gnuplot_file {
|
Line 1483 sub write_gnuplot_file {
|
| $gnuplot_input.= $linetypes{$curve->{'linetype'}}; |
$gnuplot_input.= $linetypes{$curve->{'linetype'}}; |
| $gnuplot_input.= ' linecolor rgb "'; |
$gnuplot_input.= ' linecolor rgb "'; |
| # convert color from xaaaaaa to #aaaaaa |
# convert color from xaaaaaa to #aaaaaa |
| $curve->{'color'} =~ s/x/#/; |
$curve->{'color'} =~ s/^x/#/; |
| $gnuplot_input.= $curve->{'color'}.'"'; |
$gnuplot_input.= $curve->{'color'}.'"'; |
| } |
} |
| $gnuplot_input.= ' linewidth '.$curve->{'linewidth'}; |
$gnuplot_input.= ' linewidth '.$curve->{'linewidth'}; |
|
Line 1527 sub write_gnuplot_file {
|
Line 1527 sub write_gnuplot_file {
|
| $gnuplot_input.= $linetypes{$curve->{'linetype'}}; |
$gnuplot_input.= $linetypes{$curve->{'linetype'}}; |
| $gnuplot_input.= ' linecolor rgb "'; |
$gnuplot_input.= ' linecolor rgb "'; |
| # convert color from xaaaaaa to #aaaaaa |
# convert color from xaaaaaa to #aaaaaa |
| $curve->{'color'} =~ s/x/#/; |
$curve->{'color'} =~ s/^x/#/; |
| $gnuplot_input.= $curve->{'color'}.'"'; |
$gnuplot_input.= $curve->{'color'}.'"'; |
| } |
} |
| $gnuplot_input.= ' linewidth '.$curve->{'linewidth'}; |
$gnuplot_input.= ' linewidth '.$curve->{'linewidth'}; |
![[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