GFX ClippingOff Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Schaltet das Clipping aus.

vgl.: - SetClippingWindow - GetClippingWindow - ClippingOn - IsClipping

Deklaration

PROCEDURE ClippingOff;

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 }
  ClippingOff;                  { Clipping wieder aus }
  Line(0, GetMaxY, GetMaxX, 0); { Diagonale auf den Bildschirm malen }
  ReadKey;
END.

---