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