外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
perlで円周ソリッドを確認する(se)
:perlで円周ソリッドを確認する(se)
@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 (/^se/) {
$i++;
$sl[$i] = [@F];
}
if (eof) {
$sln = $i;
for $i (1..$sln) {
printf "lc%d\n", $i+6;
print "@{$sl[$i]}\n"
}
}
__END__
選択した円周ソリッド図形を色を指定して表示画面に描き直しています。
