[pal-cvs] CVS pal/examples

[tneste]

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

Modified Files:
	hello.lisp 
Log Message:
Much faster DRAW-TEXT. Removed display-lists

--- /project/pal/cvsroot/pal/examples/hello.lisp	2007/07/21 16:34:16	1.8
+++ /project/pal/cvsroot/pal/examples/hello.lisp	2007/07/27 21:25:40	1.9
@@ -36,4 +36,18 @@
         (pal:with-transformation (:pos (pal:v 400 300) :angle (incf angle 1) :scale 3)
           (pal:draw-text "Hello from PAL" (pal:v 0 0)))))))
 
-;; (hello-2)
\ No newline at end of file
+;; (hello-2)
+
+
+(defun hello-3 ()
+  (pal:with-pal (:fps 10000)
+    (pal:event-loop ()
+      (pal:clear-screen 0 0 0)
+      (loop for x from 0 to 800 by (pal:get-text-size "Hello from PAL")
+         do
+         (loop for y from 20 to 600 by 10
+            do
+            (pal:draw-text "Hello from PAL" (pal:v x y))))
+      (pal:draw-fps))))
+
+;; (hello-3)
\ No newline at end of file