[Back to TURTLE SWAG index] [Back to Main SWAG index] [Original]

    (* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
       ³ Programated by Vladimir Zahoransky                        ³
       ³                Vladko software                            ³
       ³ Contact      : zahoran@cezap.ii.fmph.uniba.sk             ³
       ³ Program tema : Honeycomb version 2                        ³
       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

    {
          This version draw Homeycomb in version, where the turtle allways
       draw something. (We have not ph) This is for beginers. Here we draw
       6-angle, 2x angle with s in 6-angle direction = 8x-angle for 6-angle.
       Then rotate turtle in absolute angle = 60. (We want to have it
       parraler with x coordinate.
    }

    Uses Okor;

    Const N=10;

    Type MyTurtle=Object(Kor)
                  Procedure poly(n:integer;s,u:real);
                  Procedure HoneyComb(s:real);
                  End;

      Procedure MyTurtle.poly(n:integer;s,u:real);
      Begin
        While n>0 do
        Begin
          dopredu(s);
          vpravo(u);
          dec(n);
        End;
      End;

    Procedure MyTurtle.HoneyComb(s:real);
    Var i:integer;
    Begin
    For i:=1 to N do Begin
                     Poly(8,s,60);
                     ZmenSmer(60);
                     End;
    End;

    Var MT:MyTurtle;
    Begin

    With MT do Begin
               Init(-250,0,60);
               HoneyComb(30);
               CakajKlaves;
               Koniec;
               End;

    End.

[Back to TURTLE SWAG index] [Back to Main SWAG index] [Original]