syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Make frame counter transparent wrt touching

This commit is contained in:
Tony Garnock-Jones 2016-09-02 11:15:22 +01:00
parent bd40ca3c62
commit 82e4b64168
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/syndicate-gl/examples/basic.rkt
View File

@ -73,8 +73,7 @@
(define (spawn-frame-counter)
(actor (field [i empty-image])
(assert (outbound
(simple-sprite #:touchable-id 'frame-counter
-10 300 10 (image-width (i)) (image-height (i)) (i))))
(simple-sprite -10 300 10 (image-width (i)) (image-height (i)) (i))))
(on (message (inbound (frame-event $counter $sim-time-ms _ _)))
(when (> sim-time-ms 0)
(define fps (/ counter (/ sim-time-ms 1000.0)))