【円弧-16】円の移動7

2つの同心円を横にずらしてモアレを作ります。
29行・33行のgsave・grestoreは31行で座標を移動したため、元の座標にリセットするためです。
モアレ（moiré）ってフランス語だったんですね。

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
35
36

%!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月31日火曜日午前9:52:15

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

% ====================== 初期値
3 setlinewidth
/idou 80 def % 移動距離
/en { % 同心円プロシージャ
0 5 600 { %0〜600まで5づつ増分し{ }内を繰り返す
/r exch def % 制御変数をRに代入（円の半径）
0 0 r 0 360 arc % (0,0)に半径Rの円を引く
stroke % 線を描画
} for
} def
% ================================================
% メイン
% ================================================
gsave % グラッフィクス状態を保存
1 0 0 setrgbcolor % 赤
idou neg 0 translate % 座標を（-idou,0)に移動
en % 円を描画
grestore % グラッフィクス状態を復帰
0 0 1 setrgbcolor % 青
idou 0 translate % 座標を（idou,0)に移動
en % 円を描画

重ねる前の図形