From d0250dcd5ebe6de0bb7236b2805869ccd4d45537 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 15 Oct 2021 14:39:53 -0400
Subject: Rename <canvas> to <display-2d> and <path> to <canvas>.

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

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

diff --git a/examples/tetra/tetra.scm b/examples/tetra/tetra.scm
index f8a10d3..65e5a33 100644
--- a/examples/tetra/tetra.scm
+++ b/examples/tetra/tetra.scm
@@ -237,7 +237,7 @@ area next to the board."
     (if init?
         (teleport piece px py)
         (run-script piece
-          (move-to piece px py 8)))))
+          (move-to piece px py 0.1)))))
 
 (define-method (move-piece (piece <piece>) new-x new-y)
   (move-piece piece new-x new-y #f))
@@ -289,7 +289,7 @@ area next to the board."
 
 (define-method (on-clear (row <row>) particles)
   (run-script row
-    (scale-to row 0.0 0.0 10)
+    (scale-to row 0.0 0.0 0.25)
     (detach row))
   ;; Emit some particles! woooooo
   (let* ((pos (position row))
@@ -330,7 +330,7 @@ area next to the board."
 (define-method (on-boot (board <board>))
   (set! (batch board) (make-sprite-batch #f))
   (attach-to board
-             (make <path>
+             (make <canvas>
                #:name 'background
                #:painter (with-style ((fill-color tango-aluminium-6))
                            (fill
@@ -425,7 +425,7 @@ area next to the board."
 (define-method (remove-filled-rows (board <board>))
   (let* ((rows (rows board))
          (rows-to-remove (filled-rows board))
-         (anim-duration 10))
+         (anim-duration 0.25))
     (let loop ((dead-rows rows-to-remove)
                (count 0))
       (match dead-rows
@@ -517,7 +517,7 @@ area next to the board."
                                           (/ container-width 2.0))
                                        (/ (- window-height container-height) 2.0)))))
     (attach-to container
-               (make <path>
+               (make <canvas>
                  #:name 'background
                  #:painter (with-style ((fill-color tango-aluminium-6)
                                         (stroke-color tango-aluminium-3)
@@ -571,7 +571,7 @@ area next to the board."
 (define-method (on-boot (tetra <tetra>))
   (set! (board tetra) (make <board>))
   (attach-to tetra
-             (make <path>
+             (make <canvas>
                #:painter (with-style ((fill-color tango-aluminium-5))
                            (fill
                             (rectangle (vec2 0.0 0.0) window-width window-height))))
@@ -582,7 +582,7 @@ area next to the board."
                  #:font click-font
                  #:position (vec2 (centered-text text) 630.0)
                  #:scale (vec2 2.0 2.0)))
-             (make <path>
+             (make <canvas>
                #:name 'next-background
                #:painter (with-style ((fill-color tango-aluminium-6))
                            (fill
-- 
cgit v1.2.3