void MESH_Renumber(Mesh_ptr mesh, int renum_type, MType mtype) {
MVertex_ptr mv, v0=NULL;
MEdge_ptr me, e0=NULL;
MFace_ptr mf, f0=NULL;
MRegion_ptr mr, r0=NULL;
int idx, idx2, idx3;
int i, j;
int done;
MAttrib_ptr vidatt;
List_ptr vlist;
double xyz[3];
double rval;
int bandwidth, maxbandwidth1, maxbandwidth2;
double avebandwidth1, avebandwidth2;
void *pval;
if (renum_type == 0) {
if (mtype == MVERTEX || mtype == MALLTYPE) {
int nv = 0;
idx = 0;
while ((mv = MESH_Next_Vertex(mesh,&idx)))
MV_Set_ID(mv,++nv);
}
if (mtype == MEDGE || mtype == MALLTYPE) {
int ne = 0;
idx = 0;
while ((me = MESH_Next_Edge(mesh,&idx)))
ME_Set_ID(me,++ne);
}
if (mtype == MFACE || mtype == MALLTYPE) {
int nf = 0;
idx = 0;
while ((mf = MESH_Next_Face(mesh,&idx)))
MF_Set_ID(mf,++nf);
}
if (mtype == MREGION || mtype == MALLTYPE) {
int nr = 0;
idx = 0;
while ((mr = MESH_Next_Region(mesh,&idx)))
MR_Set_ID(mr,++nr);
}
}
else if (renum_type == 1) {
double minx, miny, minz;
int minid, maxid;
int *nadj, *newmap, *adj, *offset, nconn;
int nalloc, depth, maxwidth;
#ifdef MSTK_USE_MARKERS
int mkid = MSTK_GetMarker();
#else
MAttrib_ptr mkatt = MAttrib_New(mesh, "mkatt", INT, MALLTYPE);
#endif
if (mtype == MVERTEX || mtype == MALLTYPE) {
int nv = MESH_Num_Vertices(mesh);
/* Compute a graph of vertex connections across elements (faces
for surface meshes, regions for solid meshes */
/* Start with the vertex in the lower leftmost corner */
minx = miny = minz = 1.0e+12;
v0 = NULL;
idx = 0;
while ((mv = MESH_Next_Vertex(mesh,&idx))) {
MV_Coords(mv,xyz);
if (xyz[0] <= minx && xyz[1] <= miny && xyz[2] <= minz) {
minx = xyz[0];
miny = xyz[1];
minz = xyz[2];
v0 = mv;
}
}
nadj = (int *) malloc(nv*sizeof(int));
nalloc = nv*5;
adj = (int *) malloc(nalloc*sizeof(int));
if (!MESH_Num_Regions(mesh)) {
int nentries = 0;
i = 0;
idx = 0;
while ((mv = MESH_Next_Vertex(mesh,&idx))) {
List_ptr vfaces, adjvlist;
MFace_ptr vf;
MVertex_ptr adjv;
adjvlist = List_New(0);
vfaces = MV_Faces(mv);
idx2 = 0;
while ((vf = List_Next_Entry(vfaces,&idx2))) {
List_ptr fverts = MF_Vertices(vf,1,0);
idx3 = 0;
while ((adjv = List_Next_Entry(fverts,&idx3))) {
if (adjv != mv) {
int vmarked;
#ifdef MSTK_USE_MARKERS
vmarked = MEnt_IsMarked(adjv,mkid);
#else
MEnt_Get_AttVal(adjv, mkatt, &vmarked, &rval, &pval);
#endif
if (!vmarked) {
List_Add(adjvlist,adjv);
#ifdef MSTK_USE_MARKERS
MEnt_Mark(adjv,mkid);
#else
MEnt_Set_AttVal(adjv, mkatt, 1, 0.0, NULL);
#endif
}
}
}
List_Delete(fverts);
}
List_Delete(vfaces);
#ifdef MSTK_USE_MARKERS
List_Unmark(adjvlist,mkid);
#endif
nadj[i] = List_Num_Entries(adjvlist);
if (nentries+nadj[i] > nalloc) {
nalloc *= 2;
adj = (int *) realloc(adj,nalloc*sizeof(int));
}
idx2 = 0;
while ((adjv = List_Next_Entry(adjvlist,&idx2)))
adj[nentries++] = MV_ID(adjv)-1;
List_Delete(adjvlist);
i++;
}
}
else {
int nentries = 0;
i = 0;
idx = 0;
while ((mv = MESH_Next_Vertex(mesh,&idx))) {
List_ptr vregions, adjvlist;
MRegion_ptr vr;
MVertex_ptr adjv;
adjvlist = List_New(0);
vregions = MV_Regions(mv);
idx2 = 0;
while ((vr = List_Next_Entry(vregions,&idx2))) {
List_ptr rverts = MR_Vertices(vr);
idx3 = 0;
while ((adjv = List_Next_Entry(rverts,&idx3))) {
if (adjv != mv) {
int vmarked;
#ifdef MSTK_USE_MARKERS
vmarked = MEnt_IsMarked(adjv,mkid);
#else
MEnt_Get_AttVal(adjv, mkatt, &vmarked, &rval, &pval);
#endif
if (!vmarked) {
List_Add(adjvlist,adjv);
#ifdef MSTK_USE_MARKERS
MEnt_Mark(adjv,mkid);
#else
MEnt_Set_AttVal(adjv, mkatt, 1, 0.0, NULL);
#endif
}
}
}
List_Delete(rverts);
}
List_Delete(vregions);
#ifdef MSTK_USE_MARKERS
List_Unmark(adjvlist,mkid);
#endif
nadj[i] = List_Num_Entries(adjvlist);
if (nentries+nadj[i] > nalloc) {
nalloc *= 2;
adj = (int *) realloc(adj,nalloc*sizeof(int));
}
idx2 = 0;
while ((adjv = List_Next_Entry(adjvlist,&idx2)))
adj[nentries++] = MV_ID(adjv)-1;
List_Delete(adjvlist);
i++;
}
}
/* Compute offsets into adj array */
offset = (int *) malloc(nv*sizeof(int));
offset[0] = 0;
for (i = 1; i < nv; i++)
offset[i] = offset[i-1] + nadj[i-1];
/* Compute maximum bandwidth before renumbering */
maxbandwidth1 = 0;
avebandwidth1 = 0;
for (i = 0; i < nv; i++) {
int off = offset[i];
int curid = i;
for (j = 0; j < nadj[i]; j++) {
int adjid = adj[off+j];
int diff = abs(adjid-curid);
maxbandwidth1 = (diff > maxbandwidth1) ? diff : maxbandwidth1;
avebandwidth1 += diff;
nconn++;
}
}
nconn = offset[nv-1]+nadj[nv-1];
avebandwidth1 /= nconn;
fprintf(stderr,
"Ave vertex ID difference on elements before renumbering: %-lf\n",
avebandwidth1);
fprintf(stderr,
"Max vertex ID difference on elements before renumbering: %-d\n",
maxbandwidth1);
fprintf(stderr,"\n");
newmap = (int *) malloc(nv*sizeof(int));
Graph_Renumber_GPS(nv, MV_ID(v0)-1, nadj, adj, newmap, &depth, &maxwidth);
/* Compute bandwidth after renumbering */
maxbandwidth2 = 0;
avebandwidth2 = 0;
for (i = 0; i < nv; i++) {
int off = offset[i];
int curid = newmap[i];
for (j = 0; j < nadj[i]; j++) {
int adjid = newmap[adj[off+j]];
int diff = abs(adjid-curid);
maxbandwidth2 = (diff > maxbandwidth2) ? diff : maxbandwidth2;
avebandwidth2 += diff;
nconn++;
}
}
nconn = offset[nv-1]+nadj[nv-1];
avebandwidth2 /= nconn;
if (maxbandwidth2 < maxbandwidth1 && avebandwidth2 < avebandwidth1) {
/* Renumber */
idx = 0; i = 0;
while ((mv = MESH_Next_Vertex(mesh,&idx))) {
MV_Set_ID(mv,newmap[i]+1);
i++;
}
fprintf(stderr,
"Ave vertex ID difference on elements after renumbering: %-lf\n",
avebandwidth2);
fprintf(stderr,
"Max vertex ID difference on elements after renumbering: %-d\n",
maxbandwidth2);
}
else {
nv = 0;
idx = 0;
while ((mv = MESH_Next_Vertex(mesh,&idx)))
MV_Set_ID(mv,++nv);
fprintf(stderr,"Bandwidth did not improve. Keeping old numbering with gaps eliminated\n");
}
fprintf(stderr,"\n\n\n");
free(nadj);
free(adj);
free(offset);
free(newmap);
}
/* Reorder edges according to a breadth first algorithm applied to
edges (differs from RCM in that it does not add adjacent nodes
in ascending order of their valence) */
if (mtype == MEDGE || mtype == MALLTYPE) {
int ne = MESH_Num_Edges(mesh);
MEdge_ptr ve;
List_ptr elist;
/************************* renumbering code ****************************/
ne = MESH_Num_Edges(mesh);
if (mtype == MALLTYPE) {
/* RCM algorithm already applied on the vertices. Use an edge
connected to the starting vertex as the first edge */
List_ptr vedges = MV_Edges(v0);
e0 = List_Entry(vedges,0);
List_Delete(vedges);
}
else {
/* Find the edge whose mid point is a minimum point */
minx = miny = minz = 1.0e+12;
e0 = NULL;
idx = 0;
while ((me = MESH_Next_Edge(mesh,&idx))) {
double exyz[2][3];
MV_Coords(ME_Vertex(me,0),exyz[0]);
MV_Coords(ME_Vertex(me,1),exyz[1]);
xyz[0] = (exyz[0][0]+exyz[1][0])/2.0;
xyz[1] = (exyz[0][1]+exyz[1][1])/2.0;
xyz[2] = (exyz[0][2]+exyz[1][2])/2.0;
if (xyz[0] < minx && xyz[1] < miny && xyz[2] < minz) {
minx = xyz[0];
miny = xyz[1];
minz = xyz[2];
e0 = me;
}
}
}
nadj = (int *) malloc(ne*sizeof(int));
nalloc = ne*5;
adj = (int *) malloc(nalloc*sizeof(int));
if (!MESH_Num_Regions(mesh)) {
int nentries = 0;
i = 0;
idx = 0;
while ((me = MESH_Next_Edge(mesh,&idx))) {
List_ptr efaces, adjelist;
MFace_ptr ef;
MEdge_ptr adje;
adjelist = List_New(0);
efaces = ME_Faces(me);
idx2 = 0;
while ((ef = List_Next_Entry(efaces,&idx2))) {
List_ptr fedges = MF_Edges(ef,1,0);
idx3 = 0;
while ((adje = List_Next_Entry(fedges,&idx3))) {
if (adje != me) {
int emarked;
#ifdef MSTK_USE_MARKERS
emarked = MEnt_IsMarked(adje,mkid);
#else
MEnt_Get_AttVal(adje, mkatt, &emarked, &rval, &pval);
#endif
if (!emarked) {
List_Add(adjelist,adje);
#ifdef MSTK_USE_MARKERS
MEnt_Mark(adje,mkid);
#else
MEnt_Set_AttVal(adje, mkatt, 1, 0.0, NULL);
#endif
}
}
}
List_Delete(fedges);
}
List_Delete(efaces);
#ifdef MSTK_USE_MARKERS
List_Unmark(adjelist,mkid);
#endif
nadj[i] = List_Num_Entries(adjelist);
if (nentries+nadj[i] > nalloc) {
nalloc *= 2;
adj = (int *) realloc(adj,nalloc*sizeof(int));
}
idx2 = 0;
while ((adje = List_Next_Entry(adjelist,&idx2)))
adj[nentries++] = ME_ID(adje)-1;
List_Delete(adjelist);
i++;
}
}
else {
int nentries = 0;
i = 0;
idx = 0;
while ((me = MESH_Next_Edge(mesh,&idx))) {
List_ptr eregions, adjelist;
MRegion_ptr er;
MEdge_ptr adje;
adjelist = List_New(0);
eregions = ME_Regions(me);
idx2 = 0;
while ((er = List_Next_Entry(eregions,&idx2))) {
List_ptr redges = MR_Edges(er);
idx3 = 0;
while ((adje = List_Next_Entry(redges,&idx3))) {
if (adje != me) {
int emarked;
#ifdef MSTK_USE_MARKERS
emarked = MEnt_IsMarked(adje,mkid);
#else
MEnt_Get_AttVal(adje, mkatt, &emarked, &rval, &pval);
#endif
if (!emarked) {
List_Add(adjelist,adje);
#ifdef MSTK_USE_MARKERS
MEnt_Mark(adje,mkid);
#else
MEnt_Set_AttVal(adje, mkatt, 1, 0.0, NULL);
#endif
}
}
}
List_Delete(redges);
}
List_Delete(eregions);
#ifdef MSTK_USE_MARKERS
List_Unmark(adjelist,mkid);
#endif
nadj[i] = List_Num_Entries(adjelist);
if (nentries+nadj[i] > nalloc) {
nalloc *= 2;
adj = (int *) realloc(adj,nalloc*sizeof(int));
}
idx2 = 0;
while ((adje = List_Next_Entry(adjelist,&idx2)))
adj[nentries++] = ME_ID(adje)-1;
List_Delete(adjelist);
i++;
}
}
/* Compute offsets into adj array */
offset = (int *) malloc(ne*sizeof(int));
offset[0] = 0;
for (i = 1; i < ne; i++)
offset[i] = offset[i-1] + nadj[i-1];
/* Compute maximum bandwidth before renumbering */
maxbandwidth1 = 0;
avebandwidth1 = 0;
for (i = 0; i < ne; i++) {
int off = offset[i];
int curid = i;
for (j = 0; j < nadj[i]; j++) {
int adjid = adj[off+j];
int diff = abs(adjid-curid);
maxbandwidth1 = (diff > maxbandwidth1) ? diff : maxbandwidth1;
avebandwidth1 += diff;
nconn++;
}
}
nconn = offset[ne-1]+nadj[ne-1];
avebandwidth1 /= nconn;
fprintf(stderr,
"Ave edge ID difference on elements before renumbering: %-lf\n",
avebandwidth1);
fprintf(stderr,
"Max edge ID difference on elements before renumbering: %-d\n",
maxbandwidth1);
fprintf(stderr,"\n");
/* Call Graph Renumbering algorithm */
newmap = (int *) malloc(ne*sizeof(int));
Graph_Renumber_GPS(ne, ME_ID(e0)-1, nadj, adj, newmap, &depth, &maxwidth);
/* Compute bandwidth after renumbering */
maxbandwidth2 = 0;
avebandwidth2 = 0;
for (i = 0; i < ne; i++) {
int off = offset[i];
int curid = newmap[i];
for (j = 0; j < nadj[i]; j++) {
int adjid = newmap[adj[off+j]];
int diff = abs(adjid-curid);
maxbandwidth2 = (diff > maxbandwidth2) ? diff : maxbandwidth2;
avebandwidth2 += diff;
nconn++;
}
}
nconn = offset[ne-1]+nadj[ne-1];
avebandwidth2 /= nconn;
if (maxbandwidth2 < maxbandwidth1 && avebandwidth2 < avebandwidth1) {
/* Renumber */
idx = 0; i = 0;
while ((me = MESH_Next_Edge(mesh,&idx))) {
ME_Set_ID(me,newmap[i]+1);
i++;
}
fprintf(stderr,
"Ave edge ID difference on elements after renumbering: %-lf\n",
avebandwidth2);
fprintf(stderr,
"Max edge ID difference on elements after renumbering: %-d\n",
maxbandwidth2);
}
else {
ne = 0;
idx = 0;
while ((me = MESH_Next_Edge(mesh,&idx)))
ME_Set_ID(me,++ne);
fprintf(stderr,"Bandwidth did not improve. Keeping old numbering with gaps eliminated\n");
}
fprintf(stderr,"\n\n\n");
free(nadj);
free(adj);
free(offset);
free(newmap);
}
/* Reorder faces according to a breadth first algorithm applied to
edges (differs from RCM in that it does not add adjacent graph nodes
in ascending order of their valence) */
if (mtype == MFACE || mtype == MALLTYPE) {
int nf = MESH_Num_Faces(mesh);
if (mtype == MALLTYPE) {
/* RCM algorithm already applied on the vertices. Use an edge
connected to the starting vertex as the first edge */
List_ptr vfaces = MV_Faces(v0);
f0 = List_Entry(vfaces,0);
List_Delete(vfaces);
}
else {
/* Find the face whose mid point is a minimum point */
minx = miny = minz = 1.0e+12;
f0 = NULL;
idx = 0;
while ((mf = MESH_Next_Face(mesh,&idx))) {
double fxyz[MAXPV2][3];
int nfv;
MF_Coords(mf,&nfv,fxyz);
xyz[0] = fxyz[0][0];
xyz[1] = fxyz[0][1];
xyz[2] = fxyz[0][2];
for (i = 1; i < nfv; i++) {
xyz[0] += fxyz[i][0];
xyz[1] += fxyz[i][1];
xyz[2] += fxyz[i][2];
}
xyz[0] /= nfv; xyz[1] /= nfv; xyz[2] /= nfv;
if (xyz[0] < minx && xyz[1] < miny && xyz[2] < minz) {
minx = xyz[0];
miny = xyz[1];
minz = xyz[2];
f0 = mf;
}
}
}
nadj = (int *) malloc(nf*sizeof(int));
nalloc = nf*5;
adj = (int *) malloc(nalloc*sizeof(int));
if (!MESH_Num_Regions(mesh)) {
int nentries = 0;
i = 0;
idx = 0;
while ((mf = MESH_Next_Face(mesh,&idx))) {
List_ptr vfaces, fverts, adjflist;
MFace_ptr vf, adjf;
MVertex_ptr fv;
adjflist = List_New(0);
fverts = MF_Vertices(mf,1,0);
idx2 = 0;
while ((fv = List_Next_Entry(fverts,&idx2))) {
List_ptr vfaces = MV_Faces(fv);
idx3 = 0;
while ((adjf = List_Next_Entry(vfaces,&idx3))) {
if (adjf != mf) {
int fmarked;
#ifdef MSTK_USE_MARKERS
fmarked = MEnt_IsMarked(adjf,mkid);
#else
MEnt_Get_AttVal(adjf, mkatt, &fmarked, &rval, &pval);
#endif
if (fmarked) {
List_Add(adjflist,adjf);
#ifdef MSTK_USE_MARKERS
MEnt_Mark(adjf,mkid);
#else
MEnt_Set_AttVal(adjf, mkatt, 1, 0.0, NULL);
#endif
}
}
}
List_Delete(vfaces);
}
List_Delete(fverts);
#ifdef MSTK_USE_MARKERS
List_Unmark(adjflist,mkid);
#endif
nadj[i] = List_Num_Entries(adjflist);
if (nentries+nadj[i] > nalloc) {
nalloc *= 2;
adj = (int *) realloc(adj,nalloc*sizeof(int));
}
idx2 = 0;
while ((adjf = List_Next_Entry(adjflist,&idx2)))
adj[nentries++] = MF_ID(adjf)-1;
List_Delete(adjflist);
i++;
}
}
else {
int nentries = 0;
i = 0;
idx = 0;
while ((mf = MESH_Next_Face(mesh,&idx))) {
List_ptr fregions, adjflist;
MRegion_ptr fr;
MFace_ptr adjf;
adjflist = List_New(0);
fregions = MF_Regions(mf);
idx2 = 0;
while ((fr = List_Next_Entry(fregions,&idx2))) {
List_ptr rfaces = MR_Faces(fr);
idx3 = 0;
while ((adjf = List_Next_Entry(rfaces,&idx3))) {
if (adjf != mf) {
int fmarked;
#ifdef MSTK_USE_MARKERS
fmarked = MEnt_IsMarked(adjf,mkid);
#else
MEnt_Get_AttVal(adjf, mkatt, &fmarked, &rval, &pval);
#endif
if (fmarked) {
List_Add(adjflist,adjf);
#ifdef MSTK_USE_MARKERS
MEnt_Mark(adjf,mkid);
#else
MEnt_Set_AttVal(adjf, mkatt, 1, 0.0, NULL);
#endif
}
}
}
List_Delete(rfaces);
}
List_Delete(fregions);
#ifdef MSTK_USE_MARKERS
List_Unmark(adjflist,mkid);
#endif
nadj[i] = List_Num_Entries(adjflist);
if (nentries+nadj[i] > nalloc) {
nalloc *= 2;
adj = (int *) realloc(adj,nalloc*sizeof(int));
}
idx2 = 0;
while ((adjf = List_Next_Entry(adjflist,&idx2)))
adj[nentries++] = MF_ID(adjf)-1;
List_Delete(adjflist);
i++;
}
}
/* Compute offsets into adj array */
offset = (int *) malloc(nf*sizeof(int));
offset[0] = 0;
for (i = 1; i < nf; i++)
offset[i] = offset[i-1] + nadj[i-1];
/* Compute maximum bandwidth before renumbering */
maxbandwidth1 = 0;
avebandwidth1 = 0;
for (i = 0; i < nf; i++) {
int off = offset[i];
int curid = i;
for (j = 0; j < nadj[i]; j++) {
int adjid = adj[off+j];
int diff = abs(adjid-curid);
maxbandwidth1 = (diff > maxbandwidth1) ? diff : maxbandwidth1;
avebandwidth1 += diff;
nconn++;
}
}
nconn = offset[nf-1]+nadj[nf-1];
avebandwidth1 /= nconn;
if (MESH_Num_Regions(mesh)) {
fprintf(stderr,
"Ave face ID difference on elements before renumbering: %-lf\n",
avebandwidth1);
fprintf(stderr,
"Max face ID difference on elements before renumbering: %-d\n",
maxbandwidth1);
}
else {
fprintf(stderr,
"Ave face ID difference before renumbering: %-lf\n",
avebandwidth1);
fprintf(stderr,
"Max face ID difference before renumbering: %-d\n",
maxbandwidth1);
}
fprintf(stderr,"\n");
/* Call Graph Renumbering algorithm */
newmap = (int *) malloc(nf*sizeof(int));
Graph_Renumber_GPS(nf, MF_ID(f0)-1, nadj, adj, newmap, &depth, &maxwidth);
/* Compute bandwidth after renumbering */
maxbandwidth2 = 0;
avebandwidth2 = 0;
for (i = 0; i < nf; i++) {
int off = offset[i];
int curid = newmap[i];
for (j = 0; j < nadj[i]; j++) {
int adjid = newmap[adj[off+j]];
int diff = abs(adjid-curid);
maxbandwidth2 = (diff > maxbandwidth2) ? diff : maxbandwidth2;
avebandwidth2 += diff;
nconn++;
}
}
nconn = offset[nf-1]+nadj[nf-1];
avebandwidth2 /= nconn;
if (maxbandwidth2 < maxbandwidth1 && avebandwidth2 < avebandwidth1) {
/* Renumber */
idx = 0; i = 0;
while ((mf = MESH_Next_Face(mesh,&idx))) {
MF_Set_ID(mf,newmap[i]+1);
i++;
}
if (MESH_Num_Regions(mesh)) {
fprintf(stderr,
"Ave face ID difference on elements after renumbering: %-lf\n",
avebandwidth2);
fprintf(stderr,
"Max face ID difference on elements after renumbering: %-d\n",
maxbandwidth2);
}
else {
fprintf(stderr,
"Ave face ID difference after renumbering: %-lf\n",
avebandwidth2);
fprintf(stderr,
"Max face ID difference after renumbering: %-d\n",
maxbandwidth2);
}
}
else {
nf = 0;
idx = 0;
while ((mf = MESH_Next_Face(mesh,&idx)))
MF_Set_ID(mf,++nf);
fprintf(stderr,"Bandwidth did not improve. Keeping old numbering with gaps eliminated\n");
}
fprintf(stderr,"\n\n\n");
free(nadj);
free(adj);
free(offset);
free(newmap);
}
if (mtype == MREGION || mtype == MALLTYPE) {
int nr = MESH_Num_Regions(mesh);
if (nr) {
if (mtype == MALLTYPE) {
/* Renumbering algorithm already applied on the vertices. Use
a region connected to the starting vertex as the first
region */
List_ptr vregions = MV_Regions(v0);
r0 = List_Entry(vregions,0);
List_Delete(vregions);
}
else {
/* Find the region whose center point is a minimum point */
minx = miny = minz = 1.0e+12;
r0 = NULL;
idx = 0;
while ((mr = MESH_Next_Region(mesh,&idx))) {
double rxyz[MAXPV3][3];
int nrv;
MR_Coords(mr,&nrv,rxyz);
xyz[0] = rxyz[0][0];
xyz[1] = rxyz[0][1];
xyz[2] = rxyz[0][2];
for (i = 1; i < nrv; i++) {
xyz[0] += rxyz[i][0];
xyz[1] += rxyz[i][1];
xyz[2] += rxyz[i][2];
}
xyz[0] /= nrv; xyz[1] /= nrv; xyz[2] /= nrv;
if (xyz[0] < minx && xyz[1] < miny && xyz[2] < minz) {
minx = xyz[0];
miny = xyz[1];
minz = xyz[2];
r0 = mr;
}
}
}
nadj = (int *) malloc(nr*sizeof(int));
nalloc = nr*5;
adj = (int *) malloc(nalloc*sizeof(int));
int nentries = 0;
i = 0;
idx = 0;
while ((mr = MESH_Next_Region(mesh,&idx))) {
List_ptr vregions, rverts, adjrlist;
MRegion_ptr vr, adjr;
MVertex_ptr rv;
adjrlist = List_New(0);
rverts = MR_Vertices(mr);
idx2 = 0;
while ((rv = List_Next_Entry(rverts,&idx2))) {
List_ptr vregions = MV_Regions(rv);
idx3 = 0;
while ((adjr = List_Next_Entry(vregions,&idx3))) {
if (adjr != mr) {
int rmarked;
#ifdef MSTK_USE_MARKERS
rmarked = MEnt_IsMarked(adjr,mkid);
#else
MEnt_Get_AttVal(adjr, mkatt, &rmarked, &rval, &pval);
#endif
List_Add(adjrlist,adjr);
#ifdef MSTK_USE_MARKERS
MEnt_Mark(adjr,mkid);
#else
MEnt_Set_AttVal(adjr, mkatt, 1, 0.0, NULL);
#endif
}
}
List_Delete(vregions);
}
List_Delete(rverts);
#ifdef MSTK_USE_MARKERS
List_Unmark(adjrlist,mkid);
#endif
nadj[i] = List_Num_Entries(adjrlist);
if (nentries+nadj[i] > nalloc) {
nalloc *= 2;
adj = (int *) realloc(adj,nalloc*sizeof(int));
}
idx2 = 0;
while ((adjr = List_Next_Entry(adjrlist,&idx2)))
adj[nentries++] = MR_ID(adjr)-1;
List_Delete(adjrlist);
i++;
}
/* Compute offsets into adj array */
offset = (int *) malloc(nr*sizeof(int));
offset[0] = 0;
for (i = 1; i < nr; i++)
offset[i] = offset[i-1] + nadj[i-1];
/* Compute maximum bandwidth before renumbering */
maxbandwidth1 = 0;
avebandwidth1 = 0;
for (i = 0; i < nr; i++) {
int off = offset[i];
int curid = i;
for (j = 0; j < nadj[i]; j++) {
int adjid = adj[off+j];
int diff = abs(adjid-curid);
maxbandwidth1 = (diff > maxbandwidth1) ? diff : maxbandwidth1;
avebandwidth1 += diff;
nconn++;
}
}
nconn = offset[nr-1]+nadj[nr-1];
avebandwidth1 /= nconn;
fprintf(stderr,
"Ave region ID difference before renumbering: %-lf\n",
avebandwidth1);
fprintf(stderr,
"Max region ID difference before renumbering: %-d\n",
maxbandwidth1);
fprintf(stderr,"\n");
/* Call Graph Renumbering algorithm */
newmap = (int *) malloc(nr*sizeof(int));
Graph_Renumber_GPS(nr, MR_ID(r0)-1, nadj, adj, newmap, &depth, &maxwidth);
/* Compute bandwidth after renumbering */
maxbandwidth2 = 0;
avebandwidth2 = 0;
for (i = 0; i < nr; i++) {
int off = offset[i];
int curid = newmap[i];
for (j = 0; j < nadj[i]; j++) {
int adjid = newmap[adj[off+j]];
int diff = abs(adjid-curid);
maxbandwidth2 = (diff > maxbandwidth2) ? diff : maxbandwidth2;
avebandwidth2 += diff;
nconn++;
}
}
nconn = offset[nr-1]+nadj[nr-1];
avebandwidth2 /= nconn;
if (maxbandwidth2 < maxbandwidth1 && avebandwidth2 < avebandwidth1) {
/* Renumber */
idx = 0; i = 0;
while ((mr = MESH_Next_Region(mesh,&idx))) {
MR_Set_ID(mr,newmap[i]+1);
i++;
}
fprintf(stderr,
"Ave region ID difference after renumbering: %-lf\n",
avebandwidth2);
fprintf(stderr,
"Max region ID difference after renumbering: %-d\n",
maxbandwidth2);
}
else {
nr = 0;
idx = 0;
while ((mr = MESH_Next_Region(mesh,&idx)))
MR_Set_ID(mr,++nr);
fprintf(stderr,"Bandwidth did not improve. Keeping old numbering with gaps eliminated\n");
}
fprintf(stderr,"\n\n\n");
free(nadj);
free(adj);
free(offset);
free(newmap);
}
}
#ifdef MSTK_USE_MARKERS
MSTK_FreeMarker(mkid);
#endif
}
vidatt = MAttrib_New(mesh,"vidrcm",INT,MVERTEX);
idx = 0;
while ((mv = MESH_Next_Vertex(mesh,&idx))) {
MEnt_Set_AttVal(mv,vidatt,MV_ID(mv),0.0,NULL);
}
/* We have to reset the max IDs stored in the mesh so that we can correctly
assign IDs to new entities */
MESH_Reset_Cached_MaxIDs(mesh);
return;
}
int MESH_BuildEdgeClassfn(Mesh_ptr mesh, int use_geometry) {
int i, j, k, idx, idx2, fnd, fnd2, geid, geid2, gdim;
int ngedges, ngealloc, ngef, max_loc_gfids, *loc_gfids;
int max_gedge_id;
int nve, nbe, nef, nsub, *geids, **gefaceids;
double PI=3.141592, cosang, COSSHARPANG;
MVertex_ptr ev[2];
MEdge_ptr edge, subedge, adjedge;
MFace_ptr eface;
List_ptr efaces, vedges, vbedges, geedges, subedges;
double rval;
void *pval;
COSSHARPANG = cos(5*PI/6); /* 165 degrees */
/* Verify that mesh edges on the boundary have classification
information; if not, assign all edges to the same model edge */
ngedges = 0; ngealloc = 10;
geids = (int *) malloc(ngealloc*sizeof(int)); /* model edge ids */
/* Number of model faces connected to edge followed by model face ids */
gefaceids = (int **) malloc(ngealloc*sizeof(int *));
/* Take stock of existing model edge information */
max_gedge_id = 0;
idx = 0;
while ((edge = MESH_Next_Edge(mesh,&idx))) {
gdim = ME_GEntDim(edge);
if (gdim != 1)
continue;
geid = ME_GEntID(edge);
if (geid) {
/* Has this model edge been encountered? If not, add it to list
of model edges */
for (i = 0, fnd = 0; i < ngedges; i++)
if (geids[i] == geid) {
fnd = 1;
break;
}
if (!fnd) {
if (geid > max_gedge_id)
max_gedge_id = geid;
if (ngealloc == ngedges) {
ngealloc *= 2;
geids = (int *) realloc(geids,ngealloc*sizeof(int));
gefaceids = (int **)realloc(gefaceids,ngealloc*sizeof(int *));
}
geids[ngedges] = geid;
efaces = ME_Faces(edge);
nef = List_Num_Entries(efaces);
gefaceids[ngedges] = (int *) malloc((1+nef)*sizeof(int));
ngef = 0;
for (i = 0; i < nef; i++) {
eface = List_Entry(efaces,i);
if (MF_GEntDim(eface) == 2) {
gefaceids[ngedges][1+ngef] = MF_GEntID(eface);
ngef++;
}
}
gefaceids[ngedges][0] = ngef;
ngedges++;
List_Delete(efaces);
}
}
}
/* Build new model edge information based on adjacent model region info */
/* NOTE: The following cases involve some repetition and can be
"cleverly" folded into a shorter piece of code, but then the
method by which the individual cases are handled gets a littled
obscured. So leave as is */
max_loc_gfids = 10;
loc_gfids = (int *) malloc(max_loc_gfids*sizeof(int));
idx = 0;
while ((edge = MESH_Next_Edge(mesh,&idx))) {
gdim = ME_GEntDim(edge);
geid = ME_GEntID(edge);
/* Edge has no classification? Assign classification info */
/* Edge classified as face or interior edge? Verify */
efaces = ME_Faces(edge);
nef = efaces ? List_Num_Entries(efaces) : 0;
if (!nef) {
/* Isolated edge (must be on model edge). Did we encounter such
an edge before? */
ME_Set_GEntDim(edge,1);
for (i = 0, fnd = 0; i < ngedges; i++) {
if (gefaceids[i][0] == 0) {
fnd = 1;
break;
}
}
if (fnd)
ME_Set_GEntID(edge,geids[i]);
else {
max_gedge_id++;
ME_Set_GEntID(edge,max_gedge_id);
if (ngealloc == ngedges) {
ngealloc *= 2;
geids = (int *) realloc(geids,ngealloc*sizeof(int));
gefaceids = (int **) realloc(gefaceids,ngealloc*sizeof(int *));
}
geids[ngedges] = max_gedge_id;
gefaceids[ngedges] = malloc(1*sizeof(int *));
gefaceids[ngedges][0] = 0;
}
continue; /* nothing else to do */
}
if (nef > max_loc_gfids) {
loc_gfids = (int *) realloc(loc_gfids,nef*sizeof(int));
max_loc_gfids = nef;
}
ngef = 0;
for (i = 0; i < nef; i++) {
eface = List_Entry(efaces,i);
if (MF_GEntDim(eface) == 2) {
loc_gfids[ngef] = MF_GEntID(eface);
ngef++;
}
}
switch (ngef) {
case 0:
/* Interior edge - we took care of the case of the isolated edge b4 */
ME_Set_GEntDim(edge,3);
eface = List_Entry(efaces,0);
ME_Set_GEntID(edge,MF_GEntID(eface));
break;
case 2:
if (loc_gfids[0] == loc_gfids[1]) {
if (gdim == 1) {
/* Looks like during face classification, this was tagged as
being a sharp edge. This means that it is a sharp edge on
the interior of a model face (same model face on both
sides) */
ME_Set_GEntDim(edge,1);
/* Check if such an edge was encountered before */
for (i = 0, fnd = 0; i < ngedges; i++) {
if (gefaceids[i][0] != 2)
continue;
if ((loc_gfids[0] == gefaceids[i][0]) &&
(gefaceids[i][0] == gefaceids[i][1])) {
fnd = 1;
break;
}
}
if (fnd)
ME_Set_GEntID(edge,geids[i]);
else {
max_gedge_id++;
ME_Set_GEntID(edge,max_gedge_id);
if (ngealloc == ngedges) {
ngealloc *= 2;
geids = (int *) realloc(geids,ngealloc*sizeof(int));
gefaceids = (int **) realloc(gefaceids,ngealloc*sizeof(int *));
}
geids[ngedges] = max_gedge_id;
gefaceids[ngedges] = malloc((1+ngef)*sizeof(int *));
gefaceids[ngedges][0] = ngef;
for (i = 0; i < ngef; i++)
gefaceids[ngedges][1+i] = loc_gfids[i];
ngedges++;
}
}
else {
/* edge must be on model face */
ME_Set_GEntDim(edge,2);
ME_Set_GEntID(edge,loc_gfids[0]);
}
}
else {
/* edge is on model edge between two faces */
ME_Set_GEntDim(edge,1);
/* Check if such an edge was encountered before */
for (i = 0, fnd = 0; i < ngedges; i++) {
if (gefaceids[i][0] != 2)
continue;
if (((loc_gfids[0] == gefaceids[i][1]) &&
(loc_gfids[1] == gefaceids[i][2])) ||
((loc_gfids[1] == gefaceids[i][1]) &&
(loc_gfids[0] == gefaceids[i][2]))) {
fnd = 1;
break;
}
}
if (fnd)
ME_Set_GEntID(edge,geids[i]);
else {
max_gedge_id++;
ME_Set_GEntID(edge,max_gedge_id);
if (ngealloc == ngedges) {
ngealloc *= 2;
geids = (int *) realloc(geids,ngealloc*sizeof(int));
gefaceids = (int **) realloc(gefaceids,ngealloc*sizeof(int *));
}
geids[ngedges] = max_gedge_id;
gefaceids[ngedges] = malloc((1+ngef)*sizeof(int *));
gefaceids[ngedges][0] = ngef;
for (i = 0; i < ngef; i++)
gefaceids[ngedges][1+i] = loc_gfids[i];
ngedges++;
}
}
break;
default:
/* if ngef is 1, edge is on model edge of non-manifold model
face
if ngef is >= 3, edge is on model edge at junction of
many model faces
*/
ME_Set_GEntDim(edge,1);
/* Check if a previously encountered model edge has this
combination of connected faces */
for (i = 0, fnd = 0; i < ngedges; i++) {
if (ngef != gefaceids[i][0])
continue; /* number of connected model faces is different */
/* see if all the model faces of the current edge can be found
in the i'th model edge's faces */
fnd2 = 0;
for (j = 0; j < ngef; j++) {
fnd2 = 0;
for (k = 0; k < ngef; k++) {
if (loc_gfids[j] == gefaceids[i][1+k]) {
fnd2 = 1;
break;
}
}
/* Did not find loc_gfid[j] in the list gefaceids[i] */
if (!fnd2)
break;
}
/* if a model face connected to this edge was not found in the
model face list of the previously processed, then the two model
edges are obviously different */
if (!fnd2)
continue;
else {
fnd = 1;
break;
}
}
if (fnd)
ME_Set_GEntID(edge,geids[i]);
else {
max_gedge_id++;
ME_Set_GEntID(edge,max_gedge_id);
if (ngealloc == ngedges) {
ngealloc *= 2;
geids = (int *) realloc(geids,ngealloc*sizeof(int));
gefaceids = (int **) realloc(gefaceids,ngealloc*sizeof(int *));
}
geids[ngedges] = max_gedge_id;
gefaceids[ngedges] = malloc((1+ngef)*sizeof(int *));
gefaceids[ngedges][0] = ngef;
for (i = 0; i < ngef; i++)
gefaceids[ngedges][1+i] = loc_gfids[i];
ngedges++;
}
break;
}
List_Delete(efaces); /* needed efaces in case 0 */
}
free(loc_gfids);
if (use_geometry == 1) {
#ifdef MSTK_USE_MARKERS
int processedmk = MSTK_GetMarker();
int submk = MSTK_GetMarker();
#else
MAttrib_ptr processedatt = MAttrib_New(mesh, "processed", INT, MEDGE);
MAttrib_ptr sublistatt = MAttrib_New(mesh, "sublist", INT, MEDGE);
#endif
/* Now assign model edge IDs based on whether a sharp set of edges
enclose a set of edges */
for (i = 0; i < ngedges; i++) {
/* Find all mesh edges with this model edge id */
geedges = List_New(10);
idx = 0;
while ((edge = MESH_Next_Edge(mesh,&idx))) {
if (ME_GEntDim(edge) == 1 && ME_GEntID(edge) == geids[i])
List_Add(geedges,edge);
}
/* Process edges of this list and subdivide them into subedges */
/* The way we do that is
1) we put an unprocessed edge from the original list in a subedge
list
2) we then add its neighboring edges to subedge list if they are
of the same color (same model edge id) and do not have a sharp
edge separating them from the current edge
3) we then process the next edge in the subedge list
4) we are done if we cannot find any more neighbors of edges in
the subedge list to add to the subedge list
5) we then repeat steps 1 through 4 until we are left with no
more edges to process from the original list
*/
nsub = 0;
idx = 0;
while ((edge = List_Next_Entry(geedges,&idx))) {
int emarked;
#ifdef MSTK_USE_MARKERS
emarked = MEnt_IsMarked(edge,processedmk);
#else
MEnt_Get_AttVal(edge, processedatt, &emarked, &rval, &pval);
#endif
if (emarked)
continue;
/* Found a edge in geedges that has not been processed */
#ifdef MSTK_USE_MARKERS
MEnt_Mark(edge,processedmk);
#else
MEnt_Set_AttVal(edge, processedatt, 1, 0.0, NULL);
#endif
subedges = List_New(10);
List_Add(subedges,edge);
#ifdef MSTK_USE_MARKERS
MEnt_Mark(edge,submk);
#else
MEnt_Set_AttVal(edge, sublistatt, 1, 0.0, NULL);
#endif
idx2 = 0;
while ((subedge = List_Next_Entry(subedges,&idx2))) {
geid = ME_GEntID(subedge);
ev[0] = ME_Vertex(subedge,0);
ev[1] = ME_Vertex(subedge,1);
for (j = 0; j < 2; j++) {
vedges = MV_Edges(ev[j]);
nve = List_Num_Entries(vedges);
vbedges = List_New(nve); /* list of boundary edges cnctd 2 vert */
for (k = 0; k < nve; k++) {
adjedge = List_Entry(vedges,k);
if (ME_GEntDim(adjedge) == 1)
List_Add(vbedges,adjedge);
}
nbe = List_Num_Entries(vbedges);
if (nbe == 2) {
/* we might be on a model vertex or on a model edge */
adjedge = List_Entry(vbedges,0);
if (adjedge == subedge)
adjedge = List_Entry(vbedges,1);
geid2 = ME_GEntID(adjedge);
if (geid == geid2) {
/* The two edges are of the same ID. If the angle
between them is not sharp they can be classified as
being on the same subedge */
cosang = MEs_Angle(subedge,adjedge);
if (cosang <= COSSHARPANG) {
/* Add edge2 to subedge list unless its already there */
int adjemarked;
#ifdef MSTK_USE_MARKERS
adjemarked = MEnt_IsMarked(adjedge,submk);
#else
MEnt_Get_AttVal(adjedge, sublistatt, &adjemarked, &rval, &pval);
#endif
if (!adjemarked) {
List_Add(subedges,adjedge);
#ifdef MSTK_USE_MARKERS
MEnt_Mark(adjedge,submk);
#else
MEnt_Set_AttVal(adjedge, sublistatt, 1, 0.0, NULL);
#endif
}
}
else {
/* The two edges make a very sharp angle. We will
consider the edge b/w them to be a model vertex */
/* Tag the edge as being on a model vertex (we don't
know the model vertex ID as yet) and continue */
MV_Set_GEntDim(ev[j],0);
MV_Set_GEntID(ev[j],0);
}
}
else {
/* we reached a model vertex */
/* Tag the edge as being on a model vertex (we don't know
the model vertex ID as yet) and continue */
MV_Set_GEntDim(ev[j],0);
MV_Set_GEntID(ev[j],0);
}
}
else {
/* we reached a a model vertex */
/* Tag the edge as being on a model vertex (we don't know
the model vertex ID as yet) and continue */
ME_Set_GEntDim(ev[j],0);
ME_Set_GEntID(ev[j],0);
}
List_Delete(vedges);
List_Delete(vbedges);
}
/* Finished processing all neighbors of the edge */
}
/* Now we have a list of edges which we believe constitutes a
model edge by itself. If this is the first subedge (which
means it could also be the entire model edge originally
considered), leave the model edge tag as it is. If not,
assign the edges in the subedge a new model edge ID */
if (nsub != 0) {
max_gedge_id++;
idx2 = 0;
while ((subedge = List_Next_Entry(subedges,&idx2)))
ME_Set_GEntID(subedge,max_gedge_id);
}
nsub++;
/* Done with this subedge */
#ifdef MSTK_USE_MARKERS
idx2 = 0;
while ((subedge = List_Next_Entry(subedges,&idx2))) {
MEnt_Mark(subedge,processedmk);
MEnt_Unmark(subedge,submk);
}
#else
idx2 = 0;
while ((subedge = List_Next_Entry(subedges,&idx2))) {
MEnt_Set_AttVal(subedge, processedatt, 1, 0.0, NULL);
MEnt_Set_AttVal(subedge, sublistatt, 0, 0.0, NULL);
}
#endif
List_Delete(subedges);
}
#ifdef MSTK_USE_MARKERS
List_Unmark(geedges,processedmk);
#else
idx2 = 0;
while ((edge = List_Next_Entry(geedges, &idx2)))
MEnt_Set_AttVal(edge, processedatt, 1, 0.0, NULL);
#endif
List_Delete(geedges);
}
#ifdef MSTK_USE_MARKERS
MSTK_FreeMarker(processedmk);
MSTK_FreeMarker(submk);
#else
MAttrib_Delete(processedatt);
MAttrib_Delete(sublistatt);
#endif
} /* if use_geometry == 1 */
free(geids);
for (i = 0; i < ngedges; i++)
free(gefaceids[i]);
free(gefaceids);
return 1;
}
int MESH_BuildFaceClassfn(Mesh_ptr mesh, int use_geometry) {
int i, j, k, idx, idx2, fnd, gfid, gfid2, gdim;
int ngfaces, ngfalloc, grid0, grid1;
int max_gface_id, processedmk, submk;
int nfe, nef, nbf, nfr, nsub, *gfids, (*gfregids)[2];
double PI=3.141592, ang, COSSHARPANG;
MEdge_ptr edge;
MFace_ptr face, subface, adjface;
MRegion_ptr freg0, freg1;
List_ptr fregs, fedges, efaces, ebfaces, gffaces, subfaces;
COSSHARPANG = cos(9*PI/12); /* 135 degrees */
/* Verify that mesh faces on the boundary have classification
information; if not, assign all faces to the same model faces */
ngfaces = 0; ngfalloc = 10;
gfids = (int *) malloc(ngfalloc*sizeof(int));
gfregids = (int (*)[2]) malloc(ngfalloc*sizeof(int [2]));
/* Take stock of existing model face information */
max_gface_id = 0;
idx = 0;
while ((face = MESH_Next_Face(mesh,&idx))) {
gdim = MF_GEntDim(face);
if (gdim != 2)
continue;
gfid = MF_GEntID(face);
if (gfid) {
/* Has this model face been encountered? If not, add it to list
of model faces */
for (i = 0, fnd = 0; i < ngfaces; i++)
if (gfids[i] == gfid) {
fnd = 1;
break;
}
if (!fnd) {
if (gfid > max_gface_id)
max_gface_id = gfid;
if (ngfalloc == ngfaces) {
ngfalloc *= 2;
gfids = (int *) realloc(gfids,ngfalloc*sizeof(int));
gfregids = (int (*)[2])realloc(gfregids,ngfalloc*sizeof(int [2]));
}
gfids[ngfaces] = gfid;
gfregids[ngfaces][0] = gfregids[ngfaces][1] = 0;
fregs = MF_Regions(face);
if (fregs) {
nfr = List_Num_Entries(fregs);
freg0 = List_Entry(fregs,0);
gfregids[ngfaces][0] = MR_GEntID(freg0); /* NOTE 1 (see EOF) */
if (nfr == 2) {
freg1 = List_Entry(fregs,1);
gfregids[ngfaces][1] = MR_GEntID(freg1);
}
List_Delete(fregs);
}
ngfaces++;
}
}
}
/* Build new model face information based on adjacent model region info */
idx = 0;
while ((face = MESH_Next_Face(mesh,&idx))) {
gdim = MF_GEntDim(face);
gfid = MF_GEntID(face);
/* Face has no classification? Assign classification info */
/* Face classified as interior face? Verify */
freg0 = freg1 = NULL;
grid0 = grid1 = 0;
fregs = MF_Regions(face);
if (fregs) {
nfr = List_Num_Entries(fregs);
freg0 = List_Entry(fregs,0);
grid0 = MR_GEntID(freg0);
if (nfr == 2) {
freg1 = List_Entry(fregs,1);
grid1 = MR_GEntID(freg1);
}
List_Delete(fregs);
}
else
nfr = 0;
if (nfr == 2 && (grid0 == grid1)) {
/* Interior face */
MF_Set_GEntDim(face,3);
MF_Set_GEntID(face,grid0);
}
else {
/* Boundary face */
if (gdim > 2 || (gdim == 2 && gfid <= 0)) {
MF_Set_GEntDim(face,2);
/* Check if this type of face with these adjacent regions has
been encountered before; if it has, we just use the
existing model face id */
for (i = 0, fnd = 0; i < ngfaces; i++)
if ((gfregids[i][0] == grid0 && gfregids[i][1] == grid1) ||
(gfregids[i][0] == grid1 && gfregids[i][1] == grid0)) {
fnd = 1;
break;
}
if (fnd)
MF_Set_GEntID(face,gfids[i]);
else {
max_gface_id++;
MF_Set_GEntID(face,max_gface_id);
if (ngfalloc == ngfaces) {
ngfalloc *= 2;
gfids = (int *) realloc(gfids,ngfalloc*sizeof(int));
gfregids = (int (*)[2]) realloc(gfregids,ngfalloc*sizeof(int [2]));
}
gfids[ngfaces] = max_gface_id;
gfregids[ngfaces][0] = grid0;
gfregids[ngfaces][1] = grid1;
ngfaces++;
}
}
}
}
if (use_geometry == 1) {
/* Now assign model face IDs based on whether a sharp set of edges
enclose a set of faces */
for (i = 0; i < ngfaces; i++) {
/* Find all mesh faces with this model face id */
gffaces = List_New(10);
idx = 0;
while ((face = MESH_Next_Face(mesh,&idx))) {
if (MF_GEntDim(face) == 2 && MF_GEntID(face) == gfids[i])
List_Add(gffaces,face);
}
/* Process faces of this list and subdivide them into subfaces */
/* The way we do that is
1) we put an unprocessed face from the original list in a subface
list
2) we then add its neighboring faces to subface list if they are
of the same color (same model face id) and do not have a sharp
edge separating them from the current face
3) we then process the next face in the subface list
4) we are done if we cannot find any more neighbors of faces in
the subface list to add to the subface list
5) we then repeat steps 1 through 4 until we are left with no
more faces to process from the original list
*/
processedmk = MSTK_GetMarker();
nsub = 0;
idx = 0;
while ((face = List_Next_Entry(gffaces,&idx))) {
if (MEnt_IsMarked(face,processedmk))
continue;
/* Found a face in gffaces that has not been processed */
MEnt_Mark(face,processedmk);
submk = MSTK_GetMarker();
subfaces = List_New(10);
List_Add(subfaces,face);
MEnt_Mark(face,submk);
idx2 = 0;
while ((subface = List_Next_Entry(subfaces,&idx2))) {
gfid = MF_GEntID(subface);
fedges = MF_Edges(subface,1,0);
nfe = List_Num_Entries(fedges);
for (j = 0; j < nfe; j++) {
edge = List_Entry(fedges,j);
efaces = ME_Faces(edge);
nef = List_Num_Entries(efaces);
ebfaces = List_New(nef); /* list of boundary faces cnctd 2 edge */
for (k = 0; k < nef; k++) {
adjface = List_Entry(efaces,k);
if (MF_GEntDim(adjface) == 2)
List_Add(ebfaces,adjface);
}
List_Delete(efaces);
nbf = List_Num_Entries(ebfaces);
if (nbf == 2) {
/* we might be on a model face or on a model edge */
adjface = List_Entry(ebfaces,0);
if (adjface == subface)
adjface = List_Entry(ebfaces,1);
gfid2 = MF_GEntID(adjface);
if (gfid == gfid2) {
/* The two faces are of the same ID. If the angle
between them is not sharp they can be classified as
being on the same subface */
ang = MFs_DihedralAngle(subface,adjface,edge);
if (ang <= COSSHARPANG) {
/* Add face2 to subface list unless its already there */
if (!MEnt_IsMarked(adjface,submk)) {
List_Add(subfaces,adjface);
MEnt_Mark(adjface,submk);
}
}
else {
/* The two faces make a very sharp angle. We will
consider the edge b/w them to be a model edge */
/* Tag the edge as being on a model edge (we don't
know the model edge ID as yet) and continue */
ME_Set_GEntDim(edge,1);
ME_Set_GEntID(edge,0);
}
}
else {
/* we reached a model edge */
/* Tag the edge as being on a model edge (we don't know
the model edge ID as yet) and continue */
ME_Set_GEntDim(edge,1);
ME_Set_GEntID(edge,0);
}
}
else {
/* we reached a a model edge */
/* Tag the edge as being on a model edge (we don't know
the model edge ID as yet) and continue */
ME_Set_GEntDim(edge,1);
ME_Set_GEntID(edge,0);
}
List_Delete(ebfaces);
}
/* Finished processing all neighbors of the face */
List_Delete(fedges);
}
/* Now we have a list of faces which we believe constitutes a
model face by itself. If this is the first subface (which
means it could also be the entire model face originally
considered), leave the model face tag as it is. If not,
assign the faces in the subface a new model face ID */
if (nsub != 0) {
max_gface_id++;
idx2 = 0;
while ((subface = List_Next_Entry(subfaces,&idx2)))
MF_Set_GEntID(subface,max_gface_id);
}
nsub++;
/* Done with this subface */
idx2 = 0;
while ((subface = List_Next_Entry(subfaces,&idx2))) {
MEnt_Mark(subface,processedmk);
MEnt_Unmark(subface,submk);
}
MSTK_FreeMarker(submk);
List_Delete(subfaces);
}
List_Unmark(gffaces,processedmk);
MSTK_FreeMarker(processedmk);
List_Delete(gffaces);
}
} /* if use_geometry == 1 */
free(gfids);
free(gfregids);
return 1;
}
List_ptr MR_Vertices_FNR3R4(MRegion_ptr r) {
int i, j, n, ne, nf, mkr, found, idx;
int diradj0=0, diropp=0, fdir, fdir0, fdir1, allquad, alltri;
int nquads, ntris, itri0, itri1, iquad0;
MFace_ptr face=NULL, face0=NULL, fadj0=NULL, fopp=NULL;
MFace_ptr quad0=NULL, tri0=NULL, tri1=NULL;
MEdge_ptr edge, fedge00, upedge;
MVertex_ptr vert, rv0, rvopp0=NULL;
List_ptr rvertices, fverts, fedges0, adjfedges;
MRegion_Adj_FN *adj;
adj = (MRegion_Adj_FN *) r->adj;
nf = List_Num_Entries(adj->rfaces);
switch (r->mrtype) {
case TET:
/* Add vertices of first face to list of region vertices */
face0 = List_Entry(adj->rfaces,0); /* first face */
fdir0 = MR_FaceDir_i(r,0); /* Sense in which face is used in region */
rvertices = MF_Vertices(face0,!fdir0,0);
face = List_Entry(adj->rfaces,1);
fverts = MF_Vertices(face,1,0);
for (i = 0; i < 3; i++) {
vert = List_Entry(fverts,i);
if (!List_Contains(rvertices,vert)) {
List_Add(rvertices,vert);
break;
}
}
List_Delete(fverts);
return rvertices;
break;
case PRISM:
tri0 = NULL; itri0 = -1;
tri1 = NULL; itri1 = -1;
for (i = 0; i < nf; i++) {
face = List_Entry(adj->rfaces,i);
ne = MF_Num_Edges(face);
if (ne == 3) {
if (!tri0) {
tri0 = face;
itri0 = i;
}
else {
tri1 = face;
itri1 = i;
}
}
}
fdir0 = MR_FaceDir_i(r,itri0); /* Sense in which face is used in region */
rvertices = MF_Vertices(tri0,!fdir0,0);
/* find the vertical edge between vertex 0 of bottom triangle and
top triangle */
fdir1 = MR_FaceDir_i(r,itri1);
fverts = MF_Vertices(tri1,fdir1,0);
rv0 = List_Entry(rvertices,0); /* first vtx of region & bottom face */
for (i = 0; i < 3; i++) {
vert = List_Entry(fverts,i);
if (MVs_CommonEdge(rv0,vert)) {
List_Add(rvertices,vert);
List_Add(rvertices,List_Entry(fverts,(i+1)%3));
List_Add(rvertices,List_Entry(fverts,(i+2)%3));
break;
}
}
List_Delete(fverts);
return rvertices;
break;
case PYRAMID:
quad0 = NULL; iquad0 = -1;
tri0 = NULL; itri0 = -1;
for (i = 0; i < nf; i++) {
face = List_Entry(adj->rfaces,i);
ne = MF_Num_Edges(face);
if (ne == 4) {
if (!quad0) {
quad0 = face;
iquad0 = i;
}
}
else if (ne == 3) {
if (!tri0) {
tri0 = face;
itri0 = i;
}
}
}
fdir0 = MR_FaceDir_i(r,iquad0); /* Sense in which face is used in region */
rvertices = MF_Vertices(quad0,!fdir0,0);
fverts = MF_Vertices(tri0,1,0);
for (i = 0; i < 3; i++) {
vert = List_Entry(fverts,i);
if (!List_Contains(rvertices,vert)) { /* found apex vtx of pyramid */
List_Add(rvertices,vert);
break;
}
}
List_Delete(fverts);
return rvertices;
break;
case HEX:
face0 = List_Entry(adj->rfaces,0); /* face 0 */
fdir0 = MR_FaceDir_i(r,0); /* dir of face w.r.t. region */
/* Add vertices of first face */
rvertices = MF_Vertices(face0,!fdir0,0);
/* vertex 0 of region and of face 0 */
rv0 = List_Entry(rvertices,0);
/* Edges of face 0 */
fedges0 = MF_Edges(face0,!fdir0,rv0);
/* edge 0 of face 0 (wrt face dir pointing into the region) */
fedge00 = List_Entry(fedges0,0);
/* Get the face adjacent to edge 0 of face 0 and also the
opposite face, a face that has no edge common face 0 */
fopp = NULL; fadj0 = NULL;
found = 0;
for (i = 1; i < nf; i++) {
face = List_Entry(adj->rfaces,i);
/* Check if face uses any edge of face 0 */
for (j = 0, found = 0; j < 4; j++) {
edge = List_Entry(fedges0,j);
if (MF_UsesEntity(face,edge,1)) {
if (edge == fedge00) {
/* face uses edge 0 of face 0 (w.r.t. face dir pointing
into region) */
fadj0 = face;
diradj0 = MR_FaceDir_i(r,i);
}
found = 1;
break;
}
}
if (!found) {
fopp = face;
diropp = MR_FaceDir_i(r,i);
}
if (fopp && fadj0)
break;
}
if (!fopp) {
MSTK_Report("MR_Vertices_FNR3R4","Could not find opposite face",MSTK_ERROR);
List_Delete(fedges0);
List_Delete(rvertices);
return (void *) NULL;
}
/* edges of face adjacent to edge 0 of face 0 */
adjfedges = MF_Edges(fadj0,1,rv0);
/* edge connecting rv0 and vertex on opposite face */
upedge = diradj0 ? List_Entry(adjfedges,3): List_Entry(adjfedges,0);
#ifdef DEBUG
if (!ME_UsesEntity(upedge,rv0,0))
MSTK_Report("MR_Vertices_FNR3R4","Cannot find correct vertical edge",
MSTK_ERROR);
#endif
if (ME_Vertex(upedge,0) == rv0)
rvopp0 = ME_Vertex(upedge,1);
else {
rvopp0 = ME_Vertex(upedge,0);
}
List_Delete(fedges0);
List_Delete(adjfedges);
fverts = MF_Vertices(fopp,diropp,rvopp0);
for (i = 0; i < 4; i++)
List_Add(rvertices,List_Entry(fverts,i));
List_Delete(fverts);
return rvertices;
break;
default:
/* General Polyhedra */
mkr = MSTK_GetMarker();
/* Add vertices of first face */
face = List_Entry(adj->rfaces,0); /* first face */
fdir = MR_FaceDir_i(r,0); /* Sense in which face is used in region */
rvertices = MF_Vertices(face,!fdir,0);
List_Mark(rvertices,mkr);
for (i = 1; i < nf-1; i++) {
face = List_Entry(adj->rfaces,i);
fverts = MF_Vertices(face,1,0);
n = List_Num_Entries(fverts);
for (j = 0; j < n; j++) {
vert = List_Entry(fverts,j);
if (!MEnt_IsMarked(vert,mkr)) {
List_Add(rvertices,vert);
MEnt_Mark(vert,mkr);
}
}
List_Delete(fverts);
}
List_Unmark(rvertices,mkr);
MSTK_FreeMarker(mkr);
return rvertices;
}
return NULL;
}
