外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
ptspan(pt1, pt2. d2) は ２点間のスパンを返します。
pt1, pt2 は 位置
d2 は 傾き rad
使用例
:jw.rbで２点間のスパンを得る(ptspan)
@echo off
ruby -x %0
goto:eof
REM #jww
REM #1- 始点を指示して下さい
REM #2 終点を指示して下さい
REM #e
#!ruby -Ks -rjw
jww
lx, ly = ptspan 1.hp, 2.hp, d2 = -15.rad
plot msg pstroke(1.hp, lx, d2 + $hk.rad), keta = 1
plot msg pstroke(polarto(1.hp, lx, d2 + $hk.rad), ly, d2 + ($hk + 90).rad), keta = 1
plot msg :ang, :"-", pstroke(1.hp, lx * 1.5, d2 + $hk.rad)
plot "h#%.1f %.1f" % [lx, ly]
__END__
ptspan は 設定された軸角に対応します。
