summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.sci
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