simple-sprite
This commit is contained in:
parent
b94e6113b0
commit
7f06f3ceee
|
@ -6,6 +6,7 @@
|
||||||
(struct-out scene)
|
(struct-out scene)
|
||||||
(except-out (struct-out sprite) sprite)
|
(except-out (struct-out sprite) sprite)
|
||||||
(rename-out [sprite <sprite>] [make-sprite sprite])
|
(rename-out [sprite <sprite>] [make-sprite sprite])
|
||||||
|
simple-sprite
|
||||||
update-scene
|
update-scene
|
||||||
update-sprites
|
update-sprites
|
||||||
2d-world)
|
2d-world)
|
||||||
|
@ -55,6 +56,11 @@
|
||||||
(define (make-sprite z instructions)
|
(define (make-sprite z instructions)
|
||||||
(sprite z (seal 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)
|
(define (update-sprites . ss)
|
||||||
(patch-seq* (cons (retract (sprite ? ?) #:meta-level 1)
|
(patch-seq* (cons (retract (sprite ? ?) #:meta-level 1)
|
||||||
(map (lambda (s) (assert s #:meta-level 1)) ss))))
|
(map (lambda (s) (assert s #:meta-level 1)) ss))))
|
||||||
|
|
|
@ -22,14 +22,8 @@
|
||||||
)
|
)
|
||||||
(spawn (lambda (e s) #f)
|
(spawn (lambda (e s) #f)
|
||||||
(void)
|
(void)
|
||||||
(update-sprites (sprite 0 `((translate 50 50)
|
(update-sprites (simple-sprite 0 50 50 50 50 (circle 50 "solid" "orange"))
|
||||||
(scale 50 50)
|
(simple-sprite -1 60 60 50 50 (circle 50 "solid" "green"))))
|
||||||
(texture ,(circle 50 "solid" "orange"))
|
|
||||||
))
|
|
||||||
(sprite -1 `((translate 60 60)
|
|
||||||
(scale 50 50)
|
|
||||||
(texture ,(circle 50 "solid" "green"))
|
|
||||||
))))
|
|
||||||
(spawn (lambda (e s)
|
(spawn (lambda (e s)
|
||||||
(match e
|
(match e
|
||||||
[(message _)
|
[(message _)
|
||||||
|
|
Loading…
Reference in New Issue