So-net無料ブログ作成

ネフロイドを描いてみよう [PostScript]

曲線を描く


ネフロイド.png
ネフロイド(kidney curve/腎臓形)という曲線を描きます。
x=c*a*(3*cos(th)-cos(3*th))
y=c*a*(3*sin(th)-sin(3*th))

【サンプルコード】
%!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 % 線を描画

ネフロイド2.png
大きさを変えながら回転させて、塗りつぶしています。
数式も少し変えています。

【サンプルコード】
%!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

タグ:PostScript
nice!(0)  コメント(0)  トラックバック(0) 
共通テーマ:アート

nice! 0

コメント 0

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

トラックバックの受付は締め切りました