2005-08-24から1日間の記事一覧
LightWaveシーンファイルの階層構造を解析する ソース byte-compileしないと遅い (defun print-hierarchy-sub (lst level objname itemno type) (let ((clst (copy-list lst))) (dotimes (i (* level 4)) (princ " ")) (princ (format nil "*~A(~A, ~A)\n" o…
LightWaveシーンファイルの階層構造を解析する ソース byte-compileしないと遅い (defun print-hierarchy-sub (lst level objname itemno type) (let ((clst (copy-list lst))) (dotimes (i (* level 4)) (princ " ")) (princ (format nil "*~A(~A, ~A)\n" o…