【円弧-6】同心円を描いてみよう

PostScriptで同心円を描きましょう。
繰り返しオペレータを使い、制御変数の値を次々円の半径に入れていくことで、同心円を描きます。

1
2
3
4
5
6
7
8
9

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 240 240
%%Title:同心円を描く
120 120 translate % 座標の原点を中央に移動
newpath % パスの初期化
0 10 100 { % 0から10づつ半径を増やし100になるまで{ }内を繰り返す
/r exch def % 制御変数をr（半径）に入れる
0 0 r 0 360 arc stroke % 円を描画
} for

次は座標の拡大scaleを使用して円の半径を大きくしていく方法です。
座標を拡大しているので、線幅も大きくなってしまいます。

1
2
3
4
5
6
7
8
9
10

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 240 240
%%Title:同心円を描く
120 120 translate % 座標の原点を中央に移動
newpath % パスの初期化
0 1 10 { % 0から1づつ半径を増やし10になるまで{ }内を繰り返す
pop % ここでは制御変数を使わないのでスタックから削除
0 0 10 0 360 arc stroke % 円を描画
1.25 1.25 scale　% 座標を1.25倍にする
} for

線幅は同じで座標の拡大scaleを使用して円の半径を大きくしていく方法です。
線幅を固定する方法として★のコードを追加しています。
座標変換を説明するのは難しいので、このコードを使えばこうなるというのだけ覚えてもらえればと思います。

1
2
3
4
5
6
7
8
9
10
11
12

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 240 240
%%Title:同心円を描く
120 120 translate % 座標の原点を中央に移動
/cmtx matrix currentmatrix def % ★カレント座標を保存する
newpath % パスの初期化
0 1 10 { % 0から1づつ拡大率を増やし10になるまで{ }内を繰り返す
dup scale % 制御変数を複製して座標を拡大する(　1 1 scale 2 2 scale ....)
0 0 10 0 360 arc % 円を引く
cmtx setmatrix % ★座標を拡大前の座標に復元
stroke % 円を描画
} for

【オペレータの説明】

sx sy scale	xおよびy方向に座標を拡大・縮小する。 1 1 scale が等倍、2 1 scaleでx方向に2倍になる。
matrix	6 つの要素を含む恒等行列（[1 0 0 1 0 0]）を返す。（PostScriptリファレンスマニュアル第3版より）
変換行列(matrix) currentmatrix	matrix の値をグラフィックス状態のCTM で置換してオペランドスタックにプッシュする。（PostScriptリファレンスマニュアル第3版より） CTM（Current Transformation Matrix; カレント変換行列）：ユーザー座標系の座標値をデバイス座標系の値に変換する
setmatrix	前のカレント変換行列（CTM）を参照せずに、グラフィックス状態のCTMをmatrix に設定する。（PostScriptリファレンスマニュアル第3版より）
dup	スタックの一番上にある要素をコピーする例）1 dup → 1 1 2 dup scale → 2 2 scale
要素 pop	スタックの1番上の要素を破棄する