外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
perlで円に＋を記入する
:perlで円に＋を記入する
@echo off
set bai=0.25
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 {
$PI = atan2(1, 1) * 4;
$bai = $ENV{'bai'};
$bai = 0.25 if ($bai == 0 || $bai == "");
}
if (/^hq/) {
print "bz\n";
} elsif (/^ci/) {
($x, $y, $r) = @F[1..3];
($w, $d) = @F > 4 ? @F[6..7] : (1, 0);
$co = cos($d *= $PI / 180);
$si = sin($d);
$l = $r * $bai;
$mx = $r + $l;
$my = $r * $w + $l;
printf "%s %s %s %s\n", $x - $mx * $co, $y - $mx * $si, $x + $mx * $co, $y + $mx * $si;
printf "%s %s %s %s\n", $x + $my * $si, $y - $my * $co, $x - $my * $si, $y + $my * $co;
}
__END__
