[pal-cvs] CVS pal/examples

[tneste]

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

Modified Files:
	images.lisp 
Log Message:
Cleaned up and fixed SCREEN-TO-ARRAY

--- /project/pal/cvsroot/pal/examples/images.lisp	2007/07/21 16:34:16	1.5
+++ /project/pal/cvsroot/pal/examples/images.lisp	2007/07/27 22:48:40	1.6
@@ -39,7 +39,8 @@
                      :colors (list (list 255 0 0 255)
                                    (list 255 0 0 255)
                                    (list 0 0 255 255)
-                                   (list 0 0 255 255))) ;; just draws a nice gradient background
+                                   (list 0 0 255 255)))
+      ;; just draws a nice gradient background
 
       ;; And draw a pattern of image-1s on the top of it. Not exactly seamless tiles but hey...
       (draw-rectangle (v 0 0) 800 600 255 255 255 255 :fill (tag 'image-1))
@@ -52,6 +53,7 @@
                     :halign :middle
                     :angle (incf a .1)))
 
+
       ;; 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