summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci
blob: 84fd6daabb318744752015cd9cf3af76fa0d7acc (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
// 08.10.07
// 08.10.27
// 09.06.02

function AnsL=Droppoint(varargin)
  Nargs=length(varargin);
  Curve=varargin(1);
  Eps=0.02;
  if Nargs>=2
    Eps=varargin(2);
  end;
  AnsL=[%inf,%inf];
  for I=1:size(Curve,1)
    P=Curve(I,:);
    if P(1)~=%inf
      Tmp=AnsL(size(AnsL,1),:);
      if norm(P-Tmp)>Eps
        AnsL=[AnsL;P];
      end;
    else
      AnsL=[AnsL;%inf,%inf];
    end;
  end;
  AnsL=AnsL(2:size(AnsL,1),:);
  Tmp=Ptend(Curve);
  AnsL=[AnsL(1:size(AnsL,1)-1,:);Tmp];
endfunction;