GFX FillCircle Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Zeichnet einen gefüllten Kreis mit dem angegebenen Radius und dem Mittelpunkt CenterX,CenterY in der aktuell gesetzten Zeichenfarbe

vgl. - SetColor - Circle

Deklaration

PROCEDURE FillCircle(CenterX, CenterY, Radius : Integer);

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR Col : LongInt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  SetColor($12FCD3);            { setze Zeichenfarbe auf mintgrün }
  FillCircle(300, 400, 50);         
  ReadKey;
END.

---