%linktr
%
%	TR = linktr(alpha, a, d, theta)
%
% Returns a homogeneous transformation representing link transformation 


function r = linktr(alpha, a, theta, d)
	r =    rotz(theta)*transl(0,0,d)*transl(a,0,0)*rotx(alpha);