FUNCTION check_curve_planarity

(* SCHEMA step_merged_ap_schema; *)

-- IN AP242
FUNCTION check_curve_planarity
      (checked_curve : curve ) : BOOLEAN;
   LOCAL
      crv : curve := checked_curve;
      i : INTEGER;
      j : INTEGER;
      result : BOOLEAN := FALSE;
   END_LOCAL;
      IF SIZEOF([ 'STEP_MERGED_AP_SCHEMA.CONIC', 'STEP_MERGED_AP_SCHEMA.LINE' ] * TYPEOF(crv)) > 0 THEN
         result := FALSE;
      ELSE
         IF ('STEP_MERGED_AP_SCHEMA.TRIMMED_CURVE' IN TYPEOF(crv)) AND check_curve_planarity(crv\trimmed_curve.basis_curve) THEN
            result := FALSE;
         ELSE
            IF ('STEP_MERGED_AP_SCHEMA.PCURVE' IN TYPEOF(crv)) AND ('STEP_MERGED_AP_SCHEMA.PLANE' IN TYPEOF(crv\pcurve.basis_surface)) THEN
               result := FALSE;
            ELSE
               IF 'STEP_MERGED_AP_SCHEMA.SURFACE_CURVE' IN TYPEOF(crv) THEN
                  BEGIN
                     REPEAT j := 1 TO HIINDEX(crv\surface_curve.basis_surface);
                        IF 'STEP_MERGED_AP_SCHEMA.PLANE' IN TYPEOF(crv\surface_curve.basis_surface[j]) THEN
                           result := FALSE;
                        END_IF;
                     END_REPEAT;
                  END;
               END_IF;
            END_IF;
         END_IF;
      END_IF;
      RETURN (result);
END_FUNCTION;

Referenced By

Defintion check_curve_planarity is references by the following definitions:

Definition	Type
planar_curve_select	SELECT

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2020-07-28T17:02:20-04:00