【パターン-1】円を並べてパターンを作ってみよう

円を並べてパターンを作ります。
円の大きさや間隔の値を変えると様々なパターンが生まれます。
ここで工夫したのは枠内に左右対称にパターンが配置されるようにしたことです。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 240 240
%%Title:円のパターン
/r 30 def % 円の半径
/step 30 def % 円と円の間隔
/h 120 r add def % 高さ(パターンが端で不完全にならないよう円の半径分足す)
/w 120 r add def % 幅(パターンが端で不完全にならないよう円の半径分足す)
% 幅・高さを間隔で割って余りをkx、kyに入れる（パターンを天地左右対称に囲みに入れるため）
/kx w step mod def
/ky h step mod def
120 120 translate % 座標の原点を中央に移動
newpath % パスの初期化
w neg step w { % -120から30づつ増やし120になるまで { }を繰り返す
/dx exch def % 制御変数をdxに入れる
h neg step h { % -120から30づつ増やし120になるまで { }を繰り返す
/dy exch def % 制御変数をdyに入れる
% dx,dyが中心の半径30の円を描く（kx、kyの余りを足して位置の調整）
dx kx add dy ky add r 0 360 arc stroke
} for
} for