home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
windem2.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-05-18
|
898b
|
41 lines
PROGRAM WinDem2(Input,Output);
(* Demonstration von ClipLine *)
CONST
(*$I GRAFCONS.PAS *)
TYPE
(*$I GRAFTYPE.PAS *)
VAR
(*$I GRAFVAR.PAS *)
(*$I GRAPH.P <-- Wird fuer Turbo Pascal auf MS-DOS benoetigt. S.a. Folge 2 *)
(*$I GRAFSYS.PAS *)
(*$I INTDDA.PAS *)
(*$I LINE.PAS *)
(*$I WINSYS.PAS *)
(*$I WINGRAF.PAS *)
(*$I CLIPOINT.PAS *)
(*$I CLIPLINE.PAS *)
VAR i : INTEGER;
Handle : WinNrBereich;
BEGIN
Enter_Graphic;
(* Hintergrund vollmalen *)
FOR i := 1 TO 200 DO point(Random(639),Random(199));
InitWindows;
Handle := SelectViewport(30,30,150,150);
SelectWorld(Handle,-1,-1,1,1);
ClearWindow(Handle);
FrameWindow(Handle);
FOR i := 0 TO 50 DO
ClipLine(-3,0,1,(i-25)/20); (* Linien mit Ueberlaenge werden geclipped *)
Read;
CloseWindow(Handle);
Read;
Exit_Graphic;
END.