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 #include "mensagem.h"
00043 #include "memvirtu.h"
00044 #include "lowparam.h"
00045 #include "lowmacro.h"
00046 #include "lowsolid.h"
00047 #include "genfunc_.h"
00048 #include "mancommd.h"
00049
00050 #ifdef __Extended_Version
00051 void MSD_execNameListFaceAdjacency(void)
00052 {
00053 char name[30], fname[30];
00054
00055 while (2 != sscanf(restbuf, "%s %s", name, fname))
00056 {
00057 printf("ListFaceAdjacency: Objeto Arquivo\n");
00058 if (!lineins("? "))
00059 {
00060 return;
00061 }
00062 }
00063 MSD_highNameListFaceAdjacency(name, fname);
00064 }
00065
00066 #endif
00067
00068 int MSD_highNameListFaceAdjacency(char *name, char *fname)
00069 {
00070 SPTYPE optr;
00071
00072 if ((optr = MSD_lowFindSolidByName(name)) == SNIL)
00073 {
00074 fprintf(stderr, MEN_NaoEncontrouSolido,
00075 NAM_ListFaceAdjacency, name);
00076 return(ERROR);
00077 }
00078 return(MSD_lowListFaceAdjacency(optr, fname));
00079 }
00080
00081 int MSD_lowListFaceAdjacency(SPTYPE optr, char *fname)
00082 {
00083 STYPE *ss;
00084 DPTYPE dptr;
00085 FPTYPE fptr;
00086 HPTYPE eptr;
00087 HPTYPE efim;
00088 int fe;
00089 FILE *f;
00090
00091 if ((f = fopen(fname, "w")) == (FILE *)NIL)
00092 {
00093 fprintf(stderr, MEN_NaoAbriuArquivo, NAM_ListFaceAdjacency, fname);
00094 return(ERROR);
00095 }
00096
00097 #ifdef __VIRTUAL_MEM
00098 ss = SSTYPE(optr);
00099 #else
00100 ss = optr;
00101 #endif
00102
00103 fprintf(f, "%d\n", ss->eucoef.facen);
00104 for (AllShellsSolid(optr, dptr))
00105 {
00106 for (AllFacesShell(dptr, fptr))
00107 {
00108 fprintf(f, "\n");
00109 fe = 0;
00110 eptr = efim = LooLEdg(FacFLOut(fptr));
00111 do
00112 {
00113 fe++;
00114 } while (efim != (eptr = HalNxt(eptr)));
00115 fprintf(f, "%d \n%d 1\n", FacFaceNo(fptr), fe);
00116
00117 eptr = efim;
00118 do
00119 {
00120 fprintf(f, "%d ", FacFaceNo(LooLFace(HalWLoop(mate(eptr)))));
00121 } while (efim != (eptr = HalNxt(eptr)));
00122
00123 fprintf(f, "\n");
00124 eptr = efim;
00125 do
00126 {
00127 fprintf(f, "%f ", EdgAngle(HalEdg(eptr)));
00128 } while (efim != (eptr = HalNxt(eptr)));
00129
00130 fprintf(f, "\n%d \n", FacFaceNo(fptr));
00131 }
00132 }
00133 fclose(f);
00134 return(TRUE);
00135 }