Tweak emitters so their wire state is more clear.

This has become a problem in the presence of bombs.
This commit is contained in:
David Thompson 2024-05-24 15:27:24 -04:00
parent a102a9fb06
commit 892675f2d1
3 changed files with 36 additions and 28 deletions

View file

@ -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))