【円弧-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 % 円を描画

重ねる前の図形

よかったらシェアしてね!
  • URLをコピーしました!
  • URLをコピーしました!

コメント

コメントする

CAPTCHA


このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください

目次