Update of /project/pal/cvsroot/pal In directory clnet:/tmp/cvs-serv1000 Modified Files: ffi.lisp package.lisp todo.txt Log Message: Added DRAW-POLYGON* --- /project/pal/cvsroot/pal/ffi.lisp 2007/07/16 14:44:12 1.6 +++ /project/pal/cvsroot/pal/ffi.lisp 2007/07/18 19:27:22 1.7 @@ -699,6 +699,7 @@ (defconstant +gl-DEPTH-BUFFER-BIT+ #x100) (defconstant +gl-ENABLE-BIT+ #x2000) (defconstant +gl-LINE-BIT+ #x4) +(defconstant +gl-smooth+ #x1D01) (defconstant +gl-LINE-SMOOTH+ #xB20) (defconstant +gl-NEAREST+ #x2600) (defconstant +gl-point-smooth+ #xB10) --- /project/pal/cvsroot/pal/package.lisp 2007/07/16 14:44:12 1.6 +++ /project/pal/cvsroot/pal/package.lisp 2007/07/18 19:27:22 1.7 @@ -6,6 +6,7 @@ #:+gl-line-smooth+ #:make-font #:+gl-scissor-test+ + #:+gl-smooth+ #:+gl-points+ #:free #:calloc @@ -414,6 +415,7 @@ #:image-width #:image-height #:draw-polygon + #:draw-polygon* #:draw-rectangle #:draw-point #:draw-line @@ -443,4 +445,5 @@ #:v-dot #:v-magnitude #:v-normalize #:v-distance #:v-truncate #:v-direction #:closest-point-to-line #:point-in-line #:lines-intersection - #:distance-from-line #:circle-line-intersection #:point-inside-rectangle)) \ No newline at end of file + #:distance-from-line #:circle-line-intersection #:point-inside-rectangle + #:circles-overlap #:point-inside-circle)) \ No newline at end of file --- /project/pal/cvsroot/pal/todo.txt 2007/07/16 14:44:12 1.7 +++ /project/pal/cvsroot/pal/todo.txt 2007/07/18 19:27:22 1.8 @@ -6,6 +6,8 @@ - More drawing primitives. +- Add align, scale and angle options to DRAW-IMAGE*. + - Improved texture handling - image-to-array/screen-to-array etc.