[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]