function [] =PlotTele(t,fig)
w=get(t);
if fig~=0
figure(fig)
end
hold on
plot([w(1,1:2)],[w(2,1:2)])
plot([w(1,1:2:3)],[w(2,1:2:3)])
[x,y]=arco(t);
plot(x,y,'b')
%axis equal
hold off