summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
blob: f6ac6ef2e9e82b02839412058b0548a8724c4f61 (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
// 08.05.08

function Out=Arrowdata(varargin)
  global YaSize YaAngle YaPosition YaThick YaStyle;
  Nargs=length(varargin);
  P=varargin(1);
  Q=varargin(2);
  R=Q;
  Futosa=YaThick;
  Ookisa=YaSize;
  Thickness=1;
  Hiraki=YaAngle;
  Yapos=YaPosition;
  Position=1;
  Str=YaStyle;
  Flg=0;
  for I=3:Nargs
    Tmp=varargin(I);
    if type(Tmp)==1
      if length(Tmp)>1
        R=Tmp
      else
        if Flg==0
          Ookisa=Ookisa*Tmp;
        end
        if Flg==1
          if Tmp<5 
            Hiraki=Tmp*Hiraki;
          else
            Hiraki=Tmp;
          end
        end
        if Flg==2
          R=P+Tmp*(Q-P);
        else
          R=P+Yapos*(Q-P);
        end
        if Flg==3
          Futosa=Tmp
        end
        Flg=Flg+1;
      end
    end
    if type(Tmp)==10
      if mtlb_findstr(Tmp,'=')~=[]
        execstr(Tmp);
        Futosa=Futosa*Thickness;
        R=P+Position*(Q-P);
      else
        Str=Tmp
      end
    end
  end
  Tmp1=Listplot([P,Q]);
  Tmp2=Arrowheaddata(R,Q-P,Ookisa,Hiraki,Futosa,Str);
  Out=Joingraphics(Tmp1,Tmp2);
endfunction