[pal-cvs] CVS pal

[tneste]

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.