version 1.7, Thu Jul 3 02:01:26 2003 UTC | version 1.8, Thu Jul 3 13:38:09 2003 UTC | ||
---|---|---|---|
|
|
||
(tmpline nil)(type3 nil) | (tmpline nil)(type3 nil) | ||
(type1 nil)(type2 nil)(cross nil)(kazari nil)(part3 nil) | (type1 nil)(type2 nil)(cross nil)(kazari nil)(part3 nil) | ||
(lines (cadr l))) | (lines (cadr l))) | ||
; 配列linkpointsの初期化 | |||
(do ((ll points (cdr ll)) | (do ((ll points (cdr ll)) | ||
(linkcount 0 (1+ linkcount))) | (linkcount 0 (1+ linkcount))) | ||
((atom ll)) | ((atom ll)) |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |