[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 1          ³
       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

    {
        Well this is very funy program. Turtle runing the mouse. The principe
      is : 1. Init situation
           2. if we change mouse coordinates then turtle rotate (absolute)
              angle and go there
           3. If turtle is in position with mouse then there blinking.

      How in all programs this sort, there is a problem with blinking. This
      problem is eliminated in myspic02.pas
    }

    Uses oKor, OkorMys;

    Var k:Kor;
        m:Mouse;
    Begin
    With M Do Begin
      Init;
      Change_Cursor(Kurzor_Ruka);
      With k do
        Begin
          Init(0,-200,0); Ukaz; M.Show;
          Repeat
            StavMysi;
            Hide;
            ZmenSmer(Smerom(MysX-x0,y0-MysY));
            Dopredu(0.1);
            Show;
          Until False;
      End;
      End;

    End.

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