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