FUNCTION all_mesh_vertices
(arg : array_based_unstructured_mesh_and_vertices) : BOOLEAN;
LOCAL vertex_set : SET OF vertex := []; cell : vertex_defined_cell; END_LOCAL; REPEAT i := 1 TO arg.cell_count; cell := arg.cells[i]; REPEAT j := 1 TO cell.vn_count; vertex_set := vertex_set + cell.vertices[j]; END_REPEAT; END_REPEAT; IF (SIZEOF(vertex_set) <> arg.index_count) THEN RETURN(FALSE); END_IF; REPEAT i := 1 TO arg.index_count; IF (NOT (arg.vertices[i] IN vertex_set) ) THEN RETURN(FALSE); END_IF; END_REPEAT; RETURN(TRUE); END_FUNCTION; -- all_mesh_vertices
|