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