diff options
Diffstat (limited to 'examples/path.scm')
| -rw-r--r-- | examples/path.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/examples/path.scm b/examples/path.scm index 44cabdb..e22c6f3 100644 --- a/examples/path.scm +++ b/examples/path.scm @@ -4,13 +4,13 @@ (chickadee graphics text) (chickadee math) (chickadee math vector) - (chickadee scripting)) + (chickadee scripting) + (ice-9 format)) (set! *random-state* (random-state-from-platform)) (define (stats-message) - (format #f "fps: ~1,2f" - (/ 1.0 avg-frame-time))) + (format #f "fps: ~1,2f" (/ 1.0 avg-frame-time))) (define start-time 0.0) (define avg-frame-time 0.0) (define stats-text (stats-message)) @@ -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 |