home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / polydemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-04-15  |  1.9 KB  |  51 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                            POLYDEMO.PAS                                 *)
  3. (*             Demonstriert das Zeichenmakro "DrawPoly"                    *)
  4. (*            durch wiederholtes Zeichnen eines Dreiecks                   *)
  5. (*-------------------------------------------------------------------------*)
  6. PROGRAM PolyDemo;
  7.  
  8. CONST
  9.   (*$I GRAFCONS.PAS *)
  10.  
  11. TYPE
  12.   (*$I GRAFTYPE.PAS *)
  13.  
  14. VAR
  15.   (*$I GRAFVAR.PAS *)
  16.   Feld: Polygon;
  17.   i, j: INTEGER;
  18.  
  19. (*$I GRAPH.P *)
  20. (* Dieses Include ist bei Turbo Pascal unter MS-Dos fuer die erweiterte
  21.    Grafik notwendig, da die Pixeltest-Funktion 'GetDotColor'benoetigt!     *)
  22.  
  23. (*$I GRAFSYS.PAS  *)
  24. (*$I INTDDA.PAS   *)
  25. (*$I LINE.PAS     *)
  26. (*$I RELGRAF.PAS  *)
  27. (*$I POLYLINE.PAS *)
  28.  
  29. BEGIN
  30.   Enter_Graphic;
  31.   Feld[1].x := ScreenXmax DIV 2;     (* Die folgenden Variablenzuweisungen *)
  32.   Feld[1].y := ScreenYmax DIV 4;     (* definieren ein Dreieck.            *)
  33.   Feld[2].x := ScreenXmax DIV 5 * 3;
  34.   Feld[2].y := ScreenYmax DIV 6 * 3;
  35.   Feld[3].x := ScreenXmax DIV 5 * 2;
  36.   Feld[3].y := Feld[2].y;
  37.   Feld[4].x := Feld[1].x;          (* Das Dreieck muss geschlossen werden, *)
  38.   Feld[4].y := Feld[1].y;          (* daher der 4. Punkt, der sich mit dem *)
  39.                                    (* ersten deckt.                        *)
  40.                      (* Dreieck wiederholt zeichnen und dabei verschieben: *)
  41.   FOR i := 0 TO ScreenYmax DIV 16 DO
  42.   BEGIN
  43.     FOR j := 1 TO 4 DO
  44.       Feld[j].y := Feld[j].y + 4;    (* Kleine Translations-Transformation *)
  45.     PolyLine(Feld,4)                 (* Sprich: Verschiebung nach oben !   *)
  46.   END;
  47.   REPEAT UNTIL KeyPressed;                       (* auf Tastendruck warten *)
  48.   Exit_Graphic
  49. END.
  50. (*-------------------------------------------------------------------------*)
  51. (*                           Ende POLYDEMO.PAS                             *)