blob: 8f9d60535aa48b72cd27add65e2496311ac91627 (
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
|
// 08.05.31
// 09.02.27
function Setarrow(varargin)
global YaSize YaAngle YaPosition YaThick YaStyle;
Nargs=length(varargin);
if Nargs==0
Mixdisp(Mix('Size=',YaSize));
Mixdisp(Mix('Angle=',YaAngle));
Mixdisp(Mix('Position=',YaThick));
Mixdisp(Mix('Style=',YaStyle));
return;
end;
Flg=0;
for I=1:Nargs
Tmp=varargin(I);
if type(Tmp)==1
Flg=Flg+1;
if Flg==1 YaSize=Tmp; end
if Flg==2
if Tmp<5
YaAngle=18*Tmp;
else
YaAngle=Tmp;
end
end
if Flg==3 YaPosition=Tmp; end
if Flg==4 YaThick=Tmp; end
end
if type(Tmp)==10
YaStyle=Tmp
end
end
endfunction;
|