Tweak emitters so their wire state is more clear.
This has become a problem in the presence of bombs.
This commit is contained in:
parent
a102a9fb06
commit
892675f2d1
3 changed files with 36 additions and 28 deletions
18
game.scm
18
game.scm
|
@ -371,11 +371,17 @@
|
|||
(define (draw-brick pos)
|
||||
(draw-tile context tileset 22 (vec2-x pos) (vec2-y pos)))
|
||||
|
||||
(define (draw-clock-emitter pos)
|
||||
(draw-tile context tileset 48 (vec2-x pos) (vec2-y pos)))
|
||||
(define (draw-clock-emitter pos state)
|
||||
(draw-tile context tileset 48 (vec2-x pos) (vec2-y pos))
|
||||
(set-global-alpha! context 0.5)
|
||||
(draw-wire-state pos state)
|
||||
(set-global-alpha! context 1.0))
|
||||
|
||||
(define (draw-switched-emitter pos on?)
|
||||
(draw-tile context tileset (if on? 48 47) (vec2-x pos) (vec2-y pos)))
|
||||
(define (draw-switched-emitter pos state)
|
||||
(draw-tile context tileset (if state 48 47) (vec2-x pos) (vec2-y pos))
|
||||
(set-global-alpha! context 0.5)
|
||||
(draw-wire-state pos state)
|
||||
(set-global-alpha! context 1.0))
|
||||
|
||||
(define (draw-floor-switch pos on?)
|
||||
(draw-tile context tileset (if on? 25 24) (vec2-x pos) (vec2-y pos)))
|
||||
|
@ -420,8 +426,8 @@
|
|||
(('wall pos type) (draw-wall pos type))
|
||||
(('block pos type) (draw-block pos type))
|
||||
(('brick pos) (draw-brick pos))
|
||||
(('clock-emitter pos) (draw-clock-emitter pos))
|
||||
(('switched-emitter pos on?) (draw-switched-emitter pos on?))
|
||||
(('clock-emitter pos state) (draw-clock-emitter pos state))
|
||||
(('switched-emitter pos state) (draw-switched-emitter pos state))
|
||||
(('floor-switch pos on?) (draw-floor-switch pos on?))
|
||||
(('bomb pos countdown) (draw-bomb pos countdown))
|
||||
(('gem pos) (draw-gem pos))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue