[pal-cvs] CVS pal/examples - pal-cvs@common-lisp.net - mailman3.common-lisp.net

14 Nov 2007

Update of /project/pal/cvsroot/pal/examples
In directory clnet:/tmp/cvs-serv13845/examples
Modified Files:
    hares.lisp 
Log Message:
Added :VMIRROR and :HMIRROR options to DRAW-IMAGE.
Added RECTANGLES-OVERLAP-P.

--- /project/pal/cvsroot/pal/examples/hares.lisp	2007/08/30 09:02:23	1.9
+++ /project/pal/cvsroot/pal/examples/hares.lisp	2007/11/14 00:04:34	1.10
@@ -29,9 +29,7 @@
 (defmethod draw ((s sprite))
   (set-blend-color (r-of s) (g-of s) (b-of s) 255)
   (draw-image (tag 'hare)
-              (v- (pos-of s) (v* (v (image-width (tag 'hare))
-                                    (image-height (tag 'hare)))
-                                 (* (scale-of s) .5)))
+              (pos-of s)
               :halign :middle
               :valign :middle
               :scale (scale-of s)
@@ -70,8 +68,8 @@
                      :angle (random 360.0)))
(event-loop ()
-      ;;(+ 1 (v 10 10))
       (draw-rectangle (v 0 0) 800 600 255 255 255 255 :fill (tag 'bg))
+
       (with-blend (:mode *blend-mode*)
         (dolist (i *sprites*)
           (draw i)

    