[Maxima-commits] CVS: maxima/share/draw picture.lisp,1.1,1.2

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

Update of /cvsroot/maxima/maxima/share/draw
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv15505

Modified Files:
	picture.lisp 
Log Message:
Removing unnecessary quotes

Index: picture.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/draw/picture.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- picture.lisp	24 Jul 2007 21:46:03 -0000	1.1
+++ picture.lisp	29 Dec 2007 17:34:02 -0000	1.2
@@ -148,9 +148,9 @@
          idx)
     (setf idx
           (case chn
-            ('$red   0)
-            ('$green 1)
-            ('$blue  2)))
+            ($red   0)
+            ($green 1)
+            ($blue  2)))
     (loop for i from 0 below dim do
       (setf (aref img i) (aref (nth 4 pic) (+ (* 3 i) idx))))
     (list '(picture simp) '$level width height img) ))
@@ -209,8 +209,8 @@
                   (< y (nth 3 pic))))
     (merror "Pixel coordinates out of range"))
   (case (nth 1 pic)
-    ('$level (aref (nth 4 pic) (+ x (* y (nth 2 pic)))))
-    ('$rgb   (let ((pos (* 3 (+ x (* y (nth 2 pic))))))
+    ($level (aref (nth 4 pic) (+ x (* y (nth 2 pic)))))
+    ($rgb   (let ((pos (* 3 (+ x (* y (nth 2 pic))))))
                (list
                  '(mlist simp)
                  (aref (nth 4 pic) pos)