View of /lisp/samples/center-sym.l

Parent Directory

Revision Log

Initial revision

(setq testdat 
      '(
	(((50 200)(350 200))
	 ((yoko (0 1))))
	(((200 50)(200 350))
	 ((tate (0 1))))
	(((200 50)(200 200)(200 300)(100 350))
	 ((tatehidari (0 1 2 3))))
	(((200 50)(200 350)(150 350))
	 ((tatehane (0 1 2))))
	(((350 150)(200 200)(50 220))
	 ((hidari (0 1 2))))
	(((200 150)(200 250))
	 ((ten (0 1))))
	(((130 50)(130 350)(270 50)(270 350))
	 ((tate (0 1))(tate (2 3))))
	(((50 150)(150 250)(350 150)(300 220)(250 250))
	 ((ten (0 1))(hidari (2 3 4))))
	(((180 150)(150 220)(50 250)(220 150)(250 220)(350 250))
	 ((hidari (0 1 2))(migi (3 4 5))))
	(((130 50)(130 200)(130 300)(50 350)(270 50)(270 350)(230 350))
	 ((tatehidari (0 1 2 3))(tatehane (4 5 6))))
	(((130 50)(130 200)(130 300)(50 350)(270 50)(270 350))
	 ((tatehidari (0 1 2 3))(tate (4 5))))
	(((150 200)(150 300)(50 350)(250 200)(250 320)(320 320)(320 270 ))
	 ((hidari (0 1 2))(kokoro (3 4 5 6))))
	(((130 50)(130 350)(270 50)(270 350)(230 350))
	 ((tate (0 1))(tatehane (2 3 4))))))