home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 05 / filldem1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-04-15  |  1.5 KB  |  43 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                          FILLDEM1.PAS                                   *)
  3. (*              Demonstriert das Flaechenfuellen                           *)
  4. (*-------------------------------------------------------------------------*)
  5. PROGRAM FillDem1;
  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.  
  17. (*$I GRAPH.P              s. POLYDEMO *)
  18. (*$I GRAFSYS.PAS  *)
  19. (*$I INTDDA.PAS   *)
  20. (*$I LINE.PAS     *)
  21. (*$I RELGRAF.PAS  *)
  22. (*$I POLYLINE.PAS *)
  23. (*$I FLOODFIL.PAS   bzw. FLOODITA.PAS *)
  24.  
  25. BEGIN
  26.   Enter_Graphic;
  27.   Feld[1].x := ScreenXmax DIV 2;     (* Die folgenden Variablenzuweisungen *)
  28.   Feld[1].y := ScreenYmax DIV 4;     (* definieren ein Dreieck.            *)
  29.   Feld[2].x := ScreenXmax DIV 5 * 3;
  30.   Feld[2].y := ScreenYmax DIV 6 * 3;
  31.   Feld[3].x := ScreenXmax DIV 5 * 2;
  32.   Feld[3].y := Feld[2].y;
  33.   Feld[4].x := Feld[1].x;          (* Das Dreieck muss geschlossen werden, *)
  34.   Feld[4].y := Feld[1].y;          (* daher der 4. Punkt, der sich mit dem *)
  35.                                    (* ersten deckt.                        *)
  36.   PolyLine(Feld, 4);               (* Dreieck zeichnen... und fuellen!     *)
  37.   Fill(ScreenXmax DIV 2, ScreenYmax DIV 3, Last_Color_Value);
  38.   REPEAT UNTIL KeyPressed;
  39.   Exit_Graphic
  40. END.
  41.  
  42. (*-------------------------------------------------------------------------*)
  43. (*                             Ende FILLDEMO.PAS                           *)