[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 : Draw circles !                             ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{
      This is first program useing oVelaKor. This program draw the
  circles. All circles have good middle of circle. The relation
  for this is for x-coordinate = 8*i-180. It is linear relation.
  We define the turtles left - right and for rotation we change
  the angle. And we draw the circle and then is this effekt.
      The constants 8,180,60 are defined just for good effekt.
}

Uses oKor, oVelaKor;

Const n=60;
Var All:VelaKor;
    i:integer;
Begin
  Randomize;
  With All do Begin
              Init;

              For i:=1 to n do Begin
                               UrobKor(8*i-180,0,12*i);
                               k[i].ZmenFP(random(15)+1);
                               End;

      With k[1] do Begin
                   PH;
                   PresunXY(-300,200);
                   Pis('Key <space> turn on/off of step mode all turtles.');
                   Domov;
                   PD;
                   End;

      Ukaz;
      CakajKlaves;

      for i:=1 to 360 do Begin
                         Dopredu(1);
                         Vlavo(1);
                         If Klaves=32 Then Begin
                                           If k[1].ukazana Then Skry
                                                           Else Ukaz;
                                           Klaves:=0;
                                           End;
                         End;

    CakajKlaves;
    Koniec;
              End;

End.

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