blob: bfc191b9806e5ef8ff68a7edbca8b40858a8896b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
// 08.05.31
// 10.12.04
// 16.12.05 to make it a closed curve
function AnsL=Enclosing(varargin)
global MilliIn;
Eps=10^(-7); // 12.05
Nargs=length(varargin);
P=varargin(1);
if Mixtype(P)==2
Tmp=Op(1,P);
if type(Tmp)~=1 | length(Tmp)~=1
AnsL=EnclosingS(P,varargin(2:Nargs));
AnsL=Joincrvs(AnsL) // 10.12.04
end
end;
Tmp1=Op(1,AnsL);
Tmp2=Op(size(AnsL,1),AnsL);
if norm(Tmp2-Tmp1)>Eps then // 12.05
AnsL=[AnsL;Tmp1];
end;
endfunction
|