GFX VSync Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Diese Prozedur wartet darauf, daß der Elektronentrahl am unteren Rand angekommen ist. Dadurch lassen sich "Clipping"-Effekte vermeiden (daß bei einer Animation z.B. der halbe Teil des Bildes schon vorgerückt ist, während der andere Teil noch an seiner alten Position erscheint).

Deklaration

PROCEDURE VSync;

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR X : Integer;
BEGIN
  InitGraph(Mode640x480x16);    { 16bit-Farbtiefe bei 640x480 Bildpunkten }
  x := 0;
  REPEAT
    VSync;
    SetColor($000000);
    Bar(x, 100, x+100, 200);
    SetColor($FFFFFF);
    Circle(x+50, 150, 45);
    Delay(10);
    IF X > GetMaxX THEN X := 0;
  UNTIL KeyPressed;
  ReadKey;
END.

---