お便り＆質問箱

大変ご無沙汰しております。ステッカーの件、ありがとうございました。
いま，3点O(0,0)，A(1,0)，B(1/2，1/2√3) の正三角形OABを小正三角形で分割するスクリプトを考えています。
正三角形の各辺を等分して，n=1で1個，n=2で4個，n=3で9個，…の小正三角形を表示させるものです。何かアドバイスをいただけたら幸いです。

佐々木　久 2025/08/02(Sat) 22:40 No.2962

Re: スクリプトで正三角形を分割

△OABの3辺の上にｎ等分点をとり，残像を残しながらそれらを結んでいけばよいのではないでしょうか。

ともだ 2025/08/06(Wed) 23:24 No.2965

Re: スクリプトで正三角形を分割

お忙しいところ、ありがとうございました。
//小三角形を描く
k :=0
draw
ClrAlmg
For k:=1 to n step 1
Overdraw
next
と書いて、実行しました。
訂正があればご教示いただけたら幸いです。
ありがとうございました。

佐々木久 2025/08/07(Thu) 01:07 No.2966

Re: スクリプトで正三角形を分割

スクリプトをどのような場面で使われるのかが分からないので，コメントしづらいのですが
OverDrawを使っておられるのが気になります。
残像の濃さを100%にして，
（［オプション］→［グラフ］→［残像の濃さ］→［100%］）
DrawまたはCalc～Refreshを使うのが自然かと思います。

//小三角形を描く
k := 0
Calc
ClrAImgData
for k := 1 to n-1
Calc
next
Refresh

GRAPESファイルを添付します。

[添付]: 6680 bytes

ともだ 2025/08/10(Sun) 12:42 No.2967