summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.sci
blob: 5fab30e264cc6040601b16b3beaf371fdab5bc6a (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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
// 08.08.08
// 09,02.27

function Out=Setax(varargin)
  global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE;
  Nargs=length(varargin);
  if Nargs==0  
    if ZIKU=='line'
      Tmp=','
    else
      Tmp='(Arrowsize='+string(ARROWSIZE)+'),'
    end;
    Str=...
       ZIKU+Tmp+...
       XNAME+','+XPOS+','+YNAME+','+...
       YPOS+','+ONAME+','+OPOS;
    Out=Str;
    disp(Str);
    return;
  end;
  ArgL=[];
  Is=1;
  Tmp=varargin(1);
  if type(Tmp)==1 & length(Tmp)==1
    Is=varargin(1);
    ArgL=[];
    for I=1:Is-1
      ArgL=[ArgL,''];
    end
    for I=2:Nargs
      ArgL=[ArgL,varargin(I)];
    end
  else
    if Nargs==1 
      ArgL=[varargin(1)];
    else
      Tmp=varargin(2);
      if type(Tmp)==1 & length(Tmp)==1
        ARROWSIZE=Tmp;
        ArgL=[varargin(1)];
        for I=3:Nargs
          ArgL=[ArgL,varargin(I)];
        end;
      else
        ArgL=[];
        for I=1:Nargs
          ArgL=[ArgL,varargin(I)];
        end;
      end
    end
  end
  for I=size(ArgL,2)+1:7
    ArgL=[ArgL,''];
  end
  Zk=ArgL(1);
  if Zk~='' 
    ZL=msscanf(Zk,'%c%f');
    Zk=ZL(1);
    if length(ZL)>1   // modified at 080807
      ARROWSIZE=ZL(2);
    end
  end
  Xn=ArgL(2); Xp=ArgL(3);
  Yn=ArgL(4); Yp=ArgL(5);
  Genn=ArgL(6); Genp=ArgL(7);
  if Zk~='' 
    C=Zk;
    if C=='a' 
      ZIKU='arrow';
    else
      ZIKU='line'; 
    end
  end
  if Xn~=''
    XNAME='$'+Xn+'$'
  end
  if Xp~=''  
    XPOS=Xp 
  end
  if Yn~=''
    YNAME='$'+Yn+'$'
  end
  if Yp~=''
    YPOS=Yp
  end
  if Genn~=''
    ONAME=Genn
  end
  if Genp~=''
    OPOS=Genp
  end
  if ZIKU=='line'
    Tmp=','
  else
    Tmp='(Arrowsize='+string(ARROWSIZE)+'),'
  end;
  Str=...
     ZIKU+Tmp+...
     XNAME+','+XPOS+','+YNAME+','+...
     YPOS+','+ONAME+','+OPOS;
  Out=Str;
endfunction;