[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 : The turtle's sun                           ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{
    This program is easy to undestand. Just draw sun. One turtle draw
  circle and one object (ovelakor) draw sumbeam. All sumbeams are only
  one turtle. IF all turtles born in correkt position and angle then
  you muth just dopredu all turtles and you have sumbeams. This is
  program for beginers and present algorithmical think.
}

uses okor, crt,ovelakor;

 Const Dir     =5;
       MuchDir =120;

  var    k1:kor;
         k2:velakor;
         i:integer;

  begin
    k1.init(100,0,0);
    k2.init;

    For i:=1 to MuchDir do Begin
                           k1.Dopredu(Dir);
                              k2.urobkor(k1.xsur,k1.ysur,k1.smer+90);
                              k2.pd;
                           k1.Vlavo (360/MuchDir);
                           k1.pd;
                           Cakaj(8);
                           End;

 For i:=1 to 10 do k2.dopredu(10);

 CakajKlaves;
 K2.Koniec;

End.

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