外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
perlで矩形を描く
:perlで矩形を描く
@echo off
perl -x %~f0 jwc_temp.txt
goto:eof
REM #jww
REM #1-%d 矩形の始点を指示してください
REM #2%d 対頂点を指示してください
REM #e
#!perl -an -i.bak
BEGIN {
$PI = atan2(1, 1) * 4;
}
if (/^hk/) { $hk = @F[1]; }
if (/^hp1/) { @p1 = @F[1,2]; }
if (/^hp2/) { @p2 = @F[1,2];
($x1, $y1, $x2, $y2) = (@p1, @p2);
$co = cos($d = $hk * $PI / 180);
$si = sin($d);
$ww = ($x2 - $x1) * $co + ($y2 - $y1) * $si;
$hh =-($x2 - $x1) * $si + ($y2 - $y1) * $co;
@p3 = ($x1 + $ww * $co, $y1 + $ww * $si);
@p4 = ($x1 - $hh * $si, $y1 + $hh * $co);
#print "@p1\n@p3\n@p2\n@p4\n@p1\n";
printf "%s %s\n" x 5, (@p1,@p3,@p2,@p4,@p1);
}
__END__
