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