[pal-cvs] CVS pal

[tneste]

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