home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / filldem2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-04-15  |  1.5 KB  |  48 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                            FILLDEM2.PAS                                 *)
  3. (*                 Demonstriert den Allround-Polygonfill                   *)
  4. (*-------------------------------------------------------------------------*)
  5. PROGRAM FillDem2;
  6.  
  7. CONST
  8.   (*$I GRAFCONS.PAS *)
  9.  
  10. TYPE
  11.   (*$I GRAFTYPE.PAS *)
  12.  
  13. VAR
  14.   (*$I GRAFVAR.PAS  *)
  15.   Feld: Polygon;
  16.   i, j, k, n : INTEGER;
  17.   Kreuz: Pattern_;                                    (* fuer Pattern-Fill *)
  18.  
  19. (*$I GRAPH.P         s. POLYDEMO.PAS *)
  20. (*$I GRAFSYS.PAS  *)
  21. (*$I INTDDA.PAS   *)
  22. (*$I LINE.PAS     *)
  23. (*$I RELGRAF.PAS  *)
  24. (*$I POLYLINE.PAS *)
  25. (*$I POLYFILL.PAS    bzw. POLYFILP.PAS *)
  26.  
  27. BEGIN
  28.                        (* fuer Pattern-Fill ein Kreuz als Muster erzeugen: *)
  29.   FOR i := 0 TO PatternSize DO
  30.     FOR j := 0 TO PatternSize DO
  31.       Kreuz[i,j] := ((i = j) OR (i + j = PatternSize));
  32.   FOR j := 1 TO 3 DO
  33.   BEGIN                              (* drei verschieden Polygone zeichnen *)
  34.     n := Random(PolyMax - 1) + 1;
  35.     FOR i := 1 TO n DO
  36.     BEGIN
  37.       Feld[i].x := Random(ScreenXmax - 1) + 1;
  38.       Feld[i].y := Random(ScreenYmax - 1) + 1
  39.     END;
  40.     Enter_Graphic;
  41.     PolyFill(Feld, n);       (* bzw. PolyFill(Feld, n, Kreuz); mit Pattern *)
  42.   END;
  43.   REPEAT UNTIL KeyPressed;
  44.   Exit_Graphic
  45. END.
  46.  
  47. (*-------------------------------------------------------------------------*)
  48. (*                      Ende FILLDEM2.PAS                                  *)