version 1.49, 2002/02/06 10:33:27
|
version 1.50, 2002/02/27 16:54:58
|
Line 1089 sub edit_attributes {
|
Line 1089 sub edit_attributes {
|
sub insert_gnuplot { |
sub insert_gnuplot { |
my $result = ''; |
my $result = ''; |
# plot attributes |
# plot attributes |
$result .= "<plot \n"; |
$result .= "<gnuplot \n"; |
foreach my $attr (keys(%gnuplot_defaults)) { |
foreach my $attr (keys(%gnuplot_defaults)) { |
$result .= " $attr=\"$gnuplot_defaults{$attr}->{'default'}\"\n"; |
$result .= " $attr=\"$gnuplot_defaults{$attr}->{'default'}\"\n"; |
} |
} |
Line 1101 sub insert_gnuplot {
|
Line 1101 sub insert_gnuplot {
|
# $result .= &insert_xlabel(); |
# $result .= &insert_xlabel(); |
# $result .= &insert_ylabel(); |
# $result .= &insert_ylabel(); |
$result .= &insert_curve(); |
$result .= &insert_curve(); |
# close up the <plot> |
# close up the <gnuplot> |
$result .= "</plot>\n"; |
$result .= "</gnuplot>\n"; |
return $result; |
return $result; |
} |
} |
|
|