

ネフロイド(kidney curve/腎臓形)という曲線を描きます。
x=c*a*(3*cos(th)-cos(3*th))
y=c*a*(3*sin(th)-sin(3*th))
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:Nephroid(ネフロイド)を描く /a 5 def % 大きさに関するパラメータ /c 5 def % 大きさに関するパラメータ 0 0 240 240 rectfill % 黒背景 120 120 translate % 座標の原点を中央に移動 newpath % パスの初期化 0 1 360 { % 0から始めて360まで1づつ増分し{ }内を繰り返す /th exch def % 制御変数をth(角度)に入れる % ネフロイイドの数式 /x c a mul 3 th cos mul 3 th mul cos sub mul def /y c a mul 3 th sin mul 3 th mul sin sub mul def th 0 eq { x y moveto } { x y lineto } ifelse } for closepath % 線を繋ぐ 1 1 1 setrgbcolor % 白色 2 setlinewidth % 線幅2ポイント stroke % 線を描画 |

大きさを変えながら回転させて、塗りつぶしています。
数式も少し変えています。
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 240 240 %%Title:Nephroid(ネフロイド)を描く /a 5 def % 大きさに関するパラメータ /c 5 def % 大きさに関するパラメータ /rc 1 def % R色 /gc .5 def % G色 /bc 0 def % B色 0 0 240 240 rectfill % 黒背景 120 120 translate % 座標の原点を中央に移動 newpath % パスの初期化 5.8 -.1 .1 { % 5.8から0.1まで-0.1づつ減分し{ }内を繰り返す /c exch def % 制御変数をc(大きさ)に入れる 0 1 360 { % 0から360まで1づつ増分し{ }内を繰り返す /th exch def % 制御変数をth(角度)に入れる % ネフロイイドの数式 /x a c mul 3 th cos mul 5 th mul cos sub mul def /y a c mul 3 th sin mul 5 th mul sin sub mul def % thが0なら始点を置き、さもなくば線を引く th 0 eq { x y moveto } { x y lineto } ifelse } for closepath % 線を繋げる rc gc bc setrgbcolor % カラー設定 fill % 塗りつぶす /rc rc .05 sub def % R色から0.05を引く /gc rc .5 sub def % G色から0.5を引く /bc bc .02 add def % B色に0.02足す 3 rotate % 座標を3度回転する } for |
コメント