[Randomize]

Сообщение от polopok

Function Dist#( X1#, Y1#, X2#, Y2# )
	Return Abs(( (X1 - X2)*(X1 - X2) + (Y1 - Y2)*(Y1 - Y2) )^0.5)
End Function

Ммм... Для такой записи есть причины? Суть то ясна, но не проще ли

Function Dist#(x1#, y1#, x2#, y2#)
	Local nx# = x1 - x2
	Local ny# = y1 - y2
	Return Sqr( (nx * nx) + (ny * ny))
End Function