FPS meter
This commit is contained in:
parent
14bd1f282d
commit
c7ae3c64d3
|
@ -41,6 +41,18 @@
|
||||||
(void)
|
(void)
|
||||||
(update-sprites (simple-sprite 0 50 50 50 50 (circle 50 "solid" "orange"))
|
(update-sprites (simple-sprite 0 50 50 50 50 (circle 50 "solid" "orange"))
|
||||||
(simple-sprite -1 60 60 50 50 (circle 50 "solid" "green"))))
|
(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)
|
(spawn (lambda (e s)
|
||||||
(match e
|
(match e
|
||||||
[(message _)
|
[(message _)
|
||||||
|
|
Loading…
Reference in New Issue