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