5bfeae238d
Fork of s-ben/Fractal-Mosaics for Tower mosaik inbox: GPL license, upstream .m sources under reference/, RST placement with CBIR + log-polar hints, edge alpha, profiles wenig/mittel/dicht, no recolor. Co-authored-by: Cursor <cursoragent@cursor.com>
82 lines
No EOL
2.6 KiB
Matlab
Executable file
82 lines
No EOL
2.6 KiB
Matlab
Executable file
function [r,g,b] = transformImage_log(A, Ar, Ac, Nrho, Ntheta, Method, Center, Shape)
|
|
|
|
% Inputs: A the input image
|
|
% Nrho the desired number of rows of transformed image
|
|
% Ntheta the desired number of columns of transformed image
|
|
% Method interpolation method (nearest,bilinear,bicubic)
|
|
% Center origin of input image
|
|
% Shape output size (full,valid)
|
|
% Class storage class of A
|
|
|
|
global rho;
|
|
|
|
theta = linspace(0,2*pi,Ntheta+1); theta(end) = [];
|
|
|
|
switch Shape
|
|
case 'full'
|
|
corners = [1 1;Ar 1;Ar Ac;1 Ac];
|
|
d = max(sqrt(sum((repmat(Center(:)',4,1)-corners).^2,2)));
|
|
case 'valid'
|
|
d = min([Ac-Center(1) Center(1)-1 Ar-Center(2) Center(2)-1]);
|
|
end
|
|
|
|
% minScale = .5;
|
|
% rho = logspace(log10(minScale),log10(d),Nrho)'; % default 'base 10' logspace - play with d to change the scale of the log axis
|
|
|
|
% rad_lin = linspace(logb(1,1.044), logb(256,1.044),256)';
|
|
% rho = 0.5.*(1.044.^rad_lin);
|
|
|
|
|
|
|
|
minScale = 1;
|
|
% maxScale = 127;
|
|
|
|
% maxScale = 2;
|
|
maxScale = Ar/2-1;
|
|
|
|
|
|
% rad_lin = linspace(log(minScale), log(maxScale),256)';
|
|
rad_lin = linspace(log(minScale), log(maxScale),Ar)';
|
|
% rad_lin = linspace(logb(1,1.044), logb(127,1.044),256)';
|
|
rho = exp(rad_lin);
|
|
% rho = (1.044.^rad_lin);
|
|
|
|
% convert polar coordinates to cartesian coordinates and center
|
|
xx = rho*cos(theta) + Center(1);
|
|
yy = rho*sin(theta) + Center(2);
|
|
|
|
if nargout==3
|
|
if strcmp(Method,'nearest'), % Nearest neighbor interpolation
|
|
r=interp2(A(:,:,1),xx,yy,'nearest');
|
|
g=interp2(A(:,:,2),xx,yy,'nearest');
|
|
b=interp2(A(:,:,3),xx,yy,'nearest');
|
|
elseif strcmp(Method,'bilinear'), % Linear interpolation
|
|
r=interp2(A(:,:,1),xx,yy,'linear');
|
|
g=interp2(A(:,:,2),xx,yy,'linear');
|
|
b=interp2(A(:,:,3),xx,yy,'linear');
|
|
elseif strcmp(Method,'bicubic'), % Cubic interpolation
|
|
r=interp2(A(:,:,1),xx,yy,'cubic');
|
|
g=interp2(A(:,:,2),xx,yy,'cubic');
|
|
b=interp2(A(:,:,3),xx,yy,'cubic');
|
|
else
|
|
error(['Unknown interpolation method: ',method]);
|
|
end
|
|
% any pixels outside , pad with black
|
|
mask= (xx>Ac) | (xx<1) | (yy>Ar) | (yy<1);
|
|
r(mask)=0;
|
|
g(mask)=0;
|
|
b(mask)=0;
|
|
else
|
|
if strcmp(Method,'nearest'), % Nearest neighbor interpolation
|
|
r=interp2(A,xx,yy,'nearest');
|
|
elseif strcmp(Method,'bilinear'), % Linear interpolation
|
|
r=interp2(double(A),xx,yy,'linear');
|
|
elseif strcmp(Method,'bicubic'), % Cubic interpolation
|
|
r=interp2(double(A),xx,yy,'cubic');
|
|
else
|
|
error(['Unknown interpolation method: ',method]);
|
|
end
|
|
% any pixels outside warp, pad with black
|
|
mask= (xx>Ac) | (xx<1) | (yy>Ar) | (yy<1);
|
|
r(mask)=0;
|
|
end |