[pal-cvs] CVS pal/examples

[tneste]

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

Modified Files:
	hello.lisp 
Log Message:
Faster bitmap loading

--- /project/pal/cvsroot/pal/examples/hello.lisp	2007/07/01 22:49:25	1.2
+++ /project/pal/cvsroot/pal/examples/hello.lisp	2007/07/03 18:10:33	1.3
@@ -3,17 +3,17 @@
 
 
 (defun hello-1 ()
-  (pal:with-pal (:paths "/path/to/examples/)
+  (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)
@@ -23,10 +23,10 @@
   (pal:with-pal ()
     (let ((angle 0f0))
       (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)
+			    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)))))))
 
 ;; (hello-2)
\ No newline at end of file