Add or gate, update level 4 to use all logic gates
This commit is contained in:
parent
c749f22fe8
commit
6b9edbca25
5 changed files with 81 additions and 27 deletions
4
game.scm
4
game.scm
|
@ -298,6 +298,9 @@
|
|||
(define (draw-and-gate pos)
|
||||
(draw-tile context tileset 42 (vec2-x pos) (vec2-y pos)))
|
||||
|
||||
(define (draw-or-gate pos)
|
||||
(draw-tile context tileset 43 (vec2-x pos) (vec2-y pos)))
|
||||
|
||||
(define (draw-xor-gate pos)
|
||||
(draw-tile context tileset 44 (vec2-x pos) (vec2-y pos)))
|
||||
|
||||
|
@ -317,6 +320,7 @@
|
|||
(('gate pos open?) (draw-gate pos open?))
|
||||
(('and-gate pos) (draw-and-gate pos))
|
||||
(('xor-gate pos) (draw-xor-gate pos))
|
||||
(('or-gate pos) (draw-or-gate pos))
|
||||
(('electric-switch pos on?) (draw-electric-switch pos on?))))
|
||||
|
||||
(define (draw-background)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue