summaryrefslogtreecommitdiff
path: root/examples/path.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2024-10-19 21:05:41 -0400
committerDavid Thompson <dthompson2@worcester.edu>2024-10-19 21:05:41 -0400
commitb5aa7cb9a857160e547718d184e89cb3221200a5 (patch)
tree140ee0e84811067fd9e7dfccfa6402a0a64f7e00 /examples/path.scm
parent76dc3f0af36775d2fdaab61134dd0f875ee48292 (diff)
WIP path stuffwip-graphics-backend
Diffstat (limited to 'examples/path.scm')
-rw-r--r--examples/path.scm2
1 files changed, 2 insertions, 0 deletions
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