procedure TMravenec.Find_Ant_Hill
procedure TMravenec.Find_Well
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;
|