[Maxima-commits] CVS: maxima/share/draw draw.lisp, 1.90.2.3, 1.90.2.4

[Mario R. R. <rio...@us...>]

Update of /cvsroot/maxima/maxima/share/draw
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv8996

Modified Files:
      Tag: RELEASE-5_23-BRANCH
	draw.lisp 
Log Message:
Fix bug in vect3d

Index: draw.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/draw/draw.lisp,v
retrieving revision 1.90.2.3
retrieving revision 1.90.2.4
diff -u -d -r1.90.2.3 -r1.90.2.4
--- draw.lisp	7 Dec 2010 23:50:33 -0000	1.90.2.3
+++ draw.lisp	13 Dec 2010 17:00:38 -0000	1.90.2.4
@@ -1135,15 +1135,15 @@
       (update-ranges-3d (min x xdx) (max x xdx) (min y ydy) (max y ydy) (min z zdz) (max z zdz))
       (make-gr-object
          :name 'vector
-         :command (format nil " ~a w vect ~a ~a size ~a, ~a lw ~a lt ~a lc ~a"
+         :command (format nil " ~a w vect ~a size ~a, ~a ~a lw ~a lt ~a lc ~a"
                               (make-obj-title (get-option '$key))
                               (if (get-option '$head_both) "heads" "head")
+                              (get-option '$head_length)
+                              (get-option '$head_angle)
                               (case (get-option '$head_type)
                                  ($filled   "filled")
                                  ($empty    "empty")
                                  ($nofilled "nofilled"))
-                              (get-option '$head_length)
-                              (get-option '$head_angle)
                               (get-option '$line_width)
                               (get-option '$line_type)
                               (hex-to-rgb (get-option '$color)) )