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 #ifdef __Extended_Version
00058 void MSD_execKVSF(void)
00059 {
00060 int s, f, op;
00061
00062 while (3 != sscanf(restbuf, "%d %d %d", &s, &op, &f))
00063 {
00064 printf("kvsf: Sid F\n");
00065 if (!lineins("? "))
00066 {
00067 return;
00068 }
00069 }
00070 MSD_highKVSF(s, f);
00071 }
00072
00073 #endif
00074
00075 int MSD_highKVSF(Id sn, Id fn)
00076 {
00077 SPTYPE s;
00078 FPTYPE f;
00079
00080 if ((s = MSD_getSolid(sn)) == (SNIL))
00081 {
00082 fprintf(stderr, MEN_NaoEncontrouSolido, NAM_KVSF, sn);
00083 return(ERROR);
00084 }
00085 if ((f = MSD_getFace(s, fn)) == (FNIL))
00086 {
00087 fprintf(stderr, MEN_NaoEncontrouFace, NAM_KVSF, fn, sn);
00088 return(ERROR);
00089 }
00090 if (LooNextL(FacFLoops(f)) != LNIL)
00091 {
00092 fprintf(stderr, MEN_FaceSemLoop, NAM_KVSF, fn, sn);
00093 return(ERROR);
00094 }
00095 if (HalEdg(LooLEdg(FacFLoops(f))) != (ENIL))
00096 {
00097 fprintf(stderr, MEN_FaceSemVertice, NAM_KVSF, fn, sn);
00098 return(ERROR);
00099 }
00100 MSD_lowKVSF(s);
00101 return(SUCCESS);
00102 }
00103
00104 void MSD_lowKVSF(SPTYPE s)
00105 {
00106 DPTYPE d;
00107 FPTYPE f;
00108 VPTYPE v;
00109 Id f1, v1, dn, flag;
00110
00111 d = SolSShells(s);
00112 f = SheSFaces(d);
00113 assert1(SheNextD(d) == DNIL);
00114 assert1(f != FNIL);
00115 assert1(FacNextF(f) == FNIL);
00116 assert1(FacFLoops(f) != LNIL);
00117 assert1(FacFLoops(f) == FacFLOut(f));
00118 assert1(LooNextL(FacFLoops(f)) == LNIL);
00119 assert1(SheSEdges(d) == ENIL);
00120 assert1(SheSVerts(d) != VNIL);
00121 assert1(VerNextV(SheSVerts(d)) == VNIL);
00122
00123 #ifdef __curved_env
00124 if (s->sfaces->surf != (SUSURF *)NIL)
00125 {
00126 lsettag(f, (SUSURF *)NIL);
00127 }
00128 #endif
00129
00130 if (Gdoinversion)
00131 {
00132 v = SheSVerts(d);
00133 dn = SheShellNo(d);
00134 f1 = FacFaceNo(f);
00135 v1 = VerVertexNo(v);
00136 flag = SolSBits(s);
00137 MSD_lowAddEulerOp(s, MVSF, f1, v1, dn, flag, 0, 0, 0, 0, VerVCoord(v)[0],
00138 VerVCoord(v)[1],
00139 VerVCoord(v)[2], 1.0);
00140 }
00141 if (Gdodirect)
00142 {
00143 f1 = FacFaceNo(f);
00144 MSD_lowAddEulerOpRedo(s, KVSF, f1, 0, 0, 0, 0, 0, 0, 0, 0.0, 0.0, 0.0, 0.0);
00145 }
00146
00147 MSD_addEulCoef(s, -1, -1, 0, 0, -1, 0);
00148
00149 MSD_lowDelElement(VERTEX, (NPTYPE)SheSVerts(d), (NPTYPE)d);
00150 MSD_lowDelElement(HALFEDGE, (NPTYPE)LooLEdg(FacFLoops(f)), NNIL);
00151 MSD_lowDelElement(LOOP, (NPTYPE)FacFLoops(f), (NPTYPE)f);
00152 MSD_lowDelElement(FACE, (NPTYPE)f, (NPTYPE)d);
00153 MSD_lowDelElement(SHELL, (NPTYPE)d, (NPTYPE)s);
00154 MSD_lowDelElement(SOLID, (NPTYPE)s, NNIL);
00155
00156 if (SetTrace)
00157 if (TraceSolid(s))
00158 {
00159 fprintf(stderr, MEN_MSDAbortou, NAM_KVSF) ;
00160 exit(1) ;
00161 }
00162 }
00163
00164 int MSD_execStructKVSF(EulerOp *op)
00165 {
00166 return(MSD_highKVSF(op->solidno, op->ip1));
00167 }
00168
00169 void MSD_printStructKVSF(FILE *f, EulerOp *op)
00170 {
00171 fprintf(f, "kvsf %d %d %d \n", op->solidno, op->CommandCount, op->ip1);
00172 }
00173
00174 int MSD_readStructKVSF(FILE *f, EulerOp *op)
00175 {
00176 int solidno, ip1, com;
00177
00178 if (fscanf(f, "%d %d %d\n", &solidno, &com, &ip1) != 3)
00179 {
00180 return(ERROR);
00181 }
00182 op->solidno = solidno;
00183 op->CommandCount = com;
00184 op->ip1 = ip1;
00185 op->ip2 = 0;
00186 op->ip3 = 0;
00187 op->ip4 = 0;
00188 op->ip5 = 0;
00189 op->ip6 = 0;
00190 op->ip7 = 0;
00191 op->ip8 = 0;
00192 op->fp1 = 0.0;
00193 op->fp2 = 0.0;
00194 op->fp3 = 0.0;
00195 op->fp4 = 0.0;
00196 return(SUCCESS);
00197 }
00198
00199 int MSD_modifyStructKVSF(EulerOp *op)
00200 {
00201 int solidno;
00202
00203 solidno = MSD_lowCheckTranslatorTable(op->solidno, SOLID);
00204 op->solidno = solidno;
00205 return(SUCCESS);
00206 }