[pal-cvs] CVS pal/examples

[tneste]

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

Modified Files:
	images.lisp 
Log Message:
Added SCREEN-TO-ARRAY

--- /project/pal/cvsroot/pal/examples/images.lisp	2007/07/19 16:37:25	1.3
+++ /project/pal/cvsroot/pal/examples/images.lisp	2007/07/19 18:51:37	1.4
@@ -2,7 +2,6 @@
   (:use :cl :pal))
 (in-package :image-tests)
 
-(defparameter *foo* nil)
 
 (define-tags
   ;; IMAGE-FROM-FN builds and image by calling the FN with x and y coordinates.
@@ -51,4 +50,10 @@
                     (v 0 0)
                     :valign :middle
                     :halign :middle
-                    :angle (incf a .5f0))))))
\ No newline at end of file
+                    :angle (incf a .1f0)))
+
+      ;; Press left mousebutton to capture part of the screen as a new cursor
+      (when (key-pressed-p :key-mouse-1)
+        (set-cursor (image-from-array
+                     nil
+                     (screen-to-array (get-mouse-pos) 128 128)))))))
\ No newline at end of file