[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 : Turtle runing the mouse version 2          ³
       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

    {
       This version is good, but the line is not line when the turtle
       is in mouse position. This version is not difficult to update.
       Just show mouse when MysX<>Xsur (turtle coordinates) and when
       we nove the mouse.
    }

    uses oKor, Mys;

    var k:Kor;
          x1,y1:real;
    begin
      InicMys; ZmenKurzorMysi(Disque);
      with k do Begin
          Init(0,-200,0); UkazMys;
          repeat
            StavMysi;
            ZmenSmer(Smerom(MysX-x0,y0-MysY));
            Dopredu(0.025);
          until false;
                Koniec;
                End;

    end.

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