菊の花びらを捻ったような捻ジ鬼菊という家紋です。
gsave/grestoreで一度に塗りと線を付けることができないため（クリップも解除されるため） 菊の花本体と輪郭線を分けて定義して重ねています。
花びらの作り方の説明図です。
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 | %!PS-Adobe-3.0 EPSF-3.0 %%BoundingBox: 0 0 240 240 %%Title:家紋を描く（捻ジ鬼菊） /wh { 1 setgray fill } def % 白塗り /bk { 0 setgray stroke } def % 黒線 /rot { 360 16 div } def % 回転角 /r 100 def % 円の半径 /r2 r 2 div def % 円のy座標 /kiku { % 菊花びらの定義 gsave % グラフィックス状態の保存 -80 r2 r 0 360 arc clip % 円でクリップ newpath % パスの初期化 80 r2 r 360 0 arcn wh % クリップされる円を白で塗りつぶし grestore % グラフィックス状態の復帰 } def /kiku-line { % 菊の輪郭線の定義 gsave -80 r2 r 0 360 arc clip newpath 80 r2 r 360 0 arcn bk % クリップされる円を黒線で描画 grestore } def 2 setlinewidth % 線幅2ポイント 0 0 240 240 rectfill % 黒背景 120 120 translate % 座標の原点を中央に移動 16 { % 16回繰り返し kiku % 菊花びら呼び出し rot rotate % rot度で回転 } repeat 16 { % 菊の輪郭線 kiku-line % 菊輪郭線呼び出し rot rotate } repeat 0 0 15 0 360 arc gsave wh grestore bk % 花芯 |
コメント