home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / crm_demo / p_pascal / turtle / rechteck.pas < prev    next >
Pascal/Delphi Source File  |  1992-05-27  |  778b  |  44 lines
  1. PROGRAM Rechteck;
  2.  
  3. USES Turtles;
  4.  
  5. TYPE    TurtleGraphik    =    OBJECT(TurtleGeom)
  6.                                 PROCEDURE Quadrat(Seite : INTEGER);
  7.                                 PROCEDURE Muster(Seite : INTEGER);
  8.                             END;
  9.  
  10. PROCEDURE TurtleGraphik.Quadrat(Seite : INTEGER);
  11. BEGIN
  12.     Rectangle(Seite, Seite)
  13. END;
  14.  
  15. PROCEDURE TurtleGraphik.Muster(Seite : INTEGER);
  16. CONST    DiffWinkel    = 5;
  17. VAR        i, iMax    : INTEGER;
  18. BEGIN
  19.     i        := 0;
  20.     iMax    := 90 DIV DiffWinkel;
  21.     REPEAT
  22.         Quadrat(Seite);
  23.         Left(DiffWinkel);
  24.         INC(i)
  25.     UNTIL    i = iMax
  26. END;
  27.  
  28. VAR    MyTurtle    : TurtleGraphik;
  29.     Seite        : INTEGER;
  30.  
  31. BEGIN
  32.     MyTurtle.Init;
  33.     IF NOT(MyTurtle.Error) THEN
  34.     BEGIN
  35.         MyTurtle.Hide;
  36.         Seite    := 1000;
  37.         REPEAT
  38.             MyTurtle.Muster(Seite);
  39.             DEC(Seite, 100)
  40.         UNTIL Seite = 0;
  41.         MyTurtle.Show;
  42.         MyTurtle.Done
  43.     END
  44. END.