jw_cad 外部変形 － (460) gawkで円を描く －

外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。

gawkは GNUプロジェクトのawkです。

gawkで円を描く

:gawkで円を描く
@echo off
for /f %%n in ('gawk "/^#!/ { print NR }" %0') do (
  copy jwc_temp.txt myfiles > nul
  more +%%n %0 | gawk -f - myfiles > jwc_temp.txt
)
goto:eof

REM #jww
REM #1-%d 円の中心を指示してください
REM #2%d 円周上の点を指示してください
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
/^hp1/ { p1 = $2 FS $3 }
/^hp2/ { p2 = $2 FS $3 }
END { $0 = p1 FS p2
  printf "ci %s %.15g\n", p1, sqrt(($3 - $1) ^ 2 + ($4 - $2) ^ 2)
}