~octaspire/crates2

c94b5b143d2347b5e621c8c76c09cf80e99230fd — octaspire 4 months ago fbd2c69
Modify textual representation of few crates
1 files changed, 9 insertions(+), 9 deletions(-)

M src/textual.lisp
M src/textual.lisp => src/textual.lisp +9 -9
@@ 25,7 25,7 @@
  (setf (gethash "vacuum-idle" *visual-hash*) #("+----+" "|suck|" "+----+"))
  (setf (gethash "vacuum-full" *visual-hash*) #("+----+" "|SUCK|" "+----+"))
  ;; WALL
  (setf (gethash "wall-idle" *visual-hash*) #("+----+" "|XXXX|" "+----+"))
  (setf (gethash "wall-idle" *visual-hash*) #("######" "######" "######"))
  ;; PUSHED
  (setf (gethash "pushed-idle" *visual-hash*) #("+----+" "|PUSH|" "+----+"))
  ;; BLOCK-TIMER


@@ 69,14 69,14 @@
  (setf (gethash "slope-wn" *visual-hash*) #("  +--+" " /   |" "+----+"))
  (setf (gethash "slope-ws" *visual-hash*) #("+----+" " \\   |" "  +--+"))
  ;; TURNSTILE
  (setf (gethash "turnstile-e1" *visual-hash*) #("+----+" ">>>>>1" "+----+"))
  (setf (gethash "turnstile-w1" *visual-hash*) #("+----+" "<<<<<1" "+----+"))
  (setf (gethash "turnstile-n1" *visual-hash*) #("+1111+" "^^^^^^" "+^^^^+"))
  (setf (gethash "turnstile-s1" *visual-hash*) #("+....+" "......" "+1111+"))
  (setf (gethash "turnstile-e" *visual-hash*) #("+>>>>+" ">>>>>>" "+>>>>+"))
  (setf (gethash "turnstile-w" *visual-hash*) #("+<<<<+" "<<<<<<" "+<<<<+"))
  (setf (gethash "turnstile-n" *visual-hash*) #("+^^^^+" "^^^^^^" "+^^^^+"))
  (setf (gethash "turnstile-s" *visual-hash*) #("+....+" "......" "+....+"))
  (setf (gethash "turnstile-e1" *visual-hash*) #("+----+" "---->1" "+----+"))
  (setf (gethash "turnstile-w1" *visual-hash*) #("+----+" "1<----" "+----+"))
  (setf (gethash "turnstile-n1" *visual-hash*) #("+1111+" "^^^^^^" "+||||+"))
  (setf (gethash "turnstile-s1" *visual-hash*) #("+||||+" "\\/\\/\\/" "+1111+"))
  (setf (gethash "turnstile-e" *visual-hash*) #("+----+" "----->" "+----+"))
  (setf (gethash "turnstile-w" *visual-hash*) #("+----+" "<-----" "+----+"))
  (setf (gethash "turnstile-n" *visual-hash*) #("+^^^^+" "||||||" "+||||+"))
  (setf (gethash "turnstile-s" *visual-hash*) #("+....+" "||||||" "\\/\\/\\/"))
  ;; BLOCK-COUNTER
  (setf (gethash "block-counter-10" *visual-hash*) #("+----+" "BCXX10" "+----+"))
  (setf (gethash "block-counter-09" *visual-hash*) #("+----+" "BCXX09" "+----+"))