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;