Bitmap/Midpoint circle algorithm: Difference between revisions
Content added Content deleted
Line 967: | Line 967: | ||
procedure ShowBrezCircle(Image: TImage); |
procedure ShowBrezCircle(Image: TImage); |
||
begin |
begin |
||
{Draw three times to make line thicker} |
|||
DrawCircle(Image,100,Point(200,200)); |
DrawCircle(Image,100,Point(200,200)); |
||
DrawCircle(Image,99,Point(200,200)); |
|||
DrawCircle(Image,98,Point(200,200)); |
|||
Image.Invalidate; |
Image.Invalidate; |
||
end; |
end; |