4.51.2.4.16. ogDone()	Table of Contents	4.51.2.4.18. ogFillGouraudPolygon()

  procedure ogFillCircle(xCenter, yCenter:int32; radius, colour:uInt32);

Draws a filled circle using (xCenter, yCenter) as the center point using radius and colour for the radius and colour, respectively.

• ogSurface.ogArc()
• ogSurface.ogCircle()
• ogSurface.ogCurve()

{ogFillCircle.PAS}

uses
 ObjGfx40, CRT;

var
 radius: uInt32;

begin
  randomize;

  if not screen^.ogCreate(640, 480, OG_PIXFMT_8BPP) then
    begin
      writeln('Error setting video mode');
      halt
    end;

  repeat
    with screen^ do
      ogFillCircle(random(ogGetMaxX), random(ogGetMaxY),
                   random(ogGetMaxX), random(255));
  until keyPressed;
  while keyPressed do readKey;
end.

4.51.2.4.16. ogDone()	Table of Contents	4.51.2.4.18. ogFillGouraudPolygon()