From 656b2b626f7acf75c27466d4ec7f6e34e8b1847a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Wed, 16 Dec 2020 09:55:44 -0500
Subject: Update examples so they work with latest code.

---
 examples/tetra/tetra.scm | 46 +++++++++++++++++++++++-----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

(limited to 'examples/tetra/tetra.scm')

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
-- 
cgit v1.2.3