summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.sci
blob: 8d1edf782128f289795e3935b806ce1ef9d1aecb (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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
// 08.05.31
// 08.08.24
// 09.08.12
// 09.08.13
// 13.12.15  tiny move supported
//           A,B type no longer supported

function Bownamerot(varargin)
  global Wfile FID BOWMIDDLE BOWSTART BOWEND;
  Nargs=length(varargin);
  Eps=10^(-6);
  Flg=1;
  Tmp=varargin(Nargs);
  if type(Tmp)==1 & length(Tmp)==1 & Tmp<0
    Flg=Tmp;
    Nargs=Nargs-1;
  end;
  Siki=varargin(Nargs);
  Nargs=Nargs-1;
  Dr="c";
  if Nargs>=1 then
    Tmp=varargin(Nargs);
    if type(Tmp)==10
      Dr=Tmp;
      Nargs=Nargs-1;
    end
  end
  if Nargs==0
    P=Mixop(1,BOWMIDDLE);
    A=BOWSTART;
    B=BOWEND;
  else
    Bdata=varargin(1);
    P=Bowmiddle(Bdata);
    A=Bdata(1,:);
    B=Bdata(size(Bdata,1),:);
    Tm=0; Tv=0;
    if Nargs>1 then  // 13.12.15
      Tm=varargin(2);
      if Nargs>2 then
        Tv=varargin(3);
      end
    end
  end;
//  elseif Nargs==1
//    Bdata=varargin(1);
//    P=Bowmiddle(Bdata);
//    A=Bdata(1,:);
//    B=Bdata(size(Bdata,1),:);
//  else
//    A=varargin(1); B=varargin(2);
//    D=1/2*Vecnagasa(B-A);
//    Tmp=varargin(3);
//    if type(Tmp)==10
//      H=0.2*D; Siki=Tmp;
//    else
//      H=Tmp*D*0.2; Siki=varargin(4);
//    end
//    H=min(H,D);
//    Ydata=MakeBowdata(A,B,H);
//    C=Op(1,Ydata);
//    R=Op(2,Ydata);
//    T=(Op(3,Ydata)+Op(4,Ydata))/2;
//    P=C+R*[cos(T),sin(T)];
//  end;
  if A(1)>B(1)+Eps
    Tmp=A;
    A=B;
    B=Tmp;
  end;
  if Flg>0
    Tmp=B-A;
  else
    Tmp=A-B;
  end;
  Exprrot(P,Tmp,Tm,Tv,Siki);
endfunction