From: Raymond T. <rt...@us...> - 2002-06-15 21:02:02
|
Update of /cvsroot/maxima/maxima/src In directory usw-pr-cvs1:/tmp/cvs-serv11485/src Modified Files: plot.lisp Log Message: o Make the default range on Y much larger so that we don't just clip the output. If the user wants a clipped plot, let him specify the clipping explicitly. o When using gnuplot for plotting, the output data file sometimes contains lines with the string "move". Gnuplot doesn't like that, so don't do it. Index: plot.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/plot.lisp,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- plot.lisp 19 Nov 2001 04:45:52 -0000 1.13 +++ plot.lisp 15 Jun 2002 21:01:57 -0000 1.14 @@ -19,7 +19,11 @@ (defvar $plot_options '((mlist) ((mlist) |$x| -3 3) - ((mlist) |$y| -3 3) + ;; Make the default range on Y large. Don't + ;; use most-positive-double-float because this + ;; causes overflow in the draw2d routine. + ((mlist) |$y| #.(- (/ most-positive-double-float 1024)) + #.(/ most-positive-double-float 1024)) ((mlist) |$t| -3 3) ((mlist) $grid 30 30) ((mlist) $view_direction 1 1 1) @@ -751,7 +755,9 @@ ) (sloop for (v w) on (cdr (draw2d v range )) by 'cddr do - (cond ((eq v 'moveto) (format st "move ")) + (cond ((eq v 'moveto) + (unless (equal plot-format '$gnuplot) + (format st "move "))) (t (format st "~,3f ~,3f ~%" v w)))))) (case plot-format ($gnuplot |