GFX ClippingOn Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Schaltet das Clipping ein.

vgl.: - SetClippingWindow - GetClippingWindow - ClippingOff - IsClipping

Deklaration

PROCEDURE ClippingOn;

Beispiel

PROGRAM Test;
USES GFX, Crt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  SetClippingWindow(200, 200, GetMaxX-200, GetMaxY-200); { Clipping-Window setzen }
  ClippingOn;                   { Clipping einschalten }
  Line(0, 0, GetMaxX, GetMaxY); { Diagonale auf den Bildschirm malen }
  ReadKey;
END.

---