diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci new file mode 100644 index 00000000..fa26b319 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci @@ -0,0 +1,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; + |