lib_vector.nolol

include "lib_math_small"

macro vector_sub(xo, yo, zo, xa, ya, za, xb, yb, zb) block
	xo=xa-xb
	yo=ya-yb
	zo=za-zb
end
*

macro vector_dist(o, xa, ya, za, xb, yb, zb) block
	vector_sub(tx,ty,tz,xa,ya,za,xb,yb,zb)	
	vector_norm(o,tx,ty,tz)	
end

macro vector_norm2(o, x, y, z) block
	o=x*x+y*y+z*z
end

// what is length of the vector
macro vector_norm(o, x, y, z) block
	vector_norm2(o,x,y,z)	
	math_sqrt(o,x)	
end

macro vector_normalize(x, y, z) block
	vector_norm(l,x,y,z)	
	x/=l
	y/=l
	z/=l
end