外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
perlで円環ソリッドを確認する(so:同一扁平率)
:perlで円環ソリッドを確認する(so:同一扁平率)
@echo off
perl -x %~f0 jwc_temp.txt
goto:eof
REM #jww
REM #h1
REM #g1
REM #hc 円環ソリッドを選択してください
REM #bz
REM #e
#!perl -an -i.bak
BEGIN {
$i = 0;
}
if (/^hq/) {
print "bz\n"; next;
}
if (/^so/) {
$i++;
$sl[$i] = [@F];
}
if (eof) {
$sln = $i;
for $i (1..$sln) {
printf "lc%d\n", $i+6;
print "@{$sl[$i]}\n"
}
}
__END__
選択した円環ソリッド図形を色を指定して表示画面に描いています。