home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / windem2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-05-18  |  898 b   |  41 lines
  1. PROGRAM WinDem2(Input,Output);
  2.   (* Demonstration von ClipLine *)
  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. (*$I CLIPLINE.PAS *)
  21.  
  22. VAR i : INTEGER;
  23.     Handle : WinNrBereich;
  24.  
  25. BEGIN
  26.   Enter_Graphic;
  27.   (* Hintergrund vollmalen *)
  28.   FOR i := 1 TO 200 DO point(Random(639),Random(199));
  29.   InitWindows;
  30.   Handle := SelectViewport(30,30,150,150);
  31.   SelectWorld(Handle,-1,-1,1,1);
  32.   ClearWindow(Handle);
  33.   FrameWindow(Handle);
  34.   FOR i := 0 TO 50 DO
  35.     ClipLine(-3,0,1,(i-25)/20); (* Linien mit Ueberlaenge werden geclipped *)
  36.   Read;
  37.   CloseWindow(Handle);
  38.   Read;
  39.   Exit_Graphic;
  40. END.
  41.