jw_cad 外部変形－ (1504-5) jw.rbで正方形と矩形(4.pg と rc と正角) －

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

jw.rbで正方形と矩形(4.pg と rc と正角)

:jw.rbで正方形と矩形(4.pg と rc と正角)
@echo off
ruby -x %0
goto:eof

REM #jww
REM #0 位置を指示してください
REM #e

#!ruby -Ks -rjw
n, r, d = 4, 300, nil #-15
jww
[0, 1, 1.5, 2].each.with_index do |c, j|
for i in 0..2
lc 6+i
a = n.pg(mode:i, r:r, d:d)
plot a = a.kiten(c, hp(0)).mov(1000 * j, 0)
a.each_with_index { |z, i| plot ch z, i.to_s if z != "#" && i < n }
end
end
[5, 1, 2, 3].each.with_index do |pt, j|
lc 3
plot b = rc(hp:0, b:200, d:d).kiten(pt).mov(1000 * j, 0)
lc 5
plot e = jas(100).kiten(pt).rot(d.rad).mov(1000 * j, 0)
b.each_with_index { |z, i| plot ch z, i.to_s if z != "#" && i < n }
e.each_with_index { |z, i| plot ch z, i.to_s if z != "#" && i < n }
end
__END__