【漢直】T-Code/TUT-Codeスレ Lesson2【連習】

**名無しさん＠お腹いっぱい。** · NG

>>96
こんなんでどう?

(defface eelll '((t)) "")
(setq tc-image-button
'((" " " " " ")
(" " " X " " ")
("XXX" "XXX" "XXX")
("XXX" "X X" "XXX")
("XX " "X X" " XX")))
(setq eelll-stroke-to-string-function
(lambda (stroke)
(concat (tc-image-stroke-to-string stroke)
(propertize " " 'display `(space :width ,(/ 5 7.0))))))