diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci deleted file mode 100755 index d51dfa91..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 08.05.31 -// 08.08.24 -// 09.12.25 - -function Exprrot(varargin) - global MEMORI; - P=varargin(1); - V=varargin(2); N=3; - P=Doscaling(P); - V=Doscaling(V); - Tmov=0; - Tmp=varargin(N); - if type(Tmp)==1 - Tmov=Tmp; N=N+1; - end - Nmov=0; - Tmp=varargin(N); - if type(Tmp)==1 then - Nmov=Tmp; N=N+1; - end - Mojiretu='$'+varargin(N)+'$'; - Tv=1/norm(V)*V; - Nv=[-Tv(2),Tv(1)]; - P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv; - Tmp=acos(V(1)/norm(V)); - Theta=round(Tmp*180/%pi); - if V(2)>=0 - Units=''; - else - Units='units=-360,'; - end - Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta); - Tmp=Tmp+'}{'+Mojiretu+'}'; - Letter(P,"c",Tmp); -endfunction - |