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