[pal-cvs] CVS pal

[tneste]

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

Modified Files:
	pal.lisp 
Log Message:
Fixed handling of coordinates in with-clipping.

--- /project/pal/cvsroot/pal/pal.lisp	2007/10/15 19:04:55	1.32
+++ /project/pal/cvsroot/pal/pal.lisp	2007/10/15 21:48:00	1.33
@@ -297,9 +297,10 @@
 (defunct push-clip (x y width height)
     (u16 x u16 y u16 width u16 height)
   (close-quads)
-  (pal-ffi:gl-scissor x y width height)
-  (pal-ffi:gl-enable pal-ffi:+gl-scissor-test+)
-  (push (vector x y width height) *clip-stack*))
+  (let ((y (- (get-screen-height) y height)))
+    (pal-ffi:gl-scissor x y width height)
+    (pal-ffi:gl-enable pal-ffi:+gl-scissor-test+)
+    (push (vector x y width height) *clip-stack*)))
 
 (defun pop-clip ()
   (close-quads)