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/shmup/shmup.scm | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

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

diff --git a/examples/shmup/shmup.scm b/examples/shmup/shmup.scm
index b15ef7c..d1f9abc 100644
--- a/examples/shmup/shmup.scm
+++ b/examples/shmup/shmup.scm
@@ -3,9 +3,9 @@
              (chickadee math rect)
              (chickadee math vector)
              (chickadee graphics color)
-             (chickadee graphics shapes)
-             (chickadee graphics texture)
+             (chickadee graphics path)
              (chickadee graphics sprite)
+             (chickadee graphics texture)
              (chickadee scripting)
              (ice-9 match)
              (oop goops)
@@ -295,8 +295,9 @@
   (next-method)
   (when (and *render-hitboxes?* (visible? actor))
     (for-each (lambda (hitbox)
-                (draw-filled-rect (rect hitbox) %hitbox-color
-                                  #:matrix (world-matrix actor)))
+                ;; (draw-filled-rect (rect hitbox) %hitbox-color
+                ;;                   #:matrix (world-matrix actor))
+                #t)
               (hitboxes actor))))
 
 (define-method (collide (bullets <bullet-field>) (actor <actor>) proc)
@@ -477,11 +478,12 @@
                                           #:frames #(23 24 25)
                                           #:frame-duration 50)))
                #:default-animation 'idle)
-             (make <filled-rect>
-               #:name 'shield
-               #:region (make-rect -30.0 -35.0 60.0 60.0)
-               #:color (make-color 1.0 0.0 1.0 0.5)
-               #:visible? #f)))
+             ;; (make <filled-rect>
+             ;;   #:name 'shield
+             ;;   #:region (make-rect -30.0 -35.0 60.0 60.0)
+             ;;   #:color (make-color 1.0 0.0 1.0 0.5)
+             ;;   #:visible? #f)
+             ))
 
 (define-method (emit-bullet (player <player>) ox oy theta speed)
   (let ((p (position player)))
@@ -553,11 +555,13 @@
 
 (define-method (begin-guarding (player <player>))
   (set! (guarding? player) #t)
-  (show (& player shield)))
+  ;;(show (& player shield))
+  )
 
 (define-method (end-guarding (player <player>))
   (set! (guarding? player) #f)
-  (hide (& player shield)))
+  ;;(hide (& player shield))
+  )
 
 
 ;;;
@@ -587,10 +591,11 @@
     (set-rect-height! f h)))
 
 (define-method (render (meter <meter>) alpha)
-  (draw-filled-rect (background-rect meter) (background-color meter)
-                    #:matrix (world-matrix meter))
-  (draw-filled-rect (fill-rect meter) (fill-color meter)
-                    #:matrix (world-matrix meter)))
+  ;; (draw-filled-rect (background-rect meter) (background-color meter)
+  ;;                   #:matrix (world-matrix meter))
+  ;; (draw-filled-rect (fill-rect meter) (fill-color meter)
+  ;;                   #:matrix (world-matrix meter))
+  #t)
 
 
 ;;;
-- 
cgit v1.2.3