【多角形-3】円周上の点を結んでみよう

円周上の点を結んだ図形を描いてみましょう。
このプログラムで１つ問題があります。
それは同じ線が２回引かれることです。
各頂点から他頂点に線を引いているので、どうしてもダブってしまいます。
ビットマットグラフィックスでは上書きされるので、問題ないですが PostScriptでは線が重なってしまいます。
見た目的には問題ないですが、何か引っかかります。

やってみよう始点半径と終点半径のsとeの値を変えると様々な図形ができます。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 240 240
%%Title:円周上の点を結ぶ
/s 100 def % 始点半径
/e 100 def % 終点半径
/n 12 def % n角形
/k 360 n div def % 角度
120 120 translate % 座標の原点を中央に移動

newpath % パスの初期化
0 k 360 k sub { % 始点
/ths exch def % 制御変数をths（角度）に入れる
0 k 360 k sub { % 終点
/the exch def % 制御変数をthe（角度）に入れる
/x0 s ths cos mul def % x0座標を求める
/y0 s ths sin mul def % y0座標を求める
/x1 e the cos mul def % x1座標を求める
/y1 e the sin mul def % y1座標を求める
x0 y0 moveto x1 y1 lineto stroke % 始点、終点間の線を描く
} for
} for