GFX SetClippingWindow Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Soll die Ausgabe auf einen Bereich des Bildschirms beschränkt werden, bietet sich diese Prozedur in Verbindung mit ClippingOn an.

X0,Y0 ist die linke, obere Ecke, XE,YE die rechte, untere Ecke des Bereichs, auf den die Grafikausgabe beschränkt werden soll.

vgl.: - ClippingOn - ClippingOff - IsClipping - GetClippingWindow

Deklaration

PROCEDURE SetClippingWindow(X0, Y0, XE, YE : Integer);

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.

---