32 static int getmesh(pMesh mesh, int range) {  in getmesh()  argument
39   if (mesh->tria) M_free(mesh->tria);  in getmesh()
40   if (mesh->quad) M_free(mesh->quad);  in getmesh()
41   if (mesh->edge) M_free(mesh->edge);  in getmesh()
42   if (mesh->tetra) M_free(mesh->tetra);  in getmesh()
43   if (mesh->hexa) M_free(mesh->hexa);  in getmesh()
44   if (mesh->adja) M_free(mesh->adja);  in getmesh()
45   if (mesh->voy) M_free(mesh->voy);  in getmesh()
46   if (mesh->point) M_free(mesh->point);  in getmesh()
48   if (mesh->extra) {  in getmesh()
49     if (mesh->extra->iv) M_free(mesh->extra->nv);  in getmesh()
50     if (mesh->extra->it) M_free(mesh->extra->nt);  in getmesh()
51     if (mesh->extra->iq) M_free(mesh->extra->nq);  in getmesh()
52     if (mesh->extra->n) M_free(mesh->extra->n);  in getmesh()
53     M_free(mesh->extra);  in getmesh()
54     mesh->extra = (void *)0;  in getmesh()
57   if (mesh->sol && mesh->nbb) {  in getmesh()
58     if ((mesh->dim == 2 && mesh->nfield == 3) || (mesh->dim == 3 && mesh->nfield == 6)) {  in getmesh()
60       for (k = 1; k <= mesh->nbb; k++) free(mesh->sol[k].m);  in getmesh()
63     M_free(mesh->sol);  in getmesh()
64     mesh->sol = (void *)0;  in getmesh()
67   mesh->point = (void *)0;  in getmesh()
68   mesh->tria = (void *)0;  in getmesh()
69   mesh->quad = (void *)0;  in getmesh()
70   mesh->edge = (void *)0;  in getmesh()
71   mesh->tetra = (void *)0;  in getmesh()
72   mesh->hexa = (void *)0;  in getmesh()
73   mesh->adja = (void *)0;  in getmesh()
74   mesh->voy = (void *)0;  in getmesh()
75   mesh->np = mesh->nt = mesh->nq = mesh->ne = 0;  in getmesh()
76   mesh->ntet = mesh->nhex = mesh->nbb = 0;  in getmesh()
78   if (animdep == range) strcpy(base, mesh->name);  in getmesh()
81   sprintf(mesh->name, "%s.%d", base, range);  in getmesh()
82   if (ddebug) fprintf(stdout, "load %s\n", mesh->name);  in getmesh()
86     fprintf(stdout, "  Loading %s     \r", mesh->name);  in getmesh()
90   mesh->typ = 0;  in getmesh()
91   ret = loadMesh(mesh);  in getmesh()
93     mesh->typ = 1;  in getmesh()
94     ret = inmsh2(mesh);  in getmesh()
96       mesh->typ = 2;  in getmesh()
97       ret = loadGIS(mesh);  in getmesh()
102   if ((mesh->ntet && !mesh->nt) || (mesh->nhex && !mesh->nq)) meshSurf(mesh);  in getmesh()
104   meshBox(mesh, animdep == range);  in getmesh()
105   if (!quiet) meshInfo(mesh);  in getmesh()
108   if (!loadSol(mesh, mesh->name, 1)) bbfile(mesh);  in getmesh()
110   if (!quiet && mesh->nbb) fprintf(stdout, "    Solutions  %8d\n", mesh->nbb);  in getmesh()
115 int loadNextMesh(pMesh mesh, int k, int parse) {  in loadNextMesh()  argument
119   if (!getmesh(mesh, k)) return (0);  in loadNextMesh()
131   if (parse) parsop(sc, mesh);  in loadNextMesh()
133   setupPalette(sc, mesh);  in loadNextMesh()
134   meshRef(sc, mesh);  in loadNextMesh()
140 int playAnim(pScene sc, pMesh mesh, int deb, int fin) {  in playAnim()  argument
146   ptr = (char *)strstr(mesh->name, data);  in playAnim()
149   strcpy(base, mesh->name);  in playAnim()
155     strcpy(mesh->name, base);  in playAnim()
157     resetLists(sc, mesh);  in playAnim()
158     if (!loadNextMesh(mesh, k, 0)) return (0);  in playAnim()
160     doLists(sc, mesh);  in playAnim()
161     sc->glist = geomList(sc, mesh);  in playAnim()
162     if (sc->mode & S_MAP) doMapLists(sc, mesh, 1);  in playAnim()
164     if (sc->isotyp) doIsoLists(sc, mesh, 1);  in playAnim()
167       snprintf(data, 512, "Medit - [%s] #%d", mesh->name, sc->idwin);  in playAnim()
179   strcpy(mesh->name, base);  in playAnim()
184       snprintf(data, 512, "Medit - [%s] #%d", mesh->name, sc->idwin);  in playAnim()
195 int animParticle(pScene sc, pMesh mesh) {  in animParticle()  argument
200   strcpy(base, mesh->name);  in animParticle()
209   strcpy(mesh->name, base);  in animParticle()
211   resetLists(sc, mesh);  in animParticle()
212   if (!loadNextMesh(mesh, cur, 1)) return (0);  in animParticle()
214   doLists(sc, mesh);  in animParticle()
215   sc->glist = geomList(sc, mesh);  in animParticle()
216   if (sc->mode & S_MAP) doMapLists(sc, mesh, 1);  in animParticle()
218   if (sc->isotyp) doIsoLists(sc, mesh, 2);  in animParticle()
220   if (!advectParticle(sc, mesh)) return (0);  in animParticle()
226   pMesh mesh;  in animat()  local
263       if (!cv.mesh[cv.nbm]) {  in animat()
264         cv.mesh[cv.nbm] = (pMesh)M_calloc(1, sizeof(Mesh), "animat.mesh");  in animat()
265         if (!cv.mesh[cv.nbm]) return (0);  in animat()
269       strcpy(cv.mesh[cv.nbm]->name, name);  in animat()
279   mesh = cv.mesh[0];  in animat()
280   if (!loadNextMesh(mesh, animdep, 1)) return (0);  in animat()