View of /lisp/samples/nikuduke-test.l

Parent Directory

Revision Log

Initial revision

(setq testdat 
      '(
	(((50 50)(150 250)(350 350))
	 ((migi (0 1 2))))
	(((350 50)(250 200)(50 350))
	 ((hidari (0 1 2))))
	(lisp 
	 (setq minchowidth 40.0)
	 (((50 50)(150 250)(350 350))
	  ((migi (0 1 2)))))
	(((350 50)(250 200)(50 350))
	 ((hidari (0 1 2))))
	(lisp 
	 (setq minchowidth 10.0)
	 (((50 50)(150 250)(350 350))
	  ((migi (0 1 2)))))
	(((350 50)(250 200)(50 350))
	 ((hidari (0 1 2))))))