utils/matlab/permutetiles.m

function [a]=permutetiles(b,n)
% a=permutetiles(b) shifts the tile data left by n places around the equator
%
% ie. n=1, tile 2->1, 4->2, 5->4, 1->5, the tiles 3 and 6 get rotated 90 degs.

c=b;
for k=1:n

 a(:,:,1)=c(:,:,2);
 a(:,:,2)=c(end:-1:1,:,4)';
 a(:,:,3)=c(end:-1:1,:,3)';
 a(:,:,4)=c(:,:,5);
 a(:,:,5)=c(:,end:-1:1,1)';
 a(:,:,6)=c(:,end:-1:1,6)';

 c=a;
end
a=c;
1	adcroft	1.1	function [a]=permutetiles(b,n)
2			% a=permutetiles(b) shifts the tile data left by n places around the equator
3			%
4			% ie. n=1, tile 2->1, 4->2, 5->4, 1->5, the tiles 3 and 6 get rotated 90 degs.
5
6			c=b;
7			for k=1:n
8
9			a(:,:,1)=c(:,:,2);
10			a(:,:,2)=c(end:-1:1,:,4)';
11			a(:,:,3)=c(end:-1:1,:,3)';
12			a(:,:,4)=c(:,:,5);
13			a(:,:,5)=c(:,end:-1:1,1)';
14			a(:,:,6)=c(:,end:-1:1,6)';
15
16			c=a;
17			end
18			a=c;