home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
windem1.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-05-18
|
1KB
|
48 lines
PROGRAM WinDem1(Input,Output);
(* Demonstriert Window-/Viewporthandling *)
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 *)
VAR i : INTEGER;
Handle1, Handle2 : WinNrBereich;
BEGIN
Enter_Graphic;
(* Hintergrund vollmalen *)
FOR i := 1 TO 50 DO Line(Random(639),Random(199),Random(639),Random(199));
InitWindows;
Handle1 := SelectViewport(50,50,150,150);
SelectWorld(Handle1,-4,-1.1,4,1.1);
ClearWindow(Handle1);
FrameWindow(Handle1);
FOR i := 0 TO 400 DO
ClipPoint(-Pi+2*Pi/400*i,Sin(-Pi+2*Pi/400*i));
Read;
Handle2 := SelectViewport(200,50,600,90);
SelectWorld(Handle2,-4,-1.1,4,1.1);
ClearWindow(Handle2);
FrameWindow(Handle2);
FOR i := 0 TO 400 DO
ClipPoint(-Pi+2*Pi/400*i,Sin(-Pi+2*Pi/400*i));
Read;
CloseWindow(Handle1);
CloseWindow(Handle2);
Read;
Exit_Graphic;
END.