【円弧-14】円の移動5

円を少しづつ大きくさせながら回転させています。
27行：増加させる値（k）がある程度大きくなったらリセットします。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 720 720
%%HiResBoundingBox: 0 0 720 720
%%CropBox: 0 0 720 720
%%Title:円の回転
%%Creator:Studio Fruit Jam / Toyokazu Nishi
%%Copyright:Studio Fruit Jam / Toyokazu Nishi
%%CreationDate:2018年7月20日金曜日午後3:13:24

% ================ 座標変換 ================
360 360 translate % 座標の原点を中央に移動
% ================ 背景 =================
0 0 0 setrgbcolor
-360 360 720 -720 rectfill

% ====================== 初期値
/r 180 def % 円の半径
/k 0 def % 円の半径を増加させる値
1 0 0 setrgbcolor
% ================================================
% メイン
% ================================================
newpath % パスの初期化
180 {
100 0 r k add 0 360 arc stroke % 円を描画半径rにkを足す
2 rotate % 2度回転
k 60 gt { /k 0 def } if % k < 60ならk=0にする /k k 1 add def % k=k+1 } repeat