View of /lisp/samples/kashira-henkei.l

Parent Directory

Revision Log

change to CVS wadalab font project

(setq kashira天 '(((207 162)
            (224 292)
            (369 375)
            (199 47)
            (199 326)
            (8 388)
            (25 160)
            (376 160)
            (100 48)
            (300 48))
           ((migi (0 1 2))
            (hidari (3 4 5))
            (yoko (6 7) (link 0))
            (yoko (8 9) (link 3)))))
(setq kashira王 '(((199 46)
            (199 368)
            (7 368)
            (391 368)
            (40 192)
            (359 192)
            (100 48)
            (300 48))
           ((tate (0 1))
            (yoko (2 3) (link 1))
            (yoko (4 5))
            (yoko (6 7) (link 0)))))
(setq kashira示 '(((262 217)
            (374 342)
            (113 212)
            (86 285)
            (10 342)
            (200 160)
            (200 377)
            (161 377)
            (8 160)
            (392 160)
            (100 48)
            (300 48))
           ((ten (0 1))
            (hidari (2 3 4))
            (tatehane (5 6 7))
            (yoko (8 9) (link 5))
            (yoko (10 11)))))
(setq kashira己 '(((57 162)
            (57 372)
            (366 372)
            (366 281)
            (300 47)
            (300 198)
            (328 162)
            (100 47))
           ((kokoro (0 1 2 3))
            (tate (4 5) (link 6))
            (yoko (0 6))
            (yoko (7 4)))))

(setq testdat
      '(
	(tate2 ひとかしら kashira王)
	(tate2 ひとかしら 王)
	(tate2 くさかんむり (tate2 はつがしら kashira天) ((ratio . 0.2)))
	(tate2 くさかんむり (tate2 はつがしら 天)((ratio . 0.2)))
	(tate2 巻の上 kashira己)
	(tate2 巻の上 己)
	(tate2 大 kashira示 ((limit . 0.9)))
	(tate2 大 示)))