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