FUNCTION constraints_composite_curve_on_surface

(* SCHEMA STRUCTURAL_FRAME_SCHEMA; *)


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;  (*  STEP Part 42 (unchanged in 2nd edition)  *)

Referenced By

Defintion constraints_composite_curve_on_surface is references by the following definitions:

Definition	Type
composite_curve_on_surface	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2023-03-25T00:11:39-04:00