blob: bf6f976ff07642c0b22dd7ad29f59b89c44a476c (
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
|
// 10.11.13 ( Flattenlist used
// 13.10.19 debugged
function Invdashline(varargin)
global MilliIn;
Nargs=length(varargin);
Nall=Nargs; Sen=1 ; Gap=1;
Tmp=varargin(Nall);
if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 // 2013.10.19
Tmp1=varargin(Nall-1);
if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 // 2013.10.19
Sen=Tmp1; Gap=Tmp;
Nall=Nall-2;
else
Sen=Tmp; Gap=Sen;
Nall=Nall-1;
end
end
Sen=1000/2.54/MilliIn*Sen;
Gap=1000/2.54/MilliIn*Gap;
for N=1:Nall
Tmp=varargin(N);
Fdata=Flattenlist(Tmp);
for I=1:length(Fdata);
Figdata=Fdata(I);
Makehasen(Figdata,Sen,Gap,1);
end;
end;
endfunction
|