So-net無料ブログ作成

等角螺旋を描いてみよう [PostScript]

曲線を描く


等角螺旋.png
これは等角螺旋または対数螺旋またはベルヌーイの螺旋と言って自然界の中に見られるそうです。
b=1/6
r=a*exp(b*th)
x=r*cos(th)
y=r*sin(th)

【サンプルコード】
%!PS-Adobe-3.0 EPSF-3.0 %%BoundingBox: 0 0 240 240 %%Title:equiangular spiral(等角螺旋)を描く /a 1.009 def % 図形の大きさに影響 /b .17 def % 図形の大きさに影響 /sw 0 def % 始点を置くスイッチ 0 0 240 240 rectfill % 黒の背景 120 120 translate % 座標の原点を中央に移動 newpath % パスの初期化 0 1 3400 { % 0から1づつ増分し3400になるまで{ }内を繰り返す /th exch def % 制御変数をth(角度)に入れる % 等角螺旋の数式 /r a b th mul exp def /x r th cos mul def /y r th sin mul def % swが0なら始点を置き、さもなくば線を引く sw 0 eq {x y moveto /sw 1 def}{x y lineto}ifelse } for .936 .517 1 sethsbcolor % 色設定 2 setlinewidth % 線幅2ポイント stroke % 線を描画する

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

nice! 0

コメント 0

コメントを書く

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

トラックバック 0

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