プログラム言語 FreeBasic |
FillRectDraw
FillRectDraw( x , y ,color )
sub FillRectDraw(ByVal x As Long, ByVal y As Long, ByVal Color As Long)
選択した色で、図形(囲まれた領域)を塗りつぶすために使います。
色は、図形の境界にまで及びます。 座標 x と y は、図形の中に入っている必要があります。
Linux では、アルゴリズムがあまり良くないため、速度が遅くなる可能性があります。長方形の領域には、BoxDraw を使うことを推奨します
x - 軸方向の位置 X
y - Y軸方向の位置
color - 塗りつぶしの色
Windows , Linux
例:
#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
WindowStartDraw(hwnd) '描画を開始
FillRectDraw(0,0,&hf0f0f0) '背景をグレーにする
'三角形を描画
LineDraw(60,180,140,50,10,&hff0000,&hff0000)
LineDraw(140,50,220,180,10,&hff0000,&hff0000)
LineDraw(220,180,60,180,10,&hff0000,&hff0000)
'緑色で塗りつぶします
FillRectDraw(150,150,50000)
StopDraw '描画を終了
Do : Loop until WaitEvent= EventClose