1 | // This may look like C code, but it is really -*- C++ -*-
|
---|
2 | // Classe d'interface avec le code de GNUplot
|
---|
3 | // pour calculer les contours & classe de trace de contours
|
---|
4 | // O. Perdereau
|
---|
5 | // LAL (Orsay) / IN2P3-CNRS DAPNIA/SPP (Saclay) / CEA
|
---|
6 |
|
---|
7 | #include "machdefs.h"
|
---|
8 | #include <stdio.h>
|
---|
9 | #include <stdlib.h>
|
---|
10 | #include <iostream.h>
|
---|
11 | #include <math.h>
|
---|
12 |
|
---|
13 | #include "histos.h"
|
---|
14 | #include "ntuple.h"
|
---|
15 |
|
---|
16 | #include "nbtri.h"
|
---|
17 |
|
---|
18 | #include "picntools.h"
|
---|
19 | #include "pigncont.h"
|
---|
20 |
|
---|
21 | #include <sys/time.h>
|
---|
22 | #include <sys/resource.h>
|
---|
23 |
|
---|
24 | //++
|
---|
25 | // Class GNUPlotContour
|
---|
26 | // Lib PIGcont
|
---|
27 | // include pigncont.h
|
---|
28 | //
|
---|
29 | // Classe d'interface avec le code de GNUplot qui calcule les courbes de niveaux
|
---|
30 | // GNUplot part d'une grille (structure iso_curve) qui est remplie par les
|
---|
31 | // createurs
|
---|
32 | // Les parametres du calcul sont modifiable a partir de la fenetre d'options
|
---|
33 | // du traceur de contour (classe PIContourDrawer)
|
---|
34 | // Options (reconnues dans un enum t_contour_kind dans GNUplot)
|
---|
35 | // 1) nombre de courbes et et niveaux determines automatiquement par le programme (defaut)
|
---|
36 | // En general, 5 courbes sont tracees LEVELS_AUTO
|
---|
37 | //
|
---|
38 | // 2) nombre de niveaux fixe par l'utilisateur. Les niveaux sont equidistants entre
|
---|
39 | // le min et le max de la surface LEVELS_NUM
|
---|
40 | //
|
---|
41 | // 3) nombre et hauteurs des niveaux fixes par l'utilisateur. Les niveaux sont passes
|
---|
42 | // dans un tableau LEVELS_DISCRETE
|
---|
43 | //
|
---|
44 | // 4) nombre niveau min et ecart entre niveaux fixe par l'utilisateur LEVELS_INCREMENTAL
|
---|
45 | //
|
---|
46 | // Les contours sont traces en interpolant entre les points de la grille.
|
---|
47 | // On peut choisir 3 algorithmes d'interpolation a travers p.ex. les options
|
---|
48 | // de PIContourDrawer
|
---|
49 | // (enum t_contour_levels_kind ds GNUplot)
|
---|
50 | // a) interpolation simple CONTOUR_KIND_LINEAR
|
---|
51 | // b) spline cubique CONTOUR_KIND_CUBIC_SPL
|
---|
52 | // c) B-spline CONTOUR_KIND_BSPLINE
|
---|
53 | //
|
---|
54 | //--
|
---|
55 | //++
|
---|
56 | // Links Voir aussi
|
---|
57 | // PIContourDrawer
|
---|
58 | // PIcntools
|
---|
59 | //--
|
---|
60 | //++
|
---|
61 | // Titre Constructeurs et Méthodes
|
---|
62 | //--
|
---|
63 | //++
|
---|
64 | // GNUPlotContour(struct iso_curve * iso) :
|
---|
65 | // constructeur a partir d'une structure iso_curve
|
---|
66 | // (structure de GNUplot)
|
---|
67 | //--
|
---|
68 |
|
---|
69 |
|
---|
70 | GNUPlotContour::GNUPlotContour(struct iso_curve * iso){
|
---|
71 | int k=0;
|
---|
72 | iso1 = iso;
|
---|
73 | struct iso_curve *iso_cur = iso ;
|
---|
74 | struct iso_curve *iso_old;
|
---|
75 | _xmin = 1.e37;
|
---|
76 | _ymin = 1.e37;
|
---|
77 | _xmax = -1.e37;
|
---|
78 | _ymax = -1.e37;
|
---|
79 | _myiso = NULL;
|
---|
80 | _zmin = 1.e37;
|
---|
81 | _zmax = -1.e37;
|
---|
82 | while(iso_cur){
|
---|
83 | k++;
|
---|
84 | iso_cur = iso_cur->next;
|
---|
85 | _ny = iso_cur->p_count;
|
---|
86 | for(int k=0 ; k<_ny ; k++){
|
---|
87 | double xx=iso->points[k].x;
|
---|
88 | double yy=iso->points[k].y;
|
---|
89 | double zz=iso->points[k].z;
|
---|
90 | if(xx<_xmin) _xmin = xx;
|
---|
91 | if(xx>_xmax) _xmax = xx;
|
---|
92 | if(yy<_ymin) _ymin = yy;
|
---|
93 | if(yy>_ymax) _ymax = yy;
|
---|
94 | if(zz<_zmin) _zmin = zz;
|
---|
95 | if(zz>_zmax) _zmax = zz;
|
---|
96 |
|
---|
97 | }
|
---|
98 | }
|
---|
99 |
|
---|
100 | _nx = k;
|
---|
101 | _contours = NULL;
|
---|
102 | My_Levels = NULL;
|
---|
103 |
|
---|
104 | _npolys=-1;
|
---|
105 | _Dxp =_Dyp =1.;
|
---|
106 | _Exy =_Invy =_Invy = FALSE ;
|
---|
107 |
|
---|
108 | }
|
---|
109 |
|
---|
110 |
|
---|
111 | //++
|
---|
112 | // GNUPlotContour(NTupleInterface *nt,int *nz=NULL,double *z=NULL,double *dz=NULL):
|
---|
113 | // constructeur a partir d'un NTupleInterface
|
---|
114 | // la structure iso_curve est remplie par le constructeur
|
---|
115 | //Inputs
|
---|
116 | //| NTupleInterface *nt
|
---|
117 | //| double *nz nombre de contours (optionnel)
|
---|
118 | //| double *z tabelau avec les niveaux des contours (optionnel)
|
---|
119 | //| double *dz increment entre contours (optionnel)
|
---|
120 | //--
|
---|
121 | GNUPlotContour::GNUPlotContour(NTupleInterface *nt,int *nz=NULL,double *z=NULL,double *dz=NULL){
|
---|
122 | _xmin = 1.e37;
|
---|
123 | _ymin = 1.e37;
|
---|
124 | _xmax = -1.e37;
|
---|
125 | _ymax = -1.e37;
|
---|
126 | _zmin = 1.e37;
|
---|
127 | _zmax = -1.e37;
|
---|
128 | char *nom[4]={"x","y","z","niso"};
|
---|
129 | _myiso = new NTuple(4,nom);
|
---|
130 | //_myiso->Show();
|
---|
131 | float xnt[4];
|
---|
132 | double mn,mx;
|
---|
133 |
|
---|
134 | nt->GetMinMax(0,_xmin,_xmax);
|
---|
135 | nt->GetMinMax(1,_ymin,_ymax);
|
---|
136 | nt->GetMinMax(2,_zmin,_zmax);
|
---|
137 |
|
---|
138 |
|
---|
139 | struct iso_curve *istmp = NULL ;
|
---|
140 | struct iso_curve *iso = NULL ;
|
---|
141 | struct iso_curve *iso_old = NULL ;
|
---|
142 | double x,y;
|
---|
143 | int nen = nt->NbLines();
|
---|
144 |
|
---|
145 | // histo des y
|
---|
146 | for(int k= 0 ; k<1000 ; k++){
|
---|
147 | istmp = iso_alloc(100);
|
---|
148 | iso_free(istmp);
|
---|
149 | }
|
---|
150 |
|
---|
151 | #define NUMPTMIN 25
|
---|
152 | #define MAXISO 100
|
---|
153 | #define MINISO 5
|
---|
154 |
|
---|
155 | Histo prep(_ymin,_ymax,nen);
|
---|
156 | for(int ix=0 ; ix<nen ; ix++) prep.Add(nt->GetCell(ix,1),1.);
|
---|
157 | Histo Intg = prep;
|
---|
158 | Intg.HInteg(0);
|
---|
159 | //prep.Print();
|
---|
160 | //Intg.Print();
|
---|
161 | float *bin;
|
---|
162 | int *cnt;
|
---|
163 |
|
---|
164 | int niso = sqrt( (double)nen);
|
---|
165 | bin = new float[niso+1];
|
---|
166 | cnt = new int[niso+1];
|
---|
167 |
|
---|
168 | int i;
|
---|
169 | for(i=0 ; i<niso ; i++){
|
---|
170 | bin[i] = prep.BinHighEdge(prep.BinPercent( ((double)i)/(double)niso));
|
---|
171 | cnt[i] = Intg(prep.BinPercent( ((double)i)/(double)niso));
|
---|
172 | }
|
---|
173 |
|
---|
174 | bin[niso]=_ymax;
|
---|
175 |
|
---|
176 | cnt[niso] = prep.NEntries();
|
---|
177 | int numx = 0;
|
---|
178 | int numi = 9999;
|
---|
179 | for(i=0;i<niso ; i++){
|
---|
180 | int numy = cnt[i+1]-cnt[i];
|
---|
181 |
|
---|
182 | if(numy>0){
|
---|
183 | numx = numx>numy ? numx : numy ;
|
---|
184 | numi = numy>numi ? numi : numy ;
|
---|
185 | }
|
---|
186 | }
|
---|
187 |
|
---|
188 |
|
---|
189 | if (numi<=0) {
|
---|
190 |
|
---|
191 | return;
|
---|
192 | }
|
---|
193 | _nx = 0;
|
---|
194 |
|
---|
195 | for(i=0;i<niso ; i++){
|
---|
196 | double ymi = bin[i];
|
---|
197 | double ymx = bin[i+1];
|
---|
198 | int numy = cnt[i+1]-cnt[i];
|
---|
199 |
|
---|
200 | if(numy<=0) continue;
|
---|
201 | double *xp;
|
---|
202 | xp = new double[numy];
|
---|
203 |
|
---|
204 | int *indx;
|
---|
205 | indx = new int[numy];
|
---|
206 |
|
---|
207 | istmp = iso_alloc(numy) ; // structure temporaire
|
---|
208 |
|
---|
209 | int ip=0;
|
---|
210 | int ix;
|
---|
211 | for(ix=0 ; ix<nen ; ix++){
|
---|
212 |
|
---|
213 | if(nt->GetCell(ix,1)>=ymi&&nt->GetCell(ix,1)<ymx){
|
---|
214 |
|
---|
215 |
|
---|
216 | istmp->points[ip].type = INRANGE;
|
---|
217 | istmp->points[ip].x = nt->GetCell(ix,0);
|
---|
218 | istmp->points[ip].y = nt->GetCell(ix,1);
|
---|
219 | istmp->points[ip].z = nt->GetCell(ix,2);
|
---|
220 | indx[ip] = ip;
|
---|
221 | xp[ip++] = nt->GetCell(ix,0);
|
---|
222 | }
|
---|
223 | }
|
---|
224 |
|
---|
225 | // tri des points de l'iso_curve
|
---|
226 | //
|
---|
227 | istmp->p_count = ip;
|
---|
228 |
|
---|
229 | tri_double(xp,indx,ip);
|
---|
230 |
|
---|
231 | // remplissage structure finale
|
---|
232 |
|
---|
233 | iso = iso_alloc(numx) ;
|
---|
234 | if( _nx == 0 ) iso1 = iso; //premiere structure remplie
|
---|
235 | if (iso_old) iso_old->next = iso;
|
---|
236 | for(ix=0 ; ix<numy ; ix++){
|
---|
237 | int jx = indx[ix];
|
---|
238 |
|
---|
239 |
|
---|
240 | iso->points[ix].type = INRANGE ;
|
---|
241 | iso->points[ix].x = istmp->points[jx].x ;
|
---|
242 | iso->points[ix].y = istmp->points[jx].y ;
|
---|
243 | iso->points[ix].z = istmp->points[jx].z ;
|
---|
244 | xnt[0] = iso->points[ix].x;
|
---|
245 | xnt[1] = iso->points[ix].y;
|
---|
246 | xnt[2] = iso->points[ix].z;
|
---|
247 | xnt[3] = _nx;
|
---|
248 | //cout << " fill avec "<<xnt[0]<<" "<<xnt[1] <<" "<<xnt[2] << " "<<xnt[3]<<endl;
|
---|
249 | // _myiso->Show();
|
---|
250 |
|
---|
251 | _myiso->Fill(xnt);
|
---|
252 | }
|
---|
253 | //cout << " completion "<<ip<<" =>> "<<numx<<endl;
|
---|
254 | // on complete
|
---|
255 | for(ix=ip; ix<numx ; ix++ ){
|
---|
256 | int jmx = indx[ip-1];
|
---|
257 | iso->points[ix].type = INRANGE ;
|
---|
258 | iso->points[ix].x = istmp->points[jmx].x ;
|
---|
259 | iso->points[ix].y = istmp->points[jmx].y ;
|
---|
260 | iso->points[ix].z = istmp->points[jmx].z ;
|
---|
261 | xnt[0] = iso->points[ix].x;
|
---|
262 | xnt[1] = iso->points[ix].y;
|
---|
263 | xnt[2] = iso->points[ix].z;
|
---|
264 | xnt[3] = _nx;
|
---|
265 | //cout << " fill avec "<<xnt[0]<<" "<<xnt[1] <<" "<<xnt[2] << " "<<xnt[3]<<endl;
|
---|
266 | _myiso->Fill(xnt);
|
---|
267 | //_myiso->Show();
|
---|
268 | }
|
---|
269 |
|
---|
270 | iso->p_count = numx;
|
---|
271 |
|
---|
272 | iso_old = iso;
|
---|
273 | _nx++;
|
---|
274 | //cout << " destruction structure tempo "<<_nx <<endl;
|
---|
275 | if(istmp){
|
---|
276 | iso_free( istmp );// destruction de la structure temporaire
|
---|
277 | istmp = NULL;
|
---|
278 | }
|
---|
279 | if(xp){delete[] xp ; xp=NULL;}
|
---|
280 | if(indx) {delete[] indx ; indx = NULL;}
|
---|
281 |
|
---|
282 | }
|
---|
283 | //if(_myiso!=NULL)_myiso->Write("myiso.ppf");
|
---|
284 | //cout << " fin du remplissage des iso_curves xmin,max "<< _xmin<<","<<_xmax<<" ymin,max "<<_ymin<<","<<_ymax<<endl;
|
---|
285 | _contours = NULL;
|
---|
286 | My_Levels = NULL;
|
---|
287 | _npolys=-1;
|
---|
288 | Contour_Levels_kind = LEVELS_AUTO ;
|
---|
289 | Contour_kind = CONTOUR_KIND_LINEAR ;
|
---|
290 | set_contour_kind(Contour_kind);
|
---|
291 | Contour_Levels = 5;
|
---|
292 | set_contour_levels(Contour_Levels);
|
---|
293 | set_contour_levels_kind(Contour_Levels_kind);
|
---|
294 |
|
---|
295 |
|
---|
296 | if(dz!=NULL){
|
---|
297 | My_Levels = new double[2];
|
---|
298 | Contour_Levels = *nz;
|
---|
299 | My_Levels[0] = *z ;
|
---|
300 | My_Levels[1] = *dz;
|
---|
301 | Contour_Levels_kind = LEVELS_INCREMENTAL ;
|
---|
302 | set_contour_levels(Contour_Levels);
|
---|
303 | set_contour_levels_kind(Contour_Levels_kind);
|
---|
304 | set_contour_levels_list(My_Levels);//,2);
|
---|
305 |
|
---|
306 | }else if(nz!=NULL){
|
---|
307 |
|
---|
308 | Contour_Levels = *nz;
|
---|
309 | Contour_Levels_kind = LEVELS_NUM ;
|
---|
310 | set_contour_levels(Contour_Levels);
|
---|
311 | set_contour_levels_kind(Contour_Levels_kind);
|
---|
312 | }
|
---|
313 |
|
---|
314 | }
|
---|
315 |
|
---|
316 | //++
|
---|
317 | // GNUPlotContour(P2DArrayAdapter*arr,int *nz=NULL,double *z=NULL,double *dz=NULL):
|
---|
318 | // constructeur a partir d'un P2DArrayAdapter
|
---|
319 | // la structure iso_curve est remplie par le constructeur
|
---|
320 | //Inputs
|
---|
321 | //| P2DArrayAdapter* arr
|
---|
322 | //| double *nz nombre de contours (optionnel)
|
---|
323 | //| double *z tabelau avec les niveaux des contours (optionnel)
|
---|
324 | //| double *dz increment entre contours (optionnel)
|
---|
325 | //--
|
---|
326 |
|
---|
327 | GNUPlotContour::GNUPlotContour(P2DArrayAdapter* arr,int *nz=NULL,double *z=NULL,double *dz=NULL){
|
---|
328 | _xmin = 1.e37;
|
---|
329 | _ymin = 1.e37;
|
---|
330 | _xmax = -1.e37;
|
---|
331 | _ymax = -1.e37;
|
---|
332 | _zmin = 1.e37;
|
---|
333 | _zmax = -1.e37;
|
---|
334 | // _nx = arr->XSize()-1;
|
---|
335 | // _ny = arr->YSize()-1;
|
---|
336 | _nx = arr->XSize() ;
|
---|
337 | _ny = arr->YSize() ;
|
---|
338 | //cout << " size x,y "<<_nx<<" , "<<_ny <<endl;
|
---|
339 | char *nom[4]={"x","y","z","niso"};
|
---|
340 |
|
---|
341 | _myiso = new NTuple(4,nom);
|
---|
342 | float xnt[4];
|
---|
343 | struct iso_curve *iso =NULL ;
|
---|
344 | struct iso_curve *iso_old =NULL ;
|
---|
345 | double x,y;
|
---|
346 | // Calcul de la taille en X et en Y d'un pixel
|
---|
347 | double dxp, dyp;
|
---|
348 | double x1,y1;
|
---|
349 | arr->XYfromxy(0,0,x,y);
|
---|
350 | arr->XYfromxy(1,1,x1,y1);
|
---|
351 | _Dxp = (x1-x);
|
---|
352 | _Dyp = (y1-y);
|
---|
353 | double zz;
|
---|
354 | for(int ix=0 ; ix<_nx ; ix++){
|
---|
355 | iso = iso_alloc(_ny) ;
|
---|
356 | if(ix==0) iso1 = iso;
|
---|
357 | if (iso_old) iso_old->next = iso;
|
---|
358 | for(int iy = 0 ; iy<_ny ; iy++){
|
---|
359 | /*i = ix*100+iy;*/
|
---|
360 | arr->XYfromxy(ix,iy,x,y);
|
---|
361 |
|
---|
362 | iso->points[iy].type = INRANGE;
|
---|
363 | iso->points[iy].x = x + _Dxp/2.;
|
---|
364 | iso->points[iy].y = y + _Dyp/2.;
|
---|
365 | zz=arr->Value(ix,iy);
|
---|
366 | iso->points[iy].z = zz;
|
---|
367 | //iso->points[iy].z = ((x-25)*(x-25) + (y-25)*(y-25))*.05 ;
|
---|
368 | if(x <_xmin) _xmin = x;
|
---|
369 | if(x >_xmax) _xmax = x;
|
---|
370 | if(y <_ymin) _ymin = y;
|
---|
371 | if(y >_ymax) _ymax = y;
|
---|
372 | if(zz <_zmin) _zmin = zz;
|
---|
373 | if(zz >_zmax) _zmax = zz;
|
---|
374 | //printf("ix=%d iy=%d x=%f y=%f z=%f \n",ix,iy,iso->points[iy].x,iso->points[iy].y,iso->points[iy].z);
|
---|
375 | xnt[0] = iso->points[iy].x;
|
---|
376 | xnt[1] = iso->points[iy].y;
|
---|
377 | xnt[2] = iso->points[iy].z;
|
---|
378 | xnt[3] = _nx;
|
---|
379 |
|
---|
380 | _myiso->Fill(xnt);
|
---|
381 | }
|
---|
382 | iso->p_count = _ny;
|
---|
383 | iso_old = iso;
|
---|
384 | /*printf(" remplissage %lx old %lx old next %lx \n",iso,iso_old,iso->next,iso_old->next);*/
|
---|
385 | /*iso->next = iso ;*/
|
---|
386 | }
|
---|
387 | //cout << " fin du remplissage des iso_curves xmin,max "<< _xmin<<","<<_xmax<<" ymin,max "<<_ymin<<","<<_ymax<<endl;
|
---|
388 | _contours = NULL;
|
---|
389 | My_Levels = NULL;
|
---|
390 | _npolys=-1;
|
---|
391 | Contour_kind = CONTOUR_KIND_LINEAR ;
|
---|
392 | set_contour_kind(Contour_kind);
|
---|
393 | Contour_Levels_kind = LEVELS_AUTO ;
|
---|
394 | Contour_Levels = 5;
|
---|
395 | set_contour_levels(Contour_Levels);
|
---|
396 | set_contour_levels_kind(Contour_Levels_kind);
|
---|
397 |
|
---|
398 |
|
---|
399 | if(dz!=NULL){
|
---|
400 | My_Levels = new double[2];
|
---|
401 | Contour_Levels = *nz;
|
---|
402 | My_Levels[0] = *z ;
|
---|
403 | My_Levels[1] = *dz;
|
---|
404 | Contour_Levels_kind = LEVELS_INCREMENTAL ;
|
---|
405 | set_contour_levels(Contour_Levels);
|
---|
406 | set_contour_levels_kind(Contour_Levels_kind);
|
---|
407 | set_contour_levels_list(My_Levels);//,2);
|
---|
408 |
|
---|
409 | }else if(nz!=NULL){
|
---|
410 | Contour_Levels = *nz;
|
---|
411 | Contour_Levels_kind = LEVELS_NUM ;
|
---|
412 | set_contour_levels(Contour_Levels);
|
---|
413 | set_contour_levels_kind(Contour_Levels_kind);
|
---|
414 | }
|
---|
415 |
|
---|
416 | }
|
---|
417 |
|
---|
418 |
|
---|
419 | //++
|
---|
420 | // ~GNUPlotContour()
|
---|
421 | //
|
---|
422 | // Destructeur
|
---|
423 | //
|
---|
424 | //--
|
---|
425 | GNUPlotContour::~GNUPlotContour(){
|
---|
426 | cout << " destructeur de GNUPlotContour "<<endl;
|
---|
427 |
|
---|
428 | struct iso_curve *iso_cur;
|
---|
429 | struct iso_curve *iso_nx;
|
---|
430 | iso_cur = iso1;
|
---|
431 |
|
---|
432 | while(iso_cur){
|
---|
433 | // cout << " ~GNUPlotContour() : destruction de iso1 "<< iso_cur << endl;
|
---|
434 | iso_nx = iso_cur->next;
|
---|
435 | iso_free(iso_cur);iso_cur = NULL;
|
---|
436 |
|
---|
437 | iso_cur = iso_nx;
|
---|
438 |
|
---|
439 | }
|
---|
440 |
|
---|
441 | iso1 = NULL;
|
---|
442 |
|
---|
443 | struct gnuplot_contours *cntcur = _contours;
|
---|
444 | /*****
|
---|
445 | struct gnuplot_contours *cntold;
|
---|
446 |
|
---|
447 | while(cntcur) {
|
---|
448 | //cout << " ~GNUPlotContour() : destruction de _contours" << _contours <<endl;
|
---|
449 | cntold = cntcur;
|
---|
450 | cntcur = cntold->next;
|
---|
451 | gp_free(cntold);
|
---|
452 | cntold=NULL;
|
---|
453 | }
|
---|
454 | *******/
|
---|
455 | contour_free(cntcur);
|
---|
456 | _contours = NULL;
|
---|
457 |
|
---|
458 | if(My_Levels) {
|
---|
459 | //cout << " ~GNUPlotContour() : destruction de MyLevels "<<My_Levels <<endl;
|
---|
460 | delete[] My_Levels; My_Levels=NULL;}
|
---|
461 |
|
---|
462 | if(_myiso!=NULL){ delete _myiso; _myiso=NULL;}
|
---|
463 |
|
---|
464 | }
|
---|
465 |
|
---|
466 |
|
---|
467 | //++
|
---|
468 | // void CalcContour()
|
---|
469 | // Methode de calcul des courbes de niveaux
|
---|
470 | // par appel a la routine de GNUplot
|
---|
471 | //
|
---|
472 | //--
|
---|
473 | void GNUPlotContour::CalcContour(){
|
---|
474 | //cout << " GNUPlotContour::CalcContour(): determination des contours "<<endl;
|
---|
475 |
|
---|
476 | struct rusage r_usage;
|
---|
477 | int rcus;
|
---|
478 |
|
---|
479 | set_contour_kind(Contour_kind);
|
---|
480 | if(Contour_Levels_kind == LEVELS_INCREMENTAL){
|
---|
481 |
|
---|
482 | set_contour_levels(Contour_Levels);
|
---|
483 | set_contour_levels_kind(Contour_Levels_kind);
|
---|
484 | //free_contour_levels_list();
|
---|
485 | set_contour_levels_list(My_Levels);//,2);
|
---|
486 |
|
---|
487 | }else if(Contour_Levels_kind == LEVELS_DISCRETE ){
|
---|
488 | set_contour_levels(Contour_Levels);
|
---|
489 | set_contour_levels_kind(Contour_Levels_kind);
|
---|
490 | //free_contour_levels_list();
|
---|
491 | set_contour_levels_list(My_Levels);//,Contour_Levels);
|
---|
492 |
|
---|
493 | }else if(Contour_Levels_kind == LEVELS_NUM ){
|
---|
494 |
|
---|
495 | set_contour_levels(Contour_Levels);
|
---|
496 | set_contour_levels_kind(Contour_Levels_kind);
|
---|
497 | }else if(Contour_Levels_kind == LEVELS_AUTO){
|
---|
498 | Contour_Levels = 5;
|
---|
499 | set_contour_levels(Contour_Levels);
|
---|
500 | set_contour_levels_kind(Contour_Levels_kind);
|
---|
501 | }
|
---|
502 |
|
---|
503 |
|
---|
504 | //rcus = getrusage( RUSAGE_SELF , &r_usage);
|
---|
505 |
|
---|
506 | //if(rcus==0)
|
---|
507 | // cout << " rusage -> "<< r_usage.ru_maxrss <<" , "<< r_usage.ru_ixrss <<" , "<< r_usage.ru_ixrss <<endl;
|
---|
508 | //else
|
---|
509 | // perror("1er appel");
|
---|
510 |
|
---|
511 | if(_contours) {
|
---|
512 | cout << " GNUPlotContour::CalcContour(): destruction des contours "<<_contours<<endl;
|
---|
513 | struct gnuplot_contours *cntcur = _contours;
|
---|
514 | /******
|
---|
515 | struct gnuplot_contours *cntold;
|
---|
516 | while(cntcur) {
|
---|
517 | cout << " GNUPlotContour::CalcContour(): destruction des contours "<< cntcur<<endl;
|
---|
518 | cntold = cntcur;
|
---|
519 | cntcur = cntold->next;
|
---|
520 | gp_free(cntold);
|
---|
521 | cntold = NULL;
|
---|
522 | }
|
---|
523 | ******/
|
---|
524 | contour_free(cntcur);
|
---|
525 | _contours = NULL;
|
---|
526 |
|
---|
527 | }
|
---|
528 |
|
---|
529 | //struct gnuplot_contours *cntcur;
|
---|
530 | //struct gnuplot_contours *cntold;
|
---|
531 |
|
---|
532 |
|
---|
533 | //rcus = getrusage( RUSAGE_SELF , &r_usage);
|
---|
534 | //if(rcus==0)
|
---|
535 | // cout << " rusage -> "<< r_usage.ru_maxrss <<" , "<< r_usage.ru_ixrss <<" , "<< r_usage.ru_ixrss <<endl;
|
---|
536 | //else
|
---|
537 | // perror("2d appel");
|
---|
538 |
|
---|
539 |
|
---|
540 | _contours = contour (_nx,iso1);
|
---|
541 |
|
---|
542 |
|
---|
543 | //rcus = getrusage( RUSAGE_SELF , &r_usage);
|
---|
544 | //if(rcus==0)
|
---|
545 | // cout << " rusage -> "<< r_usage.ru_maxrss <<" , "<< r_usage.ru_ixrss <<" , "<< r_usage.ru_ixrss <<endl;
|
---|
546 | //else
|
---|
547 | // perror("3ieme appel");
|
---|
548 |
|
---|
549 | //free_contour_levels_list();
|
---|
550 |
|
---|
551 |
|
---|
552 | }
|
---|
553 | //++
|
---|
554 | // void SetMyLevels(double *ptr,int k)
|
---|
555 | // Setting du tableau des niveaux des contours
|
---|
556 | //Inputs
|
---|
557 | //| int k : nombre de niveaux
|
---|
558 | //| double *ptr : adresse du tableau des niveaux
|
---|
559 | //--
|
---|
560 | void
|
---|
561 | GNUPlotContour::SetMyLevels(double *ptr,int k){
|
---|
562 |
|
---|
563 | if(My_Levels!=NULL) delete My_Levels;
|
---|
564 | My_Levels = new double[k];
|
---|
565 | for(int i=0 ; i<k ; i++)My_Levels[i] = ptr[i];
|
---|
566 | }
|
---|
567 |
|
---|
568 | //++
|
---|
569 | // Class PIContourDrawer
|
---|
570 | // Lib PIGcont
|
---|
571 | // include pigncont.h
|
---|
572 | //
|
---|
573 | // Classe de traceur de contour qui herite de PIDrawer et de GNUPlotContour
|
---|
574 | // elle gere les options graphiques generales (couleurs, lignes, fontes,...)
|
---|
575 | // les contours peuvent etre traces avec des lignes ou des markers
|
---|
576 | // on peut afficher les valeurs des niveaux des contours
|
---|
577 | // on peut demander a utiliser une table de couleur
|
---|
578 | // tout ca a travers la fenetre de controle associee (PICntools)
|
---|
579 | //
|
---|
580 | //
|
---|
581 | //--
|
---|
582 | //++
|
---|
583 | // Links Parents
|
---|
584 | // PIDrawer
|
---|
585 | // GNUPlotContour
|
---|
586 | //--
|
---|
587 | //++
|
---|
588 | // Links Voir aussi
|
---|
589 | // PIcntools
|
---|
590 | //--
|
---|
591 | //++
|
---|
592 | // Titre Constructeurs et Méthodes
|
---|
593 | //--
|
---|
594 | //++
|
---|
595 | // PIContourDrawer(P2DArrayAdapter* arr,bool autodel,int *nz,double *z0,double *dz )
|
---|
596 | // Constructeur a partir d'un P2DArrayAdapter* - voir le createur de GNUPlotContour
|
---|
597 | //
|
---|
598 | //--
|
---|
599 |
|
---|
600 | PIContourDrawer::PIContourDrawer(P2DArrayAdapter* arr,bool autodel,int *nz,double *z0,double *dz )
|
---|
601 | :GNUPlotContour(arr,nz,z0,dz)
|
---|
602 |
|
---|
603 | {
|
---|
604 | _arr = arr;
|
---|
605 | _nti = NULL;
|
---|
606 | _nz=5;
|
---|
607 | if(nz!=NULL)_nz = *nz;
|
---|
608 | _autodel = autodel;
|
---|
609 |
|
---|
610 | // This drawer has specific control tools
|
---|
611 | mFgSpecContWind = true;
|
---|
612 | InitAtts();
|
---|
613 | }
|
---|
614 |
|
---|
615 | //++
|
---|
616 | // PIContourDrawer(NTupleInterface* nti,bool autodel,int *nz,double *z0,double *dz )
|
---|
617 | // Constructeur a partir d'un NTupleInterface* - voir le createur de GNUPlotContour
|
---|
618 | //
|
---|
619 | //--
|
---|
620 | PIContourDrawer::PIContourDrawer(NTupleInterface* nti,bool autodel,int *nz,double *z0,double *dz )
|
---|
621 | :GNUPlotContour(nti,nz,z0,dz)
|
---|
622 |
|
---|
623 | {
|
---|
624 | _arr = NULL;
|
---|
625 | _nti = nti;
|
---|
626 | _nz=5;
|
---|
627 | if(nz!=NULL)_nz = *nz;
|
---|
628 | _autodel = autodel;
|
---|
629 | InitAtts();
|
---|
630 | }
|
---|
631 |
|
---|
632 |
|
---|
633 |
|
---|
634 | /* --Methode-- */
|
---|
635 | PIContourDrawer::~PIContourDrawer()
|
---|
636 | {
|
---|
637 | if(_autodel){
|
---|
638 | if(_arr!=NULL){delete _arr; _arr=NULL;}
|
---|
639 | if(_nti!=NULL){delete _nti ; _nti=NULL;}
|
---|
640 | }
|
---|
641 | //if (mColorMap!=NULL){delete mColorMap; mColorMap=NULL;}
|
---|
642 | }
|
---|
643 |
|
---|
644 | /* --Methode-- */
|
---|
645 | void PIContourDrawer::Draw(PIGraphicUC* g, double xmin, double ymin, double xmax, double ymax)
|
---|
646 | {
|
---|
647 | // double xmin, double ymin, double xmax, double ymax LIMITES DE LA ZONE A REFRESHER
|
---|
648 | //PIGrCoord * xx = new PIGrCoord[10];
|
---|
649 | //PIGrCoord * yy = new PIGrCoord[10];
|
---|
650 | PIGrCoord * xx =NULL;
|
---|
651 | PIGrCoord * yy =NULL;
|
---|
652 | PIGrCoord xa;
|
---|
653 | PIGrCoord ya;
|
---|
654 | char buff[64];
|
---|
655 | // On met les bons attributs graphiques
|
---|
656 | //SelGraAtt(g);
|
---|
657 | g->SaveGraphicAtt();
|
---|
658 | struct gnuplot_contours *cntcur;
|
---|
659 | struct gnuplot_contours *cntold;
|
---|
660 | cntcur = _contours;
|
---|
661 |
|
---|
662 | double a,b;
|
---|
663 | int tot=0;
|
---|
664 | bool Invx, Invy, Exy;
|
---|
665 | PIColorMap * cmap = NULL;
|
---|
666 | CMapId mcmapid = GetGraphicAtt().GetColMapId();
|
---|
667 | if(mcmapid !=CMAP_OTHER ){
|
---|
668 | cmap = new PIColorMap(mcmapid);
|
---|
669 | }
|
---|
670 | int numdr = 0;
|
---|
671 | while(cntcur){
|
---|
672 | int npts = cntcur->num_pts ;
|
---|
673 | if(npts<0) continue;
|
---|
674 |
|
---|
675 | xx = new PIGrCoord[npts];
|
---|
676 | yy = new PIGrCoord[npts];
|
---|
677 | double lev = (cntcur->coords)[0].z ;
|
---|
678 | for(int l=0 ; l< npts ; l++){
|
---|
679 | a = (cntcur->coords)[l].x;
|
---|
680 | b = (cntcur->coords)[l].y;
|
---|
681 |
|
---|
682 | xx[l] = a ;
|
---|
683 | yy[l] = b ;
|
---|
684 |
|
---|
685 | }
|
---|
686 |
|
---|
687 | // choix de la couleur
|
---|
688 |
|
---|
689 | g->SelForeground(GetGraphicAtt().GetFgColor());
|
---|
690 | if(mcmapid !=CMAP_OTHER ){
|
---|
691 | if(_zmax-_zmin!=0){
|
---|
692 | int kc = ((lev - _zmin)/(_zmax-_zmin))*cmap->NCol();
|
---|
693 |
|
---|
694 | g->SelForeground(*cmap,kc);
|
---|
695 | }
|
---|
696 | }
|
---|
697 | // traitement des des markers
|
---|
698 | if(IsMarkOn()==true){
|
---|
699 |
|
---|
700 | g->SelMarker(GetGraphicAtt().GetMarkerSz(), GetGraphicAtt().GetMarker());
|
---|
701 | g->DrawMarkers(xx,yy,npts);
|
---|
702 | }
|
---|
703 | // traitement des lignes
|
---|
704 | if(mLineOn==true){
|
---|
705 |
|
---|
706 | g->SelLine(GetGraphicAtt().GetLineAtt());
|
---|
707 | g->DrawPolygon(xx,yy,npts,false);
|
---|
708 | }
|
---|
709 | // traitement des labels
|
---|
710 | // SIMPLISTE POUR L'INSTANT : UN AFFICHAGE
|
---|
711 | if(mLabelOn==true){
|
---|
712 | //
|
---|
713 |
|
---|
714 | char strg[10];
|
---|
715 | sprintf(strg,"%g",lev);
|
---|
716 | PIFont myfont(GetGraphicAtt().GetFont());
|
---|
717 |
|
---|
718 | g->SelFont(myfont);
|
---|
719 | double px,py;
|
---|
720 | px = (cntcur->coords)[0].x+2*(Xmax()-Xmin())/100.;
|
---|
721 | py = (cntcur->coords)[0].y;
|
---|
722 | g->DrawString(px,py,strg, PI_HorizontalCenter&&PI_VerticalCenter );
|
---|
723 |
|
---|
724 | }
|
---|
725 | numdr++;
|
---|
726 | delete[] xx;
|
---|
727 | xx=NULL;
|
---|
728 | delete[] yy;
|
---|
729 | yy=NULL;
|
---|
730 | cntcur = cntcur->next;
|
---|
731 | tot++;
|
---|
732 | }
|
---|
733 |
|
---|
734 | //cout << "PIContourDrawer::Draw fin de trace des "<<tot<< " polygones "<<endl;
|
---|
735 |
|
---|
736 | //
|
---|
737 | if(cmap !=NULL)delete cmap;
|
---|
738 |
|
---|
739 | g->RestoreGraphicAtt();
|
---|
740 | }
|
---|
741 |
|
---|
742 | /* --Methode-- */
|
---|
743 | void PIContourDrawer::UpdateLimits()
|
---|
744 | {
|
---|
745 | // Doit calculer les limites
|
---|
746 |
|
---|
747 | double xmn = _xmin;
|
---|
748 | double xmx = _xmax;
|
---|
749 | double ymn = _ymin;
|
---|
750 | double ymx = _ymax;
|
---|
751 |
|
---|
752 | SetLimits(xmn, xmx, ymn, ymx);
|
---|
753 | }
|
---|
754 |
|
---|
755 |
|
---|
756 | /* --Methode-- */
|
---|
757 | void PIContourDrawer::ShowControlWindow(PIBaseWdgGen* wdg)
|
---|
758 | {
|
---|
759 | PICnTools::SetCurrentBaseWdg(wdg);
|
---|
760 | PICnTools::SetCurrentCnDrw(this);
|
---|
761 | PICnTools::ShowPICnTools();
|
---|
762 | }
|
---|
763 |
|
---|
764 |
|
---|
765 | /* --Methode-- */
|
---|
766 | bool PIContourDrawer::IsLabelOn(){
|
---|
767 | return (mLabelOn);
|
---|
768 | }
|
---|
769 |
|
---|
770 | bool PIContourDrawer::IsLineOn(){
|
---|
771 | return (mLineOn);
|
---|
772 | }
|
---|
773 |
|
---|
774 | bool PIContourDrawer::IsMarkOn(){
|
---|
775 | return (mMarkOn);
|
---|
776 | }
|
---|
777 |
|
---|
778 | void PIContourDrawer::SetLabelOn(bool state){
|
---|
779 | mLabelOn = state;
|
---|
780 | }
|
---|
781 |
|
---|
782 | void PIContourDrawer::SetMarkOn(bool state){
|
---|
783 | mMarkOn = state;
|
---|
784 | }
|
---|
785 |
|
---|
786 | void PIContourDrawer::SetLineOn(bool state){
|
---|
787 | mLineOn = state;
|
---|
788 | }
|
---|
789 |
|
---|
790 | void PIContourDrawer::InitAtts(){
|
---|
791 | mLineOn = true;
|
---|
792 | mMarkOn = false;
|
---|
793 | mLabelOn = false;
|
---|
794 | }
|
---|
795 |
|
---|
796 |
|
---|
797 |
|
---|