【円弧-13】円の移動４

円を原点から移動させて回転します。
r（円の半径）、enpos（移動距離）や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
28
29
30
31
32
33
34

%!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月29日日曜日12:36:54

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

% ====================== 初期値
1 1 1 setrgbcolor % 線の色(変更可)
1 setlinewidth % 線幅(変更可)
/r 140 def % 円の半径(変更可)
/enpos 200 def % 円の位置(変更可)
/en { 0 360 arc } def % 円の開始角度と終了角度径 arcオペレータ
/k 5 def % 円の回転角度(整数のみ1〜360)(変更可)
/range 360 k idiv def % 回転数（繰り返し数）

% ================================================
% メイン
% ================================================
newpath % パスの初期化
range { % range回 {}内を繰り返す
enpos r add 0 moveto % これがないと余分な線が出る
enpos 0 r en % 円を引く
k rotate % 回転する
} repeat
stroke % 線の描画