[Maxima-commits] CVS: maxima/share/dynamics plotdf.lisp,1.9,1.10

[Jaime E. V. <vi...@us...>]

Update of /cvsroot/maxima/maxima/share/dynamics
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv30462

Modified Files:
	plotdf.lisp 
Log Message:
Change the name of option "nobox" to "box", and allow values "true"
and "false" for box and axes, to be consistent with plot2d.


Index: plotdf.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/dynamics/plotdf.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- plotdf.lisp	1 Apr 2009 01:56:21 -0000	1.9
+++ plotdf.lisp	1 Apr 2009 04:29:31 -0000	1.10
@@ -41,9 +41,20 @@
         ($trajectory_at
          (check-list-items name (rest (rest value)) 'number 2))
         ($bbox (check-list-items name (rest (rest value)) 'number 4))
-        (($xfun $parameters $sliders $vectors $fieldlines $curves $axes
-		$windowtitle $xaxislabel $yaxislabel $nobox $psfile) value)
-        ('$direction
+        (($xfun $parameters $sliders $vectors $fieldlines $curves 
+		$windowtitle $xaxislabel $yaxislabel $psfile) value)
+	($axes
+	 (if (not (third value))
+	     (setq value '((mlist simp) $axes 0))  
+	   (case (third value)
+		 ($x (setq value '((mlist simp) $axes "x")))
+		 ($y (setq value '((mlist simp) $axes "y")))
+		 (t (setq value '((mlist simp) $axes "xy"))))))
+	($box
+	 (if (not (third value))
+	     (setq value '((mlist simp) $nobox 1))
+	   (setq value '((mlist simp) $nobox 0))))
+        ($direction
          (or (member (third value) '($forward $backward $both))
              (merror "direction: choose one of [forward,backward,both]")) 
          value)