summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci36
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
-