let segment(SMPSegmentonCrv)
let i(Integer)
i=1
for i while i<= NbSegments
{
segment = CreateOrModifyTemplate("Catalog|SMPSegmentonCrv",Segments,`Relations\Knowledge Pattern.1\segments`, i)
segment.Curve =Inputs\Curve.1
segment.Ratio1 = (i-1)/NbSegments
segment.Ratio2 = i/NbSegments
EndModifyTemplate(segment)
segment.Name = "Segment." + ToString (i)
}