version 1.42, 2002/01/21 16:41:31
|
version 1.46, 2002/01/30 13:27:51
|
Line 149 my %plot_defaults =
|
Line 149 my %plot_defaults =
|
default => 'off', |
default => 'off', |
test => $onoff_test, |
test => $onoff_test, |
description => 'Transparent image', |
description => 'Transparent image', |
edit_type => 'on_off' |
edit_type => 'onoff' |
}, |
}, |
grid => { |
grid => { |
default => 'off', |
default => 'off', |
test => $onoff_test, |
test => $onoff_test, |
description => 'Display grid', |
description => 'Display grid', |
edit_type => 'on_off' |
edit_type => 'onoff' |
}, |
}, |
border => { |
border => { |
default => 'on', |
default => 'on', |
test => $onoff_test, |
test => $onoff_test, |
description => 'Draw border around plot', |
description => 'Draw border around plot', |
edit_type => 'on_off' |
edit_type => 'onoff' |
}, |
}, |
font => { |
font => { |
default => 'medium', |
default => 'medium', |
Line 192 my %key_defaults =
|
Line 192 my %key_defaults =
|
default => 'off', |
default => 'off', |
test => $onoff_test, |
test => $onoff_test, |
description => 'Draw a box around the key?', |
description => 'Draw a box around the key?', |
edit_type => 'on_off' |
edit_type => 'onoff' |
}, |
}, |
pos => { |
pos => { |
default => 'top right', |
default => 'top right', |
Line 229 my %label_defaults =
|
Line 229 my %label_defaults =
|
} |
} |
); |
); |
|
|
|
my @tic_edit_order = ('location','mirror','start','increment','end'); |
|
my %tic_defaults = |
|
( |
|
location => { |
|
default => 'border', |
|
test => sub {$_[0]=~/^(border|axis)$/}, |
|
description => 'Location of tick marks', |
|
edit_type => 'choice', |
|
choices => ['border','axis'] |
|
}, |
|
mirror => { |
|
default => 'on', |
|
test => $onoff_test, |
|
description => 'mirror ticks on opposite axis?', |
|
edit_type => 'onoff' |
|
}, |
|
start => { |
|
default => '-10.0', |
|
test => $real_test, |
|
description => 'Start ticks at', |
|
edit_type => 'entry', |
|
size => '10' |
|
}, |
|
increment => { |
|
default => '1.0', |
|
test => $real_test, |
|
description => 'Place a tick every', |
|
edit_type => 'entry', |
|
size => '10' |
|
}, |
|
end => { |
|
default => ' 10.0', |
|
test => $real_test, |
|
description => 'Stop ticks at ', |
|
edit_type => 'entry', |
|
size => '10' |
|
}, |
|
); |
|
|
my %axis_defaults = |
my %axis_defaults = |
( |
( |
color => { |
color => { |
Line 298 my %curve_defaults =
|
Line 337 my %curve_defaults =
|
## parsing and edit rendering ## |
## parsing and edit rendering ## |
## ## |
## ## |
################################################################### |
################################################################### |
my (%plot,%key,%axis,$title,$xlabel,$ylabel,@labels,@curves); |
my (%plot,%key,%axis,$title,$xlabel,$ylabel,@labels,@curves,%xtics,%ytics); |
|
|
sub start_plot { |
sub start_plot { |
%plot = (); %key = (); %axis = (); |
%plot = (); %key = (); %axis = (); |
$title = undef; $xlabel = undef; $ylabel = undef; |
$title = undef; $xlabel = undef; $ylabel = undef; |
$#labels = -1; $#curves = -1; |
$#labels = -1; $#curves = -1; |
|
%xtics = (); %ytics = (); |
# |
# |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result=''; |
my $result=''; |
&Apache::lonxml::register('Apache::lonplot', |
&Apache::lonxml::register('Apache::lonplot', |
('title','xlabel','ylabel','key','axis','label','curve')); |
('title','xlabel','ylabel','key','axis','label','curve', |
|
'xtics','ytics')); |
push (@Apache::lonxml::namespace,'lonplot'); |
push (@Apache::lonxml::namespace,'lonplot'); |
if ($target eq 'web') { |
if ($target eq 'web') { |
my $inside = &Apache::lonxml::get_all_text("/plot",$$parser[-1]); |
my $inside = &Apache::lonxml::get_all_text("/plot",$$parser[-1]); |
Line 360 ENDIMAGE
|
Line 401 ENDIMAGE
|
return $result; |
return $result; |
} |
} |
|
|
|
|
|
##--------------------------------------------------------------- xtics |
|
sub start_xtics { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
my $result=''; |
|
if ($target eq 'web') { |
|
&get_attributes(\%xtics,\%tic_defaults,$parstack,$safeeval, |
|
$tagstack->[-1]); |
|
} elsif ($target eq 'edit') { |
|
$result .= &Apache::edit::tag_start($target,$token,'xtics'); |
|
$result .= &edit_attributes($target,$token,\%tic_defaults, |
|
\@tic_edit_order); |
|
} elsif ($target eq 'modified') { |
|
my $constructtag=&Apache::edit::get_new_args |
|
($token,$parstack,$safeeval,keys(%tic_defaults)); |
|
if ($constructtag) { |
|
$result = &Apache::edit::rebuild_tag($token); |
|
} |
|
} |
|
return $result; |
|
} |
|
|
|
sub end_xtics { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
my $result = ''; |
|
if ($target eq 'web') { |
|
} elsif ($target eq 'edit') { |
|
$result.=&Apache::edit::tag_end($target,$token); |
|
} |
|
return $result; |
|
} |
|
|
|
##--------------------------------------------------------------- ytics |
|
sub start_ytics { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
my $result=''; |
|
if ($target eq 'web') { |
|
&get_attributes(\%ytics,\%tic_defaults,$parstack,$safeeval, |
|
$tagstack->[-1]); |
|
} elsif ($target eq 'edit') { |
|
$result .= &Apache::edit::tag_start($target,$token,'ytics'); |
|
$result .= &edit_attributes($target,$token,\%tic_defaults, |
|
\@tic_edit_order); |
|
} elsif ($target eq 'modified') { |
|
my $constructtag=&Apache::edit::get_new_args |
|
($token,$parstack,$safeeval,keys(%tic_defaults)); |
|
if ($constructtag) { |
|
$result = &Apache::edit::rebuild_tag($token); |
|
} |
|
} |
|
return $result; |
|
} |
|
|
|
sub end_ytics { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
my $result = ''; |
|
if ($target eq 'web') { |
|
} elsif ($target eq 'edit') { |
|
$result.=&Apache::edit::tag_end($target,$token); |
|
} |
|
return $result; |
|
} |
|
|
|
|
##----------------------------------------------------------------- key |
##----------------------------------------------------------------- key |
sub start_key { |
sub start_key { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
Line 762 sub write_gnuplot_file {
|
Line 867 sub write_gnuplot_file {
|
$gnuplot_input .= $plot{'font'} . ' '; |
$gnuplot_input .= $plot{'font'} . ' '; |
$gnuplot_input .= 'size '.$plot{'width'}.','.$plot{'height'}.' '; |
$gnuplot_input .= 'size '.$plot{'width'}.','.$plot{'height'}.' '; |
$gnuplot_input .= "@Colors\n"; |
$gnuplot_input .= "@Colors\n"; |
|
# set output |
|
$gnuplot_input .= "set output\n"; |
# grid |
# grid |
$gnuplot_input .= 'set grid'.$/ if ($plot{'grid'} eq 'on'); |
$gnuplot_input .= 'set grid'.$/ if ($plot{'grid'} eq 'on'); |
# 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 |
$gnuplot_input .= "set output\n"; |
# 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)); |
$gnuplot_input .= "set ylabel \"$ylabel\"\n" if (defined($ylabel)); |
$gnuplot_input .= "set ylabel \"$ylabel\"\n" if (defined($ylabel)); |
|
# tics |
|
if (%xtics) { |
|
$gnuplot_input .= "set xtics $xtics{'location'} "; |
|
$gnuplot_input .= ( $xtics{'mirror'} eq 'on'?"mirror ":"nomirror "); |
|
$gnuplot_input .= "$xtics{'start'}, "; |
|
$gnuplot_input .= "$xtics{'increment'}, "; |
|
$gnuplot_input .= "$xtics{'end'}\n"; |
|
} |
|
if (%ytics) { |
|
$gnuplot_input .= "set ytics $ytics{'location'} "; |
|
$gnuplot_input .= ( $ytics{'mirror'} eq 'on'?"mirror ":"nomirror "); |
|
$gnuplot_input .= "$ytics{'start'}, "; |
|
$gnuplot_input .= "$ytics{'increment'}, "; |
|
$gnuplot_input .= "$ytics{'end'}\n"; |
|
} |
|
# axis |
if (%axis) { |
if (%axis) { |
$gnuplot_input .= "set xrange \[$axis{'xmin'}:$axis{'xmax'}\]\n"; |
$gnuplot_input .= "set xrange \[$axis{'xmin'}:$axis{'xmax'}\]\n"; |
$gnuplot_input .= "set yrange \[$axis{'ymin'}:$axis{'ymax'}\]\n"; |
$gnuplot_input .= "set yrange \[$axis{'ymin'}:$axis{'ymax'}\]\n"; |
Line 780 sub write_gnuplot_file {
|
Line 903 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 { |
Line 879 sub edit_attributes {
|
Line 1002 sub edit_attributes {
|
} elsif ($defaults->{$attr}->{'edit_type'} eq 'choice') { |
} elsif ($defaults->{$attr}->{'edit_type'} eq 'choice') { |
$result .= &Apache::edit::select_arg |
$result .= &Apache::edit::select_arg |
($description,$attr,$defaults->{$attr}->{'choices'},$token); |
($description,$attr,$defaults->{$attr}->{'choices'},$token); |
} elsif ($defaults->{$attr}->{'edit_type'} eq 'on_off') { |
} elsif ($defaults->{$attr}->{'edit_type'} eq 'onoff') { |
$result .= &Apache::edit::select_arg |
$result .= &Apache::edit::select_arg |
($description,$attr,['on','off'],$token); |
($description,$attr,['on','off'],$token); |
} |
} |
Line 905 sub insert_plot {
|
Line 1028 sub insert_plot {
|
} |
} |
$result .= ">\n"; |
$result .= ">\n"; |
# Add the components |
# Add the components |
$result .= &insert_key(); |
# $result .= &insert_key(); |
$result .= &insert_axis(); |
# $result .= &insert_axis(); |
$result .= &insert_title(); |
# $result .= &insert_title(); |
$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 <plot> |
$result .= "</plot>\n"; |
$result .= "</plot>\n"; |
return $result; |
return $result; |
} |
} |
|
|
|
sub insert_tics { |
|
my $result; |
|
$result .= &insert_xtics() . &insert_ytics; |
|
return $result; |
|
} |
|
|
|
sub insert_xtics { |
|
my $result; |
|
$result .= "\n <xtics "; |
|
foreach my $attr (keys(%tic_defaults)) { |
|
$result .= "$attr=\"$tic_defaults{$attr}->{'default'}\" "; |
|
} |
|
$result .= "/>\n"; |
|
return $result; |
|
} |
|
|
|
sub insert_ytics { |
|
my $result; |
|
$result .= "\n <ytics "; |
|
foreach my $attr (keys(%tic_defaults)) { |
|
$result .= "$attr=\"$tic_defaults{$attr}->{'default'}\" "; |
|
} |
|
$result .= "/>\n"; |
|
return $result; |
|
} |
|
|
sub insert_key { |
sub insert_key { |
my $result; |
my $result; |
$result .= " <key \n"; |
$result .= "\n <key \n"; |
foreach my $attr (keys(%key_defaults)) { |
foreach my $attr (keys(%key_defaults)) { |
$result .= " $attr=\"$key_defaults{$attr}->{'default'}\"\n"; |
$result .= " $attr=\"$key_defaults{$attr}->{'default'}\"\n"; |
} |
} |
Line 928 sub insert_key {
|
Line 1077 sub insert_key {
|
|
|
sub insert_axis{ |
sub insert_axis{ |
my $result; |
my $result; |
$result .= ' <axis '; |
$result .= "\n <axis "; |
foreach my $attr (keys(%axis_defaults)) { |
foreach my $attr (keys(%axis_defaults)) { |
$result .= " $attr=\"$axis_defaults{$attr}->{'default'}\"\n"; |
$result .= " $attr=\"$axis_defaults{$attr}->{'default'}\"\n"; |
} |
} |
Line 936 sub insert_axis{
|
Line 1085 sub insert_axis{
|
return $result; |
return $result; |
} |
} |
|
|
sub insert_title { return " <title></title>\n"; } |
sub insert_title { return "\n <title></title>\n"; } |
sub insert_xlabel { return " <xlabel></xlabel>\n"; } |
sub insert_xlabel { return "\n <xlabel></xlabel>\n"; } |
sub insert_ylabel { return " <ylabel></ylabel>\n"; } |
sub insert_ylabel { return "\n <ylabel></ylabel>\n"; } |
|
|
sub insert_label { |
sub insert_label { |
my $result; |
my $result; |
$result .= ' <label '; |
$result .= "\n <label "; |
foreach my $attr (keys(%label_defaults)) { |
foreach my $attr (keys(%label_defaults)) { |
$result .= ' '.$attr.'="'. |
$result .= ' '.$attr.'="'. |
$label_defaults{$attr}->{'default'}."\"\n"; |
$label_defaults{$attr}->{'default'}."\"\n"; |