【円弧-15】円の移動6

28行：同心円を引いた後に座標を45度回転。
29行：x軸9、y軸1の割合で座標を拡大します。
これで立体感のある図形となります。

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

%!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:02:29

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

% ====================== 初期値
1 setlinewidth
.7 .322 .976 sethsbcolor
% ================================================
% メイン
% ================================================
newpath % パスの初期化
0 10 340 { % 0から340まで10づつ増分し{ }内を繰り返す
/r exch def % 制御変数をrに代入（円の半径）
r 0 moveto % 始点を(r,0)に置く
0 0 r 0 360 arc % （0,0）を原点とする半径rの円を引く
} for
45 rotate % 45度回転
9 1 scale % x軸9：y軸1に拡大する
stroke