FUNCTION constraints_rectangular_composite_surface

(* SCHEMA STRUCTURAL_FRAME_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 (('STRUCTURAL_FRAME_SCHEMA.B_SPLINE_SURFACE' IN TYPEOF
			 (s.segments[i][j].parent_surface)) OR
		 ('STRUCTURAL_FRAME_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;  (*  STEP Part 42 (unchanged in 2nd edition)  *)

Referenced By

Generated by STEP Tools® EXPRESS to HTML Converter
2023-03-25T00:11:39-04:00