ドリトルでlineメソッドも作ってみた
psetはグラフィックの基本なのだが、BASICにあるよなlineコマンドも便利な命令だ。そこで、タートルオブジェクトを使って、lineコマンドに相当するメソッドを作ってみた。使い方はこうだ。
描画！ (始点x座標)(始点y座標)(終点x座標)(終点y座標)(表示色)(線の太さ) line
線の太さはタートルオブジェクトの仕様上あるようなのだが、現在は指定しても有効にならないようだ。（3ピクセルぐらいで描かれる）
640×480の画面に、ランダムな長さの線を色々の色で100本描画してみた。
//lineメソッドテスト
描画：line=[|x1 y1 x2 y2 color size|
タートル! 作る (size)線の太さ 消える ペンなし (x1)(y1)位置 ペンあり (x2)(y2)位置 図形にする (color)塗る
].
nmax=100. xmax=640. ymax=480.
[
x1=(random(xmax)-xmax/2). x2=(random(xmax)-xmax/2).
y1=(random(ymax)-ymax/2). y2=(random(ymax)-ymax/2).
color=色! (random(255))(random(255))(random(255)) 作る.
描画！ (x1)(y1)(x2)(y2)(color)(1) line.
]!(nmax)繰り返す.
//--
ドリトルの画面が、様々な色の直線で埋め尽くされる。
0 Comments:
コメントを投稿
<< Home