Program Linestest;

{ Programm zur Einordnung der Ausfuehrungsgeschwindigkeit des Bresenham-   }
{ Algorithmus                                                              }
{ Benutzung des programmierten Bresenham-Algorithmus                       }

{ Der gesamte Bildschirm wird mit vertikalen Linien gefüllt.               }

VAR i       : INTEGER; { Schleifenvariable }
    Eingabe : Char;

{$I Line.pas }   { Einbinden des Line-Algorithmus                          }


BEGIN { Programm 'Linetest' Anfang }

   GraphMode;
   Palette (0);

   REPEAT UNTIL KeyPressed;
   READ (KBD, Eingabe);

   FOR i := 0 TO 319 DO
       Line (i, 0, i, 199, 1);

   REPEAT UNTIL KeyPressed;
   READ (KBD, Eingabe);

   TextMode;

END.   { Programm 'Linetest' Ende   }