ksTrimmCurve

[Simon]

Нужен пример использование ksTrimmCurve.
Не получается усечь нижню и верхню дуги после построения прямоугольника и элипса

[Sabahs]

Air2:=CreateArray(POINT_ARR,nil);
ksIntersectCurvCurv(pCurve,pLine,Air2);
Находите нужные точки и усекаете.
DeleteArray(Air2);
ksTrimCurve(pCurve,X1,Y1,X2,Y2,X4,Y4,0);