Update font example.

* examples/font.scm: Remove GC counter.

1 files changed, 5 insertions, 19 deletions

diff --git a/examples/font.scm b/examples/font.scm
index 91acfc0..5087b1c 100644
--- a/examples/font.scm
+++ b/examples/font.scm
@@ -11,14 +11,15 @@
 (load "common.scm")
 
 (define font (load-default-font 18))
-(define label (make-label font "The quick brown fox jumped over the lazy dog."
-                          (vector2 320 240) #:anchor 'center))
+(define label
+  (make-label font "The quick brown fox jumped over the lazy dog."
+              (vector2 320 240) #:anchor 'center))
 
 (define-signal fps-label
   (signal-map (lambda (fps)
                 (let ((text (format #f "FPS: ~d" fps)))
                   (make-label font text (vector2 0 0))))
-              (signal-sample game-agenda 60 fps)))
+              fps))
 
 (define-signal mouse-label
   (signal-map (lambda (p)
@@ -26,25 +27,10 @@
                   (make-label font text (vector2 0 20))))
               (signal-throttle game-agenda 5 mouse-position)))
 
-(define-signal gc-counter (make-signal 0))
-(define-signal gc-label
-  (signal-map (lambda (counter)
-                (let ((text (format #f "GCs: ~d" counter)))
-                  (make-label font text (vector2 0 40))))
-              gc-counter))
-
-(add-hook! after-gc-hook
-           (lambda ()
-             (schedule game-agenda
-                       (lambda ()
-                         (signal-set! gc-counter
-                                      (1+ (signal-ref gc-counter)))))))
-
 (add-hook! draw-hook (lambda (dt alpha)
                        (draw-label label)
                        (draw-label (signal-ref fps-label))
-                       (draw-label (signal-ref mouse-label))
-                       (draw-label (signal-ref gc-label))))
+                       (draw-label (signal-ref mouse-label))))
 
 (with-window (make-window #:title "Fonts")
   (run-game-loop))