// 08.05.31 // 09.03.06 function Ans=Partcrv(A,B,PkL) Eps=10.0^(-3); if type(A)==1 & length(A)==1 // new part from if A>B+Eps Npt=Numptcrv(PkL); Out1=Partcrv(A,Npt,PkL); Out2=Partcrv(1,B,PkL); Tmp=Ptstart(PkL)-Ptend(PkL); if norm(Tmp)Ie+Eps P=(1-B+Ie)*PkL(Ie,:)+(B-Ie)*PkL(Ie+1,:); PL=[PL;P] end Ans=PL; return end; Tmp=Nearestpt(A,PkL);// Ta=Op(2,Tmp);// Tmp=Nearestpt(B,PkL);// Tb=Op(2,Tmp);// Ans=Partcrv(Ta,Tb,PkL);// endfunction;