So-net無料ブログ作成

放射状の線を描く2 [PostScript]

直線を描く PART2


40-03放射状.png
放射状の線を描いてみようでは、直線を回転させて図形を描きました。
今回は三角関数を使って放射状の線を描きます。
小円と大円の半径や角度を変えると様々な図形ができます。

【サンプルコード】
%!PS-Adobe-3.0 EPSF-3.0 %%BoundingBox: 0 0 240 240 %%Title:放射状の線を描く /r1 20 def % 小円の半径 /r2 100 def % 大円の半径 /k 10 def % 角度 120 120 translate % 座標の原点を中央に移動 newpath % パスの初期化 0 k 360 k sub { % 0からkづつ増やし360-kになるまで{ }内を繰り返す /x1 r1 th cos mul def % 小円の座標 /y1 r1 th sin mul def /x2 r2 th cos mul def % 大円の座標 /y2 r2 th sin mul def x1 y1 moveto x2 y2 lineto % 小円の座標と大円の座標間に線を引く } for 3 setlinewidth % 線幅3ポイント 1 0 0 setrgbcolor % 赤色 stroke % 描画する

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

nice! 0

コメント 0

コメントを書く

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

トラックバック 0

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