jw_cad 外部変形 - (737) gawkで円に+を記入する -

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

 

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 #h1
REM #g1
REM #hc 円を選択してください
REM #bz
REM #e

#!ここから more +n %0 の n 行目:最初の行は 0 行
BEGIN { CONVFMT = OFMT = "%.15g"; PI = atan2(1, 1) * 4 }
/^hq/ { print "bz" }
/^ci/ {
  x = $2
  y = $3
  r = $4
  w = 1
  d = 0
  if (NF > 4) { w = $7; d = $8 }
  co = cos( d * = PI / 180)
  si = sin(d)
  bai = 0.25
  l = r * bai
  mx = r + l
  my = r * w + l
  print x - mx * co, y - mx * si, x + mx * co, y + mx * si RS x + my * si, y - my * co, x - my * si, y + my * co
}