[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 : Raptile, turtles !!!                       ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{
      This is small raptile. He just rotate. But there are turtles.
  It is easy to undestand, if you know dynVelakor. All turtles have
  defined just coefficient and in 3 for cycles is this effekt.
}

Uses dynvelakor,dynkor;

Const
  n=60;
  nn=640/n;
  r=8;
  nr=200 div r;

Var
  v:velakor;
  i:integer;

Type
  PMyTur=^MyTur;
   MyTur=Object(kor)
         k:real;
         Constructor init(x,y,u:real);
         Procedure koef(kk:real);
         Procedure dopredu(d:real); virtual;
         End;

Constructor MyTur.init;
Begin
Kor.init(x,y,u);
K:=1;
End;

Procedure MyTur.koef(kk:real);
Begin
k:=kk;
End;

Procedure MyTur.dopredu(d:real);
Begin
vpravo(180/nr);
kor.dopredu(d*k);
End;

Begin
With v do Begin
          init;
          For i:=1 to n do Begin
                           Pridajkor(new(PMyTur,init(nn*i-320,0,0)));
                           PMyTur(k[pk])^.koef(sin(nn*rad*i));
                           End;

    Ph;
    Ukaz;

    Repeat
    For I:=1 to nr do   Dopredu(r);
    For i:=1 to 2*nr do Dopredu(r);
    For i:=1 to nr do   Dopredu(r);
    Until false;

  Koniec;
  End;

End.

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