外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
clispで円環ソリッドを確認する(so:同一扁平率)
:clispで円環ソリッドを確認する(so:同一扁平率)
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
copy jwc_temp.txt myfiles > nul
more +%%n %0 | clisp -q > nul
)
goto:eof
REM #jww
REM #h1
REM #hc 円環ソリッドを選択してください
REM #e
#!この次の行からプログラムを書いてください
;ユーザ定義関数
(defun sl (i) (elt sl i))
;本文
(setq sl '( (0 0 0 0 0 0 0 0)))
(setq sln 0)
( ;jwc_temp.txt へ 出力
with-open-file (g "jwc_temp.txt" :direction :output)
( ;myfiles から 入力
with-open-file (f "myfiles" :direction :input)
(loop for line = (read-line f nil) while line do
(setq a (regexp:regexp-split " \\+" line))
;円環ソリッドデータ
(if (regexp:match "^so" line)
(progn
(if (>= (- sln (length sl)) 0)
(loop for i to (- sln (length sl)) do
(setq sl (append sl '( (0 0 0 0 0 0 0 0))))
)
)
(setf (elt sl sln) (cdr a))
(setq sln (+ sln 1))
)
)
)
(write-line "hd" g)
(loop for i from 0 to (- (length sl) 1) do
(format g "lc~d~%" (+ 6 i 1))
(format g "so~{ ~f~}~%" (sl i))
)
)
)
