% First pass at an implementation of makehgtform

function T = makehgtform(type, r)

  if ischar(type)

    switch type
      % look for hardwired options
      case 'translate'
	    T = se2([r]);
      case 'scale'
	    T = trscale(r);
      case 'xrotate'
        T = r2t(rotx(r));
      case 'yrotate'
        T = r2t(roty(r));
      case 'zrotate'
        T = r2t(rotz(r));
      case 'axisrotate'
	    % Not yet Implemented
      otherwise
	    % Unexpected type.
	end
  end