summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.sci
blob: f99917cfd726a1cadc663e85d06127237de3e651 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
// 08.05.31
// 08.08.24
// 09.12.25

function Letterrot(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/Vecnagasa(V)*V;
  Nv=[-Tv(2),Tv(1)];
  P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv;
  Tmp=acos(V(1)/Vecnagasa(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