function  w = xpr(xy,t,u)
%XPR    Radial coordinate of t-point of xy-curve rotated through angle u.
%   XPR is a helper function used by TUBE.

%   C. Henry Edwards, University of Georgia. 6-20-93.
%
%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 5.3 $  $Date: 1997/11/21 23:27:44 $

[xt,yt] = feval(xy,t);

w = xt.*cos(u) - yt.*sin(u);
