Render background and electron for logic gates

This commit is contained in:
Juliana Sims 2024-05-22 14:42:27 -04:00
parent 793a9ef027
commit 815c3c809a
2 changed files with 18 additions and 22 deletions

View file

@ -273,7 +273,7 @@
($ state 'electron-head))
(_ ($ state 'copper))))))
(('alive?) #t)
(('describe) `(and-gate ,position))
(('describe) `(and-gate ,position ,($ state)))
(('collide other offset grid-info) #f)))
(define (^xor-gate bcom x y)
@ -313,7 +313,7 @@
($ state 'electron-head))
(_ ($ state 'copper))))))
(('alive?) #t)
(('describe) `(xor-gate ,position))
(('describe) `(xor-gate ,position ,($ state)))
(('collide other offset grid-info) #f)))
(define (^or-gate bcom x y)
@ -357,7 +357,7 @@
($ state 'electron-head))
(_ ($ state 'copper))))))
(('alive?) #t)
(('describe) `(or-gate ,position))
(('describe) `(or-gate ,position ,($ state)))
(('collide other offset grid-info) #f)))
(define (^player bcom x y)