FUNCTION gbsf_check_surface

(* SCHEMA AUTOMOTIVE_DESIGN; *)

 
FUNCTION gbsf_check_surface(sf : surface) : BOOLEAN;
  IF ('AUTOMOTIVE_DESIGN.B_SPLINE_SURFACE' IN TYPEOF(sf)) AND (sf\
  b_spline_surface.self_intersect = FALSE) OR (sf\b_spline_surface.
  self_intersect = UNKNOWN) THEN
    RETURN (TRUE);
  ELSE
    IF SIZEOF(['AUTOMOTIVE_DESIGN.SPHERICAL_SURFACE', 
    'AUTOMOTIVE_DESIGN.TOROIDAL_SURFACE', 
    'AUTOMOTIVE_DESIGN.CURVE_BOUNDED_SURFACE', 
    'AUTOMOTIVE_DESIGN.RECTANGULAR_TRIMMED_SURFACE'] * TYPEOF(sf)) = 1 THEN
      RETURN (TRUE);
    ELSE
      IF ('AUTOMOTIVE_DESIGN.OFFSET_SURFACE' IN TYPEOF(sf)) AND (sf\
      offset_surface.self_intersect = FALSE) OR (sf\offset_surface.
      self_intersect = UNKNOWN) THEN
        RETURN (gbsf_check_surface(sf\offset_surface.basis_surface));
      ELSE
        IF 'AUTOMOTIVE_DESIGN.RECTANGULAR_COMPOSITE_SURFACE' IN TYPEOF(sf)
         THEN
          REPEAT i := 1 TO SIZEOF(sf\rectangular_composite_surface.segments);
            REPEAT j := 1 TO SIZEOF(sf\rectangular_composite_surface.segments[i
              ]);
              IF NOT gbsf_check_surface(sf\rectangular_composite_surface.
              segments[i][j].parent_surface) THEN
                RETURN (FALSE);
              END_IF;
            END_REPEAT;
          END_REPEAT;
          RETURN (TRUE);
        ELSE
          IF 'AUTOMOTIVE_DESIGN.SURFACE_REPLICA' IN TYPEOF(sf) THEN
            RETURN (gbsf_check_surface(sf\surface_replica.parent_surface));
          ELSE
            IF 'AUTOMOTIVE_DESIGN.SURFACE_OF_REVOLUTION' IN TYPEOF(sf) THEN
              RETURN (gbsf_check_curve(sf\swept_surface.swept_curve));
            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