[pal-cvs] CVS pal/examples

[tneste]

Update of /project/pal/cvsroot/pal/examples
In directory clnet:/tmp/cvs-serv25849/examples

Modified Files:
	hares.lisp 
Log Message:
Some r, g, b, a -> color change related fixes.

--- /project/pal/cvsroot/pal/examples/hares.lisp	2007/11/14 00:04:34	1.10
+++ /project/pal/cvsroot/pal/examples/hares.lisp	2008/09/07 15:20:57	1.11
@@ -17,9 +17,7 @@
   ((pos :accessor pos-of :initarg :pos :initform (v 0 0))
    (vel :accessor vel-of :initarg :vel :initform (v 0 0))
    (angle :accessor angle-of :initarg :angle :initform 0)
-   (r :accessor r-of :initarg :r)
-   (g :accessor g-of :initarg :g)
-   (b :accessor b-of :initarg :b)
+   (color :accessor color-of :initarg :color)
    (scale :accessor scale-of :initform 1 :initarg :scale)
    (scaled :accessor scaled-of :initarg :scaled)))
 
@@ -27,7 +25,7 @@
   (push sprite *sprites*))
 
 (defmethod draw ((s sprite))
-  (set-blend-color (r-of s) (g-of s) (b-of s) 255)
+  (set-blend-color (color-of s))
   (draw-image (tag 'hare)
               (pos-of s)
               :halign :middle
@@ -59,9 +57,9 @@
       (make-instance 'sprite
                      :scaled (- (random .1) .05)
                      :scale (+ (random 1.5) .5)
-                     :r (random 255)
-                     :g (random 255)
-                     :b (random 255)
+                     :color (color (random 255)
+                                   (random 255)
+                                   (random 255))
                      :pos (v (random (get-screen-width))
                              (random (get-screen-height)))
                      :vel (v-random 3.0)