[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 1                        ³
       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

    {      This program is for beginers. You muth draw Honeycomb. It is
       not so easy, but no difficult. You muth draw N 6-angles. You muth
       then move turtle to correkt position and make in Nx.
    }

    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(6,s,60);
                     Ph;
                     Vlavo(90);
                     Dopredu(sqrt(3)*s);
                     Vpravo(90);
                     Pd;
                     End;
    End;

    Var MT:MyTurtle;
    Begin

    With MT do Begin
               Init(200,0,0);
               HoneyComb(30);
               CakajKlaves;
               Koniec
               End;

    End.

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