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