summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.sci
blob: fa26b319befaed2a7714b3810c7b61534ec244e7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// 08.10.15

function Out=Cutsf2d(Nvec,GL,Flg)
  global THETA PHI
  Theta=THETA; Phi=PHI;
  Tmp=Rotate3data(GL,Nvec,[-1,0,0]);
  THETA=%pi/2; PHI=0;
  Out=Projpara(Tmp);
  if Flg==1
    Windisp(Out);
  end;
  THETA=Theta; PHI=Phi;
endfunction;