home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / crm_demo / p_pascal / turtle / c_kurve.pas next >
Pascal/Delphi Source File  |  1992-05-27  |  580b  |  35 lines
  1. PROGRAM CKurve;
  2.  
  3. USES Turtles;
  4.  
  5. TYPE    TurtleGraphik    =    OBJECT(Turtle)
  6.                                 PROCEDURE CKurve(Grad, Seite : WORD);
  7.                             END;
  8.  
  9. PROCEDURE TurtleGraphik.CKurve(Grad, Seite : WORD);
  10. BEGIN
  11.     IF Grad = 0 THEN
  12.         Forward(Seite)
  13.     ELSE
  14.     BEGIN
  15.         DEC(Grad);
  16.         SELF.CKurve(Grad, Seite);
  17.         Left(90);
  18.         SELF.CKurve(Grad, Seite);
  19.         Right(90)
  20.     END
  21. END;
  22.  
  23. VAR    MyTurtle    : TurtleGraphik;
  24.  
  25. BEGIN
  26.     MyTurtle.Init;
  27.     IF NOT(MyTurtle.Error) THEN
  28.     BEGIN
  29.         MyTurtle.Default(250, -250, 0);
  30.         MyTurtle.Hide;
  31.         MyTurtle.CKurve(12, 12);
  32.         MyTurtle.Show;
  33.         MyTurtle.Done
  34.     END
  35. END.