FUNCTION constraints_composite_curve_on_surface

(* SCHEMA integrated_cnc_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 ('INTEGRATED_CNC_SCHEMA.PCURVE' IN TYPEOF(c\composite_curve.
        segments[k].parent_curve)) AND NOT (
        'INTEGRATED_CNC_SCHEMA.SURFACE_CURVE' IN TYPEOF(c\composite_curve.
        segments[k].parent_curve))) AND NOT (
        'INTEGRATED_CNC_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; -- 10303-42: geometry_schema

Referenced By

Defintion constraints_composite_curve_on_surface is references by the following definitions:

Definition	Type
composite_curve_on_surface	ENTITY

[Top Level Definitions]

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2010-01-12T10:42:25-02:00