【家紋-2】重ネ梅を描いてみよう

重ね梅という家紋を描いてみます。
今回はクリッピングパスを使用しません。
まず白い円を5回、回転させます。
その上に黒い弧を重ねます。

参考：日本の家紋／発行2004年5月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
%!PS-Adobe-3.0 EPSF-3.0

%%BoundingBox: 0 0 240 240

%%Title:家紋を描く（重ネ梅）

/ume {  % 梅の花びらプロシージャの定義

    0 50 50 0 360 arc % （0,50)位置に半径50ポイントの円を引く

    1 setgray fill % 白色で塗りつぶす

} def

2 setlinewidth % 線幅2ポイント

/umeline {  % 梅の花びらの輪郭線プロシージャ定義

    0 50 50 20 270 arc % （0,50)位置に半径50ポイントの20~270度の弧を引く

    0 setgray stroke % 黒線で描画

} def



0 0 240 240 rectfill % 黒背景

120 120 translate % 座標の原点を中央に移動

% 花びらの描画

newpath % パスの初期化

5 { % 5回{ }内を繰り返す

    ume % 梅の花びらプロシージャ呼び出し

    -72 rotate % -72度座標を回転

} repeat

% 輪郭線の描画

newpath

5 {

    umeline % 輪郭線プロシージャ呼び出し

    -72 rotate

} repeat

重ネ梅に花芯などを足して捻ジ梅を描きます。

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
37
38
39
40
41
42
43
%!PS-Adobe-3.0 EPSF-3.0

%%BoundingBox: 0 0 240 240

%%Title:家紋を描く（捻ジ梅）

/ume { % 梅の花びらのプロシージャ定義

    0 50 50 0 360 arc % （0,50)位置に半径50ポイントの円を引く

    1 setgray fill % 白色で塗りつぶす

} def

2 setlinewidth % 線幅2ポイント

/umeline { % 梅の花びらの輪郭線定義

    0 50 50 20 270 arc % （0,50)位置に半径50ポイントの20~270度の弧を引く

    0 setgray stroke % 黒線で描画

} def

  

/umeline2 { % 梅の捻り線定義

    gsave % グラフィックス状態の保存

    -32 rotate % 32度回転

    0 30 30 200 270 arc %（0,30)位置に半径30ポイントの30~270度の弧を引く

    0 setgray stroke % 黒線で描画

    grestore % グラフィックス状態の復元

} def



0 0 240 240 rectfill % 黒背景

120 120 translate % 座標の原点を中央に移動



% 花びらの描画

newpath % パスの初期化

5 { % 5回{ }内を繰り返す

    ume % 梅の花びらプロシージャ呼び出し

    -72 rotate % -72度座標を回転

} repeat



% 輪郭線の描画

newpath

5 {

    umeline % 輪郭線プロシージャ呼び出し

    umeline2 % 捻り線プロシージャ呼び出し

    -72 rotate

} repeat

 

% 花芯の描画

0 0 15 0 360 arc % （0,0)位置に半径15ポイントの円を引く

gsave 1 setgray fill % グラフィックス状態の保存し、白色で塗りつぶす

grestore 0 setgray stroke % グラフィックス状態を復元し、黒線で描画