From tneste at common-lisp.net  Sun Sep  7 15:20:57 2008
From: tneste at common-lisp.net (tneste)
Date: Sun,  7 Sep 2008 11:20:57 -0400 (EDT)
Subject: [pal-cvs] CVS pal
Message-ID: <20080907152057.CA41447147@common-lisp.net>

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

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

--- /project/pal/cvsroot/pal/color.lisp	2007/12/29 14:45:53	1.3
+++ /project/pal/cvsroot/pal/color.lisp	2008/09/07 15:20:57	1.4
@@ -27,4 +27,7 @@
 (defparameter +gray+ (color 128 128 128))
 (defparameter +light-gray+ (color 200 200 200))
 (defparameter +dark-gray+ (color 64 64 64))
-(defparameter +white+ (color 255 255 255))
\ No newline at end of file
+(defparameter +white+ (color 255 255 255))
+(defparameter +light-green+ (color 50 255 50))
+(defparameter +light-blue+ (color 50 50 255))
+(defparameter +red+ (color 255 20 20))
\ No newline at end of file
--- /project/pal/cvsroot/pal/package.lisp	2007/12/29 14:45:53	1.24
+++ /project/pal/cvsroot/pal/package.lisp	2008/09/07 15:20:57	1.25
@@ -453,6 +453,7 @@
 
            #:color #:color-r #:color-g #:color-b #:color-a #:random-color
            #:+black+ #:+white+ #:+gray+ #:+dark-gray+ #:+light-gray+
+           #:+light-green+ #:+light-blue+ #:+red+
 
            #:v #:vec #:copy-vec #:angle-v #:v-angle #:vx #:vy
            #:v= #:v-round #:v-floor #:v-random



From tneste at common-lisp.net  Sun Sep  7 15:20:58 2008
From: tneste at common-lisp.net (tneste)
Date: Sun,  7 Sep 2008 11:20:58 -0400 (EDT)
Subject: [pal-cvs] CVS pal/examples
Message-ID: <20080907152058.09FCE49023@common-lisp.net>

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)