FUNCTION gbsf_check_surface

(* SCHEMA associative_draughting; *)

  FUNCTION gbsf_check_surface(
               sf: surface
      ): BOOLEAN;
    IF ('ASSOCIATIVE_DRAUGHTING.B_SPLINE_SURFACE' IN TYPEOF(sf)) AND (sf\
        b_spline_surface.self_intersect = FALSE) THEN
      RETURN(TRUE);
    ELSE
      IF SIZEOF(['ASSOCIATIVE_DRAUGHTING.SPHERICAL_SURFACE',
          'ASSOCIATIVE_DRAUGHTING.TOROIDAL_SURFACE'] * TYPEOF(sf)) = 1
           THEN
        RETURN(TRUE);
      ELSE
        IF 'ASSOCIATIVE_DRAUGHTING.CURVE_BOUNDED_SURFACE' IN TYPEOF(sf)
             THEN
          IF SIZEOF(['ASSOCIATIVE_DRAUGHTING.CONICAL_SURFACE',
              'ASSOCIATIVE_DRAUGHTING.CYLINDRICAL_SURFACE',
              'ASSOCIATIVE_DRAUGHTING.PLANE'] * TYPEOF(sf\
              curve_bounded_surface.basis_surface)) = 1 THEN
            RETURN(SIZEOF(QUERY ( bcurve <* sf\curve_bounded_surface.
                boundaries | (NOT gbsf_check_curve(bcurve)) )) = 0);
          ELSE
            IF gbsf_check_surface(sf\curve_bounded_surface.basis_surface)
                 THEN
              RETURN(SIZEOF(QUERY ( bcurve <* sf\curve_bounded_surface.
                  boundaries | (NOT gbsf_check_curve(bcurve)) )) = 0);
            END_IF;
          END_IF;
        ELSE
          IF ('ASSOCIATIVE_DRAUGHTING.OFFSET_SURFACE' IN TYPEOF(sf)) AND (
              sf\offset_surface.self_intersect = FALSE) THEN
            RETURN(gbsf_check_surface(sf\offset_surface.basis_surface));
          ELSE
            IF 'ASSOCIATIVE_DRAUGHTING.RECTANGULAR_COMPOSITE_SURFACE' IN 
                TYPEOF(sf) THEN
              REPEAT i := 1 TO SIZEOF(sf\rectangular_composite_surface.
                  segments) BY 1;
                REPEAT j := 1 TO SIZEOF(sf\rectangular_composite_surface.
                    segments[i]) BY 1;
                  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 'ASSOCIATIVE_DRAUGHTING.RECTANGULAR_TRIMMED_SURFACE' IN 
                  TYPEOF(sf) THEN
                IF SIZEOF(['ASSOCIATIVE_DRAUGHTING.CONICAL_SURFACE',
                    'ASSOCIATIVE_DRAUGHTING.CYLINDRICAL_SURFACE',
                    'ASSOCIATIVE_DRAUGHTING.PLANE'] * TYPEOF(sf\
                    rectangular_trimmed_surface.basis_surface)) = 1 THEN
                  RETURN(TRUE);
                ELSE
                  RETURN(gbsf_check_surface(sf\rectangular_trimmed_surface
                      .basis_surface));
                END_IF;
              ELSE
                IF 'ASSOCIATIVE_DRAUGHTING.SURFACE_REPLICA' IN TYPEOF(sf)
                     THEN
                  RETURN(gbsf_check_surface(sf\surface_replica.
                      parent_surface));
                ELSE
                  IF 'ASSOCIATIVE_DRAUGHTING.SWEPT_SURFACE' 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;
      END_IF;
    END_IF;
    RETURN(FALSE);

  END_FUNCTION; -- gbsf_check_surface

Referenced By

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