summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.sci
blob: c91e73cf6fea6e3f67d750ca0c050428383e9181 (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
// 08.08.14
// 08.10.16
// 11.12.12

function Out=Skeletonpersdata(varargin)
  global MilliIn;
  Nargs=length(varargin);
  Out=[];
  ObjL=Flattenlist(varargin(1));
  Plt3L=Flattenlist(varargin(2));
  R=0.075*1000/2.54/MilliIn;
  if Nargs>2
    R=R*varargin(3);
  end;
  Eps2=0.05;  // changed at 08.10.16
  if Nargs>3
    Eps2=varargin(4);
  end;
  Obj2L=list();
  for I=1:length(ObjL)
    Obj2L($+1)=CameracoordCurve(ObjL(I));
  end;
  Plt2L=list();
  for I=1:length(Plt3L)
    Plt2L($+1)=CameracoordCurve(Plt3L(I));
  end;
  Out=Makeskeletonpersdata(Obj2L,Plt2L,R,Eps2);
endfunction