Update examples so they work with latest code.

1 files changed, 23 insertions, 23 deletions

diff --git a/examples/tetra/tetra.scm b/examples/tetra/tetra.scm
index 5723b31..f8a10d3 100644
--- a/examples/tetra/tetra.scm
+++ b/examples/tetra/tetra.scm
@@ -27,6 +27,7 @@
              (chickadee graphics color)
              (chickadee graphics font)
              (chickadee graphics particles)
+             (chickadee graphics path)
              (chickadee graphics texture)
              (chickadee graphics sprite)
              (chickadee scripting)
@@ -329,10 +330,11 @@ area next to the board."
 (define-method (on-boot (board <board>))
   (set! (batch board) (make-sprite-batch #f))
   (attach-to board
-             (make <filled-rect>
+             (make <path>
                #:name 'background
-               #:region (make-rect 0.0 0.0 320.0 640.0)
-               #:color tango-aluminium-6)
+               #:painter (with-style ((fill-color tango-aluminium-6))
+                           (fill
+                            (rectangle (vec2 0.0 0.0) 320.0 640.0))))
              (make <sprite-batch>
                #:name 'batch
                #:batch (batch board))
@@ -515,17 +517,13 @@ area next to the board."
                                           (/ container-width 2.0))
                                        (/ (- window-height container-height) 2.0)))))
     (attach-to container
-               (make <filled-rect>
+               (make <path>
                  #:name 'background
-                 #:region (make-rect 0.0 0.0 container-width container-height)
-                 #:color tango-aluminium-3)
-               (make <filled-rect>
-                 #:name 'background
-                 #:region (make-rect border
-                                     border
-                                     (- container-width (* border 2.0))
-                                     (- container-height (* border 2.0)))
-                 #:color tango-aluminium-6)
+                 #:painter (with-style ((fill-color tango-aluminium-6)
+                                        (stroke-color tango-aluminium-3)
+                                        (stroke-width border))
+                           (fill-and-stroke
+                            (rectangle (vec2 0.0 0.0) container-width container-height))))
                (make <label>
                  #:name 'message
                  #:text message
@@ -573,9 +571,10 @@ area next to the board."
 (define-method (on-boot (tetra <tetra>))
   (set! (board tetra) (make <board>))
   (attach-to tetra
-             (make <filled-rect>
-               #:region (make-rect 0.0 0.0 window-width window-height)
-               #:color tango-aluminium-5)
+             (make <path>
+               #:painter (with-style ((fill-color tango-aluminium-5))
+                           (fill
+                            (rectangle (vec2 0.0 0.0) window-width window-height))))
              (let ((text "NEXT"))
                (make <label>
                  #:name 'next-label
@@ -583,14 +582,15 @@ area next to the board."
                  #:font click-font
                  #:position (vec2 (centered-text text) 630.0)
                  #:scale (vec2 2.0 2.0)))
-             (make <filled-rect>
+             (make <path>
                #:name 'next-background
-               #:color tango-aluminium-6
-               #:region (let* ((w (* tile-width 5.0))
-                               (h (* tile-height 3.0))
-                               (x (centered w))
-                               (y (- 630.0 h 16.0)))
-                          (make-rect x y w h)))
+               #:painter (with-style ((fill-color tango-aluminium-6))
+                           (fill
+                            (let* ((w (* tile-width 5.0))
+                                   (h (* tile-height 3.0))
+                                   (x (centered w))
+                                   (y (- 630.0 h 16.0)))
+                              (rectangle (vec2 x y) w h)))))
              (let ((text "HI CHRIS"))
                (make <label>
                  #:name 'score-label