ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magic/app/VMM/VMM/win32/visuwin.cpp
Revision: 62
Committed: Fri Nov 16 16:46:00 2007 UTC (17 years, 9 months ago) by francois
File size: 212454 byte(s)
Log Message: 
Nouvelle version de VMM avec couleur configurable et affichage de l 'origine des mailles
Nouveau prog de transfert
Nouvelle version de mailleur avec toutes les options disponibles

File Contents

# User Rev Content
1 5 //------------------------------------------------------------
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     // visuwin.cpp
16     //
17     //------------------------------------------------------------
18     //------------------------------------------------------------
19     // COPYRIGHT 2000
20     // Version du 02/03/2006 à 11H26
21     //------------------------------------------------------------
22     //------------------------------------------------------------
23    
24    
25     #include "gestionversion.h"
26    
27     #include <vcl.h>
28     #include <io.h>
29     #pragma hdrstop
30     #include "magicform.h"
31     #include "main.h"
32     #include "visuwin.h"
33     #include "veriwin.h"
34     #include "visuctt.h"
35     #include "visuarbre.h"
36     #include "config.h"
37     #include "ccfwin.h"
38     #include "carte3dform.h"
39     #include "matwin.h"
40     #include "importcosmos.h"
41     #include "importcarte.h"
42     #include "tpl_grille.h"
43     #include "ot_boite_3d.h"
44     #include "visuparametrique.h"
45     #include "solveur.h"
46     #include "recons.h"
47 francois 56 #include "mg_export.h"
48 5
49     //---------------------------------------------------------------------------
50     #pragma package(smart_init)
51     #pragma resource "*.dfm"
52     TVisuWinform *VisuWinform;
53     //---------------------------------------------------------------------------
54     __fastcall TVisuWinform::TVisuWinform(TComponent* Owner)
55     : TForm(Owner),zoom(0),dx(0.0),dy(0.0),debut_trans(false),shrink(0),facteur_shrink(0.8),qualite(0),render(0),axe(0),noeud(0),affnoeud(0),affmaille(0),maille(7),debut_rot(0)
56     {
57     }
58     //---------------------------------------------------------------------------
59     void __fastcall TVisuWinform::FormClose(TObject *Sender,
60     TCloseAction &Action)
61     {
62     MainForm->ToolBar1->Visible=false;
63     MainForm->ToolBar3->Visible=false;
64     lst_visu.clear();
65     if (gest!=NULL) delete gest;
66     MainForm->StatusBar->Panels->Items[3]->Text="";
67     MainForm->StatusBar->Panels->Items[4]->Text="";
68     Action=caFree;
69     }
70     //---------------------------------------------------------------------------
71    
72     void __fastcall TVisuWinform::FormActivate(TObject *Sender)
73     {
74     MainForm->ToolBar1->Visible=true;
75     MainForm->ToolBar3->Visible=true;
76     MainForm->activewinform=this;
77     MainForm->ToolButton6->ImageIndex=iconeactive;
78     FILE* in=fopen(Caption.c_str(),"rt");
79     if (in!=NULL)
80     {
81     std::ftime ft;
82     getftime(fileno(in), &ft);
83     char mess[1000];
84     sprintf(mess,"Heure fichier: %02u:%02u:%02u\n",ft.ft_hour, ft.ft_min,ft.ft_tsec * 2);
85     MainForm->StatusBar->Panels->Items[3]->Text=mess;
86     sprintf(mess,"Jour fichier: %02u/%02u/%02u\n",ft.ft_day, ft.ft_month,ft.ft_year+1980);
87     MainForm->StatusBar->Panels->Items[4]->Text=mess;
88     fclose(in);
89     }
90     }
91     //---------------------------------------------------------------------------
92    
93     void __fastcall TVisuWinform::FormDeactivate(TObject *Sender)
94     {
95     MainForm->ToolBar1->Visible=false;
96     MainForm->ToolBar3->Visible=false;
97     MainForm->activewinform=NULL;
98     iconeactive=MainForm->ToolButton6->ImageIndex;
99     MainForm->StatusBar->Panels->Items[3]->Text="";
100     MainForm->StatusBar->Panels->Items[4]->Text="";
101     }
102     //---------------------------------------------------------------------------
103    
104    
105     void __fastcall TVisuWinform::lancermagicExecute(TObject *Sender)
106     {
107     TVisuMagicform *Child;
108 francois 62 Child = new TVisuMagicform(Application,MainForm,gest);
109 5 Child->Caption=Caption;
110     FILE* in=fopen(Caption.c_str(),"rt");
111     if (in!=NULL)
112     {
113     std::ftime ft;
114     getftime(fileno(in), &ft);
115     char mess[1000];
116     sprintf(mess,"Heure fichier: %02u:%02u:%02u\n",ft.ft_hour, ft.ft_min,ft.ft_tsec * 2);
117     MainForm->StatusBar->Panels->Items[3]->Text=mess;
118     sprintf(mess,"Jour fichier: %02u/%02u/%02u\n",ft.ft_day, ft.ft_month,ft.ft_year+1980);
119     MainForm->StatusBar->Panels->Items[4]->Text=mess;
120     fclose(in);
121     }
122     }
123     //---------------------------------------------------------------------------
124    
125    
126     void __fastcall TVisuWinform::miseajourarbre(void)
127     {
128     int nb_geometrie=gest->get_nb_mg_geometrie();
129     int nb_maillage=gest->get_nb_mg_maillage();
130     int nb_fem_maillage=gest->get_nb_fem_maillage();
131     TreeView1->Items->Clear();
132     TreeView1->Items->Add(NULL,"Modèle MAGiC");
133     TTreeNode *root = TreeView1->Items->Item[0];
134     root->ImageIndex=7;
135     root->SelectedIndex=7;
136     root->StateIndex=7;
137     TTreeNode *rootg= TreeView1->Items->AddChild(root,"Géométrie");
138     rootg->ImageIndex=7;
139     rootg->SelectedIndex=7;
140     rootg->StateIndex=7;
141     for (int i=0;i<nb_geometrie;i++)
142     {
143     MG_GEOMETRIE* mggeo=gest->get_mg_geometrie(i);
144     char mess[100];
145     sprintf(mess,"%lu",mggeo->get_id());
146     TTreeNode* georoot=TreeView1->Items->AddChild(rootg,mess);
147     georoot->ImageIndex=7;
148     georoot->SelectedIndex=7;
149     georoot->StateIndex=7;
150     TTreeNode* nodvol=TreeView1->Items->AddChild(georoot,"Volume");
151     nodvol->ImageIndex=7;
152     nodvol->SelectedIndex=7;
153     nodvol->StateIndex=7;
154     int nbvol=mggeo->get_nb_mg_volume();
155     for (int j=0;j<nbvol;j++)
156     {
157     MG_VOLUME* mgvol=mggeo->get_mg_volume(j);
158     char mess[100];
159     sprintf(mess,"%lu",mgvol->get_id());
160     TTreeNode* node=TreeView1->Items->AddChild(nodvol,mess);
161     node->ImageIndex=-1;
162     node->SelectedIndex=-1;
163     node->StateIndex=-1;
164     }
165     TTreeNode* nodfac=TreeView1->Items->AddChild(georoot,"Face");
166     nodfac->ImageIndex=7;
167     nodfac->SelectedIndex=7;
168     nodfac->StateIndex=7;
169     int nbface=mggeo->get_nb_mg_face();
170     for (int j=0;j<nbface;j++)
171     {
172     MG_FACE* mgface=mggeo->get_mg_face(j);
173     char mess[100];
174     sprintf(mess,"%lu",mgface->get_id());
175     TTreeNode* node=TreeView1->Items->AddChild(nodfac,mess);
176     node->ImageIndex=-1;
177     node->SelectedIndex=-1;
178     node->StateIndex=-1;
179     }
180     TTreeNode* nodare=TreeView1->Items->AddChild(georoot,"Arête");
181     nodare->ImageIndex=7;
182     nodare->SelectedIndex=7;
183     nodare->StateIndex=7;
184     int nbare=mggeo->get_nb_mg_arete();
185     for (int j=0;j<nbare;j++)
186     {
187     MG_ARETE* mgare=mggeo->get_mg_arete(j);
188     char mess[100];
189     sprintf(mess,"%lu",mgare->get_id());
190     TTreeNode* node=TreeView1->Items->AddChild(nodare,mess);
191     node->ImageIndex=-1;
192     node->SelectedIndex=-1;
193     node->StateIndex=-1;
194     }
195     TTreeNode* nodsom=TreeView1->Items->AddChild(georoot,"Sommet");
196     nodsom->ImageIndex=7;
197     nodsom->SelectedIndex=7;
198     nodsom->StateIndex=7;
199     int nbsommet=mggeo->get_nb_mg_sommet();
200     for (int j=0;j<nbsommet;j++)
201     {
202     MG_SOMMET* mgsom=mggeo->get_mg_sommet(j);
203     char mess[100];
204     sprintf(mess,"%lu",mgsom->get_id());
205     TTreeNode* node=TreeView1->Items->AddChild(nodsom,mess);
206     node->ImageIndex=-1;
207     node->SelectedIndex=-1;
208     node->StateIndex=-1;
209     }
210     }
211     TTreeNode *rootm= TreeView1->Items->AddChild(root,"Maillage géométrique");
212     rootm->ImageIndex=7;
213     rootm->SelectedIndex=7;
214     rootm->StateIndex=7;
215     for (int i=0;i<nb_maillage;i++)
216     {
217     MG_MAILLAGE* mgmai=gest->get_mg_maillage(i);
218     char mess[100];
219     sprintf(mess,"%lu",mgmai->get_id());
220     TTreeNode* mairoot=TreeView1->Items->AddChild(rootm,mess);
221     mairoot->ImageIndex=7;
222     mairoot->SelectedIndex=7;
223     mairoot->StateIndex=7;
224     TTreeNode* node=TreeView1->Items->AddChild(mairoot,"Maillage 1D");
225     node->ImageIndex=-1;
226     node->SelectedIndex=-1;
227     node->StateIndex=-1;
228     node=TreeView1->Items->AddChild(mairoot,"Maillage 2D");
229     node->ImageIndex=-1;
230     node->SelectedIndex=-1;
231     node->StateIndex=-1;
232     node=TreeView1->Items->AddChild(mairoot,"Maillage 3D");
233     node->ImageIndex=-1;
234     node->SelectedIndex=-1;
235     node->StateIndex=-1;
236     }
237     TTreeNode *rootmfem=TreeView1->Items->AddChild(root,"Maillage FEM");
238     rootmfem->ImageIndex=7;
239     rootmfem->SelectedIndex=7;
240     rootmfem->StateIndex=7;
241     for (int i=0;i<nb_fem_maillage;i++)
242     {
243     FEM_MAILLAGE* femmai=gest->get_fem_maillage(i);
244     char mess[100];
245     sprintf(mess,"%lu",femmai->get_id());
246     TTreeNode* mairoot=TreeView1->Items->AddChild(rootmfem,mess);
247     mairoot->ImageIndex=7;
248     mairoot->SelectedIndex=7;
249     mairoot->StateIndex=7;
250     TTreeNode* node=TreeView1->Items->AddChild(mairoot,"Maillage 1D");
251     node->ImageIndex=-1;
252     node->SelectedIndex=-1;
253     node->StateIndex=-1;
254     node=TreeView1->Items->AddChild(mairoot,"Maillage 2D");
255     node->ImageIndex=-1;
256     node->SelectedIndex=-1;
257     node->StateIndex=-1;
258     node=TreeView1->Items->AddChild(mairoot,"Maillage 3D");
259     node->ImageIndex=-1;
260     node->SelectedIndex=-1;
261     node->StateIndex=-1;
262     }
263     changeimage(rootg,46);
264     initliste();
265     ComboBox1->Clear();
266     int nb=gest->get_nb_mg_solution();
267     for (int i=0;i<nb;i++)
268     {
269     MG_SOLUTION* sol=gest->get_mg_solution(i);
270     ComboBox1->Items->Add(sol->get_nom().c_str());
271     }
272     nb=gest->get_nb_fem_solution();
273     for (int i=0;i<nb;i++)
274     {
275     FEM_SOLUTION* sol=gest->get_fem_solution(i);
276     ComboBox1->Items->Add(sol->get_nom().c_str());
277     }
278     }
279    
280     void __fastcall TVisuWinform::initliste(void)
281     {
282     lst_face.vide();
283     lst_arete.vide();
284     lst_sommet.vide();
285     lst_volume.vide();
286     lst_m1d.vide();
287     lst_m2d.vide();
288     lst_m3d.vide();
289     lst_segment.clear();
290     lst_triangle.clear();
291     lst_tetra.clear();
292     lst_noeud.clear();
293     lst_m1d_fem.vide();
294     lst_m2d_fem.vide();
295     lst_m3d_fem.vide();
296     lst_segment_fem.clear();
297     lst_triangle_fem.clear();
298     lst_tetra_fem.clear();
299     lst_noeud_fem.clear();
300     TTreeNode *root = TreeView1->Items->Item[0];
301     TTreeNode *rootg = root->Item[0];
302     int nb_geo=rootg->Count;
303     if (nb_geo>0)
304     {
305     for (int i=0;i<nb_geo;i++)
306     {
307     TTreeNode *geo = rootg->Item[i];
308     MG_GEOMETRIE* mggeo=gest->get_mg_geometrieid(atol(geo->Text.c_str()));
309     TTreeNode *geovol = geo->Item[0];
310     int nb=geovol->Count;
311     for (int j=0;j<nb;j++)
312     {
313     TTreeNode *node=geovol->Item[j];
314     if (node->ImageIndex==46)
315     {
316     MG_VOLUME* mgvol=mggeo->get_mg_volumeid(atol(node->Text.c_str()));
317     lst_volume.ajouter(mgvol);
318     }
319     }
320     TTreeNode *geoface = geo->Item[1];
321     nb=geoface->Count;
322     for (int j=0;j<nb;j++)
323     {
324     TTreeNode *node=geoface->Item[j];
325     if (node->ImageIndex==46)
326     {
327     MG_FACE* mgfac=mggeo->get_mg_faceid(atol(node->Text.c_str()));
328     lst_face.ajouter(mgfac);
329     }
330     }
331     TTreeNode *geoarete = geo->Item[2];
332     nb=geoarete->Count;
333     for (int j=0;j<nb;j++)
334     {
335     TTreeNode *node=geoarete->Item[j];
336     if (node->ImageIndex==46)
337     {
338     MG_ARETE* mgarete=mggeo->get_mg_areteid(atol(node->Text.c_str()));
339     lst_arete.ajouter(mgarete);
340     }
341     }
342     TTreeNode *geosommet = geo->Item[3];
343     nb=geosommet->Count;
344     for (int j=0;j<nb;j++)
345     {
346     TTreeNode *node=geosommet->Item[j];
347     if (node->ImageIndex==46)
348     {
349     MG_SOMMET* mgsommet=mggeo->get_mg_sommetid(atol(node->Text.c_str()));
350     lst_sommet.ajouter(mgsommet);
351     }
352     }
353    
354     }
355    
356     TTreeNode *rootm = root->Item[1];
357     int nb_mai=rootm->Count;
358     for (int i=0;i<nb_mai;i++)
359     {
360     TTreeNode *mai = rootm->Item[i];
361     MG_MAILLAGE* mgmai=gest->get_mg_maillageid(atol(mai->Text.c_str()));
362     if ((ListBox1->ItemIndex!=-1) && (CheckBox1->Checked==true) )
363     {
364     MG_SOLUTION* sol=gest->get_mg_solution(ComboBox1->ItemIndex);
365     if (sol==NULL) continue;
366     unsigned long idmai=sol->get_maillage()->get_id();
367     if (mgmai->get_id()!=idmai) continue;
368     }
369     TTreeNode *mai1d = mai->Item[0];
370     if (mai1d->ImageIndex==46) lst_m1d.ajouter(mgmai);
371     TTreeNode *mai2d = mai->Item[1];
372     if (mai2d->ImageIndex==46) lst_m2d.ajouter(mgmai);
373     TTreeNode *mai3d = mai->Item[2];
374     if (mai3d->ImageIndex==46) lst_m3d.ajouter(mgmai);
375     }
376    
377     TTreeNode *rootmfem = root->Item[2];
378     int nb_mai_fem=rootmfem->Count;
379     for (int i=0;i<nb_mai_fem;i++)
380     {
381     TTreeNode *mai = rootmfem->Item[i];
382     FEM_MAILLAGE* femmai=gest->get_fem_maillageid(atol(mai->Text.c_str()));
383     if ((ListBox1->ItemIndex!=-1) && (CheckBox1->Checked==true) )
384     {
385     FEM_SOLUTION* sol=gest->get_fem_solution(ComboBox1->ItemIndex-gest->get_nb_mg_solution());
386     if (sol==NULL) continue;
387     unsigned long idmai=sol->get_maillage()->get_id();
388     if (femmai->get_id()!=idmai) continue;
389     }
390     TTreeNode *mai1d = mai->Item[0];
391     if (mai1d->ImageIndex==46) lst_m1d_fem.ajouter(femmai);
392     TTreeNode *mai2d = mai->Item[1];
393     if (mai2d->ImageIndex==46) lst_m2d_fem.ajouter(femmai);
394     TTreeNode *mai3d = mai->Item[2];
395     if (mai3d->ImageIndex==46) lst_m3d_fem.ajouter(femmai);
396     }
397    
398     for (int i=0;i<lst_volume.get_nb();i++)
399     {
400     MG_VOLUME* mgvol=lst_volume.get(i);
401     int nb_m3d=lst_m3d.get_nb();
402     TPL_SET<MG_ELEMENT_MAILLAGE*>::ITERATEUR it_tet;
403     for (MG_TETRA* mgtet=(MG_TETRA*)mgvol->get_lien_maillage()->get_premier(it_tet);mgtet;mgtet=(MG_TETRA*)mgvol->get_lien_maillage()->get_suivant(it_tet))
404     {
405 francois 62 if (CheckListBox1->Checked[(mgtet->get_origine()-1000)/10]==false) continue;
406 5 int ok=0;
407     for (int k=0;k<nb_m3d;k++)
408     {
409     MG_MAILLAGE* mgmai=lst_m3d.get(k);
410     MG_TETRA* tetemp=mgmai->get_mg_tetraid(mgtet->get_id());
411     if (tetemp!=NULL) ok=1;
412     }
413     if (ok==1)
414     {
415     lst_tetra.insert(lst_tetra.end(),mgtet);
416     MG_NOEUD* noeud1=mgtet->get_noeud1();
417     MG_NOEUD* noeud2=mgtet->get_noeud2();
418     MG_NOEUD* noeud3=mgtet->get_noeud3();
419     MG_NOEUD* noeud4=mgtet->get_noeud4();
420     lst_noeud.insert(lst_noeud.end(),noeud1);
421     lst_noeud.insert(lst_noeud.end(),noeud2);
422     lst_noeud.insert(lst_noeud.end(),noeud3);
423     lst_noeud.insert(lst_noeud.end(),noeud4);
424     }
425     }
426     int nb_tet_fem=mgvol->get_lien_fem_maillage()->get_nb();
427     int nb_m3d_fem=lst_m3d_fem.get_nb();
428     for (int j=0;j<nb_tet_fem;j++)
429     {
430     FEM_TETRA* femtet=(FEM_TETRA*)mgvol->get_lien_fem_maillage()->get(j);
431 francois 62 if (CheckListBox1->Checked[(femtet->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
432 5 int ok=0;
433     for (int k=0;k<nb_m3d_fem;k++)
434     {
435     FEM_MAILLAGE* femmai=lst_m3d_fem.get(k);
436     FEM_TETRA* tetemp=femmai->get_fem_tetraid(femtet->get_id());
437     if (tetemp!=NULL) ok=1;
438     }
439     if (ok==1)
440     {
441     lst_tetra_fem.insert(lst_tetra_fem.end(),femtet);
442     int nb_noeud=femtet->get_nb_fem_noeud();
443     for (int k=0;k<nb_noeud;k++)
444     {
445     FEM_NOEUD* noeud=femtet->get_fem_noeud(k);
446     lst_noeud_fem.insert(lst_noeud_fem.end(),noeud);
447     }
448     }
449     }
450     }
451     for (int i=0;i<lst_face.get_nb();i++)
452     {
453     MG_FACE* mgface=lst_face.get(i);
454     int nb_m2d=lst_m2d.get_nb();
455     TPL_SET<MG_ELEMENT_MAILLAGE*>::ITERATEUR it_tri;
456     for (MG_TRIANGLE* mgtri=(MG_TRIANGLE*)mgface->get_lien_maillage()->get_premier(it_tri);mgtri;mgtri=(MG_TRIANGLE*)mgface->get_lien_maillage()->get_suivant(it_tri))
457     {
458 francois 62 if (CheckListBox1->Checked[(mgtri->get_origine()-1000)/10]==false) continue;
459 5 int ok=0;
460     for (int k=0;k<nb_m2d;k++)
461     {
462     MG_MAILLAGE* mgmai=lst_m2d.get(k);
463     MG_TRIANGLE* tritemp=mgmai->get_mg_triangleid(mgtri->get_id());
464     if (tritemp!=NULL) ok=1;
465     }
466     if (ok==1)
467     {
468     lst_triangle.insert(lst_triangle.end(),mgtri);
469     MG_NOEUD* noeud1=mgtri->get_noeud1();
470     MG_NOEUD* noeud2=mgtri->get_noeud2();
471     MG_NOEUD* noeud3=mgtri->get_noeud3();
472     lst_noeud.insert(lst_noeud.end(),noeud1);
473     lst_noeud.insert(lst_noeud.end(),noeud2);
474     lst_noeud.insert(lst_noeud.end(),noeud3);
475     }
476     }
477     int nb_tri_fem=mgface->get_lien_fem_maillage()->get_nb();
478     int nb_m2d_fem=lst_m2d_fem.get_nb();
479     for (int j=0;j<nb_tri_fem;j++)
480     {
481     FEM_TRIANGLE* femtri=(FEM_TRIANGLE*)mgface->get_lien_fem_maillage()->get(j);
482 francois 62 if (CheckListBox1->Checked[(femtri->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
483 5 int ok=0;
484     for (int k=0;k<nb_m2d_fem;k++)
485     {
486     FEM_MAILLAGE* femmai=lst_m2d_fem.get(k);
487     FEM_TRIANGLE* tritemp=femmai->get_fem_triangleid(femtri->get_id());
488     if (tritemp!=NULL) ok=1;
489     }
490     if (ok==1)
491     {
492     lst_triangle_fem.insert(lst_triangle_fem.end(),femtri);
493     int nb_noeud=femtri->get_nb_fem_noeud();
494     for (int k=0;k<nb_noeud;k++)
495     {
496     FEM_NOEUD* noeud=femtri->get_fem_noeud(k);
497     lst_noeud_fem.insert(lst_noeud_fem.end(),noeud);
498     }
499     }
500     }
501     }
502     for (int i=0;i<lst_arete.get_nb();i++)
503     {
504     MG_ARETE* mgarete=lst_arete.get(i);
505     int nb_m1d=lst_m1d.get_nb();
506     TPL_SET<MG_ELEMENT_MAILLAGE*>::ITERATEUR it_are;
507     for (MG_SEGMENT* mgsegment=(MG_SEGMENT*)mgarete->get_lien_maillage()->get_premier(it_are);mgsegment;mgsegment=(MG_SEGMENT*)mgarete->get_lien_maillage()->get_suivant(it_are))
508     {
509 francois 62 if (CheckListBox1->Checked[(mgsegment->get_origine()-1000)/10]==false) continue;
510 5 int ok=0;
511     for (int k=0;k<nb_m1d;k++)
512     {
513     MG_MAILLAGE* mgmai=lst_m1d.get(k);
514     MG_SEGMENT* segtemp=mgmai->get_mg_segmentid(mgsegment->get_id());
515     if (segtemp!=NULL) ok=1;
516     }
517     if (ok==1)
518     {
519     lst_segment.insert(lst_segment.end(),mgsegment);
520     MG_NOEUD* noeud1=mgsegment->get_noeud1();
521     MG_NOEUD* noeud2=mgsegment->get_noeud2();
522     lst_noeud.insert(lst_noeud.end(),noeud1);
523     lst_noeud.insert(lst_noeud.end(),noeud2);
524     }
525     }
526     int nb_seg_fem=mgarete->get_lien_fem_maillage()->get_nb();
527     int nb_m1d_fem=lst_m1d_fem.get_nb();
528     for (int j=0;j<nb_seg_fem;j++)
529     {
530     FEM_SEGMENT* femseg=(FEM_SEGMENT*)mgarete->get_lien_fem_maillage()->get(j);
531 francois 62 if (CheckListBox1->Checked[(femseg->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
532 5 int ok=0;
533     for (int k=0;k<nb_m1d_fem;k++)
534     {
535     FEM_MAILLAGE* femmai=lst_m1d_fem.get(k);
536     FEM_SEGMENT* segtemp=femmai->get_fem_segmentid(femseg->get_id());
537     if (segtemp!=NULL) ok=1;
538     }
539     if (ok==1)
540     {
541     lst_segment_fem.insert(lst_segment_fem.end(),femseg);
542     int nb_noeud=femseg->get_nb_fem_noeud();
543     for (int k=0;k<nb_noeud;k++)
544     {
545     FEM_NOEUD* noeud=femseg->get_fem_noeud(k);
546     lst_noeud_fem.insert(lst_noeud_fem.end(),noeud);
547     }
548     }
549     }
550     }
551     }
552     else
553     {
554     TTreeNode *rootm = root->Item[1];
555     int nb_mai=rootm->Count;
556     for (int i=0;i<nb_mai;i++)
557     {
558     TTreeNode *mai = rootm->Item[i];
559     MG_MAILLAGE* mgmai=gest->get_mg_maillageid(atol(mai->Text.c_str()));
560     if ((ListBox1->ItemIndex!=-1) && (CheckBox1->Checked==true) )
561     {
562     MG_SOLUTION* sol=gest->get_mg_solution(ComboBox1->ItemIndex);
563     if (sol==NULL) continue;
564     unsigned long idmai=sol->get_maillage()->get_id();
565     if (mgmai->get_id()!=idmai) continue;
566     }
567     TTreeNode *mai1d = mai->Item[0];
568     if (mai1d->ImageIndex==46)
569     {
570     int nbseg=mgmai->get_nb_mg_segment();
571     for (int k=0;k<nbseg;k++)
572     {
573     MG_SEGMENT* seg=mgmai->get_mg_segment(k);
574 francois 62 if (CheckListBox1->Checked[(seg->get_origine()-1000)/10]==false) continue;
575 5 MG_NOEUD* noeud1=seg->get_noeud1();
576     MG_NOEUD* noeud2=seg->get_noeud2();
577     lst_noeud.insert(lst_noeud.end(),noeud1);
578     lst_noeud.insert(lst_noeud.end(),noeud2);
579     lst_segment.insert(lst_segment.end(),seg);
580     }
581     }
582     TTreeNode *mai2d = mai->Item[1];
583     if (mai2d->ImageIndex==46)
584     {
585     int nbtri=mgmai->get_nb_mg_triangle();
586     for (int k=0;k<nbtri;k++)
587     {
588     MG_TRIANGLE* tri=mgmai->get_mg_triangle(k);
589 francois 62 if (CheckListBox1->Checked[(tri->get_origine()-1000)/10]==false) continue;
590 5 MG_NOEUD* noeud1=tri->get_noeud1();
591     MG_NOEUD* noeud2=tri->get_noeud2();
592     MG_NOEUD* noeud3=tri->get_noeud3();
593     lst_noeud.insert(lst_noeud.end(),noeud1);
594     lst_noeud.insert(lst_noeud.end(),noeud2);
595     lst_noeud.insert(lst_noeud.end(),noeud3);
596     lst_triangle.insert(lst_triangle.end(),tri);
597     }
598     }
599     TTreeNode *mai3d = mai->Item[2];
600     if (mai3d->ImageIndex==46)
601     {
602     int nbtet=mgmai->get_nb_mg_tetra();
603     for (int k=0;k<nbtet;k++)
604     {
605     MG_TETRA* tet=mgmai->get_mg_tetra(k);
606 francois 62 if (CheckListBox1->Checked[(tet->get_origine()-1000)/10]==false) continue;
607 5 MG_NOEUD* noeud1=tet->get_noeud1();
608     MG_NOEUD* noeud2=tet->get_noeud2();
609     MG_NOEUD* noeud3=tet->get_noeud3();
610     MG_NOEUD* noeud4=tet->get_noeud4();
611     lst_noeud.insert(lst_noeud.end(),noeud1);
612     lst_noeud.insert(lst_noeud.end(),noeud2);
613     lst_noeud.insert(lst_noeud.end(),noeud3);
614     lst_noeud.insert(lst_noeud.end(),noeud4);
615     lst_tetra.insert(lst_tetra.end(),tet);
616     }
617     }
618     }
619     TTreeNode *rootmfem = root->Item[2];
620     int nb_mai_fem=rootmfem->Count;
621     for (int i=0;i<nb_mai_fem;i++)
622     {
623     TTreeNode *mai = rootm->Item[i];
624     FEM_MAILLAGE* femmai=gest->get_fem_maillageid(atol(mai->Text.c_str()));
625     if ((ListBox1->ItemIndex!=-1) && (CheckBox1->Checked==true) )
626     {
627     FEM_SOLUTION* sol=gest->get_fem_solution(ComboBox1->ItemIndex-gest->get_nb_mg_solution());
628     if (sol==NULL) continue;
629     unsigned long idmai=sol->get_maillage()->get_id();
630     if (femmai->get_id()!=idmai) continue;
631     }
632     TTreeNode *mai1d = mai->Item[0];
633     if (mai1d->ImageIndex==46)
634     {
635     int nbseg=femmai->get_nb_fem_segment();
636     for (int k=0;k<nbseg;k++)
637     {
638     FEM_SEGMENT* seg=femmai->get_fem_segment(k);
639 francois 62 if (CheckListBox1->Checked[(seg->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
640 5 lst_segment_fem.insert(lst_segment_fem.end(),seg);
641     int nb_noeud=seg->get_nb_fem_noeud();
642     for (int l=0;l<nb_noeud;l++)
643     {
644     FEM_NOEUD* noeud=seg->get_fem_noeud(l);
645     lst_noeud_fem.insert(lst_noeud_fem.end(),noeud);
646     }
647     }
648     }
649     TTreeNode *mai2d = mai->Item[1];
650     if (mai2d->ImageIndex==46)
651     {
652     int nbtri=femmai->get_nb_fem_triangle();
653     for (int k=0;k<nbtri;k++)
654     {
655     FEM_TRIANGLE* tri=femmai->get_fem_triangle(k);
656 francois 62 if (CheckListBox1->Checked[(tri->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
657 5 lst_triangle_fem.insert(lst_triangle_fem.end(),tri);
658     int nb_noeud=tri->get_nb_fem_noeud();
659     for (int l=0;l<nb_noeud;l++)
660     {
661     FEM_NOEUD* noeud=tri->get_fem_noeud(l);
662     lst_noeud_fem.insert(lst_noeud_fem.end(),noeud);
663     }
664     }
665     }
666     TTreeNode *mai3d = mai->Item[2];
667     if (mai3d->ImageIndex==46)
668     {
669     int nbtet=femmai->get_nb_fem_tetra();
670     for (int k=0;k<nbtet;k++)
671     {
672     FEM_TETRA* tet=femmai->get_fem_tetra(k);
673 francois 62 if (CheckListBox1->Checked[(tet->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
674 5 lst_tetra_fem.insert(lst_tetra_fem.end(),tet);
675     int nb_noeud=tet->get_nb_fem_noeud();
676     for (int l=0;l<nb_noeud;l++)
677     {
678     FEM_NOEUD* noeud=tet->get_fem_noeud(l);
679     lst_noeud_fem.insert(lst_noeud_fem.end(),noeud);
680     }
681     }
682    
683     }
684     }
685     }
686     }
687     //---------------------------------------------------------------------------
688    
689     void __fastcall TVisuWinform::Slectionner1Click(TObject *Sender)
690     {
691     TTreeNode* node=TreeView1->Selected;
692     changeimage(node,46);
693     initliste();
694     redess();
695     TreeView1->Enabled=false;
696     TreeView1->Enabled=true;
697     }
698     //---------------------------------------------------------------------------
699    
700    
701     void __fastcall TVisuWinform::changeimage(TTreeNode* node,int num)
702     {
703     if (node==NULL) return;
704     if (node->Count==0)
705     {
706     node->ImageIndex=num;
707     node->SelectedIndex=num;
708     node->StateIndex=num;
709     }
710     else
711     {
712     int nb=node->Count;
713     for (int i=0;i<nb;i++)
714     changeimage(node->Item[i],num);
715     }
716     }
717     //---------------------------------------------------------------------------
718    
719     void __fastcall TVisuWinform::Dselectionner1Click(TObject *Sender)
720     {
721     TTreeNode* node=TreeView1->Selected;
722     changeimage(node,-1);
723     initliste();
724     redess();
725     TreeView1->Enabled=false;
726     TreeView1->Enabled=true;
727     }
728     //---------------------------------------------------------------------------
729    
730     void __fastcall TVisuWinform::InverserSelection1Click(TObject *Sender)
731     {
732     TTreeNode* node=TreeView1->Selected;
733     inverseimage(node,-1,46);
734     initliste();
735     redess();
736     TreeView1->Enabled=false;
737     TreeView1->Enabled=true;
738     }
739     //---------------------------------------------------------------------------
740     void __fastcall TVisuWinform::inverseimage(TTreeNode* node,int num1,int num2)
741     {
742     if (node==NULL) return;
743     if (node->Count==0)
744     {
745     int num;
746     if (node->ImageIndex==num1) num=num2; else num=num1;
747     node->ImageIndex=num;
748     node->SelectedIndex=num;
749     node->StateIndex=num;
750     }
751     else
752     {
753     int nb=node->Count;
754     for (int i=0;i<nb;i++)
755     inverseimage(node->Item[i],num1,num2);
756     }
757     }
758     //---------------------------------------------------------------------------
759    
760     void __fastcall TVisuWinform::Etendre1Click(TObject *Sender)
761     {
762     TreeView1->FullExpand();
763     TreeView1->Enabled=false;
764     TreeView1->Enabled=true;
765     }
766     //---------------------------------------------------------------------------
767    
768     void __fastcall TVisuWinform::Rduire1Click(TObject *Sender)
769     {
770     TreeView1->FullCollapse();
771     TreeView1->Enabled=false;
772     TreeView1->Enabled=true;
773     }
774     //---------------------------------------------------------------------------
775    
776     void __fastcall TVisuWinform::miseajourmodeleExecute(TObject *Sender)
777     {
778     Screen->Cursor=crHourGlass;
779     Invalidate();
780     if (gest!=NULL) delete gest;
781     gest=new MG_FILE(Caption.c_str());
782     if (gest->get_code_de_lecture()==0)
783     {
784     MessageBox(Handle,"Erreur de lecture du fichier","Erreur", MB_OK);
785     delete gest;
786     gest=NULL;
787     Screen->Cursor=crDefault;
788     Invalidate();
789     Close();
790     return;
791     }
792     lst_visu.clear();
793     miseajourarbre();
794     Screen->Cursor=crDefault;
795     TreeView1->FullCollapse();
796     Invalidate();
797     ChangemodeExecute(Sender);
798     ChangemodeExecute(Sender);
799     TrackBar1->Min=0;
800     TrackBar1->Max=100;
801     TrackBar1->Position=0;
802     TrackBar2->Min=0;
803     TrackBar2->Max=100;
804     TrackBar2->Position=100;
805     TrackBar3->Min=0;
806     TrackBar3->Max=100;
807     TrackBar3->Position=0;
808     TrackBar4->Min=0;
809     TrackBar4->Max=100;
810     TrackBar4->Position=100;
811     TrackBar5->Min=0;
812     TrackBar5->Max=100;
813     TrackBar5->Position=0;
814     TrackBar6->Min=0;
815     TrackBar6->Max=100;
816     TrackBar6->Position=100;
817     FILE* in=fopen(Caption.c_str(),"rt");
818     if (in!=NULL)
819     {
820     std::ftime ft;
821     getftime(fileno(in), &ft);
822     char mess[1000];
823     sprintf(mess,"Heure fichier: %u:%u:%u\n",ft.ft_hour, ft.ft_min,ft.ft_tsec * 2);
824     MainForm->StatusBar->Panels->Items[3]->Text=mess;
825     sprintf(mess,"Jour fichier: %u/%u/%u\n",ft.ft_month, ft.ft_day,ft.ft_year+1980);
826     MainForm->StatusBar->Panels->Items[4]->Text=mess;
827     fclose(in);
828     }
829    
830     }
831     //---------------------------------------------------------------------------
832    
833     void __fastcall TVisuWinform::lancerverimeshExecute(TObject *Sender)
834     {
835     Tverimesh *Child;
836     Child = new Tverimesh(Application,*gest,boite,*this);
837     Child->Caption=Caption;
838     }
839     //---------------------------------------------------------------------------
840    
841     void __fastcall TVisuWinform::FormCreate(TObject *Sender)
842     {
843     hdc = GetDC(Handle);
844     SetPixelFormatDescriptor();
845     hrc = wglCreateContext(hdc);
846     if (hrc == NULL)
847     ShowMessage(":-)~ hrc == NULL");
848     if(wglMakeCurrent(hdc, hrc) == false)
849     ShowMessage("Could not MakeCurrent");
850     wglMakeCurrent (hdc, hrc);
851     SelectObject (hdc, GetStockObject (SYSTEM_FONT));
852     wglUseFontBitmaps (hdc, 0, 255, 1000);
853     glClearColor(MainForm->valeurconfig[11],MainForm->valeurconfig[12],MainForm->valeurconfig[13], 0.0f);
854     ListBox1->Height=TabSheet2->ClientHeight-ListBox1->Top-Label2->Height-Button3->Height;
855     ListBox3->Height=TabSheet6->ClientHeight-ListBox3->Top-5*Button3->Height;
856     Button6->Top=ListBox3->Top+ListBox3->Height+Button6->Height;
857     Button7->Top=ListBox3->Top+ListBox3->Height+3*Button6->Height;
858     Button3->Top=ListBox1->Top+ListBox1->Height;
859     TabSheet3->TabVisible=false;
860     TabSheet6->TabVisible=false;
861 francois 56 TabSheet7->TabVisible=false;
862 5 PageControl1->ActivePage=TabSheet1;
863     TrackBar1->Min=0;
864     TrackBar1->Max=100;
865     TrackBar1->Position=0;
866     TrackBar2->Min=0;
867     TrackBar2->Max=100;
868     TrackBar2->Position=100;
869     TrackBar3->Min=0;
870     TrackBar3->Max=100;
871     TrackBar3->Position=0;
872     TrackBar4->Min=0;
873     TrackBar4->Max=100;
874     TrackBar4->Position=100;
875     TrackBar5->Min=0;
876     TrackBar5->Max=100;
877     TrackBar5->Position=0;
878     TrackBar6->Min=0;
879     TrackBar6->Max=100;
880     TrackBar6->Position=100;
881 francois 62 CheckListBox1->Checked[0]=true;
882     CheckListBox1->Checked[1]=true;
883     CheckListBox1->Checked[2]=true;
884     CheckListBox1->Checked[3]=true;
885     CheckListBox1->Checked[4]=true;
886 5 }
887     //---------------------------------------------------------------------------
888     void __fastcall TVisuWinform::SetPixelFormatDescriptor(void)
889     {
890     PIXELFORMATDESCRIPTOR pfd = {
891     sizeof(PIXELFORMATDESCRIPTOR),
892     1,
893     PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER,
894     PFD_TYPE_RGBA,
895     24,
896     0,0,0,0,0,0,
897     0,0,
898     0,0,0,0,0,
899     32,
900     0,
901     0,
902     PFD_MAIN_PLANE,
903     0,
904     0,0,
905     };
906     int PixelFormat = ChoosePixelFormat(hdc, &pfd);
907     SetPixelFormat(hdc, PixelFormat, &pfd);
908     }
909     //---------------------------------------------------------------------------
910     void __fastcall TVisuWinform::FormPaint(TObject *Sender)
911     {
912     wglMakeCurrent(hdc,hrc);
913     glClearColor(MainForm->valeurconfig[11],MainForm->valeurconfig[12],MainForm->valeurconfig[13], 0.0f);
914 francois 62 for (int i=0;i<14;i++)
915     {
916     RGB_r[i]=MainForm->valeurconfig[66+3*i]*255.;
917     RGB_g[i]=MainForm->valeurconfig[67+3*i]*255.;
918     RGB_b[i]=MainForm->valeurconfig[68+3*i]*255.;
919     }
920 5 redess();
921     }
922     //---------------------------------------------------------------------------
923    
924     void __fastcall TVisuWinform::FormResize(TObject *Sender)
925     {
926     int w=ClientWidth-PageControl1->Width;
927     int h=ClientHeight;
928     while(w==0)
929     {
930     Width++;
931     w=ClientWidth-PageControl1->Width;
932     }
933     while(h==0)
934     {
935     Height++;
936     h=ClientHeight;
937     }
938    
939     recadre(dx,dy,0);
940     redess();
941     ListBox1->Height=TabSheet2->ClientHeight-ListBox1->Top-Label2->Height-Button3->Height;
942     Button3->Top=ListBox1->Top+ListBox1->Height;
943     ListBox3->Height=TabSheet6->ClientHeight-ListBox3->Top-5*Button3->Height;
944     Button6->Top=ListBox3->Top+ListBox3->Height+Button6->Height;
945     Button7->Top=ListBox3->Top+ListBox3->Height+3*Button6->Height;
946     }
947     //---------------------------------------------------------------------------
948    
949     void __fastcall TVisuWinform::ChangemodeExecute(TObject *Sender)
950     {
951     int passe2=0;
952     double xmin,xmax;
953     double ymin,ymax;
954     double zmin,zmax;
955     int passe=lst_visu.size();
956     if (passe==0)
957     {
958     int nbgeo=gest->get_nb_mg_geometrie();
959     //if (nbgeo>0)
960     for (int i=0;i<nbgeo;i++)
961     {
962     MG_GEOMETRIE* mggeo=gest->get_mg_geometrie(i);
963     mggeo->cree_entite_visuel();
964     long nb=mggeo->get_nb_mg_visu_courbe();
965     for (long j=0;j<nb;j++)
966     {
967     double xyz1[3],xyz2[3];
968     MG_VISU_COURBE* mgvcrb=mggeo->get_mg_visu_courbe(j);
969     lst_visu.insert(lst_visu.end(),mgvcrb);
970     mgvcrb->get_coord(xyz1,xyz2);
971     if (passe2==0)
972     {
973     xmin=xyz1[0];
974     xmax=xyz1[0];
975     ymin=xyz1[1];
976     ymax=xyz1[1];
977     zmin=xyz1[2];
978     zmax=xyz1[2];
979     passe2=1;
980     }
981     if (xyz1[0]<xmin) xmin=xyz1[0];
982     if (xyz1[0]>xmax) xmax=xyz1[0];
983     if (xyz1[1]<ymin) ymin=xyz1[1];
984     if (xyz1[1]>ymax) ymax=xyz1[1];
985     if (xyz1[2]<zmin) zmin=xyz1[2];
986     if (xyz1[2]>zmax) zmax=xyz1[2];
987     }
988     // boite.reinit(xmin,ymin,zmin,xmax,ymax,zmax);
989     }
990     //else
991     for (unsigned long i=0;i<gest->get_nb_mg_maillage();i++)
992     {
993     MG_MAILLAGE* mai=gest->get_mg_maillage(i);
994     LISTE_MG_NOEUD::iterator it;
995     for (MG_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
996     {
997     double *xyz=noeud->get_coord();
998     if (xyz[0]<xmin) xmin=xyz[0];
999     if (xyz[0]>xmax) xmax=xyz[0];
1000     if (xyz[1]<ymin) ymin=xyz[1];
1001     if (xyz[1]>ymax) ymax=xyz[1];
1002     if (xyz[2]<zmin) zmin=xyz[2];
1003     if (xyz[2]>zmax) zmax=xyz[2];
1004     }
1005    
1006     }
1007     for (unsigned long i=0;i<gest->get_nb_fem_maillage();i++)
1008     {
1009     FEM_MAILLAGE* mai=gest->get_fem_maillage(i);
1010     LISTE_FEM_NOEUD::iterator it;
1011     for (FEM_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
1012     {
1013     double *xyz=noeud->get_coord();
1014     if (xyz[0]<xmin) xmin=xyz[0];
1015     if (xyz[0]>xmax) xmax=xyz[0];
1016     if (xyz[1]<ymin) ymin=xyz[1];
1017     if (xyz[1]>ymax) ymax=xyz[1];
1018     if (xyz[2]<zmin) zmin=xyz[2];
1019     if (xyz[2]>zmax) zmax=xyz[2];
1020     }
1021    
1022     }
1023     boite.reinit(xmin,ymin,zmin,xmax,ymax,zmax);
1024    
1025     }
1026     if (TreeView1->Enabled==true)
1027     {
1028     TreeView1->Enabled=false;
1029     MainForm->ToolButton6->ImageIndex=48;
1030     }
1031     else
1032     {
1033     TreeView1->Enabled=true;
1034     MainForm->ToolButton6->ImageIndex=43;
1035     }
1036     recadre(dx,dy,0);
1037     if (passe==0) initvue();
1038     redess();
1039     }
1040     //---------------------------------------------------------------------------
1041     void __fastcall TVisuWinform::dessinegeo(void)
1042     {
1043     glLineWidth(MainForm->valeurconfig[29]);
1044    
1045     glBegin(GL_LINES);
1046     glColor3f(MainForm->valeurconfig[26],MainForm->valeurconfig[27],MainForm->valeurconfig[28] );
1047     double x1=boite.get_xmin()+TrackBar1->Position*(boite.get_xmax()-boite.get_xmin())/100.;
1048     double y1=boite.get_ymin()+TrackBar3->Position*(boite.get_ymax()-boite.get_ymin())/100.;
1049     double z1=boite.get_zmin()+TrackBar5->Position*(boite.get_zmax()-boite.get_zmin())/100.;
1050     double x2=boite.get_xmin()+TrackBar2->Position*(boite.get_xmax()-boite.get_xmin())/100.;
1051     double y2=boite.get_ymin()+TrackBar4->Position*(boite.get_ymax()-boite.get_ymin())/100.;
1052     double z2=boite.get_zmin()+TrackBar6->Position*(boite.get_zmax()-boite.get_zmin())/100.;
1053     double dx=(x2-x1)*1.01;
1054     double dy=(y2-y1)*1.01;
1055     double dz=(z2-z1)*1.01;
1056     double xm=(x1+x2)/2.;
1057     x1=xm-dx/2.;x2=xm+dx/2.;
1058     double ym=(y1+y2)/2.;
1059     y1=ym-dy/2.;y2=ym+dy/2.;
1060     double zm=(z1+z2)/2.;
1061     z1=zm-dz/2.;z2=zm+dz/2.;
1062     BOITE_3D boite2(x1,y1,z1,x2,y2,z2);
1063     int nb=lst_visu.size();
1064     for (int i=0;i<nb;i++)
1065     {
1066     MG_VISU_COURBE* mgvcrb=lst_visu[i];
1067     double xyz1[3];
1068     double xyz2[3];
1069     mgvcrb->get_coord(xyz1,xyz2);
1070     BOITE_3D boitmp=mgvcrb->get_boite_3D();
1071     if (boite2*boitmp)
1072     {
1073     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1074     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
1075     }
1076     }
1077     glEnd();
1078     }
1079     //---------------------------------------------------------------------------
1080     void __fastcall TVisuWinform::dessinemai(void)
1081     {
1082     glLineWidth(1.);
1083     double x1=boite.get_xmin()+TrackBar1->Position*(boite.get_xmax()-boite.get_xmin())/100.;
1084     double y1=boite.get_ymin()+TrackBar3->Position*(boite.get_ymax()-boite.get_ymin())/100.;
1085     double z1=boite.get_zmin()+TrackBar5->Position*(boite.get_zmax()-boite.get_zmin())/100.;
1086     double x2=boite.get_xmin()+TrackBar2->Position*(boite.get_xmax()-boite.get_xmin())/100.;
1087     double y2=boite.get_ymin()+TrackBar4->Position*(boite.get_ymax()-boite.get_ymin())/100.;
1088     double z2=boite.get_zmin()+TrackBar6->Position*(boite.get_zmax()-boite.get_zmin())/100.;
1089     double dx=(x2-x1)*1.01;
1090     double dy=(y2-y1)*1.01;
1091     double dz=(z2-z1)*1.01;
1092     double xm=(x1+x2)/2.;
1093     x1=xm-dx/2.;x2=xm+dx/2.;
1094     double ym=(y1+y2)/2.;
1095     y1=ym-dy/2.;y2=ym+dy/2.;
1096     double zm=(z1+z2)/2.;
1097     z1=zm-dz/2.;z2=zm+dz/2.;
1098     BOITE_3D boite2(x1,y1,z1,x2+1e-8,y2+1e-8,z2+1e-8);
1099    
1100     if (noeud)
1101     {
1102     glColor3f(MainForm->valeurconfig[30],MainForm->valeurconfig[31],MainForm->valeurconfig[32]);
1103     glPointSize(MainForm->valeurconfig[33]);
1104     glBegin(GL_POINTS);
1105     int nb=lst_noeud.size();
1106     for (int i=0;i<nb;i++)
1107     {
1108     MG_NOEUD* noeud1=lst_noeud[i];
1109 francois 56 if (N12->Checked)
1110     if (!estdansfiltre(noeud1->get_id())) continue;
1111 francois 62 if (CheckListBox1->Checked[(noeud1->get_origine()-1000)/10]==false) continue;
1112 5 BOITE_3D boitmp=noeud1->get_boite_3D();
1113     if (!(boitmp*boite2)) continue;
1114     int dim;
1115     if (noeud1->get_lien_topologie()==NULL) dim=-1;
1116     else dim=noeud1->get_lien_topologie()->get_dimension();
1117     /*if (dim==0) dim=1;
1118     dim--;*/
1119     if (dim>-1)
1120     {
1121     int binoeud[4];
1122     binoeud[0]=noeud%2;
1123     binoeud[1]=(noeud/2)%2;
1124     binoeud[2]=(noeud/4)%2;
1125     binoeud[3]=(noeud/8)%2;
1126     if (binoeud[dim])
1127     {
1128     double *xyz1=noeud1->get_coord();
1129     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1130     }
1131     }
1132     else
1133     {
1134     double *xyz1=noeud1->get_coord();
1135     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1136     }
1137     }
1138     glEnd();
1139     if (affnoeud)
1140     {
1141     for (int i=0;i<nb;i++)
1142     {
1143     MG_NOEUD* noeud1=lst_noeud[i];
1144 francois 56 if (N12->Checked)
1145     if (!estdansfiltre(noeud1->get_id())) continue;
1146 francois 62 if (CheckListBox1->Checked[(noeud1->get_origine()-1000)/10]==false) continue;
1147 5 BOITE_3D boitmp=noeud1->get_boite_3D();
1148     if (!(boitmp*boite2)) continue;
1149     int dim;
1150     if (noeud1->get_lien_topologie()==NULL) dim=-1;
1151     else dim=noeud1->get_lien_topologie()->get_dimension();
1152     /*if (dim==0) dim=1;
1153     dim--;*/
1154     int binoeud[4];
1155     binoeud[0]=noeud%2;
1156     binoeud[1]=(noeud/2)%2;
1157     binoeud[2]=(noeud/4)%2;
1158     binoeud[3]=(noeud/8)%2;
1159     if (dim>-1)
1160     {
1161     if (binoeud[dim])
1162     {
1163     unsigned long id=noeud1->get_id();
1164     double *xyz=noeud1->get_coord();
1165     char mess[30];
1166     sprintf(mess,"%lu",id);
1167     glRasterPos3f(xyz[0],xyz[1],xyz[2]);
1168     glListBase (1000);
1169     glCallLists (strlen(mess), GL_UNSIGNED_BYTE, mess);
1170     }
1171    
1172     }
1173     else
1174     {
1175     unsigned long id=noeud1->get_id();
1176     double *xyz=noeud1->get_coord();
1177     char mess[30];
1178     sprintf(mess,"%lu",id);
1179     glRasterPos3f(xyz[0],xyz[1],xyz[2]);
1180     glListBase (1000);
1181     glCallLists (strlen(mess), GL_UNSIGNED_BYTE, mess);
1182     }
1183     }
1184    
1185     }
1186     }
1187     int bmaille[3];
1188     bmaille[0]=maille%2;
1189     bmaille[1]=(maille/2)%2;
1190     bmaille[2]=(maille/4)%2;
1191     if (bmaille[0])
1192     {
1193     glLineWidth(MainForm->valeurconfig[17]);
1194     glColor3f(MainForm->valeurconfig[14],MainForm->valeurconfig[15],MainForm->valeurconfig[16]);
1195     glBegin(GL_LINES);
1196     int nb=lst_segment.size();
1197     for (int i=0;i<nb;i++)
1198     {
1199     glColor3f(MainForm->valeurconfig[14],MainForm->valeurconfig[15],MainForm->valeurconfig[16]);
1200     MG_SEGMENT* mgsegment=lst_segment[i];
1201 francois 56 if (N12->Checked)
1202     if (!estdansfiltre(mgsegment->get_id())) continue;
1203 francois 62 if (CheckListBox1->Checked[(mgsegment->get_origine()-1000)/10]==false) continue;
1204 5 BOITE_3D boitmp=mgsegment->get_boite_3D();
1205     if (!(boitmp*boite2)) continue;
1206     MG_NOEUD* noeud1=mgsegment->get_noeud1();
1207     MG_NOEUD* noeud2=mgsegment->get_noeud2();
1208     double *xyz1=noeud1->get_coord();
1209     double *xyz2=noeud2->get_coord();
1210 francois 56 if (qualite==2)
1211     {
1212     int pos=(int) ((mgsegment->get_origine()-1000)/10);
1213 francois 62 glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
1214 francois 56 }
1215 5 if ((mgsegment->get_lien_topologie()==toposel) && (mgsegment->get_lien_topologie()!=NULL) )
1216     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
1217     if (CheckBox1->Checked==true)
1218     {
1219     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1220     if (pos>11) pos=11;
1221     if (pos<0) pos=0;
1222     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1223     }
1224     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1225     if (CheckBox1->Checked==true)
1226     {
1227     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1228     if (pos>11) pos=11;
1229     if (pos<0) pos=0;
1230     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1231     }
1232     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
1233     }
1234     glEnd();
1235     if (affmaille)
1236     {
1237     for (int i=0;i<nb;i++)
1238     {
1239     MG_SEGMENT* mgsegment=lst_segment[i];
1240 francois 56 if (N12->Checked)
1241     if (!estdansfiltre(mgsegment->get_id())) continue;
1242 francois 62 if (CheckListBox1->Checked[(mgsegment->get_origine()-1000)/10]==false) continue;
1243 5 BOITE_3D boitmp=mgsegment->get_boite_3D();
1244     if (!(boitmp*boite2)) continue;
1245     MG_NOEUD* noeud1=mgsegment->get_noeud1();
1246     MG_NOEUD* noeud2=mgsegment->get_noeud2();
1247 francois 56 if (qualite==2)
1248     {
1249     int pos=(int) ((mgsegment->get_origine()-1000)/10);
1250 francois 62 glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
1251 francois 56 }
1252 5 unsigned long id=mgsegment->get_id();
1253     double *xyz1=noeud1->get_coord();
1254     double *xyz2=noeud2->get_coord();
1255     char mess[30];
1256     sprintf(mess,"%lu",id);
1257     glRasterPos3f(0.5*(xyz1[0]+xyz2[0]),0.5*(xyz1[1]+xyz2[1]),0.5*(xyz1[2]+xyz2[2]));
1258     glListBase (1000);
1259     glCallLists (strlen(mess), GL_UNSIGNED_BYTE, mess);
1260     }
1261     }
1262     }
1263     //triangle
1264     if (bmaille[1])
1265     {
1266     if (render>0)
1267     {
1268     if (render>1) InitShading();
1269     glColor3f(MainForm->valeurconfig[34],MainForm->valeurconfig[35],MainForm->valeurconfig[36]);
1270     glEnable(GL_DEPTH_TEST);
1271     glEnable(GL_POLYGON_OFFSET_FILL);
1272     glPolygonOffset(1.0,1.0);
1273     glPolygonMode(GL_FRONT_AND_BACK,GL_FILL);
1274     glBegin(GL_TRIANGLES);
1275     glEdgeFlag(GL_TRUE);
1276     int nb=lst_triangle.size();
1277     for (int i=0;i<nb;i++)
1278     {
1279     glColor3f(MainForm->valeurconfig[34],MainForm->valeurconfig[35],MainForm->valeurconfig[36]);
1280     MG_TRIANGLE* mgtri=lst_triangle[i];
1281 francois 56 if (N12->Checked)
1282     if (!estdansfiltre(mgtri->get_id())) continue;
1283 francois 62 if (CheckListBox1->Checked[(mgtri->get_origine()-1000)/10]==false) continue;
1284 5 BOITE_3D boitmp=mgtri->get_boite_3D();
1285     if (!(boitmp*boite2)) continue;
1286     MG_NOEUD* noeud1=mgtri->get_noeud1();
1287     MG_NOEUD* noeud2=mgtri->get_noeud2();
1288     MG_NOEUD* noeud3=mgtri->get_noeud3();
1289     double *xyz1=noeud1->get_coord();
1290     double *xyz2=noeud2->get_coord();
1291     double *xyz3=noeud3->get_coord();
1292     if ((mgtri->get_lien_topologie()==toposel) && (mgtri->get_lien_topologie()!=NULL) )
1293     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
1294     if (qualite==1)
1295     {
1296     double qual=OPERATEUR::qualite_triangle(xyz1,xyz2,xyz3);
1297     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
1298     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
1299     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
1300     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
1301     }
1302 francois 56 if (qualite==2)
1303     {
1304 francois 62 int pos=(int) ((mgtri->get_origine()-1000)/10);
1305     glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
1306 francois 56 }
1307 5 if (shrink)
1308     {
1309     double xg=0.33333333333333*(xyz1[0]+xyz2[0]+xyz3[0]);
1310     double yg=0.33333333333333*(xyz1[1]+xyz2[1]+xyz3[1]);
1311     double zg=0.33333333333333*(xyz1[2]+xyz2[2]+xyz3[2]);
1312     double x1=xg+facteur_shrink*(xyz1[0]-xg);
1313     double y1=yg+facteur_shrink*(xyz1[1]-yg);
1314     double z1=zg+facteur_shrink*(xyz1[2]-zg);
1315     double x2=xg+facteur_shrink*(xyz2[0]-xg);
1316     double y2=yg+facteur_shrink*(xyz2[1]-yg);
1317     double z2=zg+facteur_shrink*(xyz2[2]-zg);
1318     double x3=xg+facteur_shrink*(xyz3[0]-xg);
1319     double y3=yg+facteur_shrink*(xyz3[1]-yg);
1320     double z3=zg+facteur_shrink*(xyz3[2]-zg);
1321     if (CheckBox1->Checked==true)
1322     {
1323     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1324     if (pos>11) pos=11;
1325     if (pos<0) pos=0;
1326     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1327     }
1328     glVertex3f(x1,y1,z1);
1329     if (CheckBox1->Checked==true)
1330     {
1331     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1332     if (pos>11) pos=11;
1333     if (pos<0) pos=0;
1334     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1335     }
1336     glVertex3f(x3,y3,z3);
1337     if (CheckBox1->Checked==true)
1338     {
1339     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1340     if (pos>11) pos=11;
1341     if (pos<0) pos=0;
1342     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1343     }
1344     glVertex3f(x2,y2,z2);
1345     }
1346     else
1347     {
1348     if (CheckBox1->Checked==true)
1349     {
1350     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1351     if (pos>11) pos=11;
1352     if (pos<0) pos=0;
1353     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1354     }
1355     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1356     if (CheckBox1->Checked==true)
1357     {
1358     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1359     if (pos>11) pos=11;
1360     if (pos<0) pos=0;
1361     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1362     }
1363     glVertex3f(xyz3[0],xyz3[1],xyz3[2]);
1364     if (CheckBox1->Checked==true)
1365     {
1366     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1367     if (pos>11) pos=11;
1368     if (pos<0) pos=0;
1369     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1370     }
1371     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
1372     }
1373     }
1374     glEnd();
1375     }
1376    
1377     glFlush();
1378     if (render>0)
1379     {
1380     glColor3f(MainForm->valeurconfig[37],MainForm->valeurconfig[38],MainForm->valeurconfig[39]);
1381     glLineWidth(MainForm->valeurconfig[40]);
1382     if (render>1) InitShading();
1383     }
1384     else
1385     {
1386     glColor3f(MainForm->valeurconfig[18],MainForm->valeurconfig[19],MainForm->valeurconfig[20]);
1387     glLineWidth(MainForm->valeurconfig[21]);
1388     }
1389     glPolygonMode(GL_FRONT_AND_BACK,GL_LINE);
1390     glBegin(GL_TRIANGLES);
1391     glEdgeFlag(GL_TRUE);
1392     int nb=lst_triangle.size();
1393     for (int i=0;i<nb;i++)
1394     {
1395     if (render>0)
1396     glColor3f(MainForm->valeurconfig[37],MainForm->valeurconfig[38],MainForm->valeurconfig[39]);
1397     else
1398     glColor3f(MainForm->valeurconfig[18],MainForm->valeurconfig[19],MainForm->valeurconfig[20]);
1399     MG_TRIANGLE* mgtri=lst_triangle[i];
1400 francois 56 if (N12->Checked)
1401     if (!estdansfiltre(mgtri->get_id())) continue;
1402 francois 62 if (CheckListBox1->Checked[(mgtri->get_origine()-1000)/10]==false) continue;
1403 5 BOITE_3D boitmp=mgtri->get_boite_3D();
1404     if (!(boitmp*boite2)) continue;
1405     MG_NOEUD* noeud1=mgtri->get_noeud1();
1406     MG_NOEUD* noeud2=mgtri->get_noeud2();
1407     MG_NOEUD* noeud3=mgtri->get_noeud3();
1408     double *xyz1=noeud1->get_coord();
1409     double *xyz2=noeud2->get_coord();
1410     double *xyz3=noeud3->get_coord();
1411     if ( ((mgtri->get_lien_topologie()==toposel)&& (mgtri->get_lien_topologie()!=NULL) && (render==0)) || ((mgtri->get_lien_topologie()==toposel)&&(render==1) && (mgtri->get_lien_topologie()!=NULL) && (MainForm->valeurconfig[56]==0.)))
1412     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
1413     if ( ((qualite==1)&&(render==0)) || ((qualite==1)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
1414     {
1415     double qual=OPERATEUR::qualite_triangle(xyz1,xyz2,xyz3);
1416     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
1417     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
1418     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
1419     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
1420     }
1421 francois 56 if ( ((qualite==2)&&(render==0)) || ((qualite==2)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
1422     {
1423 francois 62 int pos=(int) ((mgtri->get_origine()-1000)/10);
1424     glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
1425     }
1426 francois 56
1427 5 if (shrink)
1428     {
1429     double xg=0.33333333333333*(xyz1[0]+xyz2[0]+xyz3[0]);
1430     double yg=0.33333333333333*(xyz1[1]+xyz2[1]+xyz3[1]);
1431     double zg=0.33333333333333*(xyz1[2]+xyz2[2]+xyz3[2]);
1432     double x1=xg+facteur_shrink*(xyz1[0]-xg);
1433     double y1=yg+facteur_shrink*(xyz1[1]-yg);
1434     double z1=zg+facteur_shrink*(xyz1[2]-zg);
1435     double x2=xg+facteur_shrink*(xyz2[0]-xg);
1436     double y2=yg+facteur_shrink*(xyz2[1]-yg);
1437     double z2=zg+facteur_shrink*(xyz2[2]-zg);
1438     double x3=xg+facteur_shrink*(xyz3[0]-xg);
1439     double y3=yg+facteur_shrink*(xyz3[1]-yg);
1440     double z3=zg+facteur_shrink*(xyz3[2]-zg);
1441     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1442     {
1443     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1444     if (pos>11) pos=11;
1445     if (pos<0) pos=0;
1446     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1447     }
1448     glVertex3f(x1,y1,z1);
1449     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1450     {
1451     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1452     if (pos>11) pos=11;
1453     if (pos<0) pos=0;
1454     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1455     }
1456     glVertex3f(x3,y3,z3);
1457     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1458     {
1459     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1460     if (pos>11) pos=11;
1461     if (pos<0) pos=0;
1462     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1463     }
1464     glVertex3f(x2,y2,z2);
1465     }
1466     else
1467     {
1468     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1469     {
1470     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1471     if (pos>11) pos=11;
1472     if (pos<0) pos=0;
1473     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1474     }
1475     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1476     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1477     {
1478     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1479     if (pos>11) pos=11;
1480     if (pos<0) pos=0;
1481     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1482     }
1483     glVertex3f(xyz3[0],xyz3[1],xyz3[2]);
1484     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1485     {
1486     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1487     if (pos>11) pos=11;
1488     if (pos<0) pos=0;
1489     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1490     }
1491     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
1492     }
1493     }
1494     glEnd();
1495     if (affmaille)
1496     {
1497     for (int i=0;i<nb;i++)
1498     {
1499     MG_TRIANGLE* mgtri=lst_triangle[i];
1500 francois 56 if (N12->Checked)
1501     if (!estdansfiltre(mgtri->get_id())) continue;
1502 francois 62 if (CheckListBox1->Checked[(mgtri->get_origine()-1000)/10]==false) continue;
1503 5 BOITE_3D boitmp=mgtri->get_boite_3D();
1504     if (!(boitmp*boite2)) continue;
1505     MG_NOEUD* noeud1=mgtri->get_noeud1();
1506     MG_NOEUD* noeud2=mgtri->get_noeud2();
1507     MG_NOEUD* noeud3=mgtri->get_noeud3();
1508     double *xyz1=noeud1->get_coord();
1509     double *xyz2=noeud2->get_coord();
1510     double *xyz3=noeud3->get_coord();
1511     unsigned long id=mgtri->get_id();
1512     char mess[30];
1513     sprintf(mess,"%lu",id);
1514     if ( ((qualite==1)&&(render==0)) || ((qualite==1)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
1515     {
1516     double qual=OPERATEUR::qualite_triangle(xyz1,xyz2,xyz3);
1517     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
1518     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
1519     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
1520     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
1521     }
1522 francois 56 if ( ((qualite==2)&&(render==0)) || ((qualite==2)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
1523     {
1524     int pos=(int) ((mgtri->get_origine()-1000)/10);
1525 francois 62 glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
1526 francois 56 }
1527 5 glRasterPos3f((xyz1[0]+xyz2[0]+xyz3[0])/3.,(xyz1[1]+xyz2[1]+xyz3[1])/3.,(xyz1[2]+xyz2[2]+xyz3[2])/3.);
1528     glListBase (1000);
1529     glCallLists (strlen(mess), GL_UNSIGNED_BYTE, mess);
1530     }
1531     }
1532     if (render==2)
1533     {
1534     glDisable(GL_LIGHTING);
1535     glDisable(GL_LIGHT0);
1536     glDisable(GL_LIGHT1);
1537     }
1538     }
1539     //tetra
1540     if (bmaille[2])
1541     {
1542     if (render==1)
1543     {
1544     glColor3f(MainForm->valeurconfig[34],MainForm->valeurconfig[35],MainForm->valeurconfig[36]);
1545     glEnable(GL_DEPTH_TEST);
1546     glEnable(GL_POLYGON_OFFSET_FILL);
1547     glPolygonOffset(1.0,1.0);
1548     glPolygonMode(GL_FRONT_AND_BACK,GL_FILL);
1549     glBegin(GL_TRIANGLES);
1550     glEdgeFlag(GL_TRUE);
1551     int nb=lst_tetra.size();
1552     for (int i=0;i<nb;i++)
1553     {
1554     MG_TETRA* mgtri=lst_tetra[i];
1555 francois 56 if (N12->Checked)
1556     if (!estdansfiltre(mgtri->get_id())) continue;
1557 francois 62 if (CheckListBox1->Checked[(mgtri->get_origine()-1000)/10]==false) continue;
1558 5 BOITE_3D boitmp=mgtri->get_boite_3D();
1559     if (!(boitmp*boite2)) continue;
1560     MG_NOEUD* noeud1=mgtri->get_noeud1();
1561     MG_NOEUD* noeud2=mgtri->get_noeud2();
1562     MG_NOEUD* noeud3=mgtri->get_noeud3();
1563     MG_NOEUD* noeud4=mgtri->get_noeud4();
1564     double *xyz1=noeud1->get_coord();
1565     double *xyz2=noeud2->get_coord();
1566     double *xyz3=noeud3->get_coord();
1567     double *xyz4=noeud4->get_coord();
1568     if ((mgtri->get_lien_topologie()==toposel) && (mgtri->get_lien_topologie()!=NULL) )
1569     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
1570     if (qualite==1)
1571     {
1572     double qual=OPERATEUR::qualite_tetra(xyz1,xyz2,xyz3,xyz4);
1573     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
1574     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
1575     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
1576     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
1577     }
1578 francois 56 if (qualite==2)
1579     {
1580     int pos=(int) ((mgtri->get_origine()-1000)/10);
1581 francois 62 glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
1582 francois 56 }
1583 5 if (shrink)
1584     {
1585     double xg=0.25*(xyz1[0]+xyz2[0]+xyz3[0]+xyz4[0]);
1586     double yg=0.25*(xyz1[1]+xyz2[1]+xyz3[1]+xyz4[1]);
1587     double zg=0.25*(xyz1[2]+xyz2[2]+xyz3[2]+xyz4[2]);
1588     double x1=xg+facteur_shrink*(xyz1[0]-xg);
1589     double y1=yg+facteur_shrink*(xyz1[1]-yg);
1590     double z1=zg+facteur_shrink*(xyz1[2]-zg);
1591     double x2=xg+facteur_shrink*(xyz2[0]-xg);
1592     double y2=yg+facteur_shrink*(xyz2[1]-yg);
1593     double z2=zg+facteur_shrink*(xyz2[2]-zg);
1594     double x3=xg+facteur_shrink*(xyz3[0]-xg);
1595     double y3=yg+facteur_shrink*(xyz3[1]-yg);
1596     double z3=zg+facteur_shrink*(xyz3[2]-zg);
1597     double x4=xg+facteur_shrink*(xyz4[0]-xg);
1598     double y4=yg+facteur_shrink*(xyz4[1]-yg);
1599     double z4=zg+facteur_shrink*(xyz4[2]-zg);
1600     if (CheckBox1->Checked==true)
1601     {
1602     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1603     if (pos>11) pos=11;
1604     if (pos<0) pos=0;
1605     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1606     }
1607     glVertex3f(x1,y1,z1);
1608     if (CheckBox1->Checked==true)
1609     {
1610     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1611     if (pos>11) pos=11;
1612     if (pos<0) pos=0;
1613     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1614     }
1615     glVertex3f(x3,y3,z3);
1616     if (CheckBox1->Checked==true)
1617     {
1618     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1619     if (pos>11) pos=11;
1620     if (pos<0) pos=0;
1621     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1622     }
1623     glVertex3f(x2,y2,z2);
1624     if (CheckBox1->Checked==true)
1625     {
1626     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1627     if (pos>11) pos=11;
1628     if (pos<0) pos=0;
1629     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1630     }
1631     glVertex3f(x1,y1,z1);
1632     if (CheckBox1->Checked==true)
1633     {
1634     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1635     if (pos>11) pos=11;
1636     if (pos<0) pos=0;
1637     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1638     }
1639     glVertex3f(x2,y2,z2);
1640     if (CheckBox1->Checked==true)
1641     {
1642     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
1643     if (pos>11) pos=11;
1644     if (pos<0) pos=0;
1645     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1646     }
1647     glVertex3f(x4,y4,z4);
1648     if (CheckBox1->Checked==true)
1649     {
1650     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1651     if (pos>11) pos=11;
1652     if (pos<0) pos=0;
1653     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1654     }
1655     glVertex3f(x2,y2,z2);
1656     if (CheckBox1->Checked==true)
1657     {
1658     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1659     if (pos>11) pos=11;
1660     if (pos<0) pos=0;
1661     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1662     }
1663     glVertex3f(x3,y3,z3);
1664     if (CheckBox1->Checked==true)
1665     {
1666     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
1667     if (pos>11) pos=11;
1668     if (pos<0) pos=0;
1669     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1670     }
1671     glVertex3f(x4,y4,z4);
1672     if (CheckBox1->Checked==true)
1673     {
1674     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1675     if (pos>11) pos=11;
1676     if (pos<0) pos=0;
1677     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1678     }
1679     glVertex3f(x1,y1,z1);
1680     if (CheckBox1->Checked==true)
1681     {
1682     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
1683     if (pos>11) pos=11;
1684     if (pos<0) pos=0;
1685     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1686     }
1687     glVertex3f(x4,y4,z4);
1688     if (CheckBox1->Checked==true)
1689     {
1690     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1691     if (pos>11) pos=11;
1692     if (pos<0) pos=0;
1693     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1694     }
1695     glVertex3f(x3,y3,z3);
1696     }
1697     else
1698     {
1699     if (CheckBox1->Checked==true)
1700     {
1701     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1702     if (pos>11) pos=11;
1703     if (pos<0) pos=0;
1704     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1705     }
1706     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1707     if (CheckBox1->Checked==true)
1708     {
1709     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1710     if (pos>11) pos=11;
1711     if (pos<0) pos=0;
1712     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1713     }
1714     glVertex3f(xyz3[0],xyz3[1],xyz3[2]);
1715     if (CheckBox1->Checked==true)
1716     {
1717     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1718     if (pos>11) pos=11;
1719     if (pos<0) pos=0;
1720     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1721     }
1722     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
1723     if (CheckBox1->Checked==true)
1724     {
1725     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1726     if (pos>11) pos=11;
1727     if (pos<0) pos=0;
1728     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1729     }
1730     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1731     if (CheckBox1->Checked==true)
1732     {
1733     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1734     if (pos>11) pos=11;
1735     if (pos<0) pos=0;
1736     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1737     }
1738     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
1739     if (CheckBox1->Checked==true)
1740     {
1741     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
1742     if (pos>11) pos=11;
1743     if (pos<0) pos=0;
1744     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1745     }
1746     glVertex3f(xyz4[0],xyz4[1],xyz4[2]);
1747     if (CheckBox1->Checked==true)
1748     {
1749     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1750     if (pos>11) pos=11;
1751     if (pos<0) pos=0;
1752     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1753     }
1754     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
1755     if (CheckBox1->Checked==true)
1756     {
1757     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1758     if (pos>11) pos=11;
1759     if (pos<0) pos=0;
1760     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1761     }
1762     glVertex3f(xyz3[0],xyz3[1],xyz3[2]);
1763     if (CheckBox1->Checked==true)
1764     {
1765     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
1766     if (pos>11) pos=11;
1767     if (pos<0) pos=0;
1768     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1769     }
1770     glVertex3f(xyz4[0],xyz4[1],xyz4[2]);
1771     if (CheckBox1->Checked==true)
1772     {
1773     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1774     if (pos>11) pos=11;
1775     if (pos<0) pos=0;
1776     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1777     }
1778     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1779     if (CheckBox1->Checked==true)
1780     {
1781     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
1782     if (pos>11) pos=11;
1783     if (pos<0) pos=0;
1784     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1785     }
1786     glVertex3f(xyz4[0],xyz4[1],xyz4[2]);
1787     if (CheckBox1->Checked==true)
1788     {
1789     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1790     if (pos>11) pos=11;
1791     if (pos<0) pos=0;
1792     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1793     }
1794     glVertex3f(xyz3[0],xyz3[1],xyz3[2]);
1795     }
1796     }
1797     glEnd();
1798     }
1799    
1800     glFlush();
1801     if (render==1)
1802     {
1803     glColor3f(MainForm->valeurconfig[37],MainForm->valeurconfig[38],MainForm->valeurconfig[39]);
1804     glLineWidth(MainForm->valeurconfig[40]);
1805     }
1806     else
1807     {
1808     glColor3f(MainForm->valeurconfig[22],MainForm->valeurconfig[23],MainForm->valeurconfig[24]);
1809     glLineWidth(MainForm->valeurconfig[25]);
1810     }
1811     glPolygonMode(GL_FRONT_AND_BACK,GL_LINE);
1812     glBegin(GL_TRIANGLES);
1813     glEdgeFlag(GL_TRUE);
1814     int nb=lst_tetra.size();
1815     for (int i=0;i<nb;i++)
1816     {
1817     if (render==1)
1818     glColor3f(MainForm->valeurconfig[37],MainForm->valeurconfig[38],MainForm->valeurconfig[39]);
1819     else
1820     glColor3f(MainForm->valeurconfig[22],MainForm->valeurconfig[23],MainForm->valeurconfig[24]);
1821     MG_TETRA* mgtri=lst_tetra[i];
1822 francois 56 if (N12->Checked)
1823     if (!estdansfiltre(mgtri->get_id())) continue;
1824 francois 62 if (CheckListBox1->Checked[(mgtri->get_origine()-1000)/10]==false) continue;
1825 5 BOITE_3D boitmp=mgtri->get_boite_3D();
1826     if (!(boitmp*boite2)) continue;
1827     MG_NOEUD* noeud1=mgtri->get_noeud1();
1828     MG_NOEUD* noeud2=mgtri->get_noeud2();
1829     MG_NOEUD* noeud3=mgtri->get_noeud3();
1830     MG_NOEUD* noeud4=mgtri->get_noeud4();
1831     double *xyz1=noeud1->get_coord();
1832     double *xyz2=noeud2->get_coord();
1833     double *xyz3=noeud3->get_coord();
1834     double *xyz4=noeud4->get_coord();
1835     if ( ((mgtri->get_lien_topologie()==toposel) && (mgtri->get_lien_topologie()!=NULL) && (render==0)) || ((mgtri->get_lien_topologie()==toposel)&& (mgtri->get_lien_topologie()!=NULL) &&(render==1) && (MainForm->valeurconfig[56]==0.)))
1836     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
1837     if ( ((qualite==1)&&(render==0)) || ((qualite==1)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
1838     {
1839     double qual=OPERATEUR::qualite_tetra(xyz1,xyz2,xyz3,xyz4);
1840     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
1841     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
1842     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
1843     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
1844     }
1845 francois 56 if ( ((qualite==2)&&(render==0)) || ((qualite==2)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
1846     {
1847 francois 62 int pos=(int) ((mgtri->get_origine()-1000)/10);
1848     glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
1849 francois 56 }
1850 5 if (shrink)
1851     {
1852     double xg=0.25*(xyz1[0]+xyz2[0]+xyz3[0]+xyz4[0]);
1853     double yg=0.25*(xyz1[1]+xyz2[1]+xyz3[1]+xyz4[1]);
1854     double zg=0.25*(xyz1[2]+xyz2[2]+xyz3[2]+xyz4[2]);
1855     double x1=xg+facteur_shrink*(xyz1[0]-xg);
1856     double y1=yg+facteur_shrink*(xyz1[1]-yg);
1857     double z1=zg+facteur_shrink*(xyz1[2]-zg);
1858     double x2=xg+facteur_shrink*(xyz2[0]-xg);
1859     double y2=yg+facteur_shrink*(xyz2[1]-yg);
1860     double z2=zg+facteur_shrink*(xyz2[2]-zg);
1861     double x3=xg+facteur_shrink*(xyz3[0]-xg);
1862     double y3=yg+facteur_shrink*(xyz3[1]-yg);
1863     double z3=zg+facteur_shrink*(xyz3[2]-zg);
1864     double x4=xg+facteur_shrink*(xyz4[0]-xg);
1865     double y4=yg+facteur_shrink*(xyz4[1]-yg);
1866     double z4=zg+facteur_shrink*(xyz4[2]-zg);
1867     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1868     {
1869     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1870     if (pos>11) pos=11;
1871     if (pos<0) pos=0;
1872     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1873     }
1874     glVertex3f(x1,y1,z1);
1875     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1876     {
1877     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1878     if (pos>11) pos=11;
1879     if (pos<0) pos=0;
1880     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1881     }
1882     glVertex3f(x3,y3,z3);
1883     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1884     {
1885     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1886     if (pos>11) pos=11;
1887     if (pos<0) pos=0;
1888     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1889     }
1890     glVertex3f(x2,y2,z2);
1891     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1892     {
1893     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1894     if (pos>11) pos=11;
1895     if (pos<0) pos=0;
1896     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1897     }
1898     glVertex3f(x1,y1,z1);
1899     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1900     {
1901     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1902     if (pos>11) pos=11;
1903     if (pos<0) pos=0;
1904     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1905     }
1906     glVertex3f(x2,y2,z2);
1907     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1908     {
1909     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
1910     if (pos>11) pos=11;
1911     if (pos<0) pos=0;
1912     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1913     }
1914     glVertex3f(x4,y4,z4);
1915     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1916     {
1917     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1918     if (pos>11) pos=11;
1919     if (pos<0) pos=0;
1920     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1921     }
1922     glVertex3f(x2,y2,z2);
1923     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1924     {
1925     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1926     if (pos>11) pos=11;
1927     if (pos<0) pos=0;
1928     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1929     }
1930     glVertex3f(x3,y3,z3);
1931     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1932     {
1933     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
1934     if (pos>11) pos=11;
1935     if (pos<0) pos=0;
1936     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1937     }
1938     glVertex3f(x4,y4,z4);
1939     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1940     {
1941     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1942     if (pos>11) pos=11;
1943     if (pos<0) pos=0;
1944     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1945     }
1946     glVertex3f(x1,y1,z1);
1947     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1948     {
1949     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
1950     if (pos>11) pos=11;
1951     if (pos<0) pos=0;
1952     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1953     }
1954     glVertex3f(x4,y4,z4);
1955     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1956     {
1957     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1958     if (pos>11) pos=11;
1959     if (pos<0) pos=0;
1960     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1961     }
1962     glVertex3f(x3,y3,z3);
1963     }
1964     else
1965     {
1966     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1967     {
1968     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1969     if (pos>11) pos=11;
1970     if (pos<0) pos=0;
1971     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1972     }
1973     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1974     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1975     {
1976     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
1977     if (pos>11) pos=11;
1978     if (pos<0) pos=0;
1979     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1980     }
1981     glVertex3f(xyz3[0],xyz3[1],xyz3[2]);
1982     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1983     {
1984     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
1985     if (pos>11) pos=11;
1986     if (pos<0) pos=0;
1987     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1988     }
1989     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
1990     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1991     {
1992     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
1993     if (pos>11) pos=11;
1994     if (pos<0) pos=0;
1995     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
1996     }
1997     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
1998     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
1999     {
2000     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
2001     if (pos>11) pos=11;
2002     if (pos<0) pos=0;
2003     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
2004     }
2005     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
2006     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
2007     {
2008     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
2009     if (pos>11) pos=11;
2010     if (pos<0) pos=0;
2011     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
2012     }
2013     glVertex3f(xyz4[0],xyz4[1],xyz4[2]);
2014     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
2015     {
2016     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
2017     if (pos>11) pos=11;
2018     if (pos<0) pos=0;
2019     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
2020     }
2021     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
2022     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
2023     {
2024     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
2025     if (pos>11) pos=11;
2026     if (pos<0) pos=0;
2027     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
2028     }
2029     glVertex3f(xyz3[0],xyz3[1],xyz3[2]);
2030     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
2031     {
2032     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
2033     if (pos>11) pos=11;
2034     if (pos<0) pos=0;
2035     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
2036     }
2037     glVertex3f(xyz4[0],xyz4[1],xyz4[2]);
2038     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
2039     {
2040     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
2041     if (pos>11) pos=11;
2042     if (pos<0) pos=0;
2043     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
2044     }
2045     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
2046     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
2047     {
2048     int pos=(int) ((noeud4->get_solution()-lmin)*12./(lmax-lmin));
2049     if (pos>11) pos=11;
2050     if (pos<0) pos=0;
2051     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
2052     }
2053     glVertex3f(xyz4[0],xyz4[1],xyz4[2]);
2054     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
2055     {
2056     int pos=(int) ((noeud3->get_solution()-lmin)*12./(lmax-lmin));
2057     if (pos>11) pos=11;
2058     if (pos<0) pos=0;
2059     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
2060     }
2061     glVertex3f(xyz3[0],xyz3[1],xyz3[2]);
2062     }
2063     }
2064     glEnd();
2065     if (affmaille)
2066     {
2067     for (int i=0;i<nb;i++)
2068     {
2069     MG_TETRA* mgtri=lst_tetra[i];
2070 francois 56 if (N12->Checked)
2071     if (!estdansfiltre(mgtri->get_id())) continue;
2072 francois 62 if (CheckListBox1->Checked[(mgtri->get_origine()-1000)/10]==false) continue;
2073 5 BOITE_3D boitmp=mgtri->get_boite_3D();
2074     if (!(boitmp*boite2)) continue;
2075     MG_NOEUD* noeud1=mgtri->get_noeud1();
2076     MG_NOEUD* noeud2=mgtri->get_noeud2();
2077     MG_NOEUD* noeud3=mgtri->get_noeud3();
2078     MG_NOEUD* noeud4=mgtri->get_noeud4();
2079     double *xyz1=noeud1->get_coord();
2080     double *xyz2=noeud2->get_coord();
2081     double *xyz3=noeud3->get_coord();
2082     double *xyz4=noeud4->get_coord();
2083     unsigned long id=mgtri->get_id();
2084     char mess[30];
2085     sprintf(mess,"%lu",id);
2086     if ( ((qualite==1)&&(render==0)) || ((qualite==1)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
2087     {
2088     double qual=OPERATEUR::qualite_tetra(xyz1,xyz2,xyz3,xyz4);
2089     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
2090     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
2091     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
2092     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
2093     }
2094 francois 56 if ( ((qualite==2)&&(render==0)) || ((qualite==2)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
2095     {
2096 francois 62 int pos=(int) ((mgtri->get_origine()-1000)/10);
2097     glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
2098 francois 56 }
2099 5 glRasterPos3f((xyz1[0]+xyz2[0]+xyz3[0]+xyz4[0])/4.,(xyz1[1]+xyz2[1]+xyz3[1]+xyz4[1])/4.,(xyz1[2]+xyz2[2]+xyz3[2]+xyz4[2])/4.);
2100     glListBase (1000);
2101     glCallLists (strlen(mess), GL_UNSIGNED_BYTE, mess);
2102     }
2103     }
2104     if (render==2)
2105     {
2106     glDisable(GL_LIGHTING);
2107     glDisable(GL_LIGHT0);
2108     glDisable(GL_LIGHT1);
2109     }
2110     }
2111     }
2112     //---------------------------------------------------------------------------
2113     void __fastcall TVisuWinform::dessineaxe(void)
2114     {
2115     double d=max(boite.get_xmax()-boite.get_xmin(),boite.get_ymax()-boite.get_ymin());
2116     d=max(d,boite.get_zmax()-boite.get_zmin());
2117     d=d*MainForm->valeurconfig[10];
2118     glLineWidth(MainForm->valeurconfig[9]);
2119     glBegin(GL_LINES);
2120     glColor3f(MainForm->valeurconfig[0],MainForm->valeurconfig[1],MainForm->valeurconfig[2]);
2121     glVertex3f(0.0,0.0,0.0);
2122     glVertex3f(d,0.0,0.0);
2123     glColor3f(MainForm->valeurconfig[3],MainForm->valeurconfig[4],MainForm->valeurconfig[5]);
2124     glVertex3f(0.0,0.0,0.0);
2125     glVertex3f(0.0,d,0.0);
2126     glColor3f(MainForm->valeurconfig[6],MainForm->valeurconfig[7],MainForm->valeurconfig[8]);
2127     glVertex3f(0.0,0.0,0.0);
2128     glVertex3f(0.0,0.0,d);
2129     glEnd();
2130    
2131     }
2132     //---------------------------------------------------------------------------
2133    
2134     void __fastcall TVisuWinform::FormKeyDown(TObject *Sender, WORD &Key,
2135     TShiftState Shift)
2136     {
2137     transformation(Sender,Key,Shift);
2138     }
2139     //---------------------------------------------------------------------------
2140     void __fastcall TVisuWinform::redess(void)
2141     {
2142     wglMakeCurrent(hdc,hrc);
2143     glClearColor(MainForm->valeurconfig[11],MainForm->valeurconfig[12],MainForm->valeurconfig[13], 0.0f);
2144     glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
2145     if (TreeView1->Enabled==false) dessinegeo(); else {dessinemai();dessinemaifem();}
2146     if (axe==1) dessineaxe();
2147     glFlush();
2148     SwapBuffers(hdc);
2149     }
2150    
2151     //---------------------------------------------------------------------------
2152     void __fastcall TVisuWinform::recadre(double dx,double dy,int etat)
2153     {
2154     wglMakeCurrent(hdc,hrc);
2155     GLfloat w = ClientWidth-PageControl1->Width;
2156     GLfloat h = ClientHeight;
2157     char mess[255];
2158     if (etat==0) glViewport(0, 0, w, h);
2159     glMatrixMode(GL_PROJECTION);
2160     glLoadIdentity();
2161     double d=max(boite.get_xmax()-boite.get_xmin(),boite.get_ymax()-boite.get_ymin());
2162     d=max(d,boite.get_zmax()-boite.get_zmin());
2163     d=d*1.5/2.;
2164     double aspect=w/h;
2165     double xmin,ymin,xmax,ymax;
2166     if (w<h) xmin=boite.get_xcentre()-d+dx; else xmin=boite.get_xcentre()-d*aspect+dx;
2167     if (w<h) ymin=boite.get_ycentre()-d/aspect+dy; else ymin=boite.get_ycentre()-d+dy;
2168     double zmin=boite.get_zcentre()-100*d;
2169     if (w<h) xmax=xmin+2.*d; else xmax=xmin+2.*d*aspect;
2170     if (w<h) ymax=ymin+2.*d/aspect; else ymax=ymin+2.*d;
2171     double zmax=zmin+200.*d;
2172     glOrtho(xmin,xmax,ymin,ymax,zmin,zmax);
2173     }
2174     //---------------------------------------------------------------------------
2175    
2176     void __fastcall TVisuWinform::initvue(void)
2177     {
2178     wglMakeCurrent(hdc,hrc);
2179     glMatrixMode(GL_MODELVIEW);
2180     glLoadIdentity();
2181     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2182     /*glRotatef(-90., 0.0, 1.0, 0.0);
2183     glRotatef(-90., 1.0, 0.0, 0.0);
2184     glRotatef(45., 0.0, 1.0, 0.0);
2185     glRotatef(-45., 0.0, 0.0, 1.0);*/
2186     glRotatef(35.26, 1.0, 0.0, 0.0);
2187     glRotatef(45., 0.0, 1.0, 0.0);
2188     glRotatef(-90., 1.0, 0.0, 0.0);
2189     glRotatef(180., 0.0, 0.0, 1.0);
2190    
2191    
2192     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2193     }
2194    
2195    
2196     void __fastcall TVisuWinform::FormMouseWheelDown(TObject *Sender,
2197     TShiftState Shift, TPoint &MousePos, bool &Handled)
2198     {
2199     wglMakeCurrent(hdc,hrc);
2200     glMatrixMode(GL_MODELVIEW);
2201     zoom++;
2202     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2203     glScalef(1.1,1.1,1.1);
2204     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2205     redess();
2206     }
2207     //---------------------------------------------------------------------------
2208    
2209    
2210     void __fastcall TVisuWinform::FormMouseWheelUp(TObject *Sender,
2211     TShiftState Shift, TPoint &MousePos, bool &Handled)
2212     {
2213     wglMakeCurrent(hdc,hrc);
2214     glMatrixMode(GL_MODELVIEW);
2215     zoom--;
2216     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2217     glScalef(1./1.1,1./1.1,1./1.1);
2218     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2219     redess();
2220     }
2221     //---------------------------------------------------------------------------
2222    
2223     void __fastcall TVisuWinform::Fermer1Click(TObject *Sender)
2224     {
2225     Close();
2226     }
2227     //---------------------------------------------------------------------------
2228    
2229    
2230     void __fastcall TVisuWinform::FormMouseDown(TObject *Sender,
2231     TMouseButton Button, TShiftState Shift, int X, int Y)
2232     {
2233     if (Button==mbRight)
2234     {
2235     if (Shift.Contains(ssCtrl))
2236     {
2237     TPoint pt(X,Y);
2238     TPoint pt2=ClientToScreen(pt);
2239     PopupMenu2->Popup(pt2.x,pt2.y);
2240     }
2241     else if (debut_trans==false)
2242     {
2243     debut_trans=true;
2244     xdepart=X;
2245     ydepart=Y;
2246     }
2247     }
2248     if (Button==mbMiddle)
2249     if (debut_rot==false)
2250     {
2251     debut_rot=true;
2252     xrot=X;
2253     yrot=Y;
2254     }
2255    
2256     }
2257     //---------------------------------------------------------------------------
2258    
2259     void __fastcall TVisuWinform::FormMouseUp(TObject *Sender,
2260     TMouseButton Button, TShiftState Shift, int X, int Y)
2261     {
2262     if (Button==mbRight)
2263     if (debut_trans==true)
2264     {
2265     GLfloat w = ClientWidth-PageControl1->Width;
2266     GLfloat h = ClientHeight;
2267     double aspect=w/h;
2268     debut_trans=false;
2269     double d=max(boite.get_xmax()-boite.get_xmin(),boite.get_ymax()-boite.get_ymin());
2270     d=max(d,boite.get_zmax()-boite.get_zmin());
2271     d=d*1.5;
2272     double xmin,ymin,xmax,ymax;
2273     if (w<h) xmin=boite.get_xcentre()-d+dx; else xmin=boite.get_xcentre()-d*aspect+dx;
2274     if (w<h) ymin=boite.get_ycentre()-d/aspect+dy; else ymin=boite.get_ycentre()-d+dy;
2275     if (w<h) xmax=xmin+2.*d; else xmax=xmin+2.*d*aspect;
2276     if (w<h) ymax=ymin+2.*d/aspect; else ymax=ymin+2.*d;
2277     dx=dx+(xdepart-X)/2./w*(xmax-xmin);
2278     dy=dy-(ydepart-Y)/2./h*(ymax-ymin);
2279     recadre(dx,dy,1);
2280     redess();
2281     xdepart=X;
2282     ydepart=Y;
2283     }
2284    
2285     if (Button==mbMiddle) debut_rot=false;
2286     }
2287     //---------------------------------------------------------------------------
2288    
2289     void __fastcall TVisuWinform::FormMouseMove(TObject *Sender,
2290     TShiftState Shift, int X, int Y)
2291     {
2292     if (debut_trans==true)
2293     {
2294     GLfloat w = ClientWidth-PageControl1->Width;
2295     GLfloat h = ClientHeight;
2296     double aspect=w/h;
2297     double d=max(boite.get_xmax()-boite.get_xmin(),boite.get_ymax()-boite.get_ymin());
2298     d=max(d,boite.get_zmax()-boite.get_zmin());
2299     d=d*1.5;
2300     double xmin,ymin,xmax,ymax;
2301     if (w<h) xmin=boite.get_xcentre()-d+dx; else xmin=boite.get_xcentre()-d*aspect+dx;
2302     if (w<h) ymin=boite.get_ycentre()-d/aspect+dy; else ymin=boite.get_ycentre()-d+dy;
2303     if (w<h) xmax=xmin+2.*d; else xmax=xmin+2.*d*aspect;
2304     if (w<h) ymax=ymin+2.*d/aspect; else ymax=ymin+2.*d;
2305     dx=dx+(xdepart-X)/2./w*(xmax-xmin);
2306     dy=dy-(ydepart-Y)/2./h*(ymax-ymin);
2307     recadre(dx,dy,1);
2308     redess();
2309     xdepart=X;
2310     ydepart=Y;
2311     }
2312     if (debut_rot==true)
2313     {
2314     GLfloat w = ClientWidth-PageControl1->Width;
2315     GLfloat h = ClientHeight;
2316     double deltax=X-xrot;
2317     double deltay=Y-yrot;
2318     double norme=deltax*deltax+deltay*deltay;
2319     norme=sqrt(norme);
2320     if (norme>=1.)
2321     {
2322     glMatrixMode(GL_MODELVIEW);
2323     deltax=deltax*1.0/norme;
2324     deltay=deltay*1.0/norme;
2325     GLdouble matriceproj[16],matricevue[16];
2326     GLint matriceport[4];
2327     glGetIntegerv(GL_VIEWPORT,matriceport);
2328     glGetDoublev(GL_MODELVIEW_MATRIX,matricevue);
2329     glGetDoublev(GL_PROJECTION_MATRIX,matriceproj);
2330     double orx,ory,orz;
2331     double rx,ry,rz;
2332     gluUnProject((GLdouble)xrot,(GLdouble)yrot,0.,matricevue,matriceproj,matriceport,&orx,&ory,&orz);
2333     gluUnProject(xrot+deltay,yrot+deltax,0.,matricevue,matriceproj,matriceport,&rx,&ry,&rz);
2334     rx=rx-orx;
2335     ry=ry-ory;
2336     rz=rz-orz;
2337     double norme2=sqrt(rx*rx+ry*ry+rz*rz);
2338     rx=rx/norme2;
2339     ry=ry/norme2;
2340     rz=rz/norme2;
2341     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2342     glRotatef(norme/sqrt(w*h)*360, rx, ry, rz);
2343     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2344     redess();
2345     }
2346     xrot=X;
2347     yrot=Y;
2348     }
2349    
2350     }
2351     //---------------------------------------------------------------------------
2352    
2353    
2354    
2355    
2356    
2357     void __fastcall TVisuWinform::TreeView1KeyDown(TObject *Sender, WORD &Key,
2358     TShiftState Shift)
2359     {
2360     transformation(Sender,Key,Shift);
2361     }
2362     //---------------------------------------------------------------------------
2363     void __fastcall TVisuWinform::transformation(TObject *Sender, WORD &Key,TShiftState Shift)
2364     {
2365     wglMakeCurrent(hdc,hrc);
2366     GLfloat w = ClientWidth-PageControl1->Width;
2367     GLfloat h = ClientHeight;
2368     glMatrixMode(GL_MODELVIEW);
2369     double un=0.005*min(w,h);
2370     if (Key==VK_LEFT)
2371     {
2372     dx=dx+un;
2373     recadre(dx,dy,1);
2374     }
2375     if (Key==VK_RIGHT)
2376     {
2377     dx=dx-un;
2378     recadre(dx,dy,1);
2379     }
2380     if (Key==VK_UP)
2381     {
2382     dy=dy-un;
2383     recadre(dx,dy,1);
2384     }
2385     if (Key==VK_DOWN)
2386     {
2387     dy=dy+un;
2388     recadre(dx,dy,1);
2389     }
2390     if(Key == VK_F1)
2391     {
2392     zoom++;
2393     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2394     glScalef(1.1,1.1,1.1);
2395     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2396     }
2397     if(Key == VK_F2)
2398     {
2399     zoom--;
2400     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2401     glScalef(1./1.1,1./1.1,1./1.1);
2402     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2403     }
2404     if(Key == VK_F3)
2405     {
2406     dx=0.;
2407     dy=0.;
2408     zoom=0;
2409     recadre(dx,dy,1);
2410     initvue();
2411     }
2412     if(Key == VK_F4)
2413     {
2414     if (zoom>0)
2415     glScalef(1./pow(1.1,zoom),1./pow(1.1,zoom),1./pow(1.1,zoom));
2416     if (zoom<0)
2417     glScalef(pow(1.1,-zoom),pow(1.1,-zoom),pow(1.1,-zoom));
2418     zoom=0;
2419     dx=0;
2420     dy=0;
2421     recadre(dx,dy,1);
2422     }
2423     if(Key == VK_HOME)
2424     {
2425     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2426     glRotatef(-5, 0.0, 1.0, 0.0);
2427     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2428     }
2429     if(Key == VK_END)
2430     {
2431     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2432     glRotatef(5, 0.0, 1.0, 0.0);
2433     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2434     }
2435     if(Key == VK_INSERT)
2436     {
2437     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2438     glRotatef(-5, 1.0, 0.0, 0.0);
2439     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2440     }
2441     if(Key == VK_DELETE)
2442     {
2443     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2444     glRotatef(5, 1.0, 0.0, 0.0);
2445     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2446     }
2447     if(Key == VK_PRIOR)
2448     {
2449     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2450     glRotatef(-5, 0.0, 0.0, 1.0);
2451     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2452     }
2453     if(Key == VK_NEXT)
2454     {
2455     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2456     glRotatef(5, 0.0, 0.0, 1.0);
2457     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2458     }
2459     if (Key==VK_ADD)
2460     {
2461     facteur_shrink=facteur_shrink+0.05;
2462     if (facteur_shrink>1.) facteur_shrink=1;
2463     }
2464     if (Key==VK_SUBTRACT)
2465     {
2466     facteur_shrink=facteur_shrink-0.05;
2467     if (facteur_shrink<0.) facteur_shrink=0.;
2468     }
2469    
2470     redess();
2471     }
2472     //---------------------------------------------------------------------------
2473    
2474    
2475    
2476     void __fastcall TVisuWinform::shrinkonExecute(TObject *Sender)
2477     {
2478     shrink=1;
2479     redess();
2480     }
2481     //---------------------------------------------------------------------------
2482    
2483     void __fastcall TVisuWinform::shrinkoffExecute(TObject *Sender)
2484     {
2485     shrink=0;
2486     redess();
2487     }
2488     //---------------------------------------------------------------------------
2489    
2490     void __fastcall TVisuWinform::renderfilExecute(TObject *Sender)
2491     {
2492     render=0;
2493     redess();
2494     }
2495     //---------------------------------------------------------------------------
2496    
2497     void __fastcall TVisuWinform::rendershadeExecute(TObject *Sender)
2498     {
2499     render=1;
2500     redess();
2501     }
2502     //---------------------------------------------------------------------------
2503    
2504     void __fastcall TVisuWinform::axeonExecute(TObject *Sender)
2505     {
2506     axe=1;
2507     redess();
2508     }
2509     //---------------------------------------------------------------------------
2510    
2511     void __fastcall TVisuWinform::axeoffExecute(TObject *Sender)
2512     {
2513     axe=0;
2514     redess();
2515     }
2516     //---------------------------------------------------------------------------
2517    
2518     void __fastcall TVisuWinform::qualiteonExecute(TObject *Sender)
2519     {
2520     qualite=1;
2521     redess();
2522     }
2523     //---------------------------------------------------------------------------
2524    
2525     void __fastcall TVisuWinform::qualiteoffExecute(TObject *Sender)
2526     {
2527     qualite=0;
2528     redess();
2529     }
2530     //---------------------------------------------------------------------------
2531    
2532     void __fastcall TVisuWinform::renderlightExecute(TObject *Sender)
2533     {
2534     render=2;
2535     redess();
2536     }
2537     //---------------------------------------------------------------------------
2538    
2539     void __fastcall TVisuWinform::noeudonExecute(TObject *Sender)
2540     {
2541     noeud=1;
2542     redess();
2543     }
2544     //---------------------------------------------------------------------------
2545    
2546     void __fastcall TVisuWinform::noeudoffExecute(TObject *Sender)
2547     {
2548     noeud=0;
2549     redess();
2550     }
2551     //---------------------------------------------------------------------------
2552    
2553     void __fastcall TVisuWinform::configExecute(TObject *Sender)
2554     {
2555     configwin->ShowModal();
2556     }
2557     //---------------------------------------------------------------------------
2558    
2559     void __fastcall TVisuWinform::FileExitItemClick(TObject *Sender)
2560     {
2561     TerminateProcess(GetCurrentProcess(),0);
2562     }
2563     //---------------------------------------------------------------------------
2564    
2565     void __fastcall TVisuWinform::f3Execute(TObject *Sender)
2566     {
2567     dx=0.;
2568     dy=0.;
2569     zoom=0;
2570     recadre(dx,dy,1);
2571     initvue();
2572     redess();
2573     }
2574     //---------------------------------------------------------------------------
2575    
2576     void __fastcall TVisuWinform::f4Execute(TObject *Sender)
2577     {
2578     glMatrixMode(GL_MODELVIEW);
2579     if (zoom>0)
2580     glScalef(1./pow(1.1,zoom),1./pow(1.1,zoom),1./pow(1.1,zoom));
2581     if (zoom<0)
2582     glScalef(pow(1.1,-zoom),pow(1.1,-zoom),pow(1.1,-zoom));
2583     zoom=0;
2584     dx=0;
2585     dy=0;
2586     recadre(dx,dy,1);
2587     redess();
2588     }
2589     //---------------------------------------------------------------------------
2590    
2591     void __fastcall TVisuWinform::xmExecute(TObject *Sender)
2592     {
2593     glMatrixMode(GL_MODELVIEW);
2594     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2595     glRotatef(-5, 1.0, 0.0, 0.0);
2596     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2597     redess();
2598     }
2599     //---------------------------------------------------------------------------
2600    
2601     void __fastcall TVisuWinform::xpExecute(TObject *Sender)
2602     {
2603     glMatrixMode(GL_MODELVIEW);
2604     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2605     glRotatef(5, 1.0, 0.0, 0.0);
2606     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2607     redess();
2608     }
2609     //---------------------------------------------------------------------------
2610    
2611     void __fastcall TVisuWinform::ymExecute(TObject *Sender)
2612     {
2613     glMatrixMode(GL_MODELVIEW);
2614     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2615     glRotatef(-5, 0.0, 1.0, 0.0);
2616     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2617     redess();
2618     }
2619     //---------------------------------------------------------------------------
2620    
2621     void __fastcall TVisuWinform::ypExecute(TObject *Sender)
2622     {
2623     glMatrixMode(GL_MODELVIEW);
2624     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2625     glRotatef(5, 0.0, 1.0, 0.0);
2626     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2627     redess();
2628     }
2629     //---------------------------------------------------------------------------
2630    
2631     void __fastcall TVisuWinform::zmExecute(TObject *Sender)
2632     {
2633     glMatrixMode(GL_MODELVIEW);
2634     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2635     glRotatef(-5, 0.0, 0.0, 1.0);
2636     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2637     redess();
2638     }
2639     //---------------------------------------------------------------------------
2640    
2641     void __fastcall TVisuWinform::zpExecute(TObject *Sender)
2642     {
2643     glMatrixMode(GL_MODELVIEW);
2644     glTranslated(boite.get_xcentre(),boite.get_ycentre(),boite.get_zcentre());
2645     glRotatef(5, 0.0, 0.0, 1.0);
2646     glTranslated(-boite.get_xcentre(),-boite.get_ycentre(),-boite.get_zcentre());
2647     redess();
2648     }
2649     //---------------------------------------------------------------------------
2650    
2651     void __fastcall TVisuWinform::afnoeudonExecute(TObject *Sender)
2652     {
2653     affnoeud=1;
2654     redess();
2655     }
2656     //---------------------------------------------------------------------------
2657    
2658     void __fastcall TVisuWinform::afnoeudoffExecute(TObject *Sender)
2659     {
2660     affnoeud=0;
2661     redess();
2662     }
2663     //---------------------------------------------------------------------------
2664    
2665     void __fastcall TVisuWinform::afmailleonExecute(TObject *Sender)
2666     {
2667     affmaille=1;
2668     redess();
2669     }
2670     //---------------------------------------------------------------------------
2671    
2672     void __fastcall TVisuWinform::afmailleoffExecute(TObject *Sender)
2673     {
2674     affmaille=0;
2675     redess();
2676     }
2677     //---------------------------------------------------------------------------
2678     void __fastcall TVisuWinform::InitShading(void)
2679     {
2680     /*GLfloat infinite[] = { 1000.0, 1000.0, 1000.0, 1.0 };
2681     GLfloat infinite2[] = { 0.0, 0.0, -0.7, 0.0 };
2682     GLfloat ambient[] = { 0.5, 0.5, 0.5, 0.5 };
2683     GLfloat diffuse[] = { 1.0, 1.0, 1.0, 1.0 };
2684     GLfloat specular[] = { 1.0, 1.0, 1.0, 1.0 };
2685     GLfloat mat_spec[]= {1.0,1.0,1.0,1.0};
2686     GLfloat mat_shi[]= {50.};
2687     diffuse[0]=MainForm->valeurconfig[34];
2688     diffuse[1]=MainForm->valeurconfig[35];
2689     diffuse[2]=MainForm->valeurconfig[36];
2690    
2691    
2692    
2693     glShadeModel(GL_SMOOTH);
2694    
2695     // glLightfv(GL_LIGHT0, GL_AMBIENT, ambient);
2696     glLightfv(GL_LIGHT0, GL_DIFFUSE, diffuse);
2697     //glLightfv(GL_LIGHT0, GL_SPECULAR, diffuse);;
2698     glLightfv(GL_LIGHT0, GL_POSITION, infinite);
2699     glMaterialfv(GL_FRONT,GL_SPECULAR,mat_spec);
2700     glMaterialfv(GL_FRONT,GL_SHININESS,mat_shi);
2701     glEnable(GL_LIGHTING);
2702     glEnable(GL_LIGHT0);
2703     //glEnable(GL_LIGHT1);
2704     glDepthFunc(GL_LESS);
2705     glEnable(GL_DEPTH_TEST);
2706     glEnable(GL_NORMALIZE);
2707     //glColorMaterial(GL_FRONT, GL_DIFFUSE);
2708     //glEnable(GL_COLOR_MATERIAL);*/
2709     }
2710     //---------------------------------------------------------------------------
2711    
2712    
2713     void __fastcall TVisuWinform::ComboBox1Change(TObject *Sender)
2714     {
2715     MG_SOLUTION* sol=NULL;
2716     FEM_SOLUTION* sol2=NULL;
2717     if ((unsigned int)ComboBox1->ItemIndex<gest->get_nb_mg_solution()) sol=gest->get_mg_solution(ComboBox1->ItemIndex);
2718     else sol2=gest->get_fem_solution(ComboBox1->ItemIndex-gest->get_nb_mg_solution());
2719     if (sol!=NULL)
2720     {
2721     ListBox1->Clear();
2722     int nb=sol->get_nb_champ();
2723     for (int i=0;i<nb;i++)
2724     ListBox1->Items->Add(sol->get_legende(i).c_str());
2725     if (ListBox1->ItemIndex==-1) CheckBox1->Checked=false;
2726     unsigned long idmai=sol->get_maillage()->get_id();
2727     char mess[30];
2728     sprintf(mess,"du maillage %lu",idmai) ;
2729     Label3->Caption=mess;
2730     if (CheckBox1->Checked==false)
2731     TabSheet3->TabVisible=false;
2732     }
2733     if (sol2!=NULL)
2734     {
2735     ListBox1->Clear();
2736     int nb=sol2->get_nb_champ();
2737     for (int i=0;i<nb;i++)
2738     ListBox1->Items->Add(sol2->get_legende(i).c_str());
2739     if (ListBox1->ItemIndex==-1) CheckBox1->Checked=false;
2740     unsigned long idmai=sol2->get_maillage()->get_id();
2741     char mess[30];
2742     sprintf(mess,"du maillage fem %lu",idmai) ;
2743     Label3->Caption=mess;
2744     if (CheckBox1->Checked==false)
2745     TabSheet3->TabVisible=false;
2746     }
2747     }
2748     //---------------------------------------------------------------------------
2749    
2750     void __fastcall TVisuWinform::CheckBox1Click(TObject *Sender)
2751     {
2752     if (ListBox1->ItemIndex==-1)
2753     {
2754     CheckBox1->Checked=false;
2755     TabSheet3->TabVisible=false;
2756     }
2757     if ((ListBox1->ItemIndex!=-1) && (CheckBox1->Checked==true) )
2758     {
2759     MG_SOLUTION* sol=NULL;
2760     FEM_SOLUTION* sol2=NULL;
2761     if ((unsigned int)ComboBox1->ItemIndex<gest->get_nb_mg_solution()) sol=gest->get_mg_solution(ComboBox1->ItemIndex);
2762     else sol2=gest->get_fem_solution(ComboBox1->ItemIndex-gest->get_nb_mg_solution());
2763     if (sol!=NULL)
2764     {
2765     sol->active_solution(ListBox1->ItemIndex);
2766     lmin=sol->get_legende_min();
2767     lmax=sol->get_legende_max();
2768     TabSheet3->TabVisible=true;
2769     dessine_legende();
2770     }
2771     if (sol2!=NULL)
2772     {
2773     sol2->active_solution(ListBox1->ItemIndex);
2774     lmin=sol2->get_legende_min();
2775     lmax=sol2->get_legende_max();
2776     TabSheet3->TabVisible=true;
2777     dessine_legende();
2778     }
2779    
2780     }
2781     if (CheckBox1->Checked==false)
2782     TabSheet3->TabVisible=false;
2783     if (CheckBox1->Checked==false) Button3->Visible=false; else Button3->Visible=true;
2784     initliste();
2785     redess();
2786     }
2787     //---------------------------------------------------------------------------
2788     void __fastcall TVisuWinform::ListBox1Click(TObject *Sender)
2789     {
2790     if ((ListBox1->ItemIndex!=-1) && (CheckBox1->Checked==true) )
2791     {
2792     MG_SOLUTION* sol=gest->get_mg_solution(ComboBox1->ItemIndex);
2793     FEM_SOLUTION* sol2=gest->get_fem_solution(ComboBox1->ItemIndex-gest->get_nb_mg_solution());
2794     if (sol!=NULL)
2795     {
2796     sol->active_solution(ListBox1->ItemIndex);
2797     lmin=sol->get_legende_min();
2798     lmax=sol->get_legende_max();
2799     TabSheet3->TabVisible=true;
2800     dessine_legende();
2801     redess();
2802     }
2803     if (sol2!=NULL)
2804     {
2805     sol2->active_solution(ListBox1->ItemIndex);
2806     lmin=sol2->get_legende_min();
2807     lmax=sol2->get_legende_max();
2808     TabSheet3->TabVisible=true;
2809     dessine_legende();
2810     redess();
2811     }
2812     }
2813    
2814     }
2815     //---------------------------------------------------------------------------
2816     void __fastcall TVisuWinform::dessine_legende(void)
2817     {
2818     Label4->Color=(TColor)(RGB_r[11]+(RGB_g[11]<<8)+(RGB_b[11]<<16));
2819     Label5->Color=(TColor)(RGB_r[10]+(RGB_g[10]<<8)+(RGB_b[10]<<16));
2820     Label6->Color=(TColor)(RGB_r[9]+(RGB_g[9]<<8)+(RGB_b[9]<<16));
2821     Label7->Color=(TColor)(RGB_r[8]+(RGB_g[8]<<8)+(RGB_b[8]<<16));
2822     Label8->Color=(TColor)(RGB_r[7]+(RGB_g[7]<<8)+(RGB_b[7]<<16));
2823     Label9->Color=(TColor)(RGB_r[6]+(RGB_g[6]<<8)+(RGB_b[6]<<16));
2824     Label10->Color=(TColor)(RGB_r[5]+(RGB_g[5]<<8)+(RGB_b[5]<<16));
2825     Label11->Color=(TColor)(RGB_r[4]+(RGB_g[4]<<8)+(RGB_b[4]<<16));
2826     Label12->Color=(TColor)(RGB_r[3]+(RGB_g[3]<<8)+(RGB_b[3]<<16));
2827     Label13->Color=(TColor)(RGB_r[2]+(RGB_g[2]<<8)+(RGB_b[2]<<16));
2828     Label14->Color=(TColor)(RGB_r[1]+(RGB_g[1]<<8)+(RGB_b[1]<<16));
2829     Label15->Color=(TColor)(RGB_r[0]+(RGB_g[0]<<8)+(RGB_b[0]<<16));
2830    
2831     Label4->Width=18;
2832     Label4->Height=18;
2833     Label5->Width=18;
2834     Label5->Height=18;
2835     Label5->Top=Label4->Top+Label4->Height;
2836     Label5->Left=Label4->Left;
2837     Label6->Width=18;
2838     Label6->Height=18;
2839     Label6->Top=Label5->Top+Label4->Height;
2840     Label6->Left=Label4->Left;
2841     Label7->Width=18;
2842     Label7->Height=18;
2843     Label7->Top=Label6->Top+Label4->Height;
2844     Label7->Left=Label4->Left;
2845     Label8->Width=18;
2846     Label8->Height=18;
2847     Label8->Top=Label7->Top+Label4->Height;
2848     Label8->Left=Label4->Left;
2849     Label9->Width=18;
2850     Label9->Height=18;
2851     Label9->Top=Label8->Top+Label4->Height;
2852     Label9->Left=Label4->Left;
2853     Label10->Width=18;
2854     Label10->Height=18;
2855     Label10->Top=Label9->Top+Label4->Height;
2856     Label10->Left=Label4->Left;
2857     Label11->Width=18;
2858     Label11->Height=18;
2859     Label11->Top=Label10->Top+Label4->Height;
2860     Label11->Left=Label4->Left;
2861     Label12->Width=18;
2862     Label12->Height=18;
2863     Label12->Top=Label11->Top+Label4->Height;
2864     Label12->Left=Label4->Left;
2865     Label13->Width=18;
2866     Label13->Height=18;
2867     Label13->Top=Label12->Top+Label4->Height;
2868     Label13->Left=Label4->Left;
2869     Label14->Width=18;
2870     Label14->Height=18;
2871     Label14->Top=Label13->Top+Label4->Height;
2872     Label14->Left=Label4->Left;
2873     Label15->Width=18;
2874     Label15->Height=18;
2875     Label15->Top=Label14->Top+Label4->Height;
2876     Label15->Left=Label4->Left;
2877    
2878     Label16->Left=Label4->Left+2*Label4->Width;
2879     Label16->Top=Label4->Top-9;
2880     Label17->Left=Label4->Left+2*Label4->Width;
2881     Label17->Top=Label5->Top-9;
2882     Label18->Left=Label4->Left+2*Label4->Width;
2883     Label18->Top=Label6->Top-9;
2884     Label19->Left=Label4->Left+2*Label4->Width;
2885     Label19->Top=Label7->Top-9;
2886     Label20->Left=Label4->Left+2*Label4->Width;
2887     Label20->Top=Label8->Top-9;
2888     Label21->Left=Label4->Left+2*Label4->Width;
2889     Label21->Top=Label9->Top-9;
2890     Label22->Left=Label4->Left+2*Label4->Width;
2891     Label22->Top=Label10->Top-9;
2892     Label23->Left=Label4->Left+2*Label4->Width;
2893     Label23->Top=Label11->Top-9;
2894     Label24->Left=Label4->Left+2*Label4->Width;
2895     Label24->Top=Label12->Top-9;
2896     Label25->Left=Label4->Left+2*Label4->Width;
2897     Label25->Top=Label13->Top-9;
2898     Label26->Left=Label4->Left+2*Label4->Width;
2899     Label26->Top=Label14->Top-9;
2900     Label27->Left=Label4->Left+2*Label4->Width;
2901     Label27->Top=Label15->Top-9;
2902     Label28->Left=Label4->Left+2*Label4->Width;
2903     Label28->Top=Label15->Top+Label15->Height-9;
2904     char mess[30];
2905     sprintf(mess,"%le",lmin+12.*(lmax-lmin)/12.);
2906     Label16->Caption=mess;
2907     sprintf(mess,"%le",lmin+11.*(lmax-lmin)/12.);
2908     Label17->Caption=mess;
2909     sprintf(mess,"%le",lmin+10.*(lmax-lmin)/12.);
2910     Label18->Caption=mess;
2911     sprintf(mess,"%le",lmin+9.*(lmax-lmin)/12.);
2912     Label19->Caption=mess;
2913     sprintf(mess,"%le",lmin+8.*(lmax-lmin)/12.);
2914     Label20->Caption=mess;
2915     sprintf(mess,"%le",lmin+7.*(lmax-lmin)/12.);
2916     Label21->Caption=mess;
2917     sprintf(mess,"%le",lmin+6.*(lmax-lmin)/12.);
2918     Label22->Caption=mess;
2919     sprintf(mess,"%le",lmin+5.*(lmax-lmin)/12.);
2920     Label23->Caption=mess;
2921     sprintf(mess,"%le",lmin+4.*(lmax-lmin)/12.);
2922     Label24->Caption=mess;
2923     sprintf(mess,"%le",lmin+3.*(lmax-lmin)/12.);
2924     Label25->Caption=mess;
2925     sprintf(mess,"%le",lmin+2.*(lmax-lmin)/12.);
2926     Label26->Caption=mess;
2927     sprintf(mess,"%le",lmin+1.*(lmax-lmin)/12.);
2928     Label27->Caption=mess;
2929     sprintf(mess,"%le",lmin+0.*(lmax-lmin)/12.);
2930     Label28->Caption=mess;
2931     Label29->Caption=ListBox1->Items->Strings[ListBox1->ItemIndex];
2932    
2933     }
2934     //---------------------------------------------------------------------------
2935    
2936     void __fastcall TVisuWinform::CheckBox2Click(TObject *Sender)
2937     {
2938     CheckBox3->Checked=CheckBox2->Checked;
2939     redess();
2940     }
2941     //---------------------------------------------------------------------------
2942    
2943    
2944     void __fastcall TVisuWinform::CheckBox2KeyDown(TObject *Sender, WORD &Key,
2945     TShiftState Shift)
2946     {
2947     transformation(Sender,Key,Shift);
2948     }
2949     //---------------------------------------------------------------------------
2950    
2951     void __fastcall TVisuWinform::ComboBox1KeyDown(TObject *Sender, WORD &Key,
2952     TShiftState Shift)
2953     {
2954     transformation(Sender,Key,Shift);
2955     }
2956     //---------------------------------------------------------------------------
2957    
2958     void __fastcall TVisuWinform::CheckBox1KeyDown(TObject *Sender, WORD &Key,
2959     TShiftState Shift)
2960     {
2961     transformation(Sender,Key,Shift);
2962     }
2963     //---------------------------------------------------------------------------
2964    
2965     void __fastcall TVisuWinform::ListBox1KeyDown(TObject *Sender, WORD &Key,
2966     TShiftState Shift)
2967     {
2968     transformation(Sender,Key,Shift);
2969     }
2970     //---------------------------------------------------------------------------
2971    
2972     void __fastcall TVisuWinform::CheckBox3Click(TObject *Sender)
2973     {
2974     CheckBox2->Checked=CheckBox3->Checked;
2975     redess();
2976     }
2977     //---------------------------------------------------------------------------
2978    
2979    
2980    
2981     void __fastcall TVisuWinform::Temprature2Click(TObject *Sender)
2982     {
2983     ajouterccf("Saisie d'une température","Tp",true,true,true,true,true) ;
2984     }
2985     //---------------------------------------------------------------------------
2986    
2987     void __fastcall TVisuWinform::Montrerlaslection1Click(TObject *Sender)
2988     {
2989     if (Montrerlaslection1->Checked==true) Montrerlaslection1->Checked=false;
2990     else Montrerlaslection1->Checked=true;
2991     TreeView1Change(Sender,NULL);
2992     }
2993     //---------------------------------------------------------------------------
2994    
2995     void __fastcall TVisuWinform::TreeView1Change(TObject *Sender,
2996     TTreeNode *Node)
2997     {
2998     if (Montrerlaslection1->Checked==false) {toposel=NULL;redess();MainForm->StatusBar->Panels->Items[2]->Text="";return;}
2999     TTreeNode* node=TreeView1->Selected;
3000     int nb=node->Count;
3001     MG_VOLUME* mgvol=NULL;
3002     MG_FACE* mgface=NULL;
3003     MG_ARETE* mgarete=NULL;
3004     int nb_geo=gest->get_nb_mg_geometrie();
3005     for (int i=0;i<nb_geo;i++)
3006     {
3007     MG_GEOMETRIE* mggeo=gest->get_mg_geometrie(i);
3008     if (nb==0)
3009     {
3010     TTreeNode* node_parent=node->Parent;
3011     mgvol=mggeo->get_mg_volumeid(atol(node->Text.c_str()));
3012     mgface=mggeo->get_mg_faceid(atol(node->Text.c_str()));
3013     mgarete=mggeo->get_mg_areteid(atol(node->Text.c_str()));
3014     MainForm->StatusBar->Panels->Items[2]->Text=node_parent->Text+" "+node->Text;;
3015     }
3016     }
3017     toposel=NULL;
3018     if (mgvol!=NULL) toposel=mgvol;
3019     if (mgface!=NULL) toposel=mgface;
3020     if (mgarete!=NULL) toposel=mgarete;
3021     redess();
3022     ActiveControl=NULL;
3023     }
3024     //---------------------------------------------------------------------------
3025    
3026     void __fastcall TVisuWinform::TreeView1Click(TObject *Sender)
3027     {
3028     ActiveControl=NULL;
3029     }
3030     //---------------------------------------------------------------------------
3031    
3032    
3033    
3034     void __fastcall TVisuWinform::Mesh9820001Click(TObject *Sender)
3035     {
3036     int nb=gest->get_nb_mg_maillage();
3037     char chaine[500];
3038     for (int i=0;i<nb;i++)
3039     {
3040     MG_MAILLAGE* mai=gest->get_mg_maillage(i);
3041     if (i==0) sprintf(chaine,"Maillage %lu|*.*", mai->get_id());
3042     else
3043     {
3044     char chaine2[200];
3045     sprintf(chaine2,"|Maillage %lu|*.*", mai->get_id());
3046     strcat(chaine,chaine2);
3047     }
3048     }
3049     SaveDialog1->Filter=chaine;
3050     if (SaveDialog1->Execute())
3051     {
3052     MG_MAILLAGE* mai=gest->get_mg_maillage(SaveDialog1->FilterIndex-1);
3053     string namefic=SaveDialog1->FileName.c_str();
3054     mai->exporter_mesh(namefic);
3055    
3056     }
3057     }
3058     //---------------------------------------------------------------------------
3059    
3060     void __fastcall TVisuWinform::Giref1Click(TObject *Sender)
3061     {
3062     int nb=gest->get_nb_mg_maillage();
3063     if (nb==0)
3064     {
3065     MessageBox(Handle,"Pas de maillage","Erreur",MB_OK);
3066     return ;
3067     }
3068     char chaine[500];
3069     for (int i=0;i<nb;i++)
3070     {
3071     MG_MAILLAGE* mai=gest->get_mg_maillage(i);
3072     if (i==0) sprintf(chaine,"Maillage %lu|*.*", mai->get_id());
3073     else
3074     {
3075     char chaine2[200];
3076     sprintf(chaine2,"|Maillage %lu|*.*", mai->get_id());
3077     strcat(chaine,chaine2);
3078     }
3079     }
3080     SaveDialog1->Filter=chaine;
3081     if (SaveDialog1->Execute())
3082     {
3083     MG_MAILLAGE* mai=gest->get_mg_maillage(SaveDialog1->FilterIndex-1);
3084     string namefic=SaveDialog1->FileName.c_str();
3085     mai->exporter_giref(namefic);
3086     }
3087    
3088     }
3089     //---------------------------------------------------------------------------
3090    
3091    
3092    
3093    
3094    
3095     void __fastcall TVisuWinform::ajouterccf(char* cap,char *type,int val,int sommet,int arete,int face,int volume)
3096     {
3097     ccfwinform->Caption=cap;
3098     int nb_geo=gest->get_nb_mg_geometrie();
3099     ccfwinform->ComboBox5->Clear();
3100     ccfwinform->ComboBox1->Clear();
3101     ccfwinform->ComboBox2->Clear();
3102     ccfwinform->ComboBox3->Clear();
3103     ccfwinform->ComboBox4->Clear();
3104     if (sommet)
3105     {
3106     ccfwinform->RadioButton1->Visible=true;
3107     ccfwinform->ComboBox1->Visible=true;
3108     }
3109     else
3110     {
3111     ccfwinform->RadioButton1->Visible=false;
3112     ccfwinform->ComboBox1->Visible=false;
3113     }
3114     if (arete)
3115     {
3116     ccfwinform->RadioButton2->Visible=true;
3117     ccfwinform->ComboBox2->Visible=true;
3118     }
3119     else
3120     {
3121     ccfwinform->RadioButton2->Visible=false;
3122     ccfwinform->ComboBox2->Visible=false;
3123     }
3124     if (face)
3125     {
3126     ccfwinform->RadioButton3->Visible=true;
3127     ccfwinform->ComboBox3->Visible=true;
3128     }
3129     else
3130     {
3131     ccfwinform->RadioButton3->Visible=false;
3132     ccfwinform->ComboBox3->Visible=false;
3133     }
3134     if (volume)
3135     {
3136     ccfwinform->RadioButton4->Visible=true;
3137     ccfwinform->ComboBox4->Visible=true;
3138     }
3139     else
3140     {
3141     ccfwinform->RadioButton4->Visible=false;
3142     ccfwinform->ComboBox4->Visible=false;
3143     }
3144     ccfwinform->CheckBox1->Visible=ccfwinform->ComboBox2->Visible;
3145     ccfwinform->CheckBox2->Visible=ccfwinform->ComboBox3->Visible;
3146     ccfwinform->CheckBox3->Visible=ccfwinform->ComboBox4->Visible;
3147    
3148     for (int i=0;i<nb_geo;i++)
3149     {
3150     MG_GEOMETRIE* mggeo=gest->get_mg_geometrie(i);
3151     char mess[30];
3152     sprintf(mess,"%lu",mggeo->get_id());
3153     ccfwinform->ComboBox5->Items->Add(mess);
3154     }
3155     ccfwinform->active(gest,type);
3156     ccfwinform->Label4->Caption=Caption;
3157     ccfwinform->Edit1->ReadOnly=false;
3158     ccfwinform->Edit1->Text="";
3159     if (val==false)
3160     {
3161     ccfwinform->Edit1->Text="0";
3162     ccfwinform->Edit1->ReadOnly=true;
3163     }
3164     ccfwinform->ShowModal();
3165     }
3166     void __fastcall TVisuWinform::X1Click(TObject *Sender)
3167     {
3168     ajouterccf("Saisie d'un blocage selon l'axe x","Dx",false,true,true,true,true) ;
3169     }
3170     //---------------------------------------------------------------------------
3171    
3172     void __fastcall TVisuWinform::Y1Click(TObject *Sender)
3173     {
3174     ajouterccf("Saisie d'un blocage selon l'axe y","Dy",false,true,true,true,true) ;
3175    
3176     }
3177     //---------------------------------------------------------------------------
3178    
3179     void __fastcall TVisuWinform::Z1Click(TObject *Sender)
3180     {
3181     ajouterccf("Saisie d'un blocage selon l'axe z","Dz",false,true,true,true,true) ;
3182    
3183     }
3184     //---------------------------------------------------------------------------
3185    
3186     void __fastcall TVisuWinform::Tous1Click(TObject *Sender)
3187     {
3188     ajouterccf("Saisie d'un blocage dans toutes les directions","Da",false,true,true,true,true) ;
3189    
3190     }
3191     //---------------------------------------------------------------------------
3192    
3193     void __fastcall TVisuWinform::X2Click(TObject *Sender)
3194     {
3195     ajouterccf("Saisie d'une force selon l'axe x","Fx",true,true,false,false,false) ;
3196    
3197     }
3198     //---------------------------------------------------------------------------
3199    
3200     void __fastcall TVisuWinform::Y2Click(TObject *Sender)
3201     {
3202     ajouterccf("Saisie d'une force selon l'axe y","Fy",true,true,false,false,false) ;
3203    
3204     }
3205     //---------------------------------------------------------------------------
3206    
3207     void __fastcall TVisuWinform::Z2Click(TObject *Sender)
3208     {
3209     ajouterccf("Saisie d'une force selon l'axe z","Fz",true,true,false,false,false) ;
3210    
3211     }
3212     //---------------------------------------------------------------------------
3213    
3214     void __fastcall TVisuWinform::Matriaux1Click(TObject *Sender)
3215     {
3216     Tmatwinform *Child;
3217     Child = new Tmatwinform(Application);
3218     Child->Caption=Caption;
3219     Child->gest=gest;
3220     Child->Label6->Caption=Caption;
3221     Child->ShowModal();
3222     }
3223     //---------------------------------------------------------------------------
3224    
3225    
3226     void __fastcall TVisuWinform::mailleonExecute(TObject *Sender)
3227     {
3228     maille=1;
3229     redess();
3230     }
3231     //---------------------------------------------------------------------------
3232    
3233     void __fastcall TVisuWinform::mailleoffExecute(TObject *Sender)
3234     {
3235     maille=0;
3236     redess();
3237     }
3238     //---------------------------------------------------------------------------
3239    
3240     void __fastcall TVisuWinform::N1D1Click(TObject *Sender)
3241     {
3242     N1D1->Checked=!N1D1->Checked;
3243     noeud=0;
3244     if (N0D1->Checked) noeud=noeud+1;
3245     if (N1D1->Checked) noeud=noeud+2;
3246     if (N2D1->Checked) noeud=noeud+4;
3247     if (N3D1->Checked) noeud=noeud+8;
3248     redess();
3249     }
3250     //---------------------------------------------------------------------------
3251    
3252     void __fastcall TVisuWinform::N2D1Click(TObject *Sender)
3253     {
3254     N2D1->Checked=!N2D1->Checked;
3255     noeud=0;
3256     if (N0D1->Checked) noeud=noeud+1;
3257     if (N1D1->Checked) noeud=noeud+2;
3258     if (N2D1->Checked) noeud=noeud+4;
3259     if (N3D1->Checked) noeud=noeud+8;
3260     redess();
3261     }
3262     //---------------------------------------------------------------------------
3263    
3264     void __fastcall TVisuWinform::N3D1Click(TObject *Sender)
3265     {
3266     N3D1->Checked=!N3D1->Checked;
3267     noeud=0;
3268     if (N0D1->Checked) noeud=noeud+1;
3269     if (N1D1->Checked) noeud=noeud+2;
3270     if (N2D1->Checked) noeud=noeud+4;
3271     if (N3D1->Checked) noeud=noeud+8;
3272     redess();
3273     }
3274     //---------------------------------------------------------------------------
3275    
3276    
3277    
3278     void __fastcall TVisuWinform::Tous2Click(TObject *Sender)
3279     {
3280     N1D1->Checked=true;
3281     N2D1->Checked=true;
3282     N3D1->Checked=true;
3283     noeud=15;
3284     redess();
3285     }
3286     //---------------------------------------------------------------------------
3287    
3288    
3289     void __fastcall TVisuWinform::N1D2Click(TObject *Sender)
3290     {
3291     N1D2->Checked=!N1D2->Checked;
3292     maille=0;
3293     if (N1D2->Checked) maille=maille+1;
3294     if (N2D2->Checked) maille=maille+2;
3295     if (N3D2->Checked) maille=maille+4;
3296     redess();
3297     }
3298     //---------------------------------------------------------------------------
3299    
3300     void __fastcall TVisuWinform::N2D2Click(TObject *Sender)
3301     {
3302     N2D2->Checked=!N2D2->Checked;
3303     maille=0;
3304     if (N1D2->Checked) maille=maille+1;
3305     if (N2D2->Checked) maille=maille+2;
3306     if (N3D2->Checked) maille=maille+4;
3307     redess();
3308     }
3309     //---------------------------------------------------------------------------
3310    
3311     void __fastcall TVisuWinform::N3D2Click(TObject *Sender)
3312     {
3313     N3D2->Checked=!N3D2->Checked;
3314     maille=0;
3315     if (N1D2->Checked) maille=maille+1;
3316     if (N2D2->Checked) maille=maille+2;
3317     if (N3D2->Checked) maille=maille+4;
3318     redess();
3319     }
3320     //---------------------------------------------------------------------------
3321    
3322     void __fastcall TVisuWinform::Tous3Click(TObject *Sender)
3323     {
3324     N1D2->Checked=true;
3325     N2D2->Checked=true;
3326     N3D2->Checked=true;
3327     maille=7;
3328     redess();
3329     }
3330     //---------------------------------------------------------------------------
3331    
3332     void __fastcall TVisuWinform::Aucun1Click(TObject *Sender)
3333     {
3334     N0D1->Checked=false;
3335     N1D1->Checked=false;
3336     N2D1->Checked=false;
3337     N3D1->Checked=false;
3338     noeud=0;
3339     redess();
3340     }
3341     //---------------------------------------------------------------------------
3342    
3343     void __fastcall TVisuWinform::Aucun2Click(TObject *Sender)
3344     {
3345     N1D2->Checked=false;
3346     N2D2->Checked=false;
3347     N3D2->Checked=false;
3348     maille=0;
3349     redess();
3350     }
3351    
3352     //---------------------------------------------------------------------------
3353    
3354     void __fastcall TVisuWinform::X3Click(TObject *Sender)
3355     {
3356     ajouterccf("Saisie d'une pression selon l'axe x","Px",true,false,true,true,false) ;
3357    
3358     }
3359     //---------------------------------------------------------------------------
3360    
3361     void __fastcall TVisuWinform::Y3Click(TObject *Sender)
3362     {
3363     ajouterccf("Saisie d'une pression selon l'axe y","Py",true,false,true,true,false) ;
3364    
3365     }
3366     //---------------------------------------------------------------------------
3367    
3368     void __fastcall TVisuWinform::Z3Click(TObject *Sender)
3369     {
3370     ajouterccf("Saisie d'une pression selon l'axe z","Pz",true,false,true,true,false) ;
3371    
3372     }
3373     //---------------------------------------------------------------------------
3374    
3375     void __fastcall TVisuWinform::Normal1Click(TObject *Sender)
3376     {
3377     ajouterccf("Saisie d'une pression normale","Pn",true,false,false,true,false) ;
3378    
3379     }
3380     //---------------------------------------------------------------------------
3381    
3382    
3383     void __fastcall TVisuWinform::ResultatCosmosM1Click(TObject *Sender)
3384     {
3385     int nb=gest->get_nb_fem_maillage();
3386     if (nb==0)
3387     {
3388     MessageBox(Handle,"Pas de maillage FEM","Erreur",MB_OK);
3389     return ;
3390     }
3391     TCosmosWin *fen=new TCosmosWin(Owner);
3392    
3393     fen->ComboBox1->Clear();
3394     for (int i=0;i<nb;i++)
3395     {
3396     char chaine[500];
3397     FEM_MAILLAGE* mai=gest->get_fem_maillage(i);
3398     sprintf(chaine,"%lu", mai->get_id());
3399     fen->ComboBox1->Items->Add(chaine);
3400     }
3401     fen->Label2->Caption=Caption;
3402     fen->changegestionnaire(gest);
3403     fen->Show();
3404     }
3405     //---------------------------------------------------------------------------
3406    
3407    
3408     void __fastcall TVisuWinform::lancerg3dExecute(TObject *Sender)
3409     {
3410     Twincarte *Child;
3411     Child = new Twincarte(Application,*gest);
3412     Child->Caption=Caption;
3413     }
3414     //---------------------------------------------------------------------------
3415    
3416    
3417    
3418     void __fastcall TVisuWinform::TrackBar2Change(TObject *Sender)
3419     {
3420     if (TrackBar2->Position<TrackBar1->Position) TrackBar1->Position=TrackBar2->Position;
3421     ActiveControl=NULL;
3422     redess();
3423     }
3424     //---------------------------------------------------------------------------
3425    
3426     void __fastcall TVisuWinform::TrackBar1Change(TObject *Sender)
3427     {
3428     if (TrackBar2->Position<TrackBar1->Position) TrackBar2->Position=TrackBar1->Position;
3429     ActiveControl=NULL;
3430     redess();
3431     }
3432     //---------------------------------------------------------------------------
3433    
3434     void __fastcall TVisuWinform::TrackBar3Change(TObject *Sender)
3435     {
3436     if (TrackBar4->Position<TrackBar3->Position) TrackBar4->Position=TrackBar3->Position;
3437     ActiveControl=NULL;
3438     redess();
3439     }
3440     //---------------------------------------------------------------------------
3441    
3442     void __fastcall TVisuWinform::TrackBar4Change(TObject *Sender)
3443     {
3444     if (TrackBar4->Position<TrackBar3->Position) TrackBar3->Position=TrackBar4->Position;
3445     ActiveControl=NULL;
3446     redess();
3447    
3448     }
3449     //---------------------------------------------------------------------------
3450    
3451     void __fastcall TVisuWinform::TrackBar5Change(TObject *Sender)
3452     {
3453     if (TrackBar6->Position<TrackBar5->Position) TrackBar6->Position=TrackBar5->Position;
3454     ActiveControl=NULL;
3455     redess();
3456    
3457     }
3458     //---------------------------------------------------------------------------
3459    
3460     void __fastcall TVisuWinform::TrackBar6Change(TObject *Sender)
3461     {
3462     if (TrackBar6->Position<TrackBar5->Position) TrackBar5->Position=TrackBar6->Position;
3463     ActiveControl=NULL;
3464     redess();
3465     }
3466     //---------------------------------------------------------------------------
3467    
3468     void __fastcall TVisuWinform::Button1Click(TObject *Sender)
3469     {
3470     AnsiString InputString = InputBox("Information","Entrez la valeur maximale de la legende ?", "");
3471     double val=atof(InputString.c_str());
3472     if (val>lmin) lmax=val;
3473     dessine_legende();
3474     redess();
3475     }
3476     //---------------------------------------------------------------------------
3477     void __fastcall TVisuWinform::Button2Click(TObject *Sender)
3478     {
3479     AnsiString InputString = InputBox("Information","Entrez la valeur minimale de la legende ?", "");
3480     double val=atof(InputString.c_str());
3481     if (val<lmax) lmin=val;
3482     dessine_legende();
3483     redess();
3484     }
3485     //---------------------------------------------------------------------------
3486    
3487     void __fastcall TVisuWinform::Button3Click(TObject *Sender)
3488     {
3489     PageControl1->Enabled=false;
3490     PageControl2->Visible=true;
3491     TabSheet5->TabVisible=true;
3492     ComboBox2->Clear();
3493     ListBox2->Clear();
3494     Label35->Caption="Champs";
3495     Edit1->Visible=false;
3496     ListBox2->Visible=true;
3497     MG_SOLUTION* sol=gest->get_mg_solution(ComboBox1->ItemIndex);
3498     MG_MAILLAGE* mai=NULL;
3499     if (sol!=NULL) mai=sol->get_maillage();
3500     int nb=gest->get_nb_mg_solution();
3501     for (int i=0;i<nb;i++)
3502     {
3503     MG_SOLUTION* sol=gest->get_mg_solution(i);
3504     MG_MAILLAGE* maitmp=sol->get_maillage();
3505     if (maitmp!=mai)
3506     {
3507     ComboBox2->Items->Add("Solution incompatible");
3508     continue;
3509     }
3510     char chaine[1000];
3511     sprintf(chaine,"%s",sol->get_nom().c_str());
3512     ComboBox2->Items->Add(chaine);
3513     }
3514     FEM_SOLUTION* femsol=gest->get_fem_solution(ComboBox1->ItemIndex-gest->get_nb_mg_solution());
3515     FEM_MAILLAGE* femmai=NULL;
3516     if (femsol!=NULL) femmai=femsol->get_maillage();
3517     nb=gest->get_nb_fem_solution();
3518     for (int i=0;i<nb;i++)
3519     {
3520     FEM_SOLUTION* sol=gest->get_fem_solution(i);
3521     FEM_MAILLAGE* maitmp=sol->get_maillage();
3522     if (maitmp!=femmai)
3523     {
3524     ComboBox2->Items->Add("Solution incompatible");
3525     continue;
3526     }
3527     char chaine[1000];
3528     sprintf(chaine,"%s",sol->get_nom().c_str());
3529     ComboBox2->Items->Add(chaine);
3530     }
3531    
3532     ComboBox2->Items->Add("Constante");
3533     ComboBox2->Items->Add("Fonction");
3534     ListBox3->Clear();
3535     char chaine[100];
3536     sprintf(chaine,"%s@%s",ListBox1->Items->Strings[ListBox1->ItemIndex].c_str(),ComboBox1->Text.c_str());
3537     ListBox3->Items->Add(chaine);
3538     }
3539     //---------------------------------------------------------------------------
3540    
3541     void __fastcall TVisuWinform::Button4Click(TObject *Sender)
3542     {
3543     PageControl2->Visible=false;
3544     TabSheet5->TabVisible=false;
3545     PageControl1->Enabled=true;
3546     }
3547     //---------------------------------------------------------------------------
3548    
3549     void __fastcall TVisuWinform::Button5Click(TObject *Sender)
3550     {
3551     PageControl2->Visible=false;
3552     TabSheet5->TabVisible=false;
3553     PageControl1->Enabled=true;
3554     TabSheet6->TabVisible=true;
3555     TabSheet2->TabVisible=false;
3556     PageControl1->ActivePage=TabSheet6;
3557     MG_SOLUTION* sol=gest->get_mg_solution(ComboBox2->ItemIndex);
3558     if (((ListBox2->ItemIndex!=-1) || (ComboBox2->Text=="Constante") || (ComboBox2->Text=="Fonction") )&& (ComboBox3->Text!=""))
3559     {
3560     if (gest->get_mg_solution(ComboBox1->ItemIndex)!=NULL)
3561     {
3562     MG_MAILLAGE* mai=gest->get_mg_solution(ComboBox1->ItemIndex)->get_maillage();
3563     int nb=mai->get_nb_mg_noeud();
3564     lmin=1e308;
3565     lmax=-1e308;
3566     for (int i=0;i<nb;i++)
3567     {
3568     MG_NOEUD* noeud=mai->get_mg_noeud(i);
3569     double val=noeud->get_solution();
3570     double val2;
3571     if (ComboBox2->Text=="Constante") val2=atof(Edit1->Text.c_str()); else if (ComboBox2->Text!="Fonction") val2=sol->lire(i,ListBox2->ItemIndex);
3572     if (ComboBox3->Text=="+") val=val+val2;
3573     if (ComboBox3->Text=="-") val=val-val2;
3574     if (ComboBox3->Text=="*") val=val*val2;
3575     if (ComboBox3->Text=="/")
3576     if (fabs(val2)>1e-10) val=val/val2; else val=val/fabs(val)*1e308;
3577     if (ComboBox3->Text=="|x|") val=fabs(val);
3578     if (val<lmin) lmin=val;
3579     if (val>lmax) lmax=val;
3580     noeud->change_solution(val);
3581     }
3582     if (!(lmax>lmin)) lmax=lmin+1e-6;
3583     char chaine[100];
3584     if (ComboBox3->Text=="|x|") strcpy(chaine,"|x|");
3585     else if (ComboBox2->Text=="Constante") sprintf(chaine,"%s %s",ComboBox3->Text.c_str(),Edit1->Text.c_str());
3586     else sprintf(chaine,"%s %s@%s",ComboBox3->Text.c_str(),ListBox2->Items->Strings[ListBox2->ItemIndex].c_str(),ComboBox2->Text.c_str());
3587     ListBox3->Items->Add(chaine);
3588     dessine_legende();
3589     redess();
3590     }
3591     }
3592     FEM_SOLUTION* femsol=gest->get_fem_solution(ComboBox2->ItemIndex-gest->get_nb_mg_solution());
3593     if (((ListBox2->ItemIndex!=-1) || (ComboBox2->Text=="Constante") || (ComboBox2->Text=="Fonction") )&& (ComboBox3->Text!="") )
3594     {
3595     if (gest->get_fem_solution(ComboBox1->ItemIndex-gest->get_nb_mg_solution())!=NULL)
3596     {
3597     FEM_MAILLAGE* mai=gest->get_fem_solution(ComboBox1->ItemIndex-gest->get_nb_mg_solution())->get_maillage();
3598     int nb=mai->get_nb_fem_noeud();
3599     lmin=1e308;
3600     lmax=-1e308;
3601     for (int i=0;i<nb;i++)
3602     {
3603     FEM_NOEUD* noeud=mai->get_fem_noeud(i);
3604     double val=noeud->get_solution();
3605     double val2;
3606     if (ComboBox2->Text=="Constante") val2=atof(Edit1->Text.c_str()); else if (ComboBox2->Text!="Fonction") val2=femsol->lire(i,ListBox2->ItemIndex);
3607     if (ComboBox3->Text=="+") val=val+val2;
3608     if (ComboBox3->Text=="-") val=val-val2;
3609     if (ComboBox3->Text=="*") val=val*val2;
3610     if (ComboBox3->Text=="/")
3611     if (fabs(val2)>1e-10) val=val/val2; else val=val/fabs(val)*1e308;
3612     if (ComboBox3->Text=="|x|") val=fabs(val);
3613     if (val<lmin) lmin=val;
3614     if (val>lmax) lmax=val;
3615     noeud->change_solution(val);
3616     }
3617     if (!(lmax>lmin)) lmax=lmin+1e-6;
3618     char chaine[100];
3619     if (ComboBox3->Text=="|x|") strcpy(chaine,"|x|");
3620     else if (ComboBox2->Text=="Constante") sprintf(chaine,"%s %s",ComboBox3->Text.c_str(),Edit1->Text.c_str());
3621     else sprintf(chaine,"%s %s@%s",ComboBox3->Text.c_str(),ListBox2->Items->Strings[ListBox2->ItemIndex].c_str(),ComboBox2->Text.c_str());
3622     ListBox3->Items->Add(chaine);
3623     dessine_legende();
3624     redess();
3625     }
3626     }
3627    
3628     }
3629     //---------------------------------------------------------------------------
3630    
3631     void __fastcall TVisuWinform::ComboBox2Change(TObject *Sender)
3632     {
3633     ComboBox3->Clear();
3634     ComboBox3->Items->Add("+");
3635     ComboBox3->Items->Add("-");
3636     ComboBox3->Items->Add("*");
3637     ComboBox3->Items->Add("/");
3638     if (ComboBox2->Text=="Solution incompatible")
3639     {
3640     ComboBox2->ItemIndex=-1;
3641     return;
3642     }
3643     if (ComboBox2->Text=="Fonction")
3644     {
3645     ComboBox3->Clear();
3646     ComboBox3->Items->Add("|x|");
3647     return;
3648     }
3649     if (ComboBox2->Text=="Constante")
3650     {
3651     ListBox2->Visible=false;
3652     Label35->Caption="Valeur";
3653     Edit1->Visible=true;
3654     return;
3655     }
3656     Label35->Caption="Champs";
3657     Edit1->Visible=false;
3658     ListBox2->Visible=true;
3659     MG_SOLUTION* sol=gest->get_mg_solution(ComboBox2->ItemIndex);
3660     if (sol!=NULL)
3661     {
3662     ListBox2->Clear();
3663     int nb=sol->get_nb_champ();
3664     for (int i=0;i<nb;i++)
3665     ListBox2->Items->Add(sol->get_legende(i).c_str());
3666     }
3667     FEM_SOLUTION* femsol=gest->get_fem_solution(ComboBox2->ItemIndex-gest->get_nb_mg_solution());
3668     if (femsol!=NULL)
3669     {
3670     ListBox2->Clear();
3671     int nb=femsol->get_nb_champ();
3672     for (int i=0;i<nb;i++)
3673     ListBox2->Items->Add(femsol->get_legende(i).c_str());
3674     }
3675    
3676     }
3677     //---------------------------------------------------------------------------
3678    
3679     void __fastcall TVisuWinform::Button6Click(TObject *Sender)
3680     {
3681     PageControl1->Enabled=false;
3682     PageControl2->Visible=true;
3683     TabSheet5->TabVisible=true;
3684     ComboBox2->Clear();
3685     ListBox2->Clear();
3686     Label35->Caption="Champs";
3687     Edit1->Visible=false;
3688     ListBox2->Visible=true;
3689     MG_SOLUTION* sol=gest->get_mg_solution(ComboBox1->ItemIndex);
3690     MG_MAILLAGE* mai=NULL;
3691     if (sol!=NULL) mai=sol->get_maillage();
3692     int nb=gest->get_nb_mg_solution();
3693     for (int i=0;i<nb;i++)
3694     {
3695     MG_SOLUTION* sol=gest->get_mg_solution(i);
3696     MG_MAILLAGE* maitmp=sol->get_maillage();
3697     if (maitmp!=mai)
3698     {
3699     ComboBox2->Items->Add("Solution incompatible");
3700     continue;
3701     }
3702     char chaine[1000];
3703     sprintf(chaine,"%s",sol->get_nom().c_str());
3704     ComboBox2->Items->Add(chaine);
3705     }
3706     FEM_SOLUTION* femsol=gest->get_fem_solution(ComboBox1->ItemIndex-gest->get_nb_mg_solution());
3707     FEM_MAILLAGE* femmai=NULL;
3708     if (femsol!=NULL) femmai=femsol->get_maillage();
3709     nb=gest->get_nb_fem_solution();
3710     for (int i=0;i<nb;i++)
3711     {
3712     FEM_SOLUTION* femsol=gest->get_fem_solution(i);
3713     FEM_MAILLAGE* maitmp=femsol->get_maillage();
3714     if (maitmp!=femmai)
3715     {
3716     ComboBox2->Items->Add("Solution incompatible");
3717     continue;
3718     }
3719     char chaine[1000];
3720     sprintf(chaine,"%s",femsol->get_nom().c_str());
3721     ComboBox2->Items->Add(chaine);
3722     }
3723     ComboBox2->Items->Add("Constante");
3724     ComboBox2->Items->Add("Fonction");
3725     }
3726     //---------------------------------------------------------------------------
3727    
3728     void __fastcall TVisuWinform::Button7Click(TObject *Sender)
3729     {
3730     TabSheet2->TabVisible=true;
3731     MG_SOLUTION* sol=gest->get_mg_solution(ComboBox1->ItemIndex);
3732     if (sol!=NULL)
3733     {
3734     sol->active_solution(ListBox1->ItemIndex);
3735     lmin=sol->get_legende_min();
3736     lmax=sol->get_legende_max();
3737     }
3738     FEM_SOLUTION* femsol=gest->get_fem_solution(ComboBox1->ItemIndex-gest->get_nb_mg_solution());
3739     if (femsol!=NULL)
3740     {
3741     femsol->active_solution(ListBox1->ItemIndex);
3742     lmin=femsol->get_legende_min();
3743     lmax=femsol->get_legende_max();
3744     }
3745     TabSheet6->TabVisible=false;
3746     PageControl1->ActivePage=TabSheet2;
3747     dessine_legende();
3748     redess();
3749     }
3750     //---------------------------------------------------------------------------
3751    
3752    
3753     void __fastcall TVisuWinform::Vu1Click(TObject *Sender)
3754     {
3755     Tvisupara *Child;
3756     Child = new Tvisupara(Application);
3757     Child->gest=gest;
3758     int nbmai=gest->get_nb_mg_maillage();
3759     for (int i=0;i<nbmai;i++)
3760     {
3761     MG_MAILLAGE* mai=gest->get_mg_maillage(i);
3762     long id=mai->get_id();
3763     Child->ListBox1->Items->Add(id);
3764     }
3765     int nbgeo=gest->get_nb_mg_geometrie();
3766     for (int i=0;i<nbgeo;i++)
3767     {
3768     MG_GEOMETRIE* geo=gest->get_mg_geometrie(i);
3769     long id=geo->get_id();
3770     Child->ListBox3->Items->Add(id);
3771     }
3772     Child->Caption=Caption;
3773     }
3774     //---------------------------------------------------------------------------
3775    
3776     void __fastcall TVisuWinform::X4Click(TObject *Sender)
3777     {
3778     ajouterccf("Saisie d'un déplacement imposé selon l'axe x","Dx",true,true,true,true,false) ;
3779     }
3780     //---------------------------------------------------------------------------
3781    
3782     void __fastcall TVisuWinform::Y4Click(TObject *Sender)
3783     {
3784     ajouterccf("Saisie d'un déplacement imposé selon l'axe y","Dy",true,true,true,true,false) ;
3785     }
3786     //---------------------------------------------------------------------------
3787    
3788     void __fastcall TVisuWinform::Z4Click(TObject *Sender)
3789     {
3790     ajouterccf("Saisie d'un déplacement imposé selon l'axe z","Dz",true,true,true,true,false) ;
3791     }
3792     //---------------------------------------------------------------------------
3793    
3794    
3795    
3796     void __fastcall TVisuWinform::Resolution1Click(TObject *Sender)
3797     {
3798     Tfsolve *fsolve=new Tfsolve(Application,gest);
3799     fsolve->Caption=Caption;
3800     fsolve->ComboBox1->Clear();
3801     int nbmai=gest->get_nb_mg_maillage();
3802     for (int i=0;i<nbmai;i++)
3803     {
3804     MG_MAILLAGE* mai=gest->get_mg_maillage(i);
3805     fsolve->ComboBox1->Items->Add(mai->get_id());
3806     }
3807     fsolve->Show();
3808     }
3809     //---------------------------------------------------------------------------
3810    
3811     //---------------------------------------------------------------------------
3812     void __fastcall TVisuWinform::dessinemaifem(void)
3813     {
3814     glLineWidth(1.);
3815     double x1=boite.get_xmin()+TrackBar1->Position*(boite.get_xmax()-boite.get_xmin())/100.;
3816     double y1=boite.get_ymin()+TrackBar3->Position*(boite.get_ymax()-boite.get_ymin())/100.;
3817     double z1=boite.get_zmin()+TrackBar5->Position*(boite.get_zmax()-boite.get_zmin())/100.;
3818     double x2=boite.get_xmin()+TrackBar2->Position*(boite.get_xmax()-boite.get_xmin())/100.;
3819     double y2=boite.get_ymin()+TrackBar4->Position*(boite.get_ymax()-boite.get_ymin())/100.;
3820     double z2=boite.get_zmin()+TrackBar6->Position*(boite.get_zmax()-boite.get_zmin())/100.;
3821     double dx=(x2-x1)*1.01;
3822     double dy=(y2-y1)*1.01;
3823     double dz=(z2-z1)*1.01;
3824     double xm=(x1+x2)/2.;
3825     x1=xm-dx/2.;x2=xm+dx/2.;
3826     double ym=(y1+y2)/2.;
3827     y1=ym-dy/2.;y2=ym+dy/2.;
3828     double zm=(z1+z2)/2.;
3829     z1=zm-dz/2.;z2=zm+dz/2.;
3830     BOITE_3D boite2(x1,y1,z1,x2+1e-8,y2+1e-8,z2+1e-8);
3831    
3832     if (noeud)
3833     {
3834     glColor3f(MainForm->valeurconfig[30],MainForm->valeurconfig[31],MainForm->valeurconfig[32]);
3835     glPointSize(MainForm->valeurconfig[33]);
3836     glBegin(GL_POINTS);
3837     int nb=lst_noeud_fem.size();
3838     for (int i=0;i<nb;i++)
3839     {
3840     FEM_NOEUD* noeud1=lst_noeud_fem[i];
3841 francois 56 if (N12->Checked)
3842     if (!estdansfiltre(noeud1->get_id())) continue;
3843 francois 62 if (CheckListBox1->Checked[(noeud1->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
3844 5 BOITE_3D boitmp=noeud1->get_boite_3D();
3845     if (!(boitmp*boite2)) continue;
3846     int dim;
3847     if (noeud1->get_lien_topologie()==NULL) dim=-1;
3848     else dim=noeud1->get_lien_topologie()->get_dimension();
3849     /*if (dim==0) dim=1;
3850     dim--;*/
3851     if (dim>-1)
3852     {
3853     int binoeud[4];
3854     binoeud[0]=noeud%2;
3855     binoeud[1]=(noeud/2)%2;
3856     binoeud[2]=(noeud/4)%2;
3857     binoeud[3]=(noeud/8)%2;
3858     if (binoeud[dim])
3859     {
3860     double *xyz1=noeud1->get_coord();
3861     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
3862     }
3863     }
3864     else
3865     {
3866     double *xyz1=noeud1->get_coord();
3867     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
3868     }
3869     }
3870     glEnd();
3871     if (affnoeud)
3872     {
3873     for (int i=0;i<nb;i++)
3874     {
3875     FEM_NOEUD* noeud1=lst_noeud_fem[i];
3876 francois 56 if (N12->Checked)
3877     if (!estdansfiltre(noeud1->get_id())) continue;
3878 francois 62 if (CheckListBox1->Checked[(noeud1->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
3879 5 BOITE_3D boitmp=noeud1->get_boite_3D();
3880     if (!(boitmp*boite2)) continue;
3881     int dim;
3882     if (noeud1->get_lien_topologie()==NULL) dim=-1;
3883     else dim=noeud1->get_lien_topologie()->get_dimension();
3884     /*if (dim==0) dim=1;
3885     dim--;*/
3886     int binoeud[4];
3887     binoeud[0]=noeud%2;
3888     binoeud[1]=(noeud/2)%2;
3889     binoeud[2]=(noeud/4)%2;
3890     binoeud[3]=(noeud/8)%2;
3891     if (dim>-1)
3892     {
3893     if (binoeud[dim])
3894     {
3895     char mess[30];
3896     if (Id1->Checked)
3897     {
3898     unsigned long id=noeud1->get_id();
3899     sprintf(mess,"%lu",id);
3900     }
3901     if (Numero1->Checked)
3902     {
3903     int num=noeud1->get_numero();
3904     sprintf(mess,"%d",num);
3905     }
3906     if (NumeroOptimise1->Checked)
3907     {
3908     int num=noeud1->get_numero_opt();
3909     sprintf(mess,"%d",num);
3910     }
3911     double *xyz=noeud1->get_coord();
3912     glRasterPos3f(xyz[0],xyz[1],xyz[2]);
3913     glListBase (1000);
3914     glCallLists (strlen(mess), GL_UNSIGNED_BYTE, mess);
3915     }
3916    
3917     }
3918     else
3919     {
3920     double *xyz=noeud1->get_coord();
3921     char mess[30];
3922     if (Id1->Checked)
3923     {
3924     unsigned long id=noeud1->get_id();
3925     sprintf(mess,"%lu",id);
3926     }
3927     if (Numero1->Checked)
3928     {
3929     int num=noeud1->get_numero();
3930     sprintf(mess,"%d",num);
3931     }
3932     if (NumeroOptimise1->Checked)
3933     {
3934     int num=noeud1->get_numero_opt();
3935     sprintf(mess,"%d",num);
3936     }
3937     glRasterPos3f(xyz[0],xyz[1],xyz[2]);
3938     glListBase (1000);
3939     glCallLists (strlen(mess), GL_UNSIGNED_BYTE, mess);
3940     }
3941     }
3942    
3943     }
3944     }
3945     int bmaille[3];
3946     bmaille[0]=maille%2;
3947     bmaille[1]=(maille/2)%2;
3948     bmaille[2]=(maille/4)%2;
3949     if (bmaille[0])
3950     {
3951     glLineWidth(MainForm->valeurconfig[17]);
3952     glColor3f(MainForm->valeurconfig[14],MainForm->valeurconfig[15],MainForm->valeurconfig[16]);
3953     glBegin(GL_LINES);
3954     int nb=lst_segment_fem.size();
3955     for (int i=0;i<nb;i++)
3956     {
3957     glColor3f(MainForm->valeurconfig[14],MainForm->valeurconfig[15],MainForm->valeurconfig[16]);
3958     FEM_SEGMENT* femsegment=lst_segment_fem[i];
3959 francois 56 if (N12->Checked)
3960     if (!estdansfiltre(femsegment->get_id())) continue;
3961 francois 62 if (CheckListBox1->Checked[(femsegment->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
3962 5 BOITE_3D boitmp=femsegment->get_boite_3D();
3963     if (!(boitmp*boite2)) continue;
3964     int nbnoeud=femsegment->get_nb_fem_noeud();
3965     FEM_NOEUD* noeud1=femsegment->get_fem_noeud(0);
3966     FEM_NOEUD* noeud2=femsegment->get_fem_noeud(1);
3967     double *xyz1=noeud1->get_coord();
3968     double *xyz2=noeud2->get_coord();
3969     if ((femsegment->get_lien_topologie()==toposel) && (femsegment->get_lien_topologie()!=NULL) )
3970     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
3971 francois 56 if (qualite==2)
3972     {
3973     int pos=(int) ((femsegment->get_mg_element_maillage()->get_origine()-1000)/10);
3974 francois 62 glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
3975    
3976 francois 56 }
3977 5 if (CheckBox1->Checked==true)
3978     {
3979     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
3980     if (pos>11) pos=11;
3981     if (pos<0) pos=0;
3982     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
3983     }
3984     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
3985     if (CheckBox1->Checked==true)
3986     {
3987     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
3988     if (pos>11) pos=11;
3989     if (pos<0) pos=0;
3990     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
3991     }
3992     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
3993     if (nbnoeud==3)
3994     {
3995     FEM_NOEUD* noeud1=femsegment->get_fem_noeud(1);
3996     FEM_NOEUD* noeud2=femsegment->get_fem_noeud(2);
3997     double *xyz1=noeud1->get_coord();
3998     double *xyz2=noeud2->get_coord();
3999     if ((femsegment->get_lien_topologie()==toposel) && (femsegment->get_lien_topologie()!=NULL) )
4000     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
4001     if (CheckBox1->Checked==true)
4002     {
4003     int pos=(int) ((noeud1->get_solution()-lmin)*12./(lmax-lmin));
4004     if (pos>11) pos=11;
4005     if (pos<0) pos=0;
4006     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4007     }
4008     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
4009     if (CheckBox1->Checked==true)
4010     {
4011     int pos=(int) ((noeud2->get_solution()-lmin)*12./(lmax-lmin));
4012     if (pos>11) pos=11;
4013     if (pos<0) pos=0;
4014     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4015     }
4016     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
4017     }
4018     }
4019     glEnd();
4020    
4021     if (affmaille)
4022     {
4023     for (int i=0;i<nb;i++)
4024     {
4025     FEM_SEGMENT* femsegment=lst_segment_fem[i];
4026 francois 56 if (N12->Checked)
4027     if (!estdansfiltre(femsegment->get_id())) continue;
4028 francois 62 if (CheckListBox1->Checked[(femsegment->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
4029 5 BOITE_3D boitmp=femsegment->get_boite_3D();
4030     if (!(boitmp*boite2)) continue;
4031 francois 56 if (qualite==2)
4032 francois 62 {
4033     int pos=(int) ((femsegment->get_mg_element_maillage()->get_origine()-1000)/10);
4034     glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
4035    
4036 francois 56 }
4037 5 FEM_NOEUD* noeud1=femsegment->get_fem_noeud(0);
4038     FEM_NOEUD* noeud2=femsegment->get_fem_noeud(femsegment->get_nb_fem_noeud()-1);
4039     unsigned long id=femsegment->get_id();
4040     double *xyz1=noeud1->get_coord();
4041     double *xyz2=noeud2->get_coord();
4042     char mess[30];
4043     sprintf(mess,"%lu",id);
4044     glRasterPos3f(0.5*(xyz1[0]+xyz2[0]),0.5*(xyz1[1]+xyz2[1]),0.5*(xyz1[2]+xyz2[2]));
4045     glListBase (1000);
4046     glCallLists (strlen(mess), GL_UNSIGNED_BYTE, mess);
4047     }
4048     }
4049     }
4050    
4051     //triangle
4052     if (bmaille[1])
4053     {
4054     if (render>0)
4055     {
4056     if (render>1) InitShading();
4057     glColor3f(MainForm->valeurconfig[34],MainForm->valeurconfig[35],MainForm->valeurconfig[36]);
4058     glEnable(GL_DEPTH_TEST);
4059     glEnable(GL_POLYGON_OFFSET_FILL);
4060     glPolygonOffset(1.0,1.0);
4061     glPolygonMode(GL_FRONT_AND_BACK,GL_FILL);
4062     glBegin(GL_TRIANGLES);
4063     glEdgeFlag(GL_TRUE);
4064     int nb=lst_triangle_fem.size();
4065     for (int i=0;i<nb;i++)
4066     {
4067     glColor3f(MainForm->valeurconfig[34],MainForm->valeurconfig[35],MainForm->valeurconfig[36]);
4068     FEM_TRIANGLE* femtri=lst_triangle_fem[i];
4069 francois 56 if (N12->Checked)
4070     if (!estdansfiltre(femtri->get_id())) continue;
4071 francois 62 if (CheckListBox1->Checked[(femtri->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
4072 5 BOITE_3D boitmp=femtri->get_boite_3D();
4073     if (!(boitmp*boite2)) continue;
4074     int nbfemnoeud=femtri->get_nb_fem_noeud();
4075     if (nbfemnoeud==3) dessinetrifem(femtri,femtri->get_fem_noeud(0),femtri->get_fem_noeud(1),femtri->get_fem_noeud(2));
4076     if (nbfemnoeud==6)
4077     {
4078     dessinetrifem(femtri,femtri->get_fem_noeud(0),femtri->get_fem_noeud(1),femtri->get_fem_noeud(5));
4079     dessinetrifem(femtri,femtri->get_fem_noeud(1),femtri->get_fem_noeud(2),femtri->get_fem_noeud(3));
4080     dessinetrifem(femtri,femtri->get_fem_noeud(1),femtri->get_fem_noeud(3),femtri->get_fem_noeud(5));
4081     dessinetrifem(femtri,femtri->get_fem_noeud(5),femtri->get_fem_noeud(3),femtri->get_fem_noeud(4));
4082     }
4083     }
4084     glEnd();
4085     }
4086    
4087     glFlush();
4088     if (render>0)
4089     {
4090     glColor3f(MainForm->valeurconfig[37],MainForm->valeurconfig[38],MainForm->valeurconfig[39]);
4091     glLineWidth(MainForm->valeurconfig[40]);
4092     if (render>1) InitShading();
4093     }
4094     else
4095     {
4096     glColor3f(MainForm->valeurconfig[18],MainForm->valeurconfig[19],MainForm->valeurconfig[20]);
4097     glLineWidth(MainForm->valeurconfig[21]);
4098     }
4099     glPolygonMode(GL_FRONT_AND_BACK,GL_LINE);
4100     glBegin(GL_LINES);
4101     glEdgeFlag(GL_TRUE);
4102     int nb=lst_triangle_fem.size();
4103     for (int i=0;i<nb;i++)
4104     {
4105     if (render>0)
4106     glColor3f(MainForm->valeurconfig[37],MainForm->valeurconfig[38],MainForm->valeurconfig[39]);
4107     else
4108     glColor3f(MainForm->valeurconfig[18],MainForm->valeurconfig[19],MainForm->valeurconfig[20]);
4109     FEM_TRIANGLE* femtri=lst_triangle_fem[i];
4110 francois 56 if (N12->Checked)
4111     if (!estdansfiltre(femtri->get_id())) continue;
4112 francois 62 if (CheckListBox1->Checked[(femtri->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
4113 5 BOITE_3D boitmp=femtri->get_boite_3D();
4114     if (!(boitmp*boite2)) continue;
4115     int nb_fem_noeud=femtri->get_nb_fem_noeud();
4116     double xg=0.;
4117     double yg=0.;
4118     double zg=0.;
4119     for (int j=0;j<nb_fem_noeud;j++)
4120     {
4121     FEM_NOEUD* no=femtri->get_fem_noeud(j);
4122     xg=xg+no->get_x();
4123     yg=yg+no->get_y();
4124     zg=zg+no->get_z();
4125     }
4126     xg=xg/nb_fem_noeud;
4127     yg=yg/nb_fem_noeud;
4128     zg=zg/nb_fem_noeud;
4129     for (int j=0;j<nb_fem_noeud;j++)
4130     {
4131     FEM_NOEUD* no1=femtri->get_fem_noeud(j);
4132     FEM_NOEUD* no2;
4133     if (j+1!=nb_fem_noeud) no2=femtri->get_fem_noeud(j+1); else no2=femtri->get_fem_noeud(0);
4134     double *xyz1=no1->get_coord();
4135     double *xyz2=no2->get_coord();
4136     if ( ((femtri->get_lien_topologie()==toposel)&& (femtri->get_lien_topologie()!=NULL) && (render==0)) || ((femtri->get_lien_topologie()==toposel)&&(render==1) && (femtri->get_lien_topologie()!=NULL) && (MainForm->valeurconfig[56]==0.)))
4137     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
4138 francois 56 if ( ((qualite==1)&&(render==0)) || ((qualite==1)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
4139     {
4140     double qual;
4141     if (femtri->get_nb_fem_noeud()==3) qual=OPERATEUR::qualite_triangle(femtri->get_fem_noeud(0)->get_coord(),femtri->get_fem_noeud(1)->get_coord(),femtri->get_fem_noeud(2)->get_coord());
4142     if (femtri->get_nb_fem_noeud()==6) qual=OPERATEUR::qualite_triangle(femtri->get_fem_noeud(0)->get_coord(),femtri->get_fem_noeud(2)->get_coord(),femtri->get_fem_noeud(4)->get_coord());
4143     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
4144     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
4145     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
4146     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
4147     }
4148     if ( ((qualite==2)&&(render==0)) || ((qualite==2)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
4149     {
4150     int pos=(int) ((femtri->get_mg_element_maillage()->get_origine()-1000)/10);
4151 francois 62 glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
4152 francois 56 }
4153 5 if (shrink)
4154     {
4155     double x1=xg+facteur_shrink*(xyz1[0]-xg);
4156     double y1=yg+facteur_shrink*(xyz1[1]-yg);
4157     double z1=zg+facteur_shrink*(xyz1[2]-zg);
4158     double x2=xg+facteur_shrink*(xyz2[0]-xg);
4159     double y2=yg+facteur_shrink*(xyz2[1]-yg);
4160     double z2=zg+facteur_shrink*(xyz2[2]-zg);
4161     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
4162     {
4163     int pos=(int) ((no1->get_solution()-lmin)*12./(lmax-lmin));
4164     if (pos>11) pos=11;
4165     if (pos<0) pos=0;
4166     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4167     }
4168     glVertex3f(x1,y1,z1);
4169     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
4170     {
4171     int pos=(int) ((no2->get_solution()-lmin)*12./(lmax-lmin));
4172     if (pos>11) pos=11;
4173     if (pos<0) pos=0;
4174     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4175     }
4176     glVertex3f(x2,y2,z2);
4177    
4178     }
4179     else
4180     {
4181     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
4182     {
4183     int pos=(int) ((no1->get_solution()-lmin)*12./(lmax-lmin));
4184     if (pos>11) pos=11;
4185     if (pos<0) pos=0;
4186     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4187     }
4188     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
4189     if ((CheckBox1->Checked==true) && ( (CheckBox2->Checked==false) || ( (CheckBox2->Checked==true) && (render==0) )) )
4190     {
4191     int pos=(int) ((no2->get_solution()-lmin)*12./(lmax-lmin));
4192     if (pos>11) pos=11;
4193     if (pos<0) pos=0;
4194     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4195     }
4196     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
4197     }
4198     }
4199     }
4200     glEnd();
4201     if (affmaille)
4202     {
4203     for (int i=0;i<nb;i++)
4204     {
4205     FEM_TRIANGLE* femtri=lst_triangle_fem[i];
4206 francois 56 if (N12->Checked)
4207     if (!estdansfiltre(femtri->get_id())) continue;
4208 francois 62 if (CheckListBox1->Checked[(femtri->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
4209 5 BOITE_3D boitmp=femtri->get_boite_3D();
4210     if (!(boitmp*boite2)) continue;
4211     int n1,n2,n3;
4212     int nb=femtri->get_nb_fem_noeud();
4213     if (nb==3) {n1=0;n2=1;n3=2;}
4214     if (nb==6) {n1=0;n2=2;n3=4;}
4215     FEM_NOEUD* noeud1=femtri->get_fem_noeud(n1);
4216     FEM_NOEUD* noeud2=femtri->get_fem_noeud(n2);
4217     FEM_NOEUD* noeud3=femtri->get_fem_noeud(n3);
4218     double *xyz1=noeud1->get_coord();
4219     double *xyz2=noeud2->get_coord();
4220     double *xyz3=noeud3->get_coord();
4221     unsigned long id=femtri->get_id();
4222     char mess[30];
4223     sprintf(mess,"%lu",id);
4224     if ( ((qualite==1)&&(render==0)) || ((qualite==1)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
4225     {
4226     double qual=OPERATEUR::qualite_triangle(xyz1,xyz2,xyz3);
4227     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
4228     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
4229     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
4230     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
4231     }
4232 francois 56 if ( ((qualite==2)&&(render==0)) || ((qualite==2)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
4233     {
4234     int pos=(int) ((femtri->get_mg_element_maillage()->get_origine()-1000)/10);
4235 francois 62 glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
4236 francois 56 }
4237     glRasterPos3f((xyz1[0]+xyz2[0]+xyz3[0])/3.,(xyz1[1]+xyz2[1]+xyz3[1])/3.,(xyz1[2]+xyz2[2]+xyz3[2])/3.);
4238 5 glListBase (1000);
4239     glCallLists (strlen(mess), GL_UNSIGNED_BYTE, mess);
4240     }
4241     }
4242     if (render==2)
4243     {
4244     glDisable(GL_LIGHTING);
4245     glDisable(GL_LIGHT0);
4246     glDisable(GL_LIGHT1);
4247     }
4248     }
4249     //tetra
4250     if (bmaille[2])
4251     {
4252     if (render==1)
4253     {
4254     glColor3f(MainForm->valeurconfig[34],MainForm->valeurconfig[35],MainForm->valeurconfig[36]);
4255     glEnable(GL_DEPTH_TEST);
4256     glEnable(GL_POLYGON_OFFSET_FILL);
4257     glPolygonOffset(1.0,1.0);
4258     glPolygonMode(GL_FRONT_AND_BACK,GL_FILL);
4259     glBegin(GL_TRIANGLES);
4260     glEdgeFlag(GL_TRUE);
4261     int nb=lst_tetra_fem.size();
4262     for (int i=0;i<nb;i++)
4263     {
4264     FEM_TETRA* femtet=lst_tetra_fem[i];
4265 francois 56 if (N12->Checked)
4266     if (!estdansfiltre(femtet->get_id())) continue;
4267 francois 62 if (CheckListBox1->Checked[(femtet->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
4268 5 BOITE_3D boitmp=femtet->get_boite_3D();
4269     if (!(boitmp*boite2)) continue;
4270     int nb_noeud=femtet->get_nb_fem_noeud();
4271     if (nb_noeud==4)
4272     {
4273     dessinetritetfem(femtet,femtet->get_fem_noeud(0),femtet->get_fem_noeud(1),femtet->get_fem_noeud(2));
4274     dessinetritetfem(femtet,femtet->get_fem_noeud(0),femtet->get_fem_noeud(1),femtet->get_fem_noeud(3));
4275     dessinetritetfem(femtet,femtet->get_fem_noeud(1),femtet->get_fem_noeud(2),femtet->get_fem_noeud(3));
4276     dessinetritetfem(femtet,femtet->get_fem_noeud(2),femtet->get_fem_noeud(0),femtet->get_fem_noeud(3));
4277     }
4278     if (nb_noeud==10)
4279     {
4280     dessinetritetfem(femtet,femtet->get_fem_noeud(0),femtet->get_fem_noeud(1),femtet->get_fem_noeud(5));
4281     dessinetritetfem(femtet,femtet->get_fem_noeud(1),femtet->get_fem_noeud(2),femtet->get_fem_noeud(3));
4282     dessinetritetfem(femtet,femtet->get_fem_noeud(3),femtet->get_fem_noeud(4),femtet->get_fem_noeud(5));
4283     dessinetritetfem(femtet,femtet->get_fem_noeud(1),femtet->get_fem_noeud(3),femtet->get_fem_noeud(5));
4284     dessinetritetfem(femtet,femtet->get_fem_noeud(9),femtet->get_fem_noeud(7),femtet->get_fem_noeud(6));
4285     dessinetritetfem(femtet,femtet->get_fem_noeud(7),femtet->get_fem_noeud(2),femtet->get_fem_noeud(1));
4286     dessinetritetfem(femtet,femtet->get_fem_noeud(1),femtet->get_fem_noeud(0),femtet->get_fem_noeud(6));
4287     dessinetritetfem(femtet,femtet->get_fem_noeud(7),femtet->get_fem_noeud(1),femtet->get_fem_noeud(6));
4288     dessinetritetfem(femtet,femtet->get_fem_noeud(9),femtet->get_fem_noeud(8),femtet->get_fem_noeud(7));
4289     dessinetritetfem(femtet,femtet->get_fem_noeud(8),femtet->get_fem_noeud(4),femtet->get_fem_noeud(3));
4290     dessinetritetfem(femtet,femtet->get_fem_noeud(3),femtet->get_fem_noeud(2),femtet->get_fem_noeud(7));
4291     dessinetritetfem(femtet,femtet->get_fem_noeud(3),femtet->get_fem_noeud(7),femtet->get_fem_noeud(8));
4292     dessinetritetfem(femtet,femtet->get_fem_noeud(9),femtet->get_fem_noeud(6),femtet->get_fem_noeud(8));
4293     dessinetritetfem(femtet,femtet->get_fem_noeud(6),femtet->get_fem_noeud(0),femtet->get_fem_noeud(5));
4294     dessinetritetfem(femtet,femtet->get_fem_noeud(5),femtet->get_fem_noeud(4),femtet->get_fem_noeud(8));
4295     dessinetritetfem(femtet,femtet->get_fem_noeud(5),femtet->get_fem_noeud(8),femtet->get_fem_noeud(6));
4296     }
4297     }
4298     glEnd();
4299     }
4300    
4301     glFlush();
4302     if (render==1)
4303     {
4304     glColor3f(MainForm->valeurconfig[37],MainForm->valeurconfig[38],MainForm->valeurconfig[39]);
4305     glLineWidth(MainForm->valeurconfig[40]);
4306     }
4307     else
4308     {
4309     glColor3f(MainForm->valeurconfig[22],MainForm->valeurconfig[23],MainForm->valeurconfig[24]);
4310     glLineWidth(MainForm->valeurconfig[25]);
4311     }
4312     glPolygonMode(GL_FRONT_AND_BACK,GL_LINE);
4313     glBegin(GL_LINES);
4314     glEdgeFlag(GL_TRUE);
4315     int nb=lst_tetra_fem.size();
4316     for (int i=0;i<nb;i++)
4317     {
4318     if (render==1)
4319     glColor3f(MainForm->valeurconfig[37],MainForm->valeurconfig[38],MainForm->valeurconfig[39]);
4320     else
4321     glColor3f(MainForm->valeurconfig[22],MainForm->valeurconfig[23],MainForm->valeurconfig[24]);
4322     FEM_TETRA* femtet=lst_tetra_fem[i];
4323     BOITE_3D boitmp=femtet->get_boite_3D();
4324 francois 56 if (N12->Checked)
4325     if (!estdansfiltre(femtet->get_id())) continue;
4326 francois 62 if (CheckListBox1->Checked[(femtet->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
4327 5 if (!(boitmp*boite2)) continue;
4328     int nb_noeud=femtet->get_nb_fem_noeud();
4329     if (nb_noeud==4)
4330     {
4331     dessinesegtetfem(femtet,femtet->get_fem_noeud(0),femtet->get_fem_noeud(1));
4332     dessinesegtetfem(femtet,femtet->get_fem_noeud(1),femtet->get_fem_noeud(2));
4333     dessinesegtetfem(femtet,femtet->get_fem_noeud(2),femtet->get_fem_noeud(3));
4334     dessinesegtetfem(femtet,femtet->get_fem_noeud(3),femtet->get_fem_noeud(0));
4335 francois 56 dessinesegtetfem(femtet,femtet->get_fem_noeud(2),femtet->get_fem_noeud(0));
4336     dessinesegtetfem(femtet,femtet->get_fem_noeud(3),femtet->get_fem_noeud(1));
4337 5 }
4338     if (nb_noeud==10)
4339     {
4340     dessinesegtetfem(femtet,femtet->get_fem_noeud(0),femtet->get_fem_noeud(1));
4341     dessinesegtetfem(femtet,femtet->get_fem_noeud(1),femtet->get_fem_noeud(2));
4342     dessinesegtetfem(femtet,femtet->get_fem_noeud(2),femtet->get_fem_noeud(3));
4343     dessinesegtetfem(femtet,femtet->get_fem_noeud(3),femtet->get_fem_noeud(4));
4344     dessinesegtetfem(femtet,femtet->get_fem_noeud(4),femtet->get_fem_noeud(5));
4345     dessinesegtetfem(femtet,femtet->get_fem_noeud(5),femtet->get_fem_noeud(0));
4346     dessinesegtetfem(femtet,femtet->get_fem_noeud(0),femtet->get_fem_noeud(6));
4347     dessinesegtetfem(femtet,femtet->get_fem_noeud(6),femtet->get_fem_noeud(9));
4348     dessinesegtetfem(femtet,femtet->get_fem_noeud(2),femtet->get_fem_noeud(7));
4349     dessinesegtetfem(femtet,femtet->get_fem_noeud(7),femtet->get_fem_noeud(9));
4350     dessinesegtetfem(femtet,femtet->get_fem_noeud(4),femtet->get_fem_noeud(8));
4351     dessinesegtetfem(femtet,femtet->get_fem_noeud(8),femtet->get_fem_noeud(9));
4352     }
4353     }
4354     glEnd();
4355     if (affmaille)
4356     {
4357     for (int i=0;i<nb;i++)
4358     {
4359     FEM_TETRA* femtet=lst_tetra_fem[i];
4360 francois 56 if (N12->Checked)
4361     if (!estdansfiltre(femtet->get_id())) continue;
4362 5 BOITE_3D boitmp=femtet->get_boite_3D();
4363 francois 62 if (CheckListBox1->Checked[(femtet->get_mg_element_maillage()->get_origine()-1000)/10]==false) continue;
4364 5 if (!(boitmp*boite2)) continue;
4365     FEM_NOEUD *noeud1,*noeud2,*noeud3,*noeud4;
4366     int nb_noeud=femtet->get_nb_fem_noeud();
4367     if (nb_noeud==4)
4368     {
4369     noeud1=femtet->get_fem_noeud(0);
4370     noeud2=femtet->get_fem_noeud(1);
4371     noeud3=femtet->get_fem_noeud(2);
4372     noeud4=femtet->get_fem_noeud(3);
4373     }
4374     if (nb_noeud==10)
4375     {
4376     noeud1=femtet->get_fem_noeud(0);
4377     noeud2=femtet->get_fem_noeud(2);
4378     noeud3=femtet->get_fem_noeud(4);
4379     noeud4=femtet->get_fem_noeud(9);
4380     }
4381     double *xyz1=noeud1->get_coord();
4382     double *xyz2=noeud2->get_coord();
4383     double *xyz3=noeud3->get_coord();
4384     double *xyz4=noeud4->get_coord();
4385     unsigned long id=femtet->get_id();
4386     char mess[30];
4387     sprintf(mess,"%lu",id);
4388     if ( ((qualite==1)&&(render==0)) || ((qualite==1)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
4389     {
4390     double qual=OPERATEUR::qualite_tetra(xyz1,xyz2,xyz3,xyz4);
4391     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
4392     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
4393     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
4394     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
4395     }
4396     glRasterPos3f((xyz1[0]+xyz2[0]+xyz3[0]+xyz4[0])/4.,(xyz1[1]+xyz2[1]+xyz3[1]+xyz4[1])/4.,(xyz1[2]+xyz2[2]+xyz3[2]+xyz4[2])/4.);
4397     glListBase (1000);
4398     glCallLists (strlen(mess), GL_UNSIGNED_BYTE, mess);
4399     }
4400     }
4401     if (render==2)
4402     {
4403     glDisable(GL_LIGHTING);
4404     glDisable(GL_LIGHT0);
4405     glDisable(GL_LIGHT1);
4406     }
4407     }
4408     }
4409    
4410    
4411    
4412     void __fastcall TVisuWinform::dessinetrifem(FEM_TRIANGLE* femtri,FEM_NOEUD* no1,FEM_NOEUD* no2,FEM_NOEUD* no3)
4413     {
4414     double *xyz1=no1->get_coord();
4415     double *xyz2=no2->get_coord();
4416     double *xyz3=no3->get_coord();
4417     if ((femtri->get_lien_topologie()==toposel) && (femtri->get_lien_topologie()!=NULL) )
4418     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
4419     if (qualite==1)
4420     {
4421     double qual;
4422     if (femtri->get_nb_fem_noeud()==3) qual=OPERATEUR::qualite_triangle(femtri->get_fem_noeud(0)->get_coord(),femtri->get_fem_noeud(1)->get_coord(),femtri->get_fem_noeud(2)->get_coord());
4423     if (femtri->get_nb_fem_noeud()==6) qual=OPERATEUR::qualite_triangle(femtri->get_fem_noeud(0)->get_coord(),femtri->get_fem_noeud(2)->get_coord(),femtri->get_fem_noeud(4)->get_coord());
4424     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
4425     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
4426     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
4427     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
4428     }
4429 francois 56 if (qualite==2)
4430     {
4431     int pos=(int) ((femtri->get_mg_element_maillage()->get_origine()-1000)/10);
4432 francois 62 glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
4433    
4434 francois 56 }
4435 5 if (shrink)
4436     {
4437     int nb=femtri->get_nb_fem_noeud();
4438     double xg=0.;
4439     double yg=0.;
4440     double zg=0.;
4441     for (int i=0;i<nb;i++)
4442     {
4443     FEM_NOEUD* no=femtri->get_fem_noeud(i);
4444     xg=xg+no->get_x();
4445     yg=yg+no->get_y();
4446     zg=zg+no->get_z();
4447     }
4448     xg=xg/nb;
4449     yg=yg/nb;
4450     zg=zg/nb;
4451     double x1=xg+facteur_shrink*(xyz1[0]-xg);
4452     double y1=yg+facteur_shrink*(xyz1[1]-yg);
4453     double z1=zg+facteur_shrink*(xyz1[2]-zg);
4454     double x2=xg+facteur_shrink*(xyz2[0]-xg);
4455     double y2=yg+facteur_shrink*(xyz2[1]-yg);
4456     double z2=zg+facteur_shrink*(xyz2[2]-zg);
4457     double x3=xg+facteur_shrink*(xyz3[0]-xg);
4458     double y3=yg+facteur_shrink*(xyz3[1]-yg);
4459     double z3=zg+facteur_shrink*(xyz3[2]-zg);
4460     if (CheckBox1->Checked==true)
4461     {
4462     int pos=(int) ((no1->get_solution()-lmin)*12./(lmax-lmin));
4463     if (pos>11) pos=11;
4464     if (pos<0) pos=0;
4465     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4466     }
4467     glVertex3f(x1,y1,z1);
4468     if (CheckBox1->Checked==true)
4469     {
4470     int pos=(int) ((no3->get_solution()-lmin)*12./(lmax-lmin));
4471     if (pos>11) pos=11;
4472     if (pos<0) pos=0;
4473     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4474     }
4475     glVertex3f(x3,y3,z3);
4476     if (CheckBox1->Checked==true)
4477     {
4478     int pos=(int) ((no2->get_solution()-lmin)*12./(lmax-lmin));
4479     if (pos>11) pos=11;
4480     if (pos<0) pos=0;
4481     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4482     }
4483     glVertex3f(x2,y2,z2);
4484     }
4485     else
4486     {
4487     if (CheckBox1->Checked==true)
4488     {
4489     int pos=(int) ((no1->get_solution()-lmin)*12./(lmax-lmin));
4490     if (pos>11) pos=11;
4491     if (pos<0) pos=0;
4492     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4493     }
4494     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
4495     if (CheckBox1->Checked==true)
4496     {
4497     int pos=(int) ((no3->get_solution()-lmin)*12./(lmax-lmin));
4498     if (pos>11) pos=11;
4499     if (pos<0) pos=0;
4500     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4501     }
4502     glVertex3f(xyz3[0],xyz3[1],xyz3[2]);
4503     if (CheckBox1->Checked==true)
4504     {
4505     int pos=(int) ((no2->get_solution()-lmin)*12./(lmax-lmin));
4506     if (pos>11) pos=11;
4507     if (pos<0) pos=0;
4508     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4509     }
4510     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
4511     }
4512     }
4513    
4514     void __fastcall TVisuWinform::dessinetritetfem(FEM_TETRA* femtet,FEM_NOEUD* no1,FEM_NOEUD* no2,FEM_NOEUD* no3)
4515     {
4516     double *xyz1=no1->get_coord();
4517     double *xyz2=no2->get_coord();
4518     double *xyz3=no3->get_coord();
4519     if ((femtet->get_lien_topologie()==toposel) && (femtet->get_lien_topologie()!=NULL) )
4520     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
4521     if (qualite==1)
4522     {
4523     double qual;
4524     if (femtet->get_nb_fem_noeud()==4) qual=OPERATEUR::qualite_tetra(femtet->get_fem_noeud(0)->get_coord(),femtet->get_fem_noeud(1)->get_coord(),femtet->get_fem_noeud(2)->get_coord(),femtet->get_fem_noeud(3)->get_coord());
4525     if (femtet->get_nb_fem_noeud()==10) qual=OPERATEUR::qualite_tetra(femtet->get_fem_noeud(0)->get_coord(),femtet->get_fem_noeud(2)->get_coord(),femtet->get_fem_noeud(4)->get_coord(),femtet->get_fem_noeud(9)->get_coord());
4526     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
4527     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
4528     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
4529     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
4530     }
4531 francois 56 if (qualite==2)
4532     {
4533     int pos=(int) ((femtet->get_mg_element_maillage()->get_origine()-1000)/10);
4534 francois 62 glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
4535    
4536 francois 56 }
4537    
4538 5 if (shrink)
4539     {
4540     int nb=femtet->get_nb_fem_noeud();
4541     double xg=0.;
4542     double yg=0.;
4543     double zg=0.;
4544     for (int i=0;i<nb;i++)
4545     {
4546     FEM_NOEUD* no=femtet->get_fem_noeud(i);
4547     xg=xg+no->get_x();
4548     yg=yg+no->get_y();
4549     zg=zg+no->get_z();
4550     }
4551     xg=xg/nb;
4552     yg=yg/nb;
4553     zg=zg/nb;
4554     double x1=xg+facteur_shrink*(xyz1[0]-xg);
4555     double y1=yg+facteur_shrink*(xyz1[1]-yg);
4556     double z1=zg+facteur_shrink*(xyz1[2]-zg);
4557     double x2=xg+facteur_shrink*(xyz2[0]-xg);
4558     double y2=yg+facteur_shrink*(xyz2[1]-yg);
4559     double z2=zg+facteur_shrink*(xyz2[2]-zg);
4560     double x3=xg+facteur_shrink*(xyz3[0]-xg);
4561     double y3=yg+facteur_shrink*(xyz3[1]-yg);
4562     double z3=zg+facteur_shrink*(xyz3[2]-zg);
4563     if (CheckBox1->Checked==true)
4564     {
4565     int pos=(int) ((no1->get_solution()-lmin)*12./(lmax-lmin));
4566     if (pos>11) pos=11;
4567     if (pos<0) pos=0;
4568     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4569     }
4570     glVertex3f(x1,y1,z1);
4571     if (CheckBox1->Checked==true)
4572     {
4573     int pos=(int) ((no3->get_solution()-lmin)*12./(lmax-lmin));
4574     if (pos>11) pos=11;
4575     if (pos<0) pos=0;
4576     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4577     }
4578     glVertex3f(x3,y3,z3);
4579     if (CheckBox1->Checked==true)
4580     {
4581     int pos=(int) ((no2->get_solution()-lmin)*12./(lmax-lmin));
4582     if (pos>11) pos=11;
4583     if (pos<0) pos=0;
4584     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4585     }
4586     glVertex3f(x2,y2,z2);
4587     }
4588     else
4589     {
4590     if (CheckBox1->Checked==true)
4591     {
4592     int pos=(int) ((no1->get_solution()-lmin)*12./(lmax-lmin));
4593     if (pos>11) pos=11;
4594     if (pos<0) pos=0;
4595     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4596     }
4597     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
4598     if (CheckBox1->Checked==true)
4599     {
4600     int pos=(int) ((no3->get_solution()-lmin)*12./(lmax-lmin));
4601     if (pos>11) pos=11;
4602     if (pos<0) pos=0;
4603     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4604     }
4605     glVertex3f(xyz3[0],xyz3[1],xyz3[2]);
4606     if (CheckBox1->Checked==true)
4607     {
4608     int pos=(int) ((no2->get_solution()-lmin)*12./(lmax-lmin));
4609     if (pos>11) pos=11;
4610     if (pos<0) pos=0;
4611     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4612     }
4613     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
4614     }
4615     }
4616     void __fastcall TVisuWinform::dessinesegtetfem(FEM_TETRA* femtet,FEM_NOEUD* no1,FEM_NOEUD* no2)
4617     {
4618     double *xyz1=no1->get_coord();
4619     double *xyz2=no2->get_coord();
4620     if ((femtet->get_lien_topologie()==toposel) && (femtet->get_lien_topologie()!=NULL) )
4621     glColor3f(RGB_r[13]/255.,RGB_g[13]/255.,RGB_b[13]/255.);
4622 francois 56 if ( ((qualite==1)&&(render==0)) || ((qualite==1)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
4623     {
4624     double qual;
4625     if (femtet->get_nb_fem_noeud()==4) qual=OPERATEUR::qualite_tetra(femtet->get_fem_noeud(0)->get_coord(),femtet->get_fem_noeud(1)->get_coord(),femtet->get_fem_noeud(2)->get_coord(),femtet->get_fem_noeud(3)->get_coord());
4626     if (femtet->get_nb_fem_noeud()==10) qual=OPERATEUR::qualite_tetra(femtet->get_fem_noeud(0)->get_coord(),femtet->get_fem_noeud(2)->get_coord(),femtet->get_fem_noeud(4)->get_coord(),femtet->get_fem_noeud(9)->get_coord());
4627     if (qual>MainForm->valeurconfig[53]) glColor3f(MainForm->valeurconfig[41],MainForm->valeurconfig[42],MainForm->valeurconfig[43]);
4628     else if (qual>MainForm->valeurconfig[54]) glColor3f(MainForm->valeurconfig[44],MainForm->valeurconfig[45],MainForm->valeurconfig[46]);
4629     else if (qual>MainForm->valeurconfig[55]) glColor3f(MainForm->valeurconfig[47],MainForm->valeurconfig[48],MainForm->valeurconfig[49]);
4630     else glColor3f(MainForm->valeurconfig[50],MainForm->valeurconfig[51],MainForm->valeurconfig[52]);
4631     }
4632     if ( ((qualite==2)&&(render==0)) || ((qualite==2)&&(render==1) && (MainForm->valeurconfig[56]==0.)))
4633     {
4634     int pos=(int) ((femtet->get_mg_element_maillage()->get_origine()-1000)/10);
4635 francois 62 glColor3f(MainForm->valeurconfig[108+3*pos],MainForm->valeurconfig[109+3*pos],MainForm->valeurconfig[110+3*pos]);
4636    
4637 francois 56 }
4638 5 if (shrink)
4639     {
4640     int nb=femtet->get_nb_fem_noeud();
4641     double xg=0.;
4642     double yg=0.;
4643     double zg=0.;
4644     for (int i=0;i<nb;i++)
4645     {
4646     FEM_NOEUD* no=femtet->get_fem_noeud(i);
4647     xg=xg+no->get_x();
4648     yg=yg+no->get_y();
4649     zg=zg+no->get_z();
4650     }
4651     xg=xg/nb;
4652     yg=yg/nb;
4653     zg=zg/nb;
4654     double x1=xg+facteur_shrink*(xyz1[0]-xg);
4655     double y1=yg+facteur_shrink*(xyz1[1]-yg);
4656     double z1=zg+facteur_shrink*(xyz1[2]-zg);
4657     double x2=xg+facteur_shrink*(xyz2[0]-xg);
4658     double y2=yg+facteur_shrink*(xyz2[1]-yg);
4659     double z2=zg+facteur_shrink*(xyz2[2]-zg);
4660     if ((CheckBox1->Checked==true) && (CheckBox2->Checked==false))
4661     {
4662     int pos=(int) ((no1->get_solution()-lmin)*12./(lmax-lmin));
4663     if (pos>11) pos=11;
4664     if (pos<0) pos=0;
4665     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4666     }
4667     glVertex3f(x1,y1,z1);
4668     if ((CheckBox1->Checked==true) && (CheckBox2->Checked==false))
4669     {
4670     int pos=(int) ((no2->get_solution()-lmin)*12./(lmax-lmin));
4671     if (pos>11) pos=11;
4672     if (pos<0) pos=0;
4673     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4674     }
4675     glVertex3f(x2,y2,z2);
4676     }
4677     else
4678     {
4679     if ((CheckBox1->Checked==true) && (CheckBox2->Checked==false))
4680     {
4681     int pos=(int) ((no1->get_solution()-lmin)*12./(lmax-lmin));
4682     if (pos>11) pos=11;
4683     if (pos<0) pos=0;
4684     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4685     }
4686     glVertex3f(xyz1[0],xyz1[1],xyz1[2]);
4687     if ((CheckBox1->Checked==true) && (CheckBox2->Checked==false))
4688     {
4689     int pos=(int) ((no2->get_solution()-lmin)*12./(lmax-lmin));
4690     if (pos>11) pos=11;
4691     if (pos<0) pos=0;
4692     glColor3f(RGB_r[pos]/255.,RGB_g[pos]/255.,RGB_b[pos]/255.);
4693     }
4694     glVertex3f(xyz2[0],xyz2[1],xyz2[2]);
4695     }
4696     }
4697     void __fastcall TVisuWinform::Id1Click(TObject *Sender)
4698     {
4699     Id1->Checked=true;
4700     Numero1->Checked=false;
4701     NumeroOptimise1->Checked=false;
4702     }
4703     //---------------------------------------------------------------------------
4704    
4705     void __fastcall TVisuWinform::Numero1Click(TObject *Sender)
4706     {
4707     Id1->Checked=false;
4708     Numero1->Checked=true;
4709     NumeroOptimise1->Checked=false;
4710     }
4711     //---------------------------------------------------------------------------
4712    
4713     void __fastcall TVisuWinform::NumeroOptimise1Click(TObject *Sender)
4714     {
4715     Id1->Checked=false;
4716     Numero1->Checked=false;
4717     NumeroOptimise1->Checked=true;
4718     }
4719     //---------------------------------------------------------------------------
4720    
4721    
4722     void __fastcall TVisuWinform::Cartedetaille3Click(TObject *Sender)
4723     {
4724     Tfimcarte *fimcarte=new Tfimcarte(Application,gest);
4725     fimcarte->Caption=Caption;
4726     fimcarte->ComboBox1->Clear();
4727     fimcarte->ComboBox2->Clear();
4728     int nbmai=gest->get_nb_mg_maillage();
4729     for (int i=0;i<nbmai;i++)
4730     {
4731     MG_MAILLAGE* mai=gest->get_mg_maillage(i);
4732     fimcarte->ComboBox1->Items->Add(mai->get_id());
4733     }
4734     int nbmaifem=gest->get_nb_fem_maillage();
4735     for (int i=0;i<nbmaifem;i++)
4736     {
4737     FEM_MAILLAGE* mai=gest->get_fem_maillage(i);
4738     fimcarte->ComboBox2->Items->Add(mai->get_id());
4739     }
4740     fimcarte->Show();
4741     }
4742     //---------------------------------------------------------------------------
4743    
4744    
4745    
4746    
4747    
4748     void __fastcall TVisuWinform::voirarbreExecute(TObject *Sender)
4749     {
4750     Tfvisuarbre *Child;
4751     Child = new Tfvisuarbre(Application,gest);
4752     Child->Caption=Caption;
4753     }
4754     //---------------------------------------------------------------------------
4755    
4756     void __fastcall TVisuWinform::Reconstruction1Click(TObject *Sender)
4757     {
4758     Tfrecons *frecons=new Tfrecons(Application,gest);
4759     frecons->Caption=Caption;
4760     frecons->ListBox1->Clear();
4761     int nbmai=gest->get_nb_fem_maillage();
4762     for (int i=0;i<nbmai;i++)
4763     {
4764     FEM_MAILLAGE* mai=gest->get_fem_maillage(i);
4765     frecons->ListBox1->Items->Add(mai->get_id());
4766     }
4767     frecons->Show();
4768     }
4769     //---------------------------------------------------------------------------
4770    
4771     void __fastcall TVisuWinform::N0D1Click(TObject *Sender)
4772     {
4773     N0D1->Checked=!N0D1->Checked;
4774     noeud=0;
4775     if (N0D1->Checked) noeud=noeud+1;
4776     if (N1D1->Checked) noeud=noeud+2;
4777     if (N2D1->Checked) noeud=noeud+4;
4778     if (N3D1->Checked) noeud=noeud+8;
4779     redess();
4780    
4781     }
4782     //---------------------------------------------------------------------------
4783    
4784 francois 56
4785     void __fastcall TVisuWinform::maillagegeometrique1Click(TObject *Sender)
4786     {
4787     int nb=gest->get_nb_mg_maillage();
4788     if (nb==0)
4789     {
4790     MessageBox(Handle,"Pas de maillage","Erreur",MB_OK);
4791     return ;
4792     }
4793     char chaine[500];
4794     for (int i=0;i<nb;i++)
4795     {
4796     MG_MAILLAGE* mai=gest->get_mg_maillage(i);
4797     if (i==0) sprintf(chaine,"Maillage %lu|*.*", mai->get_id());
4798     else
4799     {
4800     char chaine2[200];
4801     sprintf(chaine2,"|Maillage %lu|*.*", mai->get_id());
4802     strcat(chaine,chaine2);
4803     }
4804     }
4805     SaveDialog1->Filter=chaine;
4806     if (SaveDialog1->Execute())
4807     {
4808     MG_MAILLAGE* mai=gest->get_mg_maillage(SaveDialog1->FilterIndex-1);
4809     string namefic=SaveDialog1->FileName.c_str();
4810     MG_EXPORT exp;
4811     exp.gmsh(mai,namefic) ;
4812     }
4813     }
4814     //---------------------------------------------------------------------------
4815    
4816     void __fastcall TVisuWinform::MaillageEF1Click(TObject *Sender)
4817     {
4818     int nb=gest->get_nb_fem_maillage();
4819     if (nb==0)
4820     {
4821     MessageBox(Handle,"Pas de maillage","Erreur",MB_OK);
4822     return ;
4823     }
4824     char chaine[500];
4825     for (int i=0;i<nb;i++)
4826     {
4827     FEM_MAILLAGE* mai=gest->get_fem_maillage(i);
4828     if (i==0) sprintf(chaine,"Maillage %lu|*.*", mai->get_id());
4829     else
4830     {
4831     char chaine2[200];
4832     sprintf(chaine2,"|Maillage %lu|*.*", mai->get_id());
4833     strcat(chaine,chaine2);
4834     }
4835     }
4836     SaveDialog1->Filter=chaine;
4837     if (SaveDialog1->Execute())
4838     {
4839     FEM_MAILLAGE* mai=gest->get_fem_maillage(SaveDialog1->FilterIndex-1);
4840     string namefic=SaveDialog1->FileName.c_str();
4841     MG_EXPORT exp;
4842     exp.gmsh(mai,namefic) ;
4843     }
4844     }
4845     //---------------------------------------------------------------------------
4846    
4847     void __fastcall TVisuWinform::N12Click(TObject *Sender)
4848     {
4849     N12->Checked=!N12->Checked;
4850     TabSheet7->TabVisible=N12->Checked;
4851     redess();
4852     }
4853     //---------------------------------------------------------------------------
4854    
4855     void __fastcall TVisuWinform::Button10Click(TObject *Sender)
4856     {
4857     ListBox4->Clear();
4858     filtreid.clear();
4859     redess();
4860     }
4861     //---------------------------------------------------------------------------
4862    
4863     void __fastcall TVisuWinform::Button9Click(TObject *Sender)
4864     {
4865     if (ListBox4->ItemIndex==-1) return;
4866     ListBox4->Items->Delete(ListBox4->ItemIndex);
4867     vector<unsigned long>::iterator it=filtreid.begin();
4868     for (int i=0;i<ListBox4->ItemIndex;i++) it++;
4869     filtreid.erase(it);
4870     redess();
4871     }
4872     //---------------------------------------------------------------------------
4873    
4874     void __fastcall TVisuWinform::Button8Click(TObject *Sender)
4875     {
4876     static AnsiString InputString = "";
4877     AnsiString InputString2=InputBox("Filtre ID", "ID de l'élément à afficher ?", InputString);
4878     if (InputString2!=InputString)
4879     {
4880     InputString=InputString2;
4881     ListBox4->Items->Add(InputString);
4882     unsigned long id;
4883     sscanf(InputString.c_str(),"%lu",&id);
4884     filtreid.insert(filtreid.end(),id);
4885     redess();
4886     }
4887     }
4888     //---------------------------------------------------------------------------
4889     int __fastcall TVisuWinform::estdansfiltre(unsigned long id)
4890     {
4891     for (vector<unsigned long>::iterator it=filtreid.begin();it!=filtreid.end();it++)
4892     if (*it==id) return 1;
4893     return 0;
4894     }
4895    
4896     void __fastcall TVisuWinform::qualiteorigineExecute(TObject *Sender)
4897     {
4898     qualite=2;
4899     redess();
4900     }
4901     //---------------------------------------------------------------------------
4902    
4903 francois 62
4904    
4905     void __fastcall TVisuWinform::CheckListBox1Click(TObject *Sender)
4906     {
4907     initliste();
4908     redess();
4909     }
4910     //---------------------------------------------------------------------------
4911