% Plot an xy axis of unit length

	CreateTransformations

	% inital (1,0) vector 
	v = [1,0]'
	
	ax = 2*[-1,1,-1,1]
	for t = [0:pi/2:2*pi]
			PlotVector(R(t)*v,'-k',ax);
	end
