Render background and electron for logic gates
This commit is contained in:
parent
793a9ef027
commit
815c3c809a
2 changed files with 18 additions and 22 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue