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

Adapt to new generalized spawn boot actions

This commit is contained in:
Tony Garnock-Jones 2015-12-03 20:44:37 -05:00
parent e2dfe2fe78
commit 2fa90c59b6
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
prospect-gl/examples/basic.rkt
View File

@ -26,9 +26,10 @@
`())))]
[_ #f]))
(void)
(sub (window ? ?) #:meta-level 1)
;; (assert 'fullscreen #:meta-level 1)
))
(patch-seq
(sub (window ? ?) #:meta-level 1)
;; (assert 'fullscreen #:meta-level 1)
)))
(define (spawn-player-avatar)
(local-require 2htdp/planetcute)
@ -56,10 +57,11 @@
(move-to x y keys-down)))]
[_ #f]))
(list 100 100 (set))
(update-sprites
(simple-sprite -0.5 100 100 (image-width CC) (image-height CC) CC))
(sub (frame-event ? ? ? ?) #:meta-level 1)
(sub (key-pressed ?))))
(patch-seq
(update-sprites
(simple-sprite -0.5 100 100 (image-width CC) (image-height CC) CC))
(sub (frame-event ? ? ? ?) #:meta-level 1)
(sub (key-pressed ?)))))
(define (spawn-frame-counter)
(spawn (lambda (e s)