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 "mensagem.h"
00046 #include "memvirtu.h"
00047 #include "lowparam.h"
00048 #include "lowmacro.h"
00049 #include "lowsolid.h"
00050 #include "eulerops.h"
00051 #include "curvgeom.h"
00052 #include "mancommd.h"
00053
00054
00055
00056
00057
00058 #ifdef __Extended_Version
00059 void MSD_execKEV(void)
00060 {
00061 int sn, fn, v1, v2, op;
00062
00063 while (5 != sscanf(restbuf, "%d %d %d %d %d", &sn, &op, &fn, &v1, &v2))
00064 {
00065 printf("Solid F V1 V2\n");
00066 if (!lineins("? "))
00067 {
00068 return;
00069 }
00070 }
00071 MSD_highKEV(sn, fn, v1, v2);
00072 }
00073
00074 #endif
00075
00076 int MSD_highKEV(Id sn, Id fn, Id v1, Id v2)
00077 {
00078 SPTYPE s;
00079 FPTYPE f;
00080 HPTYPE h1;
00081 HPTYPE h2;
00082
00083 if ((s = MSD_getSolid(sn)) == SNIL)
00084 {
00085 fprintf(stderr, MEN_NaoEncontrouSolido, NAM_KEV, sn);
00086 return(ERROR);
00087 }
00088 if ((f = MSD_getFace(s, fn)) == FNIL)
00089 {
00090 fprintf(stderr, MEN_NaoEncontrouFace, NAM_KEV, fn, sn);
00091 return(ERROR);
00092 }
00093 if (MSD_getEdge(f, v1, v2, &h1) == LNIL)
00094 {
00095 fprintf(stderr, MEN_NaoEncontrouArestaV, NAM_KEV, v1, v2, sn);
00096 return(ERROR);
00097 }
00098 if (MSD_getEdge(f, v2, v1, &h2) == LNIL)
00099 {
00100 fprintf(stderr, MEN_NaoEncontrouArestaV, NAM_KEV, v2, v1, sn);
00101 return(ERROR);
00102 }
00103 if (HalWLoop(h1) != HalWLoop(h2))
00104 {
00105 fprintf(stderr, MEN_NaoArestaPonte, NAM_KEV, v1, v2, sn);
00106 return(ERROR);
00107 }
00108 if (HalNxt(h1) != h2)
00109 {
00110 fprintf(stderr, MEN_NaoVerticeTerminal, NAM_KEV, v2, sn);
00111 return(ERROR);
00112 }
00113 MSD_lowKEV(h2, h1);
00114 return(SUCCESS);
00115 }
00116
00117 #ifdef __Extended_Version
00118 void MSD_execJVKE(void)
00119 {
00120 int sn, f, v1, v2;
00121
00122 while (4 != sscanf(restbuf, "%d %d %d %d", &sn, &v1, &v2, &f))
00123 {
00124 printf("Solid V1 V2 F\n");
00125 if (!lineins("? "))
00126 {
00127 return;
00128 }
00129 }
00130 MSD_highJVKE(sn, v1, v2, f);
00131 }
00132
00133 #endif
00134
00135 int MSD_highJVKE(Id sn, Id v1, Id v2, Id f)
00136 {
00137 SPTYPE s;
00138 FPTYPE ff;
00139 HPTYPE he1;
00140
00141 if ((s = MSD_getSolid(sn)) == SNIL)
00142 {
00143 fprintf(stderr, MEN_NaoEncontrouSolido, NAM_JVKE, sn);
00144 return(ERROR);
00145 }
00146 if ((ff = MSD_getFace(s, f)) == FNIL)
00147 {
00148 fprintf(stderr, MEN_NaoEncontrouFace, NAM_JVKE, f, sn);
00149 return(ERROR);
00150 }
00151 if (MSD_getEdge(ff, v1, v2, &he1) == LNIL)
00152 {
00153 fprintf(stderr, MEN_NaoEncontrouArestaV, NAM_JVKE, v1, v2, sn);
00154 return(ERROR);
00155 }
00156 if (HalNxt(he1) == he1)
00157 {
00158 fprintf(stderr, MEN_ArestaCircular, NAM_JVKE, v1, v2, sn);
00159 return(ERROR);
00160 }
00161 MSD_lowKEV(mate(he1), he1);
00162 return(SUCCESS);
00163 }
00164
00165 #ifdef __Extended_Version
00166 void MSD_execJEKV(void)
00167 {
00168 int sn, v1, v2;
00169
00170 while (3 != sscanf(restbuf, "%d %d %d", &sn, &v1, &v2))
00171 {
00172 printf("Solid V1 V2\n");
00173 if (!lineins("? "))
00174 {
00175 return;
00176 }
00177 }
00178 MSD_highJEKV(sn, v1, v2);
00179 }
00180
00181 #endif
00182
00183 int MSD_highJEKV(Id sn, Id v1, Id v2)
00184 {
00185 SPTYPE s;
00186 DPTYPE d;
00187 FPTYPE f;
00188 HPTYPE he1;
00189 short flag_found;
00190
00191 if ((s = MSD_getSolid(sn)) == SNIL)
00192 {
00193 fprintf(stderr, MEN_NaoEncontrouSolido, NAM_JEKV, sn);
00194 return(ERROR);
00195 }
00196
00197 flag_found = 1;
00198 for (AllShellsSolid(s, d))
00199 {
00200 for (AllFacesShell(d, f))
00201 {
00202 if (MSD_getEdge(f, v1, v2, &he1))
00203 {
00204 flag_found = 0;
00205 break;
00206 }
00207 }
00208 }
00209 if (flag_found == 1)
00210 {
00211 fprintf(stderr, MEN_NaoEncontrouArestaV, NAM_JEKV, v1, v2, sn);
00212 return(ERROR);
00213 }
00214 MSD_lowKEV(HalNxt(he1), HalPrv(mate(he1)));
00215 return(SUCCESS);
00216 }
00217
00218 #ifdef __Extended_Version
00219 void MSD_execKEV2(void)
00220 {
00221 int sn, v1, v2, f1, f2, op;
00222
00223 while (6 != sscanf(restbuf, "%d %d %d %d %d %d", &sn, &op, &v1, &v2, &f1, &f2))
00224 {
00225 printf("kev2: Sid V1 V2 F1 F2\n");
00226 if (!lineins("? "))
00227 {
00228 return;
00229 }
00230 }
00231 MSD_highKEV2(sn, v1, v2, f1, f2);
00232 }
00233
00234 #endif
00235
00236 int MSD_highKEV2(Id sn, Id v1, Id v2, Id f1, Id f2)
00237 {
00238 SPTYPE s;
00239 FPTYPE ff1;
00240 FPTYPE ff2;
00241 HPTYPE he1;
00242
00243 if ((s = MSD_getSolid(sn)) == SNIL)
00244 {
00245 fprintf(stderr, MEN_NaoEncontrouSolido, NAM_KEV2, sn);
00246 return(ERROR);
00247 }
00248 if ((ff1 = MSD_getFace(s, f1)) == FNIL)
00249 {
00250 fprintf(stderr, MEN_NaoEncontrouFace, NAM_KEV2, f1, sn);
00251 return(ERROR);
00252 }
00253 if ((ff2 = MSD_getFace(s, f2)) == FNIL)
00254 {
00255 fprintf(stderr, MEN_NaoEncontrouFace, NAM_KEV2, f2, sn);
00256 return(ERROR);
00257 }
00258 if (MSD_getHalfedge(ff1, ff2, v1, v2, &he1) == LNIL)
00259 {
00260 fprintf(stderr, MEN_NaoEncontrouArestaV, NAM_KEV2, v1, v2, sn);
00261 return(ERROR);
00262 }
00263 MSD_lowKEV(he1, mate(he1));
00264 return(SUCCESS);
00265 }
00266
00267 void MSD_lowKEV(HPTYPE he1, HPTYPE he2)
00268 {
00269 SPTYPE s;
00270 DPTYPE d;
00271 LPTYPE loop1;
00272 LPTYPE loop2;
00273 HPTYPE he;
00274 HPTYPE nh1;
00275 HPTYPE nh2;
00276 VPTYPE vp1;
00277 VPTYPE vp2;
00278 Id v1, v2 = 0, v3, v4, f1, f2, f3, f4;
00279
00280 assert1(he1 == mate(he2));
00281 assert1(HalVtx(he1) != HalVtx(he2));
00282 d = FacFShell(LooLFace(HalWLoop(he1)));
00283 s = SheSSolids(d);
00284
00285 if (Gdoinversion)
00286 {
00287 if ((HalNxt(he1) == he2) && (HalNxt(he2) != he1))
00288 {
00289 MSD_lowMEV(he2, he2, -1, 0.0, 0.0, 0.0);
00290 nh1 = HalNxt(he1);
00291 nh2 = HalPrv(he2);
00292 MSD_lowKEV(he1, he2);
00293 MSD_lowKEV(nh2, nh1);
00294 return;
00295 }
00296 v1 = VerVertexNo(HalVtx(he2));
00297 v4 = VerVertexNo(HalVtx(he1));
00298 v3 = VerVertexNo(HalVtx(HalNxt(HalNxt(he1))));
00299 v2 = (HalNxt(he2) == he1 ? v3 : VerVertexNo(HalVtx(HalNxt(HalNxt(he2)))));
00300 if (HalNxt(he1) == he2)
00301 {
00302 v2 = v3 = v1;
00303 }
00304 if (v2 == v4)
00305 {
00306 v2 = v1;
00307 }
00308 if (v3 == v4)
00309 {
00310 v3 = v1;
00311 }
00312 f1 = FacFaceNo(LooLFace(HalWLoop(he2)));
00313 f2 = FacFaceNo(LooLFace(HalWLoop(he1)));
00314 f4 = FacFaceNo(LooLFace(HalWLoop(mate(HalNxt(he1)))));
00315 f3 = HalNxt(he2) == he1 ? f4 : FacFaceNo(LooLFace(HalWLoop(mate(HalNxt(he2)))));
00316 MSD_lowAddEulerOp(s, MEV, v1, v2, v3, v4, f1, f2, f3, f4, VerVCoord(HalVtx(he1))[0],
00317 VerVCoord(HalVtx(he1))[1],
00318 VerVCoord(HalVtx(he1))[2], 1.0);
00319 }
00320 if (Gdodirect)
00321 {
00322 v1 = VerVertexNo(HalVtx(he1));
00323 v2 = VerVertexNo(HalVtx(he2));
00324 f1 = FacFaceNo(LooLFace(HalWLoop(he1)));
00325 f2 = FacFaceNo(LooLFace(HalWLoop(he2)));
00326 MSD_lowAddEulerOpRedo(s, KEV, v1, v2, f1, f2, 0, 0, 0, 0, 0.0, 0.0, 0.0, 0.0);
00327 }
00328
00329 #ifdef __curved_env
00330 if (he1->curv != (CUCURV *)NIL)
00331 {
00332 lputctag(he1, (CUCURV *)NIL);
00333 }
00334 if (he2->curv != (CUCURV *)NIL)
00335 {
00336 lputctag(he2, (CUCURV *)NIL);
00337 }
00338 #endif
00339
00340 for (he = HalNxt(he2); he != he1; he = HalNxt(mate(he)))
00341 {
00342 HalVtx(he) = HalVtx(he2);
00343 }
00344
00345 vp2 = HalVtx(he2);
00346 vp1 = HalVtx(he1);
00347 VerVEdge(vp1) = HalNxt(he1) == he2 ? HalNxt(he2) : HalNxt(he1);
00348 VerVEdge(vp2) = HalNxt(he2) == he1 ? HalNxt(he1) : HalNxt(he2);
00349 LooLength((loop1 = HalWLoop(he1)))--;
00350 LooLength((loop2 = HalWLoop(he2)))--;
00351
00352 MSD_lowDelElement(EDGE, (NPTYPE)HalEdg(he1), (NPTYPE)d);
00353 MSD_lowDelElement(VERTEX, (NPTYPE)HalVtx(he1), (NPTYPE)d);
00354 nh2 = HalNxt(he2);
00355
00356 LooLEdg(loop1) = MSD_lowDelHE(he1);
00357 LooLEdg(loop2) = MSD_lowDelHE(he2);
00358 if (HalEdg(VerVEdge(vp2)) == ENIL)
00359 {
00360 VerVEdge(vp2) = HNIL;
00361 }
00362
00363 MSD_addEulCoef(s, 0, 0, 0, -1, -1, 0);
00364
00365 if (SetTrace)
00366 {
00367 if (TraceSolid(s))
00368 {
00369 fprintf(stderr, MEN_MSDAbortou, NAM_KEV);
00370 exit(1);
00371 }
00372 }
00373 }
00374
00375 int MSD_execStructKEV(EulerOp *op)
00376 {
00377 Id sid, id1, id2, id3, id4;
00378
00379 sid = op->solidno;
00380 id1 = op->ip1;
00381 id2 = op->ip2;
00382 id3 = op->ip3;
00383 id4 = op->ip4;
00384 return(MSD_highKEV2(sid, id1, id2, id3, id4));
00385 }
00386
00387 void MSD_printStructKEV(FILE *f, EulerOp *op)
00388 {
00389 Id sid, id1, id2, id3, id4;
00390 int com;
00391
00392 sid = op->solidno;
00393 id1 = op->ip1;
00394 id2 = op->ip2;
00395 id3 = op->ip3;
00396 id4 = op->ip4;
00397 com = op->CommandCount;
00398 fprintf(f, "kev %d %d %d %d %d %d\n", sid, com, id1, id2, id3, id4);
00399 }
00400
00401 int MSD_readStructKEV(FILE *f, EulerOp *op)
00402 {
00403 int solidno, ip1, ip2, ip3, ip4, com;
00404
00405 if (fscanf(f, "%d %d %d %d %d %d\n", &solidno, &com, &ip1, &ip2, &ip3, &ip4) != 6)
00406 {
00407 return(ERROR);
00408 }
00409 op->solidno = solidno;
00410 op->CommandCount = com;
00411 op->ip1 = ip1;
00412 op->ip2 = ip2;
00413 op->ip3 = ip3;
00414 op->ip4 = ip4;
00415 op->ip5 = 0;
00416 op->ip6 = 0;
00417 op->ip7 = 0;
00418 op->ip8 = 0;
00419 op->fp1 = 0.0;
00420 op->fp2 = 0.0;
00421 op->fp3 = 0.0;
00422 op->fp4 = 0.0;
00423 return(SUCCESS);
00424 }
00425
00426 int MSD_modifyStructKEV(EulerOp *op)
00427 {
00428 int solidno;
00429
00430 solidno = MSD_lowCheckTranslatorTable(op->solidno, SOLID);
00431 op->solidno = solidno;
00432 return(SUCCESS);
00433 }