procedure TMravenec.Find_Ant_Hill
procedure TMravenec.Find_Well

Zpět
procedure TMravenec.Find_Ant_Hill;     // najde uhel k mravenisti
var px, py,x,y : integer;
begin
with Ant_Hill do
 begin
 x:=round(xx);
 y:=round(yy);
 px:=x-curr_pos_ant_hill_x;
 py:=y-curr_pos_ant_hill_y;
 if px>0 then smer:=arctan(py/px)+Pi
  else smer:=arctan(py/px);
 end;
end;

procedure TMravenec.Find_Well;     // najde uhel ke studni
var px, py,x,y : integer;
begin
with Ant_Hill do
 begin
 x:=round(xx);
 y:=round(yy);
 px:=x-Ant_Hill.position_well_x;
 py:=y-Ant_Hill.position_well_y;
 if px>0 then smer:=arctan(py/px)+Pi
  else smer:=arctan(py/px);
 end;
end;