From 0cc4219f9ea2a5b07f6ec3d48b74f40b81c1d565 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 8 Mar 2014 18:20:44 -0500 Subject: Update font example. * examples/font.scm: Remove GC counter. --- examples/font.scm | 24 +++++------------------- 1 file changed, 5 insertions(+), 19 deletions(-) (limited to 'examples') 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)) -- cgit v1.2.3