home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
linedemo.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-03-13
|
1KB
|
36 lines
(*-------------------------------------------------------------------------*)
(* LINEDEMO.PAS *)
(* Demonstration des Integer-DDA *)
(*-------------------------------------------------------------------------*)
PROGRAM linedemo;
CONST
(*$I GRAFCONS.PAS *)
TYPE
(*$I GRAFTYPE.PAS *)
VAR
(*$I GRAFVAR.PAS *)
y1, y2: INTEGER;
(*$I GRAFSYS.PAS *) (* Schnittstelle System-Grafik *)
(*$I INTDDA.PAS *) (* Integer-DDA *)
(*$I LINE.PAS *) (* 'line'-Prozedur *)
BEGIN
Enter_Graphic;
y1 := ScreenYmax DIV 2;
FOR y2 := 0 TO ScreenYmax DIV 10 DO
Line(0, y1, ScreenXmax, y2*10);
y2 := y1;
FOR y1 := 0 TO ScreenYmax DIV 10 DO
Line(0, y1*10, ScreenXmax, y2);
REPEAT UNTIL KeyPressed;
Exit_Graphic;
END.
(*-------------------------------------------------------------------------*)
(* Ende von LINEDEMO.PAS *)