paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implementation of DoEllipse

Browse Source
This commit is contained in:
mazen 2003-09-25 09:39:03 +00:00
parent f6e456268f
commit 7f408f009d
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/image/fppixlcanv.pp
View File

@ -227,7 +227,19 @@ begin //TODO
end; end;
procedure TFPPixelCanvas.DoEllipse (const Bounds:TRect); procedure TFPPixelCanvas.DoEllipse (const Bounds:TRect);
var
Cx,Cy,Rx,Ry,phi:Integer;
begin //TODO: how to find center points and radius from bounds ? begin //TODO: how to find center points and radius from bounds ?
with Bounds do
begin
Cx:=(Right+Left) shr 2;
Cy:=(Bottom+Top) shr 2;
Rx:=Abs(Right-Left) shr 2;
Ry:=Abs(Bottom-Top) shr 2;
end;
MoveTo(Cx+Rx,Cy);
for phi:=1 to 360 do
LineTo(Cx+Round(Rx*Cos(phi*Pi/180)),Cy+Round(Ry*Sin(phi*Pi/180)));
end; end;
procedure TFPPixelCanvas.DoPolygonFill (const points:array of TPoint); procedure TFPPixelCanvas.DoPolygonFill (const points:array of TPoint);