|
(m : shell_based_wireframe_model) : BOOLEAN;
LOCAL
result : BOOLEAN := TRUE;
END_LOCAL;
REPEAT j := 1 TO SIZEOF(m.sbwm_boundary);
IF (NOT ('STRUCTURAL_FRAME_SCHEMA.WIRE_SHELL' IN TYPEOF(m.sbwm_boundary[j])) AND
(NOT ('STRUCTURAL_FRAME_SCHEMA.VERTEX_SHELL' IN TYPEOF(m.sbwm_boundary[j]))))
THEN
result := FALSE;
RETURN(result);
(* A wireframe model is composed of WIRE_ and VERTEX_SHELLs *)
END_IF;
END_REPEAT;
RETURN(result);
|
|