Reimplement wireworld update; add stubs for new object types.

This commit is contained in:
David Thompson 2024-05-21 22:12:21 -04:00
parent 4c12ccc559
commit 984ea4df67
4 changed files with 125 additions and 92 deletions

View file

@ -601,6 +601,9 @@ the default ORIENTATION value of 'orthogonal' is supported."
(assq-ref properties 'target-y)))
('gem (list x y obj:gem))
('gate (list x y obj:gate))
;; TODO: Implement these
('and-gate (list x y obj:block:copper))
('electric-switch (list x y obj:wall:copper))
(_ (error "unsupported object type" type)))))
(object-layer-objects layer))))