high_res_cube/matlab-grid-generator/rotate_about_xaxis.m

function [X,Y,Z]=rotate_about_xaxis(lX,lY,lZ,angle);
% [X,Y,Z]=rotate_about_xaxis(lX,lY,lZ,angle);
% Rotate about X axis by "angle".


s=sin(angle);
c=cos(angle);
if c<1e-9
 c=0;
 s=sign(s);
end

X=lX;
Y=c*lY-s*lZ;
Z=s*lY+c*lZ;
1	cnh	1.1	function [X,Y,Z]=rotate_about_xaxis(lX,lY,lZ,angle);
2			% [X,Y,Z]=rotate_about_xaxis(lX,lY,lZ,angle);
3			% Rotate about X axis by "angle".
4
5
6			s=sin(angle);
7			c=cos(angle);
8			if c<1e-9
9			c=0;
10			s=sign(s);
11			end
12
13			X=lX;
14			Y=clY-slZ;
15			Z=slY+clZ;