[pal-cvs] CVS pal/examples

[tneste]

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

Modified Files:
	hello.lisp polygons.lisp swarm.lisp 
Log Message:
Added smoothp option to draw-polygon/line/point/rectangle. RGBA values now have effect on textured images drawn with aforementioned functions.
Removed some unnecessary gl-state pushing.(+gl-color-buffer-bit+)

--- /project/pal/cvsroot/pal/examples/hello.lisp	2007/07/13 21:30:58	1.5
+++ /project/pal/cvsroot/pal/examples/hello.lisp	2007/07/16 20:46:23	1.6
@@ -7,7 +7,7 @@
     (let ((font (pal:load-font "georgia")))
       (loop for y from 0 to 300 by 2 do
            (pal:draw-line (pal:v 0 (* y 2)) (pal:v 800 (* y 2))
-                          50 50 255 (truncate y 2)))
+                          50 50 255 (truncate y 2) :smoothp t))
       (let ((midpoint (pal:v-round
                        (pal:v (/ (- (pal:get-screen-width)
                                     (pal:get-text-size "Hello from PAL" font))
@@ -25,7 +25,7 @@
 
 
 (defun hello-2 ()
-  (pal:with-pal ()
+  (pal:with-pal (:fps 10000)
     (let ((angle 0f0))
       (pal:set-blend-color 0 255 0 255)
       (pal:event-loop ()
--- /project/pal/cvsroot/pal/examples/polygons.lisp	2007/07/13 21:30:58	1.2
+++ /project/pal/cvsroot/pal/examples/polygons.lisp	2007/07/16 20:46:24	1.3
@@ -8,6 +8,7 @@
         (plane (load-image "lego-plane.png" t))
         (slad (load-image "save_lisp.gif"))
         (teddy (load-image "yellow-teddy.png")))
+    (set-cursor nil)
     (event-loop ()
 
       (draw-rectangle (v 0 0)
@@ -18,6 +19,7 @@
       ;; DRAW-IMAGE draw the whole image at given position. Keyword arguments can be given to define the
       ;; scale, angle and horizontal and vertical alignment ("hotspot")
 
+      (draw-arrow (v 700 500) (get-mouse-pos) 255 255 0 255 :size 5f0 :smoothp t)
       (draw-image plane
                   (v 700 500)
                   :halign :middle ;; Possible options are :left, :right and :middle. :left is the default.
@@ -25,10 +27,10 @@
                   :angle (v-angle (v-direction (v 700 500) (get-mouse-pos))) ;; angle in degrees
                   :scale (* (v-distance (v 700 500) (get-mouse-pos)) .01f0))
 
-      (draw-point (v 700 500) 255 0 0 255 :size 10f0) ;; Draw a red point at the hotspot of previous image.
+      (draw-point (v 700 500) 255 0 0 255 :size 10f0 :smoothp t) ;; Draw a red point at the hotspot of previous image.
 
       ;; DRAW-POLYGON draw a polygon which vertexes are given as a list of VECs.
-      ;; FILL is either nil, t or image that is used as a pattern. If fill is an image the rgba values have no effect.
+      ;; FILL is either nil, t or image that is used as a pattern.
       ;; When ABSOLUTEP is T image patterns position is decided by screen coordinates.
       ;; Max value of SIZE depends on the OpenGL implementation, you probably shouldn't use values greater than 10f0
 
@@ -38,7 +40,7 @@
                             (v 50 100)
                             (v -50 100)
                             )
-                      255 0 0 255
+                      0 0 255 255
                       :fill grid
                       :absolutep t)
         (draw-polygon (list (v -100 0)
@@ -47,11 +49,12 @@
                             (v -50 100)
                             )
                       255 0 0 255
-                      :fill nil :size 4f0
+                      :fill nil
+                      :size 5f0
+                      :smoothp t
                       :absolutep nil))
 
 
-
       ;; DRAW-RECTANGLEs arguments are similar to DRAW-POLYGON
       ;; Notice how the size of the actual SLAD image used is expanded up to the nearest power of two and the extra space is filled with blank,
       ;; usually this happens transparently to the user (eg. image-width returns the original width of image) but in some cases
@@ -61,9 +64,9 @@
       ;; good idea to try and fit the image sizes inside the nearest power of two to save memory.
 
       (with-blend (:color '(255 255 255 128))
-        (draw-rectangle (get-mouse-pos)
+        (draw-rectangle (v+ (get-mouse-pos) (v 30 30))
                         100 100
-                        0 0 0 0
+                        255 255 255 64
                         :absolutep t
                         :fill slad))
 
--- /project/pal/cvsroot/pal/examples/swarm.lisp	2007/07/13 21:30:58	1.3
+++ /project/pal/cvsroot/pal/examples/swarm.lisp	2007/07/16 20:46:24	1.4
@@ -15,7 +15,7 @@
         (let ((midpoint (pal:v/ (reduce 'pal:v+ vectors :initial-value (pal:v 0 0) :key 'car)
                                 (max 1f0
                                      (coerce (length vectors) 'single-float)))))
-          (pal:draw-point midpoint 255 0 0 255 :size 10f0)
+          (pal:draw-point midpoint 255 0 0 255 :size 10f0 :smoothp t)
           (setf vectors (mapcar (lambda (v)
                                   (cons (pal:v+ (car v) (cdr v))
                                         (pal:v* (pal:v+ (cdr v)