LOCAL n_segments : INTEGER := SIZEOF ( c . segments ) ; END_LOCAL ; REPEAT k := 1 TO n_segments ; IF ( NOT  ( 'geometry_schema.pcurve' IN  TYPEOF  ( c \ composite_curve . segments [ k ] . parent_curve ) ) ) AND  ( NOT  ( 'geometry_schema.surface_curve' IN  TYPEOF  ( c \ composite_curve . segments [ k ] . parent_curve ) ) ) AND ( NOT ( 'geometry_schema.composite_curve_on_surface' IN TYPEOF ( c \ composite_curve . segments [ k ] . parent_curve ) ) ) THEN RETURN  ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ;