summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci
blob: 74c552a698f806093e18fb4a1522b5b8829e48bc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// 08.07.11
// 08.10.16

function Out=ProjcoordCurve(Curve)
  global PHI THETA;
  SP=sin(PHI); CP=cos(PHI);
  ST=sin(THETA); CT=cos(THETA);
  Out=[];
  for J=1:size(Curve,1)
    P=Curve(J,:);
    x=P(1); y=P(2); z=P(3);
    Xz=-x*SP+y*CP;
    Yz=-x*CP*CT-y*SP*CT+z*ST;
    Zz=x*CP*ST+y*SP*ST+z*CT;
    Out=[Out;Xz,Yz,Zz];
  end;
endfunction;