From c7ae3c64d3ada048f0096ed2ba403d14702119e4 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 9 Sep 2015 11:03:30 -0400 Subject: [PATCH] FPS meter --- prospect-gl/examples/basic.rkt | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/prospect-gl/examples/basic.rkt b/prospect-gl/examples/basic.rkt index 1930590..c5ea99b 100644 --- a/prospect-gl/examples/basic.rkt +++ b/prospect-gl/examples/basic.rkt @@ -41,6 +41,18 @@ (void) (update-sprites (simple-sprite 0 50 50 50 50 (circle 50 "solid" "orange")) (simple-sprite -1 60 60 50 50 (circle 50 "solid" "green")))) + (spawn (lambda (e s) + (match e + [(message (at-meta (frame-event counter elapsed-ms))) + (and (> elapsed-ms 0) + (let ((i (text (format "~a fps" (/ counter (/ elapsed-ms 1000.0))) 22 "black"))) + (transition s (update-sprites (simple-sprite -10 300 10 + (image-width i) + (image-height i) + i)))))] + [_ #f])) + (void) + (sub (frame-event ? ?) #:meta-level 1)) (spawn (lambda (e s) (match e [(message _)