| 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 |  | 
|---|