円の中を塗りつぶすcirclefillメソッドも作ってみる
円を描くcircleメソッドができたので、この中を塗りつぶすcirclefillコマンドも欲しくなった。タートルオブジェクトには円というメソッドがある。これをそのまま使ってcircleコマンドのようなメソッドにしてみる。
使い方はこうだ。
描画！ (中心のx座標)(中心のy座標)(半径)(表示色) circlef
640×480の画面に、半径が50以下のランダムな円を50個描画してみた。
//circlefメソッド テスト
描画：circlef=「|x y r color|
タートル! 作る 消える ペンなし (x)(y) 位置 (r) 円 (color) 塗る.
].
nmax=50. xmax=640. ymax=480. rmax=50.
[
color=色! (random(255))(random(255))(random(255)) 作る.
描画！ (random(xmax)-xmax/2)(random(ymax)-ymax/2)(random(rmax))(color) circlef.
]! (nmax) 繰り返す.
//--------- ここまで ----------
0 Comments:
コメントを投稿
<< Home