[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 is turtle and mouse turn             ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{
    Well, this program modify myspic05.pas. Well, this program use
  Dynkor and Dynvelakor. This program use dynamical date structures
  and polymorphism.
    Well, this program update virtual metod Obrys. If you turn button
    in position where is turtle then traw circle. (other version is if
    you use poly)
    This effekt you can to arrange if you delete ukazmys and skrymys, but
    then you will be hava some problems.
}

uses DynKor, DynVelaKor, Mys;

type PMyKor=^MyKor;
      MyKor=Object(Kor)
            Procedure Obrys; virtual;
            End;

procedure MyKor.Obrys;
var i:integer;
begin
 krok(-135,10);
 for i:=1 to 3 do krok(-90,10)
end;


const n=20;

var v:VelaKor;
    i,j:integer;
begin
  randomize;
  with v do
    begin
      init;
      for i:=1 to n do
        PridajKor(new(PMyKor,
                  Init(random(640)-320.0,random(480)-240.0,random(360))));
      Ukaz;
      UkazMys;
      repeat
        while StavMysi=0 do test;
        while StavMysi<>0 do test;
        i:=Blizko(MysX-X0,Y0-MysY);
        if i<>0 then
          begin
            SkryMys;
            with k[i]^ do
              for j:=1 to 120 do
                begin Dopredu(1); Vlavo(3) end;
            UkazMys;
          end;
      until false;
    end;
end.

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