- 4.51.2.4.2. -
Table of Contents
4. Standard Units
4.51. ObjGfx40 - ObjectGraphics 4.0 Unit
4.51.2. ObjGfx40 Unit Object Types
4.51.2.4. ogSurface object
4.51.2.4.2. ogArc()
4.51.2.4.2. ogArc()
Targets: MS-DOS, Win32 console
ObjGfx40 Unit
Draws a circular arc.
Declaration:
procedure ogArc(xCenter,yCenter:int32; radius, sAngle, eAngle, colour:uInt32);
Remarks:
The arc goes from sAngle (start angle) to eAngle) with radius Radius,
using (xCenter, yCenter) as the center point, and drawing in colour colour.
See Also:
Sample code:
{ogArc.pas}
uses
ObjGfx40, CRT;
var
radius:uInt32;
begin
if not screen^.ogCreate(640, 480, OG_PIXFMT_8BPP) then
begin
writeln('Cannot init 640x480x8bpp');
halt
end;
for Radius := 1 to 8 do
begin
screen^.ogArc(100, 100, radius*10,0, 90, radius*15);
screen^.ogArc(100, 100, radius*10, 180, 270, 249-(radius-1)*16);
end;
readkey;
end.
- 4.51.2.4.2. -
