[LON-CAPA-cvs] cvs: loncom /xml lonplot.pm
sakharuk
lon-capa-cvs@mail.lon-capa.org
Thu, 25 Apr 2002 21:33:52 -0000
sakharuk Thu Apr 25 17:33:52 2002 EDT
Modified files:
/loncom/xml lonplot.pm
Log:
now prints gnuplot figs
Index: loncom/xml/lonplot.pm
diff -u loncom/xml/lonplot.pm:1.72 loncom/xml/lonplot.pm:1.73
--- loncom/xml/lonplot.pm:1.72 Thu Apr 25 16:39:50 2002
+++ loncom/xml/lonplot.pm Thu Apr 25 17:33:52 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Dynamic plot
#
-# $Id: lonplot.pm,v 1.72 2002/04/25 20:39:50 matthew Exp $
+# $Id: lonplot.pm,v 1.73 2002/04/25 21:33:52 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -499,7 +499,7 @@
ENDIMAGE
} elsif ($target eq 'tex') {
&Apache::lonnet::ssi("/cgi-bin/plot.gif?file=$filename.data&output=eps");
- $result = '\\\\ \graphicspath{/home/httpd/perl/tmp/}\fbox{\includegraphics[width=9.0 cm]{'.&Apache::lonnet::unescape($filename).'.eps}} \\\\';
+ $result = '\graphicspath{{/home/httpd/perl/tmp/}}\fbox{\includegraphics{'.&Apache::lonnet::unescape($filename).'.eps}}';
}
} elsif ($target eq 'edit') {
$result.=&Apache::edit::tag_end($target,$token);
@@ -1051,7 +1051,7 @@
$curve->{'function'}.' title "'.
$curve->{'name'}.'" with '.
$curve->{'linestyle'};
- $gnuplot_input.= ' linewidth 2 ' if ($target eq 'tex');
+ $gnuplot_input.= ' linewidth 4 ' if ($target eq 'tex');
if (($curve->{'linestyle'} eq 'points') ||
($curve->{'linestyle'} eq 'linespoints') ||
($curve->{'linestyle'} eq 'errorbars') ||
@@ -1084,7 +1084,7 @@
$gnuplot_input.= '"'.$datafilename.'" title "'.
$curve->{'name'}.'" with '.
$curve->{'linestyle'};
- $gnuplot_input.= ' linewidth 2 ' if ($target eq 'tex');
+ $gnuplot_input.= ' linewidth 4 ' if ($target eq 'tex');
if (($curve->{'linestyle'} eq 'points') ||
($curve->{'linestyle'} eq 'linespoints') ||
($curve->{'linestyle'} eq 'errorbars') ||