00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041 #include <stdio.h>
00042 #ifndef __UNIX_
00043 #include <stdlib.h>
00044 #endif
00045 #include "memvirtu.h"
00046 #include "lowparam.h"
00047 #include "lowmacro.h"
00048 #include "lowsolid.h"
00049
00050
00051
00052
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063
00064 void MSD_lowAddList(int what, NPTYPE which, NPTYPE where)
00065 {
00066 switch (what)
00067 {
00068 case SOLID:
00069 #ifndef __VIRTUAL_MEM
00070 which->s.nxt = objary;
00071 which->s.prevs = SNIL;
00072 #else
00073 SolNxt(which) = objary;
00074 SolPrevS(which) = SNIL;
00075 #endif
00076 if (objary != SNIL)
00077 {
00078 SolPrevS(objary) = (SPTYPE)which;
00079 }
00080 objary = (SPTYPE)which;
00081 break;
00082
00083 case SHELL:
00084 #ifndef __VIRTUAL_MEM
00085 which->d.nextd = where->s.sshells;
00086 which->d.prevd = DNIL;
00087 if (where->s.sshells != DNIL)
00088 {
00089 where->s.sshells->prevd = (DPTYPE)which;
00090 }
00091 where->s.sshells = (DPTYPE)which;
00092 which->d.ssolids = (SPTYPE)where;
00093 #else
00094 SheNextD(which) = SolSShells(where);
00095 ShePrevD(which) = DNIL;
00096 if (SolSShells(where) != DNIL)
00097 {
00098 ShePrevD(SolSShells(where)) = (DPTYPE)which;
00099 }
00100 SolSShells(where) = (DPTYPE)which;
00101 SheSSolids(which) = (SPTYPE)where;
00102 #endif
00103 break;
00104
00105 case FACE:
00106 #ifndef __VIRTUAL_MEM
00107 which->f.nextf = where->d.sfaces;
00108 which->f.prevf = FNIL;
00109 if (where->d.sfaces != FNIL)
00110 {
00111 where->d.sfaces->prevf = (FPTYPE)which;
00112 }
00113 where->d.sfaces = (FPTYPE)which;
00114 which->f.fshell = (DPTYPE)where;
00115 #else
00116 FacNextF(which) = SheSFaces(where);
00117 FacPrevF(which) = FNIL;
00118 if (SheSFaces(where) != FNIL)
00119 {
00120 FacPrevF(SheSFaces(where)) = (FPTYPE)which;
00121 }
00122 SheSFaces(where) = (FPTYPE)which;
00123 FacFShell(which) = (DPTYPE)where;
00124 #endif
00125 break;
00126
00127 case LOOP:
00128 #ifndef __VIRTUAL_MEM
00129 which->l.nextl = where->f.floops;
00130 which->l.prevl = LNIL;
00131 if (where->f.floops != LNIL)
00132 {
00133 where->f.floops->prevl = (LPTYPE)which;
00134 }
00135 where->f.floops = (LPTYPE)which;
00136 which->l.lface = (FPTYPE)where;
00137 #else
00138 LooNextL(which) = FacFLoops(where);
00139 LooPrevL(which) = LNIL;
00140 if (FacFLoops(where) != LNIL)
00141 {
00142 LooPrevL(FacFLoops(where)) = (LPTYPE)which;
00143 }
00144 FacFLoops(where) = (LPTYPE)which;
00145 LooLFace(which) = (FPTYPE)where;
00146 #endif
00147 break;
00148
00149 case EDGE:
00150 #ifndef __VIRTUAL_MEM
00151 which->e.nexte = where->d.sedges;
00152 which->e.preve = ENIL;
00153 if (where->d.sedges != ENIL)
00154 {
00155 where->d.sedges->preve = (EPTYPE)which;
00156 }
00157 where->d.sedges = (EPTYPE)which;
00158 #else
00159 EdgNextE(which) = SheSEdges(where);
00160 EdgPrevE(which) = ENIL;
00161 if (SheSEdges(where) != ENIL)
00162 {
00163 EdgPrevE(SheSEdges(where)) = (EPTYPE)which;
00164 }
00165 SheSEdges(where) = (EPTYPE)which;
00166 #endif
00167 break;
00168
00169 case VERTEX:
00170 #ifndef __VIRTUAL_MEM
00171 which->v.nextv = where->d.sverts;
00172 which->v.prevv = VNIL;
00173 if (where->d.sverts != VNIL)
00174 {
00175 where->d.sverts->prevv = (VPTYPE)which;
00176 }
00177 where->d.sverts = (VPTYPE)which;
00178 #else
00179 VerNextV(which) = SheSVerts(where);
00180 VerPrevV(which) = VNIL;
00181 if (SheSVerts(where) != VNIL)
00182 {
00183 VerPrevV(SheSVerts(where)) = (VPTYPE)which;
00184 }
00185 SheSVerts(where) = (VPTYPE)which;
00186 #endif
00187 break;
00188
00189 case GROUP:
00190 #ifndef __VIRTUAL_MEM
00191 which->g.nextg = grpary;
00192 which->g.prevg = GNIL;
00193 #else
00194 GrpNextG(which) = grpary;
00195 GrpPrevG(which) = GNIL;
00196 #endif
00197 if (grpary != GNIL)
00198 {
00199 GrpPrevG(grpary) = (GPTYPE)which;
00200 }
00201 grpary = (GPTYPE)which;
00202 break;
00203
00204 case AXIS:
00205 #ifndef __VIRTUAL_MEM
00206 which->a.nexta = axsary;
00207 which->a.preva = ANIL;
00208 #else
00209 AxsNextA(which) = axsary;
00210 AxsPrevA(which) = ANIL;
00211 #endif
00212 if (axsary != ANIL)
00213 {
00214 AxsPrevA(axsary) = (APTYPE)which;
00215 }
00216 axsary = (APTYPE)which;
00217 break;
00218
00219 default:
00220 fprintf(stderr, "addlist: codigo incorreto!\n");
00221 break;
00222 }
00223 }
00224
00225 void MSD_lowDelList(int what, NPTYPE which, NPTYPE where)
00226 {
00227 SPTYPE s;
00228
00229 #ifdef __VIRTUAL_MEM
00230 SPTYPE Sol;
00231 DPTYPE She;
00232 FPTYPE Fac;
00233 LPTYPE Loo;
00234 EPTYPE Edg;
00235 VPTYPE Ver;
00236 #endif
00237 int ip;
00238
00239 switch (what)
00240 {
00241 case SOLID:
00242 if (SetTrace)
00243 {
00244 ip = 0;
00245 for (AllSolids(s))
00246 {
00247 if (s == (SPTYPE)which)
00248 {
00249 ip = 1;
00250 }
00251 }
00252 if (ip == 0)
00253 {
00254 fprintf(stderr, "*** del(SOLID): aborted ***\n");
00255 error = TRUE;
00256 return;
00257 }
00258 }
00259 #ifndef __VIRTUAL_MEM
00260 if (which->s.nxt != SNIL)
00261 {
00262 which->s.nxt->prevs = which->s.prevs;
00263 }
00264 if (which->s.prevs != SNIL)
00265 {
00266 which->s.prevs->nxt = which->s.nxt;
00267 }
00268 if (objary == (SPTYPE)which)
00269 {
00270 objary = which->s.nxt;
00271 }
00272 #else
00273 Sol = SolPrevS(which);
00274 if (SolNxt(which) != SNIL)
00275 {
00276 SolPrevS(SolNxt(which)) = Sol;
00277 }
00278 Sol = SolNxt(which);
00279 if (SolPrevS(which) != SNIL)
00280 {
00281 SolNxt(SolPrevS(which)) = Sol;
00282 }
00283 if (objary == (SPTYPE)which)
00284 {
00285 objary = SolNxt(which);
00286 }
00287 #endif
00288 break;
00289
00290 case SHELL:
00291 if (SetTrace)
00292 {
00293 if (findd((SPTYPE)where, (DPTYPE)which) == 0)
00294 {
00295 fprintf(stderr, "*** del(SHELL): aborted ***\n");
00296 error = TRUE;
00297 return;
00298 }
00299 }
00300 #ifndef __VIRTUAL_MEM
00301 if (which->d.prevd != DNIL)
00302 {
00303 which->d.prevd->nextd = which->d.nextd;
00304 }
00305 if (which->d.nextd != DNIL)
00306 {
00307 which->d.nextd->prevd = which->d.prevd;
00308 }
00309 if ((DPTYPE)which == where->s.sshells)
00310 {
00311 where->s.sshells = which->d.nextd;
00312 }
00313 #else
00314 She = SheNextD(which);
00315 if (ShePrevD(which) != DNIL)
00316 {
00317 SheNextD(ShePrevD(which)) = She;
00318 }
00319 She = ShePrevD(which);
00320 if (SheNextD(which) != DNIL)
00321 {
00322 ShePrevD(SheNextD(which)) = She;
00323 }
00324 She = SheNextD(which);
00325 if ((DPTYPE)which == SolSShells(where))
00326 {
00327 SolSShells(where) = She;
00328 }
00329 #endif
00330 break;
00331
00332 case FACE:
00333 if (SetTrace)
00334 {
00335 if (findf((DPTYPE)where, (FPTYPE)which) == 0)
00336 {
00337 fprintf(stderr, "*** del(FACE): aborted ***\n");
00338 error = TRUE;
00339 return;
00340 }
00341 }
00342 #ifndef __VIRTUAL_MEM
00343 if (which->f.prevf != FNIL)
00344 {
00345 which->f.prevf->nextf = which->f.nextf;
00346 }
00347 if (which->f.nextf != FNIL)
00348 {
00349 which->f.nextf->prevf = which->f.prevf;
00350 }
00351 if ((FPTYPE)which == where->d.sfaces)
00352 {
00353 where->d.sfaces = which->f.nextf;
00354 }
00355 #else
00356 Fac = FacNextF(which);
00357 if (FacPrevF(which) != FNIL)
00358 {
00359 FacNextF(FacPrevF(which)) = Fac;
00360 }
00361 Fac = FacPrevF(which);
00362 if (FacNextF(which) != FNIL)
00363 {
00364 FacPrevF(FacNextF(which)) = Fac;
00365 }
00366 Fac = FacNextF(which);
00367 if ((FPTYPE)which == SheSFaces(where))
00368 {
00369 SheSFaces(where) = Fac;
00370 }
00371 #endif
00372 break;
00373
00374 case LOOP:
00375 if (SetTrace)
00376 {
00377 if (findl((LPTYPE)which, (FPTYPE)where) == 0)
00378 {
00379 fprintf(stderr, "*** del(LOOP): aborted ***\n");
00380 error = TRUE;
00381 return;
00382 }
00383 }
00384 #ifndef __VIRTUAL_MEM
00385 if (which->l.prevl != LNIL)
00386 {
00387 which->l.prevl->nextl = which->l.nextl;
00388 }
00389 if (which->l.nextl != LNIL)
00390 {
00391 which->l.nextl->prevl = which->l.prevl;
00392 }
00393 if ((LPTYPE)which == where->f.floops)
00394 {
00395 where->f.floops = which->l.nextl;
00396 }
00397 #else
00398 Loo = LooNextL(which);
00399 if (LooPrevL(which) != LNIL)
00400 {
00401 LooNextL(LooPrevL(which)) = Loo;
00402 }
00403 Loo = LooPrevL(which);
00404 if (LooNextL(which) != LNIL)
00405 {
00406 LooPrevL(LooNextL(which)) = Loo;
00407 }
00408 Loo = LooNextL(which);
00409 if ((LPTYPE)which == FacFLoops(where))
00410 {
00411 FacFLoops(where) = Loo;
00412 }
00413 #endif
00414 break;
00415
00416 case EDGE:
00417 if (SetTrace)
00418 {
00419 if (findes((DPTYPE)where, (EPTYPE)which) == 0)
00420 {
00421 fprintf(stderr, "*** del(EDGE): aborted ***\n");
00422 error = TRUE;
00423 return;
00424 }
00425 }
00426 #ifndef __VIRTUAL_MEM
00427 if (which->e.preve != ENIL)
00428 {
00429 which->e.preve->nexte = which->e.nexte;
00430 }
00431 if (which->e.nexte != ENIL)
00432 {
00433 which->e.nexte->preve = which->e.preve;
00434 }
00435 if ((EPTYPE)which == where->d.sedges)
00436 {
00437 where->d.sedges = which->e.nexte;
00438 }
00439 #else
00440 Edg = EdgNextE(which);
00441 if (EdgPrevE(which) != ENIL)
00442 {
00443 EdgNextE(EdgPrevE(which)) = Edg;
00444 }
00445 Edg = EdgPrevE(which);
00446 if (EdgNextE(which) != ENIL)
00447 {
00448 EdgPrevE(EdgNextE(which)) = Edg;
00449 }
00450 Edg = EdgNextE(which);
00451 if ((EPTYPE)which == SheSEdges(where))
00452 {
00453 SheSEdges(where) = Edg;
00454 }
00455 #endif
00456 break;
00457
00458 case VERTEX:
00459 if (SetTrace)
00460 {
00461 if (findv((DPTYPE)where, (VPTYPE)which) == 0)
00462 {
00463 fprintf(stderr, "*** del(VERTEX): aborted ***\n");
00464 error = TRUE;
00465 return;
00466 }
00467 }
00468 #ifndef __VIRTUAL_MEM
00469 if (which->v.prevv != VNIL)
00470 {
00471 which->v.prevv->nextv = which->v.nextv;
00472 }
00473 if (which->v.nextv != VNIL)
00474 {
00475 which->v.nextv->prevv = which->v.prevv;
00476 }
00477 if ((VPTYPE)which == where->d.sverts)
00478 {
00479 where->d.sverts = which->v.nextv;
00480 }
00481 #else
00482 Ver = VerNextV(which);
00483 if (VerPrevV(which) != VNIL)
00484 {
00485 VerNextV(VerPrevV(which)) = Ver;
00486 }
00487 Ver = VerPrevV(which);
00488 if (VerNextV(which) != VNIL)
00489 {
00490 VerPrevV(VerNextV(which)) = Ver;
00491 }
00492 Ver = VerNextV(which);
00493 if ((VPTYPE)which == SheSVerts(where))
00494 {
00495 SheSVerts(where) = Ver;
00496 }
00497 #endif
00498 break;
00499
00500 case GROUP:
00501 #ifndef __VIRTUAL_MEM
00502 if (which->g.nextg != GNIL)
00503 {
00504 which->g.nextg->prevg = which->g.prevg;
00505 }
00506 if (which->g.prevg != GNIL)
00507 {
00508 which->g.prevg->nextg = which->g.nextg;
00509 }
00510 if (grpary == (GPTYPE)which)
00511 {
00512 grpary = which->g.nextg;
00513 }
00514 #else
00515 if (GrpNextG(which) != GNIL)
00516 {
00517 GrpPrevG(GrpNextG(which)) = GrpPrevG(which);
00518 }
00519 if (GrpPrevG(which) != GNIL)
00520 {
00521 GrpNextG(GrpPrevG(which)) = GrpNextG(which);
00522 }
00523 if (grpary == (GPTYPE)which)
00524 {
00525 grpary = GrpNextG(which);
00526 }
00527 #endif
00528 break;
00529
00530 case AXIS:
00531 #ifndef __VIRTUAL_MEM
00532 if (which->a.nexta != ANIL)
00533 {
00534 which->a.nexta->preva = which->a.preva;
00535 }
00536 if (which->a.preva != ANIL)
00537 {
00538 which->a.preva->nexta = which->a.nexta;
00539 }
00540 if (axsary == (APTYPE)which)
00541 {
00542 axsary = which->a.nexta;
00543 }
00544 #else
00545 if (AxsNextA(which) != ANIL)
00546 {
00547 AxsPrevA(AxsNextA(which)) = AxsPrevA(which);
00548 }
00549 if (AxsPrevA(which) != ANIL)
00550 {
00551 AxsNextA(AxsPrevA(which)) = AxsNextA(which);
00552 }
00553 if (axsary == (APTYPE)which)
00554 {
00555 axsary = AxsNextA(which);
00556 }
00557 #endif
00558 break;
00559
00560 default:
00561 fprintf(stderr, "dellist: codigo incorreto!\n");
00562 break;
00563 }
00564 }