FUNCTION gbsf_check_point

(* SCHEMA process_planning_schema; *)

  FUNCTION gbsf_check_point(
               pnt: point
      ): BOOLEAN;
    IF 'PROCESS_PLANNING_SCHEMA.CARTESIAN_POINT' IN TYPEOF(pnt) THEN
      RETURN(TRUE);
    ELSE
      IF 'PROCESS_PLANNING_SCHEMA.POINT_ON_CURVE' IN TYPEOF(pnt) THEN
        RETURN(gbsf_check_curve(pnt\point_on_curve.basis_curve));
      ELSE
        IF 'PROCESS_PLANNING_SCHEMA.POINT_ON_SURFACE' IN TYPEOF(pnt) THEN
          RETURN(gbsf_check_surface(pnt\point_on_surface.basis_surface));
        ELSE
          IF 'PROCESS_PLANNING_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; -- gbsf_check_point

Referenced By

Defintion gbsf_check_point is references by the following definitions:

Definition	Type
geometrically_bounded_surface_shape_representation	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:19:47-04:00