FUNCTION gbsf_check_point

(* SCHEMA integrated_cnc_schema; *)

FUNCTION gbsf_check_point (
    pnt : point 
    ) : BOOLEAN;
    IF 'INTEGRATED_CNC_SCHEMA.CARTESIAN_POINT' IN TYPEOF(pnt) THEN
      RETURN (TRUE);
    ELSE
      IF 'INTEGRATED_CNC_SCHEMA.POINT_ON_CURVE' IN TYPEOF(pnt) THEN
        RETURN (gbsf_check_curve(pnt\point_on_curve.basis_curve));
      ELSE
        IF 'INTEGRATED_CNC_SCHEMA.POINT_ON_SURFACE' IN TYPEOF(pnt) THEN
          RETURN (gbsf_check_surface(pnt\point_on_surface.basis_surface));
        ELSE
          IF 'INTEGRATED_CNC_SCHEMA.DEGENERATE_PCURVE' IN TYPEOF(pnt) THEN
            RETURN (gbsf_check_curve(pnt\degenerate_pcurve.
              reference_to_curve\representation.items[1]) AND 
              gbsf_check_surface(pnt\degenerate_pcurve.basis_surface));
          END_IF;
        END_IF;
      END_IF;
    END_IF;
    RETURN (FALSE);
END_FUNCTION; -- 10303-507: aic_geometrically_bounded_surface

Referenced By

Defintion gbsf_check_point is references by the following definitions:

Definition	Type
geometrically_bounded_surface_shape_representation	ENTITY

[Top Level Definitions]

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