procedure TAnt.Stepprocedure 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; |