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

Avoid generating garbage textures so much

This commit is contained in:
Tony Garnock-Jones 2015-10-27 12:22:19 -04:00
parent 278c54b43d
commit 49ea6a22b4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/platformer/game.rkt
View File

@ -316,6 +316,7 @@
(define (spawn-scene-manager) (define (spawn-scene-manager)
(struct scene-manager-state (size offset) #:prefab) (struct scene-manager-state (size offset) #:prefab)
(define backdrop (rectangle 1 1 "solid" "white"))
(define (update-window-size s p) (define (update-window-size s p)
(define added (matcher-project/set/single (patch-added p) window-projection1)) (define added (matcher-project/set/single (patch-added p) window-projection1))
@ -338,7 +339,7 @@
(transition s (transition s
(update-scene `((push-matrix (update-scene `((push-matrix
(scale ,width ,height) (scale ,width ,height)
(texture ,(rectangle 1 1 "solid" "white"))) (texture ,backdrop))
(translate ,(- ofs-x) ,(- ofs-y))) (translate ,(- ofs-x) ,(- ofs-y)))
`())))] `())))]
[_ #f])) [_ #f]))
@ -665,13 +666,12 @@
(match-define (vector x y) top-left) (match-define (vector x y) top-left)
(match-define (vector w h) size) (match-define (vector w h) size)
(define block-id (gensym 'ground-block)) (define block-id (gensym 'ground-block))
(define block-pict (rectangle w h "solid" color))
(spawn (lambda (e s) (spawn (lambda (e s)
(match e (match e
[_ #f])) [_ #f]))
(void) (void)
(update-sprites #:meta-level game-level (update-sprites #:meta-level game-level (simple-sprite 0 x y w h block-pict))
(simple-sprite 0 x y w h (rectangle w h "solid" color)))
(assert (game-piece-configuration block-id (assert (game-piece-configuration block-id
top-left top-left
size size