From b5aa7cb9a857160e547718d184e89cb3221200a5 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 19 Oct 2024 21:05:41 -0400
Subject: WIP path stuff

---
 examples/path.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'examples/path.scm')

diff --git a/examples/path.scm b/examples/path.scm
index 8f155e1..e22c6f3 100644
--- a/examples/path.scm
+++ b/examples/path.scm
@@ -60,7 +60,9 @@
              (set-canvas-painter! canvas (make-example-painter s)))))))
 
 (define (draw alpha)
+  (pk 'draw-canvas)
   (draw-canvas canvas)
+  (pk 'draw-text)
   (draw-text stats-text stats-text-pos)
   (let ((current-time (elapsed-time)))
     (set! avg-frame-time
-- 
cgit v1.2.3