Add or gate, update level 4 to use all logic gates

This commit is contained in:
Juliana Sims 2024-05-22 13:32:37 -04:00
parent c749f22fe8
commit 6b9edbca25
5 changed files with 81 additions and 27 deletions

View file

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