FPS meter
This commit is contained in:
parent
14bd1f282d
commit
c7ae3c64d3
|
@ -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 _)
|
||||
|
|
Loading…
Reference in New Issue