FPS meter

This commit is contained in:
Tony Garnock-Jones 2015-09-09 11:03:30 -04:00
parent 14bd1f282d
commit c7ae3c64d3
1 changed files with 12 additions and 0 deletions

View File

@ -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 _)