From 138f77fe71e43adc24ecb030d73df81cc5c4eb7e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 4 Sep 2017 09:45:51 +0900 Subject: add ketpic --- .../ketpic/ketlib/ketpicscifiles6/Viewfrom.sci | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100755 texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci') diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci new file mode 100755 index 00000000..44bde517 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/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; + -- cgit v1.2.3