GFX Circle Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

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

vgl. - SetColor - FillCircle

Deklaration

PROCEDURE Circle(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 }
  Circle(300, 400, 50);         
  ReadKey;
END.

---