[LON-CAPA-cvs] cvs: loncom /xml lonplot.pm

[matthew]

matthew		Mon Apr 29 08:45:57 2002 EDT

  Modified files:              
    /loncom/xml	lonplot.pm 
  Log:
  Minor changes for printed output.
  
  
Index: loncom/xml/lonplot.pm
diff -u loncom/xml/lonplot.pm:1.73 loncom/xml/lonplot.pm:1.74
--- loncom/xml/lonplot.pm:1.73	Thu Apr 25 17:33:52 2002
+++ loncom/xml/lonplot.pm	Mon Apr 29 08:45:57 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Dynamic plot
 #
-# $Id: lonplot.pm,v 1.73 2002/04/25 21:33:52 sakharuk Exp $
+# $Id: lonplot.pm,v 1.74 2002/04/29 12:45:57 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -990,7 +990,7 @@
 	# set output
 	$gnuplot_input .= "set output\n";
     } elsif ($target eq 'tex') {
-	$gnuplot_input .= "set term postscript eps monochrome\n";
+	$gnuplot_input .= "set term postscript eps monochrome solid\n";
 	$gnuplot_input .= "set output \"/home/httpd/perl/tmp/".
 	    &Apache::lonnet::unescape($filename).".eps\"\n";
     }
@@ -1041,6 +1041,10 @@
 	$gnuplot_input .= 'set label "'.$label->{'text'}.'" at '.
 	    $label->{'xpos'}.','.$label->{'ypos'}.' '.$label->{'justify'}.$/ ;
     }
+    if ($target eq 'tex') {
+        $gnuplot_input .="set size 1,".$plot{'height'}/$plot{'width'};
+        $gnuplot_input .="\n";
+        }
     # curves
     $gnuplot_input .= 'plot ';
     for (my $i = 0;$i<=$#curves;$i++) {