[pal-cvs] CVS pal/examples

[tneste]

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

Modified Files:
	hello.lisp swarm.lisp 
Log Message:
Removed MOUSE-BUTTON-DOWN/UP-FN from event handling functions. Use KEY-*-FN instead

--- /project/pal/cvsroot/pal/examples/hello.lisp	2007/07/03 18:10:33	1.3
+++ /project/pal/cvsroot/pal/examples/hello.lisp	2007/07/03 18:42:33	1.4
@@ -6,14 +6,14 @@
   (pal:with-pal (:paths "/path/to/examples/")
     (let ((font (pal:load-font "georgia")))
       (pal:draw-text "Hello from PAL"
-		     (pal:v-round
-		      (pal:v (/ (- (pal:get-screen-width)
-				   (pal:get-text-size "Hello from PAL" font))
-				2)
-			     (/ (- (pal:get-screen-height)
-				   (pal:get-font-height font))
-				2)))
-		     font))
+                     (pal:v-round
+                      (pal:v (/ (- (pal:get-screen-width)
+                                   (pal:get-text-size "Hello from PAL" font))
+                                2)
+                             (/ (- (pal:get-screen-height)
+                                   (pal:get-font-height font))
+                                2)))
+                     font))
     (pal:wait-keypress)))
 
 ;; (hello-1)
@@ -22,11 +22,12 @@
 (defun hello-2 ()
   (pal:with-pal ()
     (let ((angle 0f0))
+      (pal:set-blend-color 0 255 0 255)
       (pal:event-loop ()
-	(pal:draw-rectangle (pal:v 0 0)
-			    (pal:get-screen-width) (pal:get-screen-height)
-			    50 50 200 10)
-	(pal:with-transformation (:pos (pal:v 400 300) :angle (incf angle 1f0) :scale 3f0)
-	  (pal:draw-text "Hello from PAL" (pal:v 0 0)))))))
+        (pal:draw-rectangle (pal:v 0 0)
+                            (pal:get-screen-width) (pal:get-screen-height)
+                            0 0 0 10)
+        (pal:with-transformation (:pos (pal:v 400 300) :angle (incf angle 1f0) :scale 3f0)
+          (pal:draw-text "Hello from PAL" (pal:v 0 0)))))))
 
 ;; (hello-2)
\ No newline at end of file
--- /project/pal/cvsroot/pal/examples/swarm.lisp	2007/06/28 20:14:05	1.1
+++ /project/pal/cvsroot/pal/examples/swarm.lisp	2007/07/03 18:42:33	1.2
@@ -3,10 +3,11 @@
 (defun swarm ()
   (let ((vectors nil))
     (pal:with-pal (:width 1024 :height 768)
-      (pal:event-loop (:mouse-button-down-fn (lambda (mb)
-                                               (when (= mb 1)
-                                                 (setf vectors (append vectors (loop repeat 50 collecting (cons (pal:get-mouse-pos)
-                                                                                                                (pal:v-random 5f0))))))))
+      (pal:event-loop (:key-down-fn (lambda (key)
+                                      (pal:message key)
+                                      (when (eq key :key-mouse-1)
+                                        (setf vectors (append vectors (loop repeat 50 collecting (cons (pal:get-mouse-pos)
+                                                                                                       (pal:v-random 5f0))))))))
         (pal:draw-rectangle (pal:v 0 0) 1024 768 0 0 0 128)
         (pal:with-blend (:r 255 :g 128 :b 128 :a 255)
           (pal:draw-text "Use left mousekey to add particles." (pal:v 0 0)))