[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 : Averange of two turtle traectoris          ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{
      This is very nice effekt. Two hidden turtles are in traectory
    (circle and squard) and one turtle draw pictures where k3 is
    averange of turtles k1,k2 coordinates. This effekt draw very
    interesting picture.
    If you want to see the traectoris then write k1.ukaz; and k2.ukaz;
    If you don't want waiting delete cakaj(1);

    If are there some anomals of lines, it is nathig if the lines is a
    lot. (for example if this program go 1 minute then you can not see
    some anomals.
}

uses okor,crt;
   var k1,k2,k3:kor;
            i,j:Integer;

 begin
 k1.init(-100,100,0);
 k2.init(120,-100,0);
 k3.init(  0,   0,0);

 k1.ph;  {Squard traectory}
 k2.ph;  {Circle traectory}

 i := 1;

 while true  do begin
     k1.Dopredu(1);
     k1.Vlavo(1);
     k2.dopredu(1);
     if i > 240 then Begin
                     inc(j);
                     k3.zmenfp(j);
                     k2.Vlavo(90);
                     i:=0;
                     End;
     Inc(i);
     k3.ZmenXY((k1.XSur+k2.XSur)/2,(k1.YSur+k2.YSur)/2);
     Cakaj(0);
    End;

   k1.koniec;

End.

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