Update of /project/pal/cvsroot/pal/examples In directory clnet:/tmp/cvs-serv8836/examples Added Files: images.lisp utils.lisp Log Message: Added image-from-array and image-from-fn --- /project/pal/cvsroot/pal/examples/images.lisp 2007/07/16 14:44:12 NONE +++ /project/pal/cvsroot/pal/examples/images.lisp 2007/07/16 14:44:12 1.1 (defpackage :image-tests (:use :cl :pal)) (in-package :image-tests) (define-tags image-1 (image-from-fn 255 255 t (lambda (x y) (values x 0 x y))) image-2 (image-from-array nil #2A(((255 255 255 128) (0 0 0) (255 255 255)) ((255 255 255) (255 255 0) (255 255 255)) ((255 255 255) (0 0 0) (255 255 255 128))))) (with-pal () (set-cursor (tag 'image-1)) (event-loop () (clear-screen 50 100 255) (with-transformation (:scale 100f0) (draw-image (tag 'image-2) (v 0 0)))))--- /project/pal/cvsroot/pal/examples/utils.lisp 2007/07/16 14:44:12 NONE +++ /project/pal/cvsroot/pal/examples/utils.lisp 2007/07/16 14:44:12 1.1 ;; Some examples of the misc macros and utility functions in PAL ;; Get path to applications user specific data directory. Application name is taken from the :title argument ;; to OPEN/WITH-PAL so be careful to set it to something sensible. ;; If the directory doesn't exists it is created, the exact location of the files is OS dependant. (pal:get-application-folder) (pal:get-application-file "saved_game.data") ;; DO-N is like DO-TIMES but it iterates over the cartesian product of its arguments. Handy when working with tilemaps etc. (pal:do-n (i 3 j 3 k 3) (format t "~a ~a ~a~%" i j k)) ;; RANDOMLY evaluates its body, umm, randomly. (pal:randomly 10 (print "I'm a lucky s-expression!")) ;; has a 1/10 chance to get evaluated ;; CURRY, your average currying macro (mapcar (pal:curry '* 2 2) '(1 2 3 4 5)) ;; RELT returns a random element in a sequence (pal:relt (mapcar (pal:curry '* 2 2) '(1 2 3 4 5))) ;; CLAMPs a value between min and max (pal:clamp 10 (random 30) 20) ;; DATA-PATH searches for a file from the PATHS given to PAL and returns the first match (pal:data-path "foo.png")