jw_cad 外部変形－ (1537-2) jw.rbで円データの勾配を得る(cislope ci hp pm = 1 接線角) －

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

cislope(ci, hp, pm = 1) は円データの傾きあるいは円周上の位置の勾配を返します。
ci は円データ
hp は円周上の位置 => hp = ci_hpsnap(ci, hp)
pm はモード
0=法線角あるいは :per :normal :p :n
1=接線角あるいは :tan :tangent :t
2=離心角あるいは :dconv :eccentric :d :e
3=円弧角あるいは :xang :arc :x :p3

使用例(pm =1 接線角)

:jw.rbで円データの勾配を得る(cislope ci hp pm = 1 接線角)
@echo off
ruby -x %0
goto:eof

REM #jww
REM #1ci 円・円弧を指示して下さい
REM #2 円周上の位置を指示して下さい
REM #e

#!ruby -Ks -rjw
jww
plot "h#%.1f" % a = (cislope 1.ci, 2.hp, pm = 1).deg
plot ci hp(2), 20
plot ch hp(2), cround(a, 1) + "ﾟ"
__END__