summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.sci
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