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