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)
