/usr/share/octave/packages/nurbs-1.3.7/nrbtransp.m is in octave-nurbs 1.3.7-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | function tsrf = nrbtransp(srf)
%
% NRBTRANSP: Transpose a NURBS surface, by swapping U and V directions.
%
% Calling Sequence:
%
% tsrf = nrbtransp(srf)
%
% INPUT:
%
% srf : NURBS surface, see nrbmak.
%
% OUTPUT:
%
% tsrf : NURBS surface with U and V diretions transposed.
%
% Description:
%
% Utility function that transposes a NURBS surface, by swapping U and
% V directions. NURBS curves cannot be transposed.
%
% Copyright (C) 2000 Mark Spink
%
% This program is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program. If not, see <http://www.gnu.org/licenses/>.
if ~iscell(srf.knots)
error(' A NURBS curve cannot be transposed.');
elseif size(srf.knots,2) == 3
error('The transposition of NURBS volumes has not been implemented.');
end
tsrf = nrbmak(permute(srf.coefs,[1 3 2]), fliplr(srf.knots));
end
%!demo
%! srf = nrb4surf([0 0 0], [1 0 1], [0 1 1], [1 1 2]);
%! nrbplot(srf,[20 5]);
%! title('Plane surface and its transposed (translated)')
%! hold on
%! srf.coefs(3,:,:) = srf.coefs(3,:,:) + 10;
%! srf = nrbtransp(srf);
%! nrbplot(srf,[20 5]);
%! hold off
|