procedure TAnt.Step

Zpět
procedure TAnt.Step;
var pom : real;
begin

 xx:= xx + cos(smer)*4;
 if xx>=MAX_X-1 then
   begin
    smer:=smer*(-1) + Pi;
    xx:= xx - 4;
   end;
 if xx<=MIN_X+1 then
   begin
    smer:=(smer-Pi)*(-1);
    xx:= xx + 4;
   end;
 yy:= yy + sin(smer)*4;
 if yy>=MAX_Y-1 then
   begin
    smer:=-smer;
    yy:= yy - 4;
   end;
 if yy<=MIN_Y+1 then
   begin
    smer:=-smer;
    yy:= yy + 4;
   end;
end;