version 1.51, 2002/02/27 22:10:23
|
version 1.55, 2002/03/06 19:55:30
|
Line 29
|
Line 29
|
# 12/17 12/18 12/19 12/20 12/21 12/27 12/28 12/30 12/31 Matthew |
# 12/17 12/18 12/19 12/20 12/21 12/27 12/28 12/30 12/31 Matthew |
# 01/01/02 Matthew |
# 01/01/02 Matthew |
# 01/02 01/03 01/04 01/07 01/08 01/09 Matthew |
# 01/02 01/03 01/04 01/07 01/08 01/09 Matthew |
# 01/21 02/05 02/06 Matthew |
# 01/21 02/05 02/06 2/28Matthew |
|
|
package Apache::lonplot; |
package Apache::lonplot; |
|
|
Line 144 A <b>gnuplot</b> tag can contain the fol
|
Line 144 A <b>gnuplot</b> tag can contain the fol
|
<dd> Allows specification of the x and y coordinate 'tics' on the axes. |
<dd> Allows specification of the x and y coordinate 'tics' on the axes. |
This is mostly used to adjust the grid lines when a grid is displayed. |
This is mostly used to adjust the grid lines when a grid is displayed. |
</dl> |
</dl> |
|
If you are having trouble with your plot, please read the help |
|
available on Plot Curve. |
ENDPLOTHELP |
ENDPLOTHELP |
|
|
my %gnuplot_defaults = |
my %gnuplot_defaults = |
Line 450 sub end_gnuplot {
|
Line 452 sub end_gnuplot {
|
'_'.time.'_'.$$.int(rand(1000)).'_plot.data'; |
'_'.time.'_'.$$.int(rand(1000)).'_plot.data'; |
## Write the plot description to the file |
## Write the plot description to the file |
&write_gnuplot_file($tmpdir,$filename,$target); |
&write_gnuplot_file($tmpdir,$filename,$target); |
|
$filename = &Apache::lonnet::escape($filename); |
## return image tag for the plot |
## return image tag for the plot |
if ($target eq 'web') { |
if ($target eq 'web') { |
$result .= <<"ENDIMAGE"; |
$result .= <<"ENDIMAGE"; |
<img src = "/cgi-bin/plot.gif?$filename" |
<img src = "/cgi-bin/plot.gif?file=$filename&output=gif" |
width = "$plot{'width'}" |
width = "$plot{'width'}" |
height = "$plot{'height'}" |
height = "$plot{'height'}" |
align = "$plot{'align'}" |
align = "$plot{'align'}" |
alt = "image should be /cgi-bin/plot.gif?$filename" /> |
alt = "image should be /cgi-bin/plot.gif?$filename" /> |
ENDIMAGE |
ENDIMAGE |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
|
&Apache::lonnet::ssi('cgi-bin/plot.gif?file=$filename'. |
|
'&output=eps'); |
$result = "$filename.eps"; |
$result = "$filename.eps"; |
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |