blob: cb6c79ae3cad7fc3fd0125abc253404937a2d0b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
// 08.08.12
// 08.09.21
// 09.03.09
function SetstereoL(R,T,P,H)
X=R*sin(T*%pi/180)*cos(P*%pi/180);
Y=R*sin(T*%pi/180)*sin(P*%pi/180);
Z=R*cos(T*%pi/180);
Eye=[X+H/2*Y/(X^2+Y^2),Y-H/2*X/(X^2+Y^2),Z];
Setpers([0,0,0],Eye);
endfunction
|