外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
:perlで放射線を引く(ray)
@echo off
perl -x %~f0 jwc_temp.txt
goto:eof
REM #jww
REM #0 基準点を指示してください
REM #e
#!perl -an -i.bak
BEGIN {
$PI = atan2(1, 1) * 4;
}
if (/^hk/) {
$hk = @F[1];
$x = cos($d = $hk * $PI / 180) * 1e+10;
$y = sin($d) * 1e+10;
print "0 0 $x $y\n";
}
__END__
