simple-sprite

This commit is contained in:
Tony Garnock-Jones 2015-09-08 20:15:52 -04:00
parent b94e6113b0
commit 7f06f3ceee
2 changed files with 8 additions and 8 deletions

View File

@ -6,6 +6,7 @@
(struct-out scene)
(except-out (struct-out sprite) sprite)
(rename-out [sprite <sprite>] [make-sprite sprite])
simple-sprite
update-scene
update-sprites
2d-world)
@ -55,6 +56,11 @@
(define (make-sprite z instructions)
(sprite z (seal instructions)))
(define (simple-sprite z x y w h i)
(make-sprite z `((translate ,x ,y)
(scale ,w ,h)
(texture ,i))))
(define (update-sprites . ss)
(patch-seq* (cons (retract (sprite ? ?) #:meta-level 1)
(map (lambda (s) (assert s #:meta-level 1)) ss))))

View File

@ -22,14 +22,8 @@
)
(spawn (lambda (e s) #f)
(void)
(update-sprites (sprite 0 `((translate 50 50)
(scale 50 50)
(texture ,(circle 50 "solid" "orange"))
))
(sprite -1 `((translate 60 60)
(scale 50 50)
(texture ,(circle 50 "solid" "green"))
))))
(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 _)