【直線-20】放射状の線を描こう2

放射状の線を描いてみようでは、直線を回転させて図形を描きました。
今回は三角関数を使って放射状の線を描きます。
小円と大円の半径や角度を変えると様々な図形ができます。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
%!PS-Adobe-3.0 EPSF-3.0

%%BoundingBox: 0 0 240 240

%%Title:放射状の線を描く

/r1 20 def % 小円の半径

/r2 100 def % 大円の半径

/k 10 def % 角度

120 120 translate % 座標の原点を中央に移動



newpath % パスの初期化

0 k 360 k sub { % 0からkづつ増やし360-kになるまで{ }内を繰り返す

    /x1 r1 th cos mul def % 小円の座標

    /y1 r1 th sin mul def

    /x2 r2 th cos mul def % 大円の座標

    /y2 r2 th sin mul def

    x1 y1 moveto   x2 y2 lineto % 小円の座標と大円の座標間に線を引く

} for

3 setlinewidth % 線幅3ポイント

1 0 0 setrgbcolor % 赤色

stroke % 描画する