version 1.3, Mon Jun 30 13:27:02 2003 UTC | version 1.4, Tue Jul 1 09:50:35 2003 UTC | ||
---|---|---|---|
|
|
||
(do ((l (rm_self_loop_all outline)(cdr l))(ret)) | (do ((l (rm_self_loop_all outline)(cdr l))(ret)) | ||
((atom l)(nreverse ret)) | ((atom l)(nreverse ret)) | ||
(cond ((minusp (checkwinding (car l))) | (cond ((minusp (checkwinding (car l))) | ||
; (break) | |||
(cond ((eq 'bezier (caar (last (car l)))) | (cond ((eq 'bezier (caar (last (car l)))) | ||
(push (cons (caar l)(reverse (cdar l))) ret)) | (push (cons (caar l)(reverse (cdar l))) ret)) | ||
(t | (t |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |