Navigation

constraints_composite_curve_on_surface

EXPRESS specification:

FUNCTION constraints_composite_curve_on_surface
(c: composite_curve_on_surface) : BOOLEAN;
 LOCAL
 n_segments : INTEGER := SIZEOF(c.segments);
 END_LOCAL;

   REPEAT k := 1 TO n_segments;
 IF (NOT('STRUCTURAL_FRAME_SCHEMA.PCURVE' IN 
 TYPEOF(c\composite_curve.segments[k].parent_curve))) AND
(NOT('STRUCTURAL_FRAME_SCHEMA.SURFACE_CURVE' IN 
 TYPEOF(c\composite_curve.segments[k].parent_curve))) AND
(NOT('STRUCTURAL_FRAME_SCHEMA.COMPOSITE_CURVE_ON_SURFACE' IN
 TYPEOF(c\composite_curve.segments[k].parent_curve))) THEN
 RETURN (FALSE);
 END_IF;
  END_REPEAT;
   RETURN(TRUE);
END_FUNCTION;