ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magic/lib/mailleur/src/mailleur_delaunay.cpp
Revision: 1149
Committed: Fri May 24 20:23:11 2024 UTC (11 months, 2 weeks ago) by francois
Original Path: magic/lib/mailleur_auto/src/mailleur_delaunay.cpp
File size: 29393 byte(s)
Log Message:
mise de constante en namespace

File Contents

# User Rev Content
1 francois 285 //------------------------------------------------------------
2     //------------------------------------------------------------
3     // MAGiC
4     // Jean Christophe Cuilli�re et Vincent FRANCOIS
5     // D�partement de G�nie M�canique - UQTR
6     //------------------------------------------------------------
7     // Le projet MAGIC est un projet de recherche du d�partement
8     // de g�nie m�canique de l'Universit� du Qu�bec �
9     // Trois Rivi�res
10     // Les librairies ne peuvent �tre utilis�es sans l'accord
11     // des auteurs (contact : francois@uqtr.ca)
12     //------------------------------------------------------------
13     //------------------------------------------------------------
14     //
15     // mailleur.cpp
16     //
17     //------------------------------------------------------------
18     //------------------------------------------------------------
19     // COPYRIGHT 2000
20     // Version du 02/03/2006 � 11H23
21     //------------------------------------------------------------
22     //------------------------------------------------------------
23    
24    
25     #include "gestionversion.h"
26     #include "mailleur_delaunay.h"
27 francois 288 #include "mailleur3d_optimisation.h"
28 francois 285 #include "dly_noeud.h"
29     #include "dly_tetra.h"
30     #include "dly_triangle.h"
31     #include "dly_segment.h"
32     #include "mg_maillage.h"
33 francois 481 #include "robustpredicates.h"
34 francois 285 #include <algorithm>
35     #include <math.h>
36     #include "mg_gestionnaire.h"
37     #include "ot_cpu.h"
38 francois 287 #include "m3d_noeud.h"
39     #include "m3d_tetra.h"
40 francois 285
41    
42 francois 287
43 francois 947 MAILLEUR_DELAUNAY::MAILLEUR_DELAUNAY(MG_MAILLAGE* m,FCT_TAILLE *cartetmp,double crit_arret,class OT_CPU* comp):MAILLEUR(comp),carte(cartetmp),mai(m),critere_arret(crit_arret),niveau_optimisation(2),typemailleur(DELAUNAYCARTE)
44 francois 285 {
45     robustPredicates::exactinit();
46     }
47    
48 francois 947 MAILLEUR_DELAUNAY::MAILLEUR_DELAUNAY(MG_MAILLAGE* m,BOITE_3D boiteext,class OT_CPU* comp):MAILLEUR(comp),boiteexterieur(boiteext),mai(m),niveau_optimisation(2),typemailleur(DELAUNAYLISTENOEUD)
49     {
50     robustPredicates::exactinit();
51 couturad 981 carte=NULL;
52 francois 947 }
53    
54 francois 285 MAILLEUR_DELAUNAY::~MAILLEUR_DELAUNAY()
55     {
56     for (int i=0;i<tabnoeud.size();i++)
57     delete tabnoeud[i];
58     for (int i=0;i<tabtri.size();i++)
59     delete tabtri[i];
60     for (int i=0;i<tabtet.size();i++)
61     delete tabtet[i];
62     }
63    
64 couturad 966 int MAILLEUR_DELAUNAY::maille(class MG_GROUPE_TOPOLOGIQUE* mggt)
65 francois 285 {
66 francois 479 affiche((char*)"Initialisation Delaunay");
67 francois 285 initialise_maillage();
68     if (compteur!=NULL) compteur->ajouter_etape("Initialisation maillage");
69 francois 287
70 francois 479 affiche((char*)"Maillage");
71 francois 285 raffine_maillage();
72     if (compteur!=NULL) compteur->ajouter_etape("Insertion de points");
73 francois 287
74 francois 479 affiche((char*)"Création du maillage final");
75 francois 285 transfert_maillage(&tabnoeud,NULL,&tabtet);
76     if (compteur!=NULL) compteur->ajouter_etape("Création du maillage");
77 francois 287
78    
79 francois 479 affiche((char*)"Optimisation de maillage");
80 francois 288 MAILLEUR3D_OPTIMISATION opt(mai,niveau_optimisation);
81 francois 947 if (affichageactif) opt.active_affichage(affiche2);
82 francois 288 opt.optimise(NULL);
83     if (compteur!=NULL) compteur->ajouter_etape("Optimisation du maillage");
84 francois 479 affiche((char*)"Fin Delaunay");
85 couturad 966 return OK;
86 francois 285 }
87    
88 francois 288 void MAILLEUR_DELAUNAY::change_niveau_optimisation(int num)
89     {
90     niveau_optimisation=num;
91     }
92 francois 947
93     void MAILLEUR_DELAUNAY::ajouter_noeud(double &x, double &y, double &z,double epsbordure)
94     {
95    
96 francois 288
97 francois 947 xnoeud.push_back(x);
98     ynoeud.push_back(y);
99     znoeud.push_back(z);
100     }
101    
102     void MAILLEUR_DELAUNAY::insere_noeud_delaunay(DLY_TETRA* tet,double x,double y,double z)
103 francois 285 {
104 francois 947 DLY_TETRA* tetbase=get_tetra(tet,x,y,z);
105 francois 285 std::vector<DLY_TETRA*> tetdetruit;
106     std::vector<DLY_TETRA*> tetcree;
107     std::vector<DLY_TRIANGLE*> basetri;
108     ajoute_tetra_cavite(tetbase,tetdetruit,basetri);
109     for (int i=0;i<tetdetruit.size();i++)
110     {
111     DLY_TETRA* tettmp=tetdetruit[i];
112     if (tettmp->get_voisin1()!=NULL)
113     {
114     std::vector<DLY_TETRA*>::iterator itv2=find(tetdetruit.begin(),tetdetruit.end(),tettmp->get_voisin1());
115     if (itv2==tetdetruit.end())
116     if (tettmp->get_voisin1()->point_dans_le_tetra(x,y,z)!=0)
117     ajoute_tetra_cavite(tettmp->get_voisin1(),tetdetruit,basetri);
118     }
119     if (tettmp->get_voisin2()!=NULL)
120     {
121     std::vector<DLY_TETRA*>::iterator itv2=find(tetdetruit.begin(),tetdetruit.end(),tettmp->get_voisin2());
122     if (itv2==tetdetruit.end())
123     if (tettmp->get_voisin2()->point_dans_le_tetra(x,y,z)!=0)
124     ajoute_tetra_cavite(tettmp->get_voisin2(),tetdetruit,basetri);
125     }
126     if (tettmp->get_voisin3()!=NULL)
127     {
128     std::vector<DLY_TETRA*>::iterator itv2=find(tetdetruit.begin(),tetdetruit.end(),tettmp->get_voisin3());
129     if (itv2==tetdetruit.end())
130     if (tettmp->get_voisin3()->point_dans_le_tetra(x,y,z)!=0)
131     ajoute_tetra_cavite(tettmp->get_voisin3(),tetdetruit,basetri);
132     }
133     if (tettmp->get_voisin4()!=NULL)
134     {
135     std::vector<DLY_TETRA*>::iterator itv2=find(tetdetruit.begin(),tetdetruit.end(),tettmp->get_voisin4());
136     if (itv2==tetdetruit.end())
137     if (tettmp->get_voisin4()->point_dans_le_tetra(x,y,z)!=0)
138     ajoute_tetra_cavite(tettmp->get_voisin4(),tetdetruit,basetri);
139     }
140     }
141     int nbtetrabase=tetdetruit.size();
142     for (int i=0;i<tetdetruit.size();i++)
143     {
144     DLY_TETRA* tettmp=tetdetruit[i];
145     if (tettmp->get_voisin1()!=NULL)
146     {
147     std::vector<DLY_TETRA*>::iterator itv2=find(tetdetruit.begin(),tetdetruit.end(),tettmp->get_voisin1());
148     if (itv2==tetdetruit.end())
149     if (tettmp->get_voisin1()->point_dans_la_sphere(x,y,z)!=0)
150     ajoute_tetra_cavite(tettmp->get_voisin1(),tetdetruit,basetri);
151     }
152     if (tettmp->get_voisin2()!=NULL)
153     {
154     std::vector<DLY_TETRA*>::iterator itv2=find(tetdetruit.begin(),tetdetruit.end(),tettmp->get_voisin2());
155     if (itv2==tetdetruit.end())
156     if (tettmp->get_voisin2()->point_dans_la_sphere(x,y,z)!=0)
157     ajoute_tetra_cavite(tettmp->get_voisin2(),tetdetruit,basetri);
158     }
159     if (tettmp->get_voisin3()!=NULL)
160     {
161     std::vector<DLY_TETRA*>::iterator itv2=find(tetdetruit.begin(),tetdetruit.end(),tettmp->get_voisin3());
162     if (itv2==tetdetruit.end())
163     if (tettmp->get_voisin3()->point_dans_la_sphere(x,y,z)!=0)
164     ajoute_tetra_cavite(tettmp->get_voisin3(),tetdetruit,basetri);
165     }
166     if (tettmp->get_voisin4()!=NULL)
167     {
168     std::vector<DLY_TETRA*>::iterator itv2=find(tetdetruit.begin(),tetdetruit.end(),tettmp->get_voisin4());
169     if (itv2==tetdetruit.end())
170     if (tettmp->get_voisin4()->point_dans_la_sphere(x,y,z)!=0)
171     ajoute_tetra_cavite(tettmp->get_voisin4(),tetdetruit,basetri);
172 francois 947 }
173     }
174    
175 francois 285
176     int res=0;
177     do
178     {
179     res=modifie_cavite(tetdetruit,basetri,nbtetrabase,x,y,z);
180     }
181     while (res==0);
182    
183    
184    
185    
186     for (int i=0;i<tetdetruit.size();i++)
187     {
188     /*std::multimap<double, DLY_TETRA*, std::greater<double> >::iterator it2=front.find(tetdetruit[i]->get_critere_subdivision());
189     while ((*it2).second!=tetdetruit[i])
190     it2++;
191     front.erase(it2);*/
192     retirer_front(tetdetruit[i]->get_segment1());
193     retirer_front(tetdetruit[i]->get_segment2());
194     retirer_front(tetdetruit[i]->get_segment3());
195     retirer_front(tetdetruit[i]->get_segment4());
196     retirer_front(tetdetruit[i]->get_segment5());
197     retirer_front(tetdetruit[i]->get_segment6());
198    
199     }
200     DLY_NOEUD* no=new DLY_NOEUD(tabnoeud.size(),x,y,z);
201     tabnoeud.push_back(no);
202     for (int i=0;i<basetri.size();i++)
203     {
204     int frontiere=basetri[i]->est_frontiere();
205     int coplanaire=basetri[i]->est_coplanaire(no->get_x(),no->get_y(),no->get_z());
206     if ((frontiere==0) || ((frontiere==1) && (coplanaire==0)))
207     {
208     DLY_TETRA* tetnv=cree_tetra(basetri[i]->get_noeud1(),basetri[i]->get_noeud2(),basetri[i]->get_noeud3(),no);
209     tetcree.push_back(tetnv);
210     }
211 francois 947 }
212     for (int i=0;i<tetdetruit.size();i++)
213     tetdetruit[i]->ajoute_fils(tetcree);
214     for (int i=0;i<tetcree.size();i++)
215     {
216     mise_a_jour_voisin(tetcree[i]);
217     if (tetcree[i]->get_voisin1()!=NULL) mise_a_jour_voisin(tetcree[i]->get_voisin1());
218     if (tetcree[i]->get_voisin2()!=NULL) mise_a_jour_voisin(tetcree[i]->get_voisin2());
219     if (tetcree[i]->get_voisin3()!=NULL) mise_a_jour_voisin(tetcree[i]->get_voisin3());
220     if (tetcree[i]->get_voisin4()!=NULL) mise_a_jour_voisin(tetcree[i]->get_voisin4());
221 francois 285 }
222 francois 947 }
223    
224    
225     void MAILLEUR_DELAUNAY::raffine_maillage(void)
226     {
227     if (typemailleur==DELAUNAYCARTE)
228     while ((*(front_trie.begin())).first>critere_arret)
229     //for (int jj=0;jj<10000;jj++)
230     {
231     // std::multimap<double, DLY_TETRA*, std::greater<double> >::iterator it=front.begin();
232     std::multimap<double, DLY_SEGMENT*, std::greater<double> >::iterator it=front_trie.begin();
233     //DLY_TETRA* tet=(*it).second;
234     DLY_SEGMENT* seg=(*it).second;
235     DLY_TETRA* tet=seg->get_tetra_feuille();
236     std::vector<double> lstptdecoup;
237     seg->decoupe_noeud(lstptdecoup);
238     int nbptdecoup=lstptdecoup.size()/3;
239     for (int j=0;j<nbptdecoup;j++)
240     {
241     double x=lstptdecoup[3*j];
242     double y=lstptdecoup[3*j+1];
243     double z=lstptdecoup[3*j+2];
244     insere_noeud_delaunay(tet,x,y,z);
245    
246    
247 francois 285 double volold=0.;
248     double volnew=0.;
249     /*for (int i=0;i<tetdetruit.size();i++)
250     volold=volold+tetdetruit[i]->calcul_volume(NULL,0);
251     for (int i=0;i<tetcree.size();i++)
252     volnew=volnew+tetcree[i]->calcul_volume(NULL,0);
253     if (fabs(volold-volnew)>0.000000000001*volold)
254     //std::cout << volold << " remplacé par " << volnew << " Étape " << jj << " " << j << std::endl;
255     */
256 francois 947
257 francois 285 /* for (int i=0;i<tabtet.size();i++)
258     {
259     DLY_TETRA* tet=tabtet[i];
260     if (tet->get_feuille()==0) continue;
261     if (tet->get_voisin1()!=NULL)
262     if (tet->get_voisin1()->get_feuille()==0)
263     {
264     std::cout << "bug1 " << jj << " "<< j<< std::endl;
265     return;
266     }
267     if (tet->get_voisin2()!=NULL)
268     if (tet->get_voisin2()->get_feuille()==0)
269     {
270     std::cout << "bug2 " << jj << " "<< j<< std::endl;
271     return;
272     }
273     if (tet->get_voisin3()!=NULL)
274     if (tet->get_voisin3()->get_feuille()==0)
275     {
276     std::cout << "bug3 "<< jj << " "<< j << std::endl;
277     return;
278     }
279     if (tet->get_voisin4()!=NULL)
280     if (tet->get_voisin4()->get_feuille()==0)
281     {
282     std::cout << "bug4 "<< jj << " "<< j << std::endl;
283     return;
284     }
285    
286     }*/
287     /* mai=new MG_MAILLAGE(NULL);
288     MG_GESTIONNAIRE g;
289     g.ajouter_mg_maillage(mai);
290     transfert_maillage(&tabnoeud,NULL,&tabtet);
291     g.enregistrer("test.magic");*/
292    
293     }
294     }
295 francois 947
296     if (typemailleur==DELAUNAYLISTENOEUD)
297     for (int i=0;i<xnoeud.size();i++)
298     insere_noeud_delaunay(NULL,xnoeud[i],ynoeud[i],znoeud[i]);
299 francois 285 }
300    
301     void MAILLEUR_DELAUNAY::ajouter_front(double crit,DLY_SEGMENT* seg)
302     {
303     if (crit>critere_arret)
304     {
305     std::pair<const unsigned long long,DLY_SEGMENT*> tmp((const unsigned long long)seg,seg);
306     std::pair<std::map<const unsigned long long,DLY_SEGMENT*>::iterator,bool> res=front.insert(tmp);
307     if (res.second==true)
308     {
309     seg->change_critere(crit);
310     std::pair<double,DLY_SEGMENT*> tmp2(crit,seg);
311     front_trie.insert(tmp2);
312     }
313     }
314     }
315     void MAILLEUR_DELAUNAY::retirer_front(DLY_SEGMENT* seg)
316     {
317     std::map<const unsigned long long,DLY_SEGMENT*>::iterator it=front.find((const unsigned long long)seg);
318     if (it==front.end()) return;
319     front.erase(it);
320     std::multimap<double,DLY_SEGMENT*,std::greater<double> >::iterator it2=front_trie.find(seg->get_critere());
321     while ((*it2).second!=seg)
322     it2++;
323     front_trie.erase(it2);
324     }
325     int MAILLEUR_DELAUNAY::modifie_cavite(std::vector<DLY_TETRA*> &cavite,std::vector<DLY_TRIANGLE*> &basetri,int nbbase,double x, double y,double z)
326     {
327     std::map<unsigned long long,DLY_TETRA*> tetasupprimercavite;
328     for (int i=0;i<basetri.size();i++)
329     {
330     DLY_TRIANGLE* tri=basetri[i];
331     DLY_TETRA* inte=NULL;
332     DLY_TETRA* exte=NULL;
333     for (int j=0;j<tri->get_nb_tetra();j++)
334     {
335     DLY_TETRA* tet=tri->get_tetra(j);
336     if (tet->get_feuille()==1)
337     {
338     std::vector<DLY_TETRA*>::iterator it=find(cavite.begin(),cavite.end(),tet);
339     if (it==cavite.end()) exte=tet;
340     else inte=tet;
341     }
342     }
343     double nor[3];
344     int base=0;
345     for (int j=0;j<nbbase;j++)
346     if (inte==cavite[j]) base=1;
347     if (base==1) continue;
348     if (inte->get_triangle1()==tri) inte->get_normal1(nor);
349     if (inte->get_triangle2()==tri) inte->get_normal2(nor);
350     if (inte->get_triangle3()==tri) inte->get_normal3(nor);
351     if (inte->get_triangle4()==tri) inte->get_normal4(nor);
352     nor[0]=-nor[0];
353     nor[1]=-nor[1];
354     nor[2]=-nor[2];
355     double xyzo[3];
356     tri->get_noeud1()->get_coord(xyzo);
357     OT_VECTEUR_3D vecdir(x-xyzo[0],y-xyzo[1],z-xyzo[2]);
358     OT_VECTEUR_3D normal(nor);
359     vecdir.norme();
360     double ps=vecdir*normal;
361     if (ps<0.000000001)
362     {
363     tri->est_frontiere();
364     //retire_tetra_cavite(inte,cavite,basetri);
365     unsigned long long adresse=(unsigned long long)inte;
366     tetasupprimercavite.insert(std::pair<unsigned long long,DLY_TETRA*>(adresse,inte));
367    
368     }
369     }
370     int nbtetasupprimer=tetasupprimercavite.size();
371     if (nbtetasupprimer==0) return 1;
372     for (std::map<unsigned long long,DLY_TETRA*>::iterator it=tetasupprimercavite.begin();it!=tetasupprimercavite.end();it++)
373     retire_tetra_cavite((*it).second,cavite,basetri);
374    
375     return 0;
376     }
377    
378    
379     void MAILLEUR_DELAUNAY::retire_tetra_cavite(DLY_TETRA* tet,std::vector<DLY_TETRA*> &cavite,std::vector<DLY_TRIANGLE*> &basetri)
380     {
381     std::vector<DLY_TETRA*>::iterator it=find(cavite.begin(),cavite.end(),tet);
382     cavite.erase(it);
383     std::vector<DLY_TRIANGLE*>::iterator itv=find(basetri.begin(),basetri.end(),tet->get_triangle1());
384     if (itv==basetri.end()) basetri.push_back(tet->get_triangle1());
385     else basetri.erase(itv);
386     itv=find(basetri.begin(),basetri.end(),tet->get_triangle2());
387     if (itv==basetri.end()) basetri.push_back(tet->get_triangle2());
388     else basetri.erase(itv);
389     itv=find(basetri.begin(),basetri.end(),tet->get_triangle3());
390     if (itv==basetri.end()) basetri.push_back(tet->get_triangle3());
391     else basetri.erase(itv);
392     itv=find(basetri.begin(),basetri.end(),tet->get_triangle4());
393     if (itv==basetri.end()) basetri.push_back(tet->get_triangle4());
394     else basetri.erase(itv);
395     }
396    
397     void MAILLEUR_DELAUNAY::ajoute_tetra_cavite(DLY_TETRA* tet,std::vector<DLY_TETRA*> &cavite,std::vector<DLY_TRIANGLE*> &basetri)
398     {
399     cavite.push_back(tet);
400     std::vector<DLY_TRIANGLE*>::iterator itv=find(basetri.begin(),basetri.end(),tet->get_triangle1());
401     if (itv==basetri.end()) basetri.push_back(tet->get_triangle1());
402     else basetri.erase(itv);
403     itv=find(basetri.begin(),basetri.end(),tet->get_triangle2());
404     if (itv==basetri.end()) basetri.push_back(tet->get_triangle2());
405     else basetri.erase(itv);
406     itv=find(basetri.begin(),basetri.end(),tet->get_triangle3());
407     if (itv==basetri.end()) basetri.push_back(tet->get_triangle3());
408     else basetri.erase(itv);
409     itv=find(basetri.begin(),basetri.end(),tet->get_triangle4());
410     if (itv==basetri.end()) basetri.push_back(tet->get_triangle4());
411     else basetri.erase(itv);
412     }
413    
414     void MAILLEUR_DELAUNAY::initialise_maillage(void)
415     {
416 francois 947 BOITE_3D boite;
417     if (typemailleur==DELAUNAYCARTE)
418     {
419     boite=carte->get_boite_3D();
420     boite.change_grosseur(0.9999999999999);
421     }
422     if (typemailleur==DELAUNAYLISTENOEUD)
423     {
424     boite=boiteexterieur;
425     }
426 francois 467 double xmin=boite.get_xmin();
427     double ymin=boite.get_ymin();
428     double zmin=boite.get_zmin();
429     double xmax=boite.get_xmax();
430     double ymax=boite.get_ymax();
431     double zmax=boite.get_zmax();
432 francois 285 DLY_NOEUD* no1=new DLY_NOEUD(tabnoeud.size(),xmin,ymin,zmin);
433     tabnoeud.push_back(no1);
434     DLY_NOEUD* no2=new DLY_NOEUD(tabnoeud.size(),xmin,ymax,zmin);
435     tabnoeud.push_back(no2);
436     DLY_NOEUD* no3=new DLY_NOEUD(tabnoeud.size(),xmax,ymax,zmin);
437     tabnoeud.push_back(no3);
438     DLY_NOEUD* no4=new DLY_NOEUD(tabnoeud.size(),xmax,ymin,zmin);
439     tabnoeud.push_back(no4);
440     DLY_NOEUD* no5=new DLY_NOEUD(tabnoeud.size(),xmin,ymin,zmax);
441     tabnoeud.push_back(no5);
442     DLY_NOEUD* no6=new DLY_NOEUD(tabnoeud.size(),xmin,ymax,zmax);
443     tabnoeud.push_back(no6);
444     DLY_NOEUD* no7=new DLY_NOEUD(tabnoeud.size(),xmax,ymax,zmax);
445     tabnoeud.push_back(no7);
446     DLY_NOEUD* no8=new DLY_NOEUD(tabnoeud.size(),xmax,ymin,zmax);
447     tabnoeud.push_back(no8);
448     DLY_TETRA* tet1=cree_tetra(no2,no1,no3,no6);
449     DLY_TETRA* tet2=cree_tetra(no3,no1,no4,no5);
450     DLY_TETRA* tet3=cree_tetra(no3,no1,no5,no6);
451     DLY_TETRA* tet4=cree_tetra(no8,no5,no7,no4);
452     DLY_TETRA* tet5=cree_tetra(no7,no5,no6,no3);
453     DLY_TETRA* tet6=cree_tetra(no4,no3,no5,no7);
454     mise_a_jour_voisin(tet1);
455     mise_a_jour_voisin(tet2);
456     mise_a_jour_voisin(tet3);
457     mise_a_jour_voisin(tet4);
458     mise_a_jour_voisin(tet5);
459     mise_a_jour_voisin(tet6);
460     char message[255];
461     sprintf(message," Volume espace : %lf",(xmax-xmin)*(ymax-ymin)*(zmax-zmin));
462     if (affichageactif) affiche(message);
463     }
464     void MAILLEUR_DELAUNAY::mise_a_jour_voisin(DLY_TETRA* tet)
465     {
466     int nb=tet->get_triangle1()->get_nb_tetra();
467     for (int i=0;i<nb;i++)
468     {
469     DLY_TETRA* tetmp=tet->get_triangle1()->get_tetra(i);
470     if (tetmp->get_feuille()==1)
471     if (tetmp!=tet) tet->change_voisin1(tetmp);
472     }
473     nb=tet->get_triangle2()->get_nb_tetra();
474     for (int i=0;i<nb;i++)
475     {
476     DLY_TETRA* tetmp=tet->get_triangle2()->get_tetra(i);
477     if (tetmp->get_feuille()==1)
478     if (tetmp!=tet) tet->change_voisin2(tetmp);
479     }
480     nb=tet->get_triangle3()->get_nb_tetra();
481     for (int i=0;i<nb;i++)
482     {
483     DLY_TETRA* tetmp=tet->get_triangle3()->get_tetra(i);
484     if (tetmp->get_feuille()==1)
485     if (tetmp!=tet) tet->change_voisin3(tetmp);
486     }
487     nb=tet->get_triangle4()->get_nb_tetra();
488     for (int i=0;i<nb;i++)
489     {
490     DLY_TETRA* tetmp=tet->get_triangle4()->get_tetra(i);
491     if (tetmp->get_feuille()==1)
492     if (tetmp!=tet) tet->change_voisin4(tetmp);
493     }
494     }
495    
496    
497     DLY_TETRA* MAILLEUR_DELAUNAY::cree_tetra(DLY_NOEUD* n1,DLY_NOEUD* n2,DLY_NOEUD* n3,DLY_NOEUD* n4)
498     {
499     double xyz1[3],xyz2[3],xyz3[3],xyz4[3];
500     n1->get_coord(xyz1);
501     n2->get_coord(xyz2);
502     n3->get_coord(xyz3);
503     n4->get_coord(xyz4);
504     double qual=OPERATEUR::qualite_tetra(xyz1,xyz2,xyz3,xyz4);
505     DLY_TETRA* tet;
506     if (!(qual>0.))
507     {
508     DLY_NOEUD* ntmp=n1;
509     n1=n2;
510     n2=ntmp;
511     }
512     tet=new DLY_TETRA(n1,n2,n3,n4,fabs(qual));
513     tabtet.push_back(tet);
514     tet->change_triangle1(get_triangle(n1,n2,n3));
515     tet->change_triangle2(get_triangle(n1,n2,n4));
516     tet->change_triangle3(get_triangle(n1,n3,n4));
517     tet->change_triangle4(get_triangle(n2,n3,n4));
518     tet->change_segment1(get_segment(n1,n2));
519     tet->change_segment2(get_segment(n1,n3));
520     tet->change_segment3(get_segment(n1,n4));
521     tet->change_segment4(get_segment(n2,n3));
522     tet->change_segment5(get_segment(n2,n4));
523     tet->change_segment6(get_segment(n3,n4));
524     // std::pair<double,DLY_TETRA*> tmp(tet->get_critere_subdivision(),tet);
525 francois 947 if (typemailleur==DELAUNAYCARTE)
526     {
527 francois 532 ajouter_front(tet->get_segment1()->calcul_longueur(carte,pas,1),tet->get_segment1());
528     ajouter_front(tet->get_segment2()->calcul_longueur(carte,pas,1),tet->get_segment2());
529     ajouter_front(tet->get_segment3()->calcul_longueur(carte,pas,1),tet->get_segment3());
530     ajouter_front(tet->get_segment4()->calcul_longueur(carte,pas,1),tet->get_segment4());
531     ajouter_front(tet->get_segment5()->calcul_longueur(carte,pas,1),tet->get_segment5());
532     ajouter_front(tet->get_segment6()->calcul_longueur(carte,pas,1),tet->get_segment6());
533 francois 947 }
534 francois 285 return tet;
535     }
536     DLY_SEGMENT* MAILLEUR_DELAUNAY::get_segment(DLY_NOEUD* n1,DLY_NOEUD* n2)
537     {
538    
539     DLY_NOEUD* no;
540     if (n1->get_num()<n2->get_num()) no=n1;
541     else no=n2;
542     DLY_SEGMENT* seg=no->get_lien_segment(n1,n2);
543     if (seg==NULL)
544     {
545     seg=new DLY_SEGMENT(n1,n2);
546     tabseg.push_back(seg);
547     no->insere_lien_segment(seg);
548     }
549     return seg;
550     }
551    
552     DLY_TRIANGLE* MAILLEUR_DELAUNAY::get_triangle(DLY_NOEUD* n1,DLY_NOEUD* n2,DLY_NOEUD* n3)
553     {
554     DLY_NOEUD* no;
555     if (n1->get_num()<n2->get_num()) no=n1;
556     else no=n2;
557     if (n3->get_num()<no->get_num()) no=n3;
558     DLY_TRIANGLE* tri=no->get_lien_triangle(n1,n2,n3);
559     if (tri==NULL)
560     {
561     tri=new DLY_TRIANGLE(n1,n2,n3);
562     tabtri.push_back(tri);
563     no->insere_lien_triangle(tri);
564     }
565     return tri;
566     }
567    
568    
569     DLY_TETRA* MAILLEUR_DELAUNAY::get_tetra(double x,double y,double z)
570     {
571     DLY_TETRA* tet;
572     tet=get_tetra(tabtet[0],x,y,z);
573     if (tet!=NULL) return tet;
574     tet=get_tetra(tabtet[1],x,y,z);
575     if (tet!=NULL) return tet;
576     tet=get_tetra(tabtet[2],x,y,z);
577     if (tet!=NULL) return tet;
578     tet=get_tetra(tabtet[3],x,y,z);
579     if (tet!=NULL) return tet;
580     tet=get_tetra(tabtet[4],x,y,z);
581     if (tet!=NULL) return tet;
582     tet=get_tetra(tabtet[5],x,y,z);
583     if (tet!=NULL) return tet;
584     return NULL;
585     }
586    
587     DLY_TETRA* MAILLEUR_DELAUNAY::get_tetra(DLY_TETRA* tet,double x,double y,double z)
588     {
589 francois 947 if (tet==NULL) return get_tetra(x,y,z);
590 francois 285 if (tet->point_dans_le_tetra(x,y,z))
591     {
592     if (tet->get_feuille()==1) return tet;
593     int nb=tet->get_nb_fils();
594     for (int i=0;i<nb;i++)
595     {
596     DLY_TETRA* tetrep=get_tetra(tet->get_fils(i),x,y,z);
597     if (tetrep!=NULL) return tetrep;
598     }
599     }
600     return NULL;
601     }
602    
603    
604     void MAILLEUR_DELAUNAY::transfert_maillage(std::vector<DLY_NOEUD*> *tabn,std::vector<DLY_TRIANGLE*> *tabe2d,std::vector<DLY_TETRA*> *tabe3d)
605     {
606     for (int i=0;i<tabn->size();i++)
607     {
608     DLY_NOEUD *no=(*tabn)[i];
609 francois 791 M3D_NOEUD* noeud=new M3D_NOEUD(NULL,no->get_x(),no->get_y(),no->get_z(),MAGIC::ORIGINE::MAILLEUR_AUTO);
610 francois 285 mai->ajouter_mg_noeud(noeud);
611     no->change_noeud(noeud);
612 francois 287 noeud->etat_actif();
613 francois 285 }
614     if (tabe2d!=NULL)
615     {
616     for (int i=0;i<tabe2d->size();i++)
617     {
618     DLY_TRIANGLE* tri=(*tabe2d)[i];
619     if (tri->est_frontiere())
620 francois 791 MG_TRIANGLE *mgtri=mai->ajouter_mg_triangle(NULL,tri->get_noeud1()->get_noeud(),tri->get_noeud2()->get_noeud(),tri->get_noeud3()->get_noeud(),MAGIC::ORIGINE::MAILLEUR_AUTO);
621 francois 285 }
622     }
623     else
624     {
625     double vol=0.;
626     double nbmaitheo=0;
627     for (int i=0;i<tabe3d->size();i++)
628     {
629     DLY_TETRA* tet=(*tabe3d)[i];
630     if (tet->get_feuille()==1)
631     {
632 francois 287 MG_TRIANGLE* mgtriangle1=mai->get_mg_triangle(tet->get_noeud1()->get_noeud()->get_id(),tet->get_noeud3()->get_noeud()->get_id(),tet->get_noeud2()->get_noeud()->get_id());
633     MG_TRIANGLE* mgtriangle2=mai->get_mg_triangle(tet->get_noeud1()->get_noeud()->get_id(),tet->get_noeud2()->get_noeud()->get_id(),tet->get_noeud4()->get_noeud()->get_id());
634     MG_TRIANGLE* mgtriangle3=mai->get_mg_triangle(tet->get_noeud2()->get_noeud()->get_id(),tet->get_noeud3()->get_noeud()->get_id(),tet->get_noeud4()->get_noeud()->get_id());
635     MG_TRIANGLE* mgtriangle4=mai->get_mg_triangle(tet->get_noeud1()->get_noeud()->get_id(),tet->get_noeud4()->get_noeud()->get_id(),tet->get_noeud3()->get_noeud()->get_id());
636 francois 791 if (mgtriangle1==NULL) mgtriangle1=mai->ajouter_mg_triangle(NULL,tet->get_noeud1()->get_noeud(),tet->get_noeud3()->get_noeud(),tet->get_noeud2()->get_noeud(),MAGIC::ORIGINE::MAILLEUR_AUTO);
637     if (mgtriangle2==NULL) mgtriangle2=mai->ajouter_mg_triangle(NULL,tet->get_noeud1()->get_noeud(),tet->get_noeud2()->get_noeud(),tet->get_noeud4()->get_noeud(),MAGIC::ORIGINE::MAILLEUR_AUTO);
638     if (mgtriangle3==NULL) mgtriangle3=mai->ajouter_mg_triangle(NULL,tet->get_noeud2()->get_noeud(),tet->get_noeud3()->get_noeud(),tet->get_noeud4()->get_noeud(),MAGIC::ORIGINE::MAILLEUR_AUTO);
639     if (mgtriangle4==NULL) mgtriangle4=mai->ajouter_mg_triangle(NULL,tet->get_noeud1()->get_noeud(),tet->get_noeud4()->get_noeud(),tet->get_noeud3()->get_noeud(),MAGIC::ORIGINE::MAILLEUR_AUTO);
640     M3D_TETRA* mgtet=mgtet=new M3D_TETRA(NULL,tet->get_noeud1()->get_noeud(),tet->get_noeud2()->get_noeud(),tet->get_noeud3()->get_noeud(),tet->get_noeud4()->get_noeud(),mgtriangle1,mgtriangle2,mgtriangle3,mgtriangle4,MAGIC::ORIGINE::MAILLEUR_AUTO);
641 francois 287 mai->ajouter_mg_tetra(mgtet);
642     int tabnoeud[4]={0,0,0,0};
643     if (tet->get_triangle1()->est_frontiere()) {tabnoeud[0]=1;tabnoeud[1]=1;tabnoeud[2]=1;}
644     if (tet->get_triangle2()->est_frontiere()) {tabnoeud[0]=1;tabnoeud[1]=1;tabnoeud[3]=1;}
645     if (tet->get_triangle3()->est_frontiere()) {tabnoeud[0]=1;tabnoeud[2]=1;tabnoeud[3]=1;}
646     if (tet->get_triangle4()->est_frontiere()) {tabnoeud[1]=1;tabnoeud[2]=1;tabnoeud[3]=1;}
647     if (tabnoeud[0]==1) ((M3D_NOEUD*)mgtet->get_noeud1())->etat_inactif();
648     if (tabnoeud[1]==1) ((M3D_NOEUD*)mgtet->get_noeud2())->etat_inactif();
649     if (tabnoeud[2]==1) ((M3D_NOEUD*)mgtet->get_noeud3())->etat_inactif();
650     if (tabnoeud[3]==1) ((M3D_NOEUD*)mgtet->get_noeud4())->etat_inactif();
651    
652     vol=vol+tet->calcul_volume(NULL,0);
653 francois 285 nbmaitheo=nbmaitheo+tet->calcul_volume(carte,0);
654     }
655     }
656 francois 288 LISTE_MG_SEGMENT::iterator it;
657     for (MG_SEGMENT *seg=mai->get_premier_segment(it);seg;seg=mai->get_suivant_segment(it))
658     {
659     M3D_NOEUD* no1=(M3D_NOEUD*)seg->get_noeud1();
660     M3D_NOEUD* no2=(M3D_NOEUD*)seg->get_noeud2();
661     seg->change_dimension_topo_null(3);
662 francois 1149 if (no1->get_etat()==MAGIC::MAILLEURFRONTALETAT::INACTIF)
663     if (no2->get_etat()==MAGIC::MAILLEURFRONTALETAT::INACTIF)
664 francois 288 {
665     OT_VECTEUR_3D vec(no1->get_coord(),no2->get_coord());
666     vec.norme();
667     OT_VECTEUR_3D vecx(1.,0.,0.);
668     OT_VECTEUR_3D vecy(0.,1.,0.);
669     OT_VECTEUR_3D vecz(0.,0.,1.);
670     if (fabs(vecx*vec)<1e-10) seg->change_dimension_topo_null(2);
671     else if (fabs(vecy*vec)<1e-10) seg->change_dimension_topo_null(2);
672     else if (fabs(vecz*vec)<1e-10) seg->change_dimension_topo_null(2);
673     }
674    
675     }
676 francois 285 char message[255];
677     sprintf(message," Volume maille : %lf",vol);
678     if (affichageactif) affiche(message);
679     nbmaitheo=12.*nbmaitheo/sqrt(2);
680     double erreur=nbmaitheo-mai->get_nb_mg_tetra();
681     erreur=erreur/mai->get_nb_mg_tetra();
682     sprintf(message," Nombre de maille theorique : %d, Nombre de maille pratique %d, erreur %.2lf%%",(int)nbmaitheo,mai->get_nb_mg_tetra(),erreur);
683     if (affichageactif) affiche(message);
684     }
685    
686     }
687    
688    
689     int MAILLEUR_DELAUNAY::est_de_delaunay(void)
690     {
691     for (int i=0;i<tabtet.size();i++)
692     {
693     DLY_TETRA* tet=tabtet[i];
694     for (int j=0;j<tabnoeud.size();j++)
695     {
696     DLY_NOEUD* no=tabnoeud[j];
697     if (no!=tet->get_noeud1())
698     if (no!=tet->get_noeud2())
699     if (no!=tet->get_noeud3())
700     if (no!=tet->get_noeud4())
701     {
702     int num=tet->point_dans_la_sphere(no->get_x(),no->get_y(),no->get_z()>1);
703     if (num>1)
704     return 0;
705    
706     }
707     }
708     }
709     return 1;
710     }