version 1.60, 2002/03/22 15:43:42
|
version 1.61, 2002/03/22 16:04:09
|
Line 1140 sub edit_attributes {
|
Line 1140 sub edit_attributes {
|
sub insert_gnuplot { |
sub insert_gnuplot { |
my $result = ''; |
my $result = ''; |
# plot attributes |
# plot attributes |
$result .= "<gnuplot \n"; |
$result .= "\n<gnuplot "; |
foreach my $attr (keys(%gnuplot_defaults)) { |
foreach my $attr (keys(%gnuplot_defaults)) { |
$result .= " $attr=\"$gnuplot_defaults{$attr}->{'default'}\"\n"; |
$result .= "\n $attr=\"$gnuplot_defaults{$attr}->{'default'}\""; |
} |
} |
$result .= ">\n"; |
$result .= ">"; |
# Add the components (most are commented out for simplicity) |
# Add the components (most are commented out for simplicity) |
# $result .= &insert_key(); |
# $result .= &insert_key(); |
# $result .= &insert_axis(); |
# $result .= &insert_axis(); |
Line 1153 sub insert_gnuplot {
|
Line 1153 sub insert_gnuplot {
|
# $result .= &insert_ylabel(); |
# $result .= &insert_ylabel(); |
$result .= &insert_curve(); |
$result .= &insert_curve(); |
# close up the <gnuplot> |
# close up the <gnuplot> |
$result .= "</gnuplot>\n"; |
$result .= "\n</gnuplot>"; |
return $result; |
return $result; |
} |
} |
|
|
Line 1167 sub insert_xtics {
|
Line 1167 sub insert_xtics {
|
my $result; |
my $result; |
$result .= "\n <xtics "; |
$result .= "\n <xtics "; |
foreach my $attr (keys(%tic_defaults)) { |
foreach my $attr (keys(%tic_defaults)) { |
$result .= "$attr=\"$tic_defaults{$attr}->{'default'}\" "; |
$result .= "\n $attr=\"$tic_defaults{$attr}->{'default'}\" "; |
} |
} |
$result .= "/>\n"; |
$result .= "/>"; |
return $result; |
return $result; |
} |
} |
|
|
Line 1177 sub insert_ytics {
|
Line 1177 sub insert_ytics {
|
my $result; |
my $result; |
$result .= "\n <ytics "; |
$result .= "\n <ytics "; |
foreach my $attr (keys(%tic_defaults)) { |
foreach my $attr (keys(%tic_defaults)) { |
$result .= "$attr=\"$tic_defaults{$attr}->{'default'}\" "; |
$result .= "\n $attr=\"$tic_defaults{$attr}->{'default'}\" "; |
} |
} |
$result .= "/>\n"; |
$result .= "/>"; |
return $result; |
return $result; |
} |
} |
|
|
sub insert_key { |
sub insert_key { |
my $result; |
my $result; |
$result .= "\n <key \n"; |
$result .= "\n <key "; |
foreach my $attr (keys(%key_defaults)) { |
foreach my $attr (keys(%key_defaults)) { |
$result .= " $attr=\"$key_defaults{$attr}->{'default'}\"\n"; |
$result .= "\n $attr=\"$key_defaults{$attr}->{'default'}\""; |
} |
} |
$result .= " />\n"; |
$result .= " />"; |
return $result; |
return $result; |
} |
} |
|
|
Line 1197 sub insert_axis{
|
Line 1197 sub insert_axis{
|
my $result; |
my $result; |
$result .= "\n <axis "; |
$result .= "\n <axis "; |
foreach my $attr (keys(%axis_defaults)) { |
foreach my $attr (keys(%axis_defaults)) { |
$result .= " $attr=\"$axis_defaults{$attr}->{'default'}\"\n"; |
$result .= "\n $attr=\"$axis_defaults{$attr}->{'default'}\""; |
} |
} |
$result .= " />\n"; |
$result .= " />"; |
return $result; |
return $result; |
} |
} |
|
|
sub insert_title { return "\n <title></title>\n"; } |
sub insert_title { return "\n <title></title>"; } |
sub insert_xlabel { return "\n <xlabel></xlabel>\n"; } |
sub insert_xlabel { return "\n <xlabel></xlabel>"; } |
sub insert_ylabel { return "\n <ylabel></ylabel>\n"; } |
sub insert_ylabel { return "\n <ylabel></ylabel>"; } |
|
|
sub insert_label { |
sub insert_label { |
my $result; |
my $result; |
$result .= "\n <label "; |
$result .= "\n <label "; |
foreach my $attr (keys(%label_defaults)) { |
foreach my $attr (keys(%label_defaults)) { |
$result .= ' '.$attr.'="'. |
$result .= "\n $attr=\"". |
$label_defaults{$attr}->{'default'}."\"\n"; |
$label_defaults{$attr}->{'default'}."\""; |
} |
} |
$result .= " ></label>\n"; |
$result .= "></label>"; |
return $result; |
return $result; |
} |
} |
|
|
Line 1222 sub insert_curve {
|
Line 1222 sub insert_curve {
|
my $result; |
my $result; |
$result .= "\n <curve "; |
$result .= "\n <curve "; |
foreach my $attr (keys(%curve_defaults)) { |
foreach my $attr (keys(%curve_defaults)) { |
$result .= ' '.$attr.'="'. |
$result .= "\n $attr=\"". |
$curve_defaults{$attr}->{'default'}."\"\n"; |
$curve_defaults{$attr}->{'default'}."\""; |
} |
} |
$result .= " >\n"; |
$result .= " >"; |
$result .= &insert_data().&insert_data()."</curve>\n"; |
$result .= &insert_data().&insert_data()."\n </curve>"; |
} |
} |
|
|
sub insert_function { |
sub insert_function { |
my $result; |
my $result; |
$result .= "<function></function>\n"; |
$result .= "\n <function></function>"; |
return $result; |
return $result; |
} |
} |
|
|
sub insert_data { |
sub insert_data { |
my $result; |
my $result; |
$result .= " <data></data>\n"; |
$result .= "\n <data></data>"; |
return $result; |
return $result; |
} |
} |
|
|