FUNCTION gbsf_check_curve

(* SCHEMA AUTOMOTIVE_DESIGN; *)

 
FUNCTION gbsf_check_curve(cv : representation_item) : BOOLEAN;
  IF SIZEOF(['AUTOMOTIVE_DESIGN.BOUNDED_CURVE', 'AUTOMOTIVE_DESIGN.CONIC'
  , 'AUTOMOTIVE_DESIGN.CURVE_REPLICA', 'AUTOMOTIVE_DESIGN.LINE', 
  'AUTOMOTIVE_DESIGN.OFFSET_CURVE_3D'] * TYPEOF(cv)) > 1 THEN
    RETURN (FALSE);
  END_IF;
  IF SIZEOF(['AUTOMOTIVE_DESIGN.CIRCLE', 'AUTOMOTIVE_DESIGN.ELLIPSE', 
  'AUTOMOTIVE_DESIGN.TRIMMED_CURVE'] * TYPEOF(cv)) = 1 THEN
    RETURN (TRUE);
  ELSE
    IF ('AUTOMOTIVE_DESIGN.B_SPLINE_CURVE' IN TYPEOF(cv)) AND (cv\
    b_spline_curve.self_intersect = FALSE) OR (cv\b_spline_curve.self_intersect
     = UNKNOWN) THEN
      RETURN (TRUE);
    ELSE
      IF ('AUTOMOTIVE_DESIGN.COMPOSITE_CURVE' IN TYPEOF(cv)) AND (cv\
      composite_curve.self_intersect = FALSE) OR (cv\composite_curve.
      self_intersect = UNKNOWN) THEN
        RETURN (SIZEOF(QUERY(seg <* cv\composite_curve.segments | NOT 
        gbsf_check_curve(seg.parent_curve))) = 0);
      ELSE
        IF 'AUTOMOTIVE_DESIGN.CURVE_REPLICA' IN TYPEOF(cv) THEN
          RETURN (gbsf_check_curve(cv\curve_replica.parent_curve));
        ELSE
          IF ('AUTOMOTIVE_DESIGN.OFFSET_CURVE_3D' IN TYPEOF(cv)) AND ((cv\
          offset_curve_3d.self_intersect = FALSE) OR (cv\offset_curve_3d.
          self_intersect = UNKNOWN)) AND NOT ('AUTOMOTIVE_DESIGN.POLYLINE' 
          IN TYPEOF(cv\offset_curve_3d.basis_curve)) THEN
            RETURN (gbsf_check_curve(cv\offset_curve_3d.basis_curve));
          ELSE
            IF 'AUTOMOTIVE_DESIGN.PCURVE' IN TYPEOF(cv) THEN
              RETURN (gbsf_check_curve(cv\pcurve.reference_to_curve\
              representation.items[1]) AND gbsf_check_surface(cv\pcurve.
              basis_surface));
            ELSE
              IF 'AUTOMOTIVE_DESIGN.POLYLINE' IN TYPEOF(cv) THEN
                IF SIZEOF(cv\polyline.points) >= 3 THEN
                  RETURN (TRUE);
                END_IF;
              ELSE
                IF 'AUTOMOTIVE_DESIGN.SURFACE_CURVE' IN TYPEOF(cv) THEN
                  IF gbsf_check_curve(cv\surface_curve.curve_3d) THEN
                    REPEAT i := 1 TO SIZEOF(cv\surface_curve.
                      associated_geometry);
                      IF 'AUTOMOTIVE_DESIGN.SURFACE' IN TYPEOF(cv\
                      surface_curve.associated_geometry[i]) THEN
                        IF NOT gbsf_check_surface(cv\surface_curve.
                        associated_geometry[i]) THEN
                          RETURN (FALSE);
                        END_IF;
                      ELSE
                        IF 'AUTOMOTIVE_DESIGN.PCURVE' IN TYPEOF(cv\
                        surface_curve.associated_geometry[i]) THEN
                          IF NOT gbsf_check_curve(cv\surface_curve.
                          associated_geometry[i]) THEN
                            RETURN (FALSE);
                          END_IF;
                        END_IF;
                      END_IF;
                    END_REPEAT;
                    RETURN (TRUE);
                  END_IF;
                END_IF;
              END_IF;
            END_IF;
          END_IF;
        END_IF;
      END_IF;
    END_IF;
  END_IF;
  RETURN (FALSE);
END_FUNCTION; (* declared in: aic_geometrically_bounded_surface *)

Referenced By

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