The top = xy-view
>
with(plots):
s1:=spacecurve([xt+0.05,yt,t],trange,color=red):
s2:=spacecurve([xtnew,ytnew,t],new_trange,color=blue):
s12:=display([s1,s2],axes=boxed,thickness=4):
display(s12,topview);
>