[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 : Where you turn there turtle draw circle    ³
       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

    {
         This program is easy to undestand.  There you klik the mouse there
      start turtle drawing circle.
        Principe 1 : Define klik. (Clear mouse buffer)
        Principe 2 : Draw circle (Other version draw circle with poly)

        If you want to have faster effekt, please delete ukaz; cakaj(1);
        UkazMys and SkryMys. (If you deleta Ukazmys and Skrymys then you
        will have some problems with circle drawing)
    }

    uses Mys, oKor, oVelaKor;

    function Klik:boolean;
    begin
      if StavMysi=0 then Klik:=false
      else
        begin
          while StavMysi<>0 do;
          Klik:=true;
        end;
    end;

    var a:VelaKor;

    begin
      InicMys; UkazMys;
      with a do
        begin
          Init;
          repeat
            SkryMys;
            if Klik then
              begin
                UrobKor(MysX-x0,y0-MysY,random(360));
                k[pk].Ukaz;
              end;
            Dopredu(2); Vlavo(1);
            UkazMys;
            Cakaj(1);
          until false
        end;
    end.

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