home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / windem1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-05-18  |  1.1 KB  |  48 lines
  1. PROGRAM WinDem1(Input,Output);
  2.    (* Demonstriert Window-/Viewporthandling *)
  3.  
  4. CONST
  5.   (*$I GRAFCONS.PAS *)
  6.  
  7. TYPE
  8.   (*$I GRAFTYPE.PAS *)
  9.  
  10. VAR
  11.   (*$I GRAFVAR.PAS *)
  12.  
  13. (*$I GRAPH.P  <-- Wird fuer Turbo Pascal auf MS-DOS benoetigt. S.a. Folge 2 *)
  14. (*$I GRAFSYS.PAS  *)
  15. (*$I INTDDA.PAS   *)
  16. (*$I LINE.PAS     *)
  17. (*$I WINSYS.PAS   *)
  18. (*$I WINGRAF.PAS  *)
  19. (*$I CLIPOINT.PAS *)
  20.  
  21. VAR i : INTEGER;
  22.     Handle1, Handle2 : WinNrBereich;
  23.  
  24. BEGIN
  25.   Enter_Graphic;
  26.   (* Hintergrund vollmalen *)
  27.   FOR i := 1 TO 50 DO Line(Random(639),Random(199),Random(639),Random(199));
  28.   InitWindows;
  29.   Handle1 := SelectViewport(50,50,150,150);
  30.   SelectWorld(Handle1,-4,-1.1,4,1.1);
  31.   ClearWindow(Handle1);
  32.   FrameWindow(Handle1);
  33.   FOR i := 0 TO 400 DO
  34.     ClipPoint(-Pi+2*Pi/400*i,Sin(-Pi+2*Pi/400*i));
  35.   Read;
  36.   Handle2 := SelectViewport(200,50,600,90);
  37.   SelectWorld(Handle2,-4,-1.1,4,1.1);
  38.   ClearWindow(Handle2);
  39.   FrameWindow(Handle2);
  40.   FOR i := 0 TO 400 DO
  41.     ClipPoint(-Pi+2*Pi/400*i,Sin(-Pi+2*Pi/400*i));
  42.   Read;
  43.   CloseWindow(Handle1);
  44.   CloseWindow(Handle2);
  45.   Read;
  46.   Exit_Graphic;
  47. END.
  48.