diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci new file mode 100755 index 00000000..44bde517 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci @@ -0,0 +1,21 @@ +// 08.10.26 + +function Out=Viewfrom(varargin) + global THETA PHI + Nargs=length(varargin); + Nvec=varargin(1); + GL=varargin(2); + Flg=1; + if Nargs>=3 + Flg=varargin(3); + end; + 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; + |