Navigation

constraints_geometry_shell_based_surface_model

EXPRESS specification:

FUNCTION constraints_geometry_shell_based_surface_model
(m: shell_based_surface_model): BOOLEAN;
   LOCAL
 result : BOOLEAN := TRUE;
   END_LOCAL;
 
   REPEAT j := 1 TO SIZEOF(m.sbsm_boundary);
 IF (NOT ('STRUCTURAL_FRAME_SCHEMA.OPEN_SHELL' IN TYPEOF(m.sbsm_boundary[j])) AND
(NOT ('STRUCTURAL_FRAME_SCHEMA.CLOSED_SHELL' IN TYPEOF(m.sbsm_boundary[j])))) 
 THEN
   result := FALSE;
   RETURN(result);
 (* A surface model is composed of OPEN_ and CLOSED_SHELLs. *)
 END_IF;
   END_REPEAT;
 
  RETURN(result);
END_FUNCTION;