FUNCTION constraints_rectangular_composite_surface

(* SCHEMA integrated_cnc_schema; *)

FUNCTION constraints_rectangular_composite_surface (
    s : rectangular_composite_surface 
    ) : BOOLEAN;
    REPEAT i := 1 TO s.n_u;
      REPEAT j := 1 TO s.n_v;
        IF NOT (('INTEGRATED_CNC_SCHEMA.B_SPLINE_SURFACE' IN TYPEOF(s.
          segments[i][j].parent_surface)) OR (
          'INTEGRATED_CNC_SCHEMA.RECTANGULAR_TRIMMED_SURFACE' IN TYPEOF(s.
          segments[i][j].parent_surface))) THEN
          RETURN (FALSE);
        END_IF;
      END_REPEAT;
    END_REPEAT;
    REPEAT i := 1 TO s.n_u - 1;
      REPEAT j := 1 TO s.n_v;
        IF s.segments[i][j].u_transition = discontinuous THEN
          RETURN (FALSE);
        END_IF;
      END_REPEAT;
    END_REPEAT;
    REPEAT i := 1 TO s.n_u;
      REPEAT j := 1 TO s.n_v - 1;
        IF s.segments[i][j].v_transition = discontinuous THEN
          RETURN (FALSE);
        END_IF;
      END_REPEAT;
    END_REPEAT;
    RETURN (TRUE);
END_FUNCTION; -- 10303-42: geometry_schema

Referenced By

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2010-01-12T10:42:25-02:00