source: Sophya/trunk/Poubelle/DPC:FitsIOServer/PIext/servnobjm.cc@ 658

Last change on this file since 658 was 658, checked in by ansari, 26 years ago

no message
File size: 20.1 KB
RevLine 
[658]1#include <stdio.h>
2#include <stdlib.h>
3#include <ctype.h>
4
5#include <iostream.h>
6#include <string>
7#include <list>
8#include <map>
9#if defined(__KCC__)
10using std::string ;
11#include <list.h>
12#include <map.h>
13#endif
14
15#include "strutil.h"
16#include "datatypes.h"
17
18#include "nobjmgr.h"
19#include "servnobjm.h"
20#include "pistdimgapp.h"
21
22#include "pclassids.h"
23#include "histos.h"
24#include "histos2.h"
25#include "ntuple.h"
26#include "hisprof.h"
27#include "generaldata.h"
28
29#include "cimage.h"
30#include "cvector.h"
31#include "matrix.h"
32
33// Si le module StarReco++ a ete compile (Pour les StarList, Transfo, etc ...
34#ifdef SANS_EVOLPLANCK
35#include "stlist.h"
36#include "star.h"
37#endif
38
39
40/* --Methode-- */
41Services2NObjMgr::Services2NObjMgr(PIStdImgApp* app, string& tmpdir)
42{
43TmpDir = tmpdir;
44PDynLinkMgr::SetTmpDir(tmpdir);
45mImgapp = app;
46dynlink = NULL;
47InitGrAttNames();
48}
49
50/* --Methode-- */
51Services2NObjMgr::~Services2NObjMgr()
52{
53CloseDLL();
54}
55
56/* --Methode-- */
57void Services2NObjMgr::Nobj_ComputeExpressions(PPersist* obj, string& expx, string& expy, string& expz,
58 string& expwt, string& expcut, NTuple* nt, Histo* h1, Histo2D* h2, HProf* hp)
59{
60int cid = obj->ClassId();
61
62string vardec;
63switch (cid) {
64 case ClassId_Vector :
65 vardec = "double i,val; \n";
66 vardec += "i = _zz61qq_[0]; val = _zz61qq_[1]; \n";
67 break;
68
69 case ClassId_Matrix :
70 vardec = "double i,j,val; \n";
71 vardec += "i = _zz61qq_[0]; j = _zz61qq_[1]; val = _zz61qq_[2]; \n";
72 break;
73
74 case ClassId_Histo1D :
75 case ClassId_HProf :
76 vardec = "double i,x,val,err; \n";
77 vardec += "i = _zz61qq_[0]; x = _zz61qq_[1]; val = _zz61qq_[2]; err = _zz61qq_[3]; \n";
78 break;
79
80 case ClassId_Histo2D :
81 vardec = "double i,j,x,y,val,err; \n";
82 vardec += "i = _zz61qq_[0]; j = _zz61qq_[1]; \n";
83 vardec += "x = _zz61qq_[2]; y = _zz61qq_[3]; \n";
84 vardec += "val = _zz61qq_[4]; err = _zz61qq_[5]; \n";
85 break;
86
87 case ClassId_Image :
88 case ClassId_Image + kuint_1 :
89 case ClassId_Image + kint_1 :
90 case ClassId_Image + kr_8 :
91 case ClassId_Image + kuint_4 :
92 case ClassId_Image + kuint_2 :
93 case ClassId_Image + kint_2 :
94 case ClassId_Image + kint_4 :
95 case ClassId_Image + kr_4 :
96 vardec = "double x,y,pix,i,j,val; \n";
97 vardec += "x = i = _zz61qq_[0]; y = j = _zz61qq_[1]; pix = val = _zz61qq_[2]; \n";
98 break;
99
100#ifdef SANS_EVOLPLANCK
101 case ClassId_StarList :
102 vardec = "double x,y,flux,fond; \n";
103 vardec += "x = _zz61qq_[0]; y = _zz61qq_[1]; flux = _zz61qq_[2]; fond = _zz61qq_[3]; \n";
104 break;
105#endif
106
107 case ClassId_NTuple :
108 vardec = ((NTuple*)obj)->VarList_C("_zz61qq_");
109 break;
110
111 case ClassId_GeneralFitData :
112 vardec = ((GeneralFitData*)obj)->VarList_C("_zz61qq_");
113 break;
114
115 default :
116 cerr << "NamedObjMgr_ComputeExpressions() Error , N/A to " << PClassIdToClassName(cid) << endl;
117 return;
118 }
119
120PlotExprFunc f = LinkExprFunc(vardec, expx, expy, expz, expwt, expcut);
121if (!f) {
122 cerr << "NamedObjMgr_ComputeExpressions() Error Creation PlotExprFunc " << endl;
123 return;
124 }
125
126float x[10], xnt[10];
127
128int i,j,k;
129for(i=0; i<10; i++) x[i] = xnt[i] = 0.;
130
131TRY {
132switch (cid) {
133 case ClassId_Vector :
134 {
135 Vector* vv = (Vector*)obj;
136 for(k=0; k<vv->NElts(); k++) {
137 x[0] = k; x[1] = (*vv)(k);
138 if (f(x, xnt, xnt+1, xnt+2, xnt+3) != 0) {
139 if (nt) nt->Fill(xnt);
140 if (h1) h1->Add(xnt[0], xnt[3]);
141 if (h2) h2->Add(xnt[0], xnt[1], xnt[3]);
142 if (hp) hp->Add(xnt[0], xnt[1], xnt[3]);
143 }
144 }
145 }
146 break;
147
148 case ClassId_Matrix :
149 {
150 Matrix* mm = (Matrix*)obj;
151 for(j=0; j<mm->NCol(); j++)
152 for(i=0; i<mm->NRows(); i++) {
153 x[0] = i; x[1] = j; x[2] = (*mm)(i,j);
154 if (f(x, xnt, xnt+1, xnt+2, xnt+3) != 0) {
155 if (nt) nt->Fill(xnt);
156 if (h1) h1->Add(xnt[0], xnt[3]);
157 if (h2) h2->Add(xnt[0], xnt[1], xnt[3]);
158 if (hp) hp->Add(xnt[0], xnt[1], xnt[3]);
159 }
160 }
161 }
162 break;
163
164 case ClassId_Histo1D :
165 case ClassId_HProf :
166 {
167 Histo* hh = (Histo*)obj;
168 for(k=0; k<hh->NBins(); k++) {
169 x[0] = k; x[1] = hh->BinCenter(k);
170 x[2] = (*hh)(k); x[3] = hh->Error(k);
171 if (f(x, xnt, xnt+1, xnt+2, xnt+3) != 0) {
172 if (nt) nt->Fill(xnt);
173 if (h1) h1->Add(xnt[0], xnt[3]);
174 if (h2) h2->Add(xnt[0], xnt[1], xnt[3]);
175 if (hp) hp->Add(xnt[0], xnt[1], xnt[3]);
176 }
177 }
178 }
179 break;
180
181 case ClassId_Histo2D :
182 {
183 Histo2D* hh = (Histo2D*)obj;
184 for(j=0; j<hh->NBinY(); j++)
185 for(i=0; i<hh->NBinX(); i++) {
186 x[0] = i; x[1] = j;
187 hh->BinCenter(i,j,x[2],x[3]);
188 x[4] = (*hh)(i,j); x[5] = hh->Error(i, j);
189 if (f(x, xnt, xnt+1, xnt+2, xnt+3) != 0) {
190 if (nt) nt->Fill(xnt);
191 if (h1) h1->Add(xnt[0], xnt[3]);
192 if (h2) h2->Add(xnt[0], xnt[1], xnt[3]);
193 if (hp) hp->Add(xnt[0], xnt[1], xnt[3]);
194 }
195 }
196 }
197 break;
198
199
200 case ClassId_Image :
201 case ClassId_Image + kuint_1 :
202 case ClassId_Image + kint_1 :
203 case ClassId_Image + kr_8 :
204 case ClassId_Image + kuint_4 :
205 case ClassId_Image + kuint_2 :
206 case ClassId_Image + kint_2 :
207 case ClassId_Image + kint_4 :
208 case ClassId_Image + kr_4 :
209 {
210 RzImage* img = (RzImage*)obj;
211 for(j=0; j<img->YSize(); j++)
212 for(i=0; i<img->XSize(); i++) {
213 x[0] = i; x[1] = j; x[2] = img->FValue(i, j);
214 if (f(x, xnt, xnt+1, xnt+2, xnt+3) != 0) {
215 if (nt) nt->Fill(xnt);
216 if (h1) h1->Add(xnt[0], xnt[3]);
217 if (h2) h2->Add(xnt[0], xnt[1], xnt[3]);
218 if (hp) hp->Add(xnt[0], xnt[1], xnt[3]);
219 }
220 }
221 }
222 break;
223
224#ifdef SANS_EVOLPLANCK
225 case ClassId_StarList :
226 {
227 StarList* stl = (StarList*)obj;
228 BStar *sti;
229 for(k=0; k<stl->NbStars(); k++) {
230 sti = stl->Star(k);
231 if ( (!sti) || !(sti->Nice(BStar::flagOK)) ) continue;
232 x[0] = sti->PosX(); x[1] = sti->PosY();
233 x[2] = sti->Flux(); x[3] = sti->Fond();
234 if (f(x, xnt, xnt+1, xnt+2, xnt+3) != 0) {
235 if (nt) nt->Fill(xnt);
236 if (h1) h1->Add(xnt[0], xnt[3]);
237 if (h2) h2->Add(xnt[0], xnt[1], xnt[3]);
238 if (hp) hp->Add(xnt[0], xnt[1], xnt[3]);
239 }
240 }
241 }
242 break;
243#endif
244
245 case ClassId_NTuple :
246 {
247 NTuple* ntp = (NTuple*)obj;
248 r_4* xn;
249 for(k=0; k<ntp->NEntry(); k++) {
250 xn = ntp->GetVec(k);
251 if (f(xn, xnt, xnt+1, xnt+2, xnt+3) != 0) {
252 if (nt) nt->Fill(xnt);
253 if (h1) h1->Add(xnt[0], xnt[3]);
254 if (h2) h2->Add(xnt[0], xnt[1], xnt[3]);
255 if (hp) hp->Add(xnt[0], xnt[1], xnt[3]);
256 }
257 }
258 }
259 break;
260
261 case ClassId_GeneralFitData :
262 {
263 GeneralFitData* data = (GeneralFitData*)obj;
264 r_4* xn;
265 int iok = 2*data->NVar()+2;
266 for(k=0; k<data->NData(); k++) {
267 xn = data->GetVecR4(k);
268 if(xn[iok]<0.001) continue;
269 if (f(xn, xnt, xnt+1, xnt+2, xnt+3) != 0) {
270 if (nt) nt->Fill(xnt);
271 if (h1) h1->Add(xnt[0], xnt[3]);
272 if (h2) h2->Add(xnt[0], xnt[1], xnt[3]);
273 if (hp) hp->Add(xnt[0], xnt[1], xnt[3]);
274 }
275 }
276 }
277 break;
278
279 default :
280 cout << "NamedObjMgr_ComputeExpressions() Erreur: N/A to " << PClassIdToClassName(cid) << endl;
281 return;
282 }
283} CATCH(merr) {
284 fflush(stdout);
285 cout << endl;
286 cerr << endl;
287 string es = PeidaExc(merr);
288 cerr << "NamedObjMgr_ComputeExpressions() Exception :" << merr << es;
289 } ENDTRY;
290
291
292// Fermeture du fichier .so
293CloseDLL();
294return;
295}
296
297
298/* --Methode-- */
299PlotExprFunc Services2NObjMgr::LinkExprFunc(string& vardec, string& expx, string& expy, string& expz,
300 string& expwt, string& cut)
301{
302FILE *fip;
303string fname = TmpDir + "expf_pia_dl.c";
304string fnamer = TmpDir + "expf_pia_dl";
305string cmd;
306int rc;
307
308cmd = "rm " + fname;
309rc = system(cmd.c_str());
310//DBG printf("LinkExprFunc_Do> %s (Rc=%d)\n", cmd.c_str(), rc);
311
312if ((fip = fopen(fname.c_str(), "w")) == NULL) {
313 string sn = fname;
314 cout << "NamedObjMgr/LinkExprFunc_Erreur: Pb. Ouverture " << sn << endl;
315 return(NULL);
316 }
317
318// constitution du fichier a compiler
319fputs("#include <math.h> \n", fip);
320fputs("int expf_pia_dl_func(float* _zz61qq_, float* _rx_61qq_, float* _ry_61qq_, float* _rz_61qq_, float* _wt_61qq_) \n{\n", fip);
321fprintf(fip,"%s \n", vardec.c_str());
322fprintf(fip, "if (!(%s)) { *_rx_61qq_ = *_ry_61qq_ = *_rz_61qq_ = *_wt_61qq_ = 0.; return(0); } \n", cut.c_str());
323fprintf(fip, "*_rx_61qq_ = %s ; \n", expx.c_str());
324fprintf(fip, "*_ry_61qq_ = %s ; \n", expy.c_str());
325fprintf(fip, "*_rz_61qq_ = %s ; \n", expz.c_str());
326fprintf(fip, "*_wt_61qq_ = %s ; \n", expwt.c_str());
327fputs("return(1); \n} \n", fip);
328fclose(fip);
329
330return((PlotExprFunc)LinkFunctionFromFile(fnamer, "expf_pia_dl_func"));
331}
332
333
334/* --Methode-- */
335DlFunction Services2NObjMgr::LinkFunctionFromFile(string& fnamer, char* funcname)
336{
337string fname = fnamer + ".c" ;
338string fnameobj = fnamer + ".o" ;
339string fnameso = fnamer + ".so";
340
341// Le link dynamique
342CloseDLL();
343dynlink = PDynLinkMgr::BuildFromCFile(fname);
344if (dynlink == NULL) {
345 cerr << "NamedObjMgr/LinkFunctionFromFile_Erreur: Erreur ouverture SO " << endl;
346 return(NULL);
347 }
348
349DlFunction retfunc = dynlink->GetFunction(funcname);
350if (retfunc == NULL) {
351 string sn = funcname;
352 cerr << "NamedObjMgr/LinkExprFunc_Erreur: Erreur linking " << sn << endl;
353 CloseDLL();
354 return(NULL);
355 }
356else return(retfunc);
357}
358
359/* --Methode-- */
360void Services2NObjMgr::CloseDLL()
361{
362if (dynlink) delete dynlink; dynlink = NULL;
363}
364
365/* --Methode-- */
366string Services2NObjMgr::FileName2Name(string const & fn)
367{
368
369char fsep[2] = {FILESEP, '\0'};
370char tsep[2] = {'.', '\0'};
371size_t p = fn.find_last_of(fsep);
372size_t l = fn.length();
373if (p >= l) p = 0;
374else p++;
375size_t q = fn.find_first_of(tsep,p);
376if (q < p) q = l;
377return(fn.substr(p,q-p));
378}
379
380
381typedef vector<string> GraTok;
382
383/* --Methode-- */
384int Services2NObjMgr::DecodeDispOption(string& gratt, bool& fgsrgr)
385{
386int ropt = Disp_Next;
387if (!mImgapp) return(ropt);
388
389for(int i=0; i<gratt.length(); i++) gratt[i] = tolower(gratt[i]);
390
391if (fgsrgr) mImgapp->SaveGraphicAtt();
392
393if (gratt.substr(0,3) == "def") { // Remise aux valeurs par defaut = non defini
394 mImgapp->SetColAtt();
395 mImgapp->SetLineAtt();
396 mImgapp->SetFontAtt();
397 mImgapp->SetMarkerAtt();
398 mImgapp->SetColMapId();
399 mImgapp->SetZoomAtt();
400 return(ropt);
401 }
402
403// On separe en mots separes par des virgules
404gratt = ","+gratt;
405size_t p = 0;
406size_t q = 0;
407size_t l = gratt.length();
408string token;
409
410GraTok grt;
411
412while (q < l) {
413 p = gratt.find_first_not_of(" ,",q+1); // au debut d'un token
414 if (p>=l) break;
415 q = gratt.find_first_of(" ,",p); // la fin du token;
416 token = gratt.substr(p,q-p);
417 grt.push_back(token);
418 }
419
420
421static GrAttNames::iterator it;
422
423int k;
424bool fgcont = true;
425fgsrgr = false;
426
427for(k=0; k<grt.size(); k++) {
428// cout << "--DBG--SetGraphicAttributes() " << grt[k] << endl;
429
430 // Decodage option affichage (win, next, etc
431 fgcont = true;
432 if ( (grt[k] == "win") || (grt[k] == "w") ) ropt = Disp_Win;
433 else if ( (grt[k] == "same") || (grt[k] == "s") ) ropt = Disp_Same;
434 else if ( (grt[k] == "stack") || (grt[k] == "st") ) ropt = Disp_Stack;
435 else fgcont = false;
436 if (fgcont) continue;
437
438 // Si c'est une couleur
439 it = GrAcolors.find(grt[k]);
440 if (it != GrAcolors.end()) { mImgapp->SetColAtt((PIColors)((*it).second.a1)); fgsrgr = true; continue; }
441 // Si c'est un attribut de lignes
442 it = GrAlines.find(grt[k]);
443 if (it != GrAlines.end()) { mImgapp->SetLineAtt((PILineAtt)((*it).second.a1)); fgsrgr = true; continue; }
444 // Si c'est un attribut de fontes
445 it = GrAfonts.find(grt[k]);
446 if (it != GrAfonts.end()) { mImgapp->SetFontAtt((PIFontSize)((*it).second.a2), (PIFontAtt)((*it).second.a1) );
447 fgsrgr = true; continue; }
448 // Si c'est un attribut de markers
449 it = GrAmarkers.find(grt[k]);
450 if (it != GrAmarkers.end()) { mImgapp->SetMarkerAtt((*it).second.a2, (PIMarker)((*it).second.a1) );
451 fgsrgr = true; continue; }
452 // Si c'est un colormap
453 it = GrAcmap.find(grt[k]);
454 if (it != GrAcmap.end()) { mImgapp->SetColMapId( (CMapId)((*it).second.a1) ); fgsrgr = true; continue; }
455 // Si c'est un facteur de zoom
456 it = GrAzoom.find(grt[k]);
457 if (it != GrAzoom.end()) { mImgapp->SetZoomAtt( (*it).second.a1 ); fgsrgr = true; continue; }
458 // Si c'est un attribut d'axe
459 it = GrAaxes.find(grt[k]);
460 if (it != GrAaxes.end()) { mImgapp->SetAxesAtt( (*it).second.a1 ); fgsrgr = true; continue; }
461
462 }
463
464return(ropt);
465}
466
467/* --Methode-- */
468char* Services2NObjMgr::PClassIdToClassName(int cid)
469{
470switch (cid) {
471 case ClassId_Poly1 :
472 return("Poly1");
473 case ClassId_Poly2 :
474 return("Poly2");
475 case ClassId_Matrix :
476 return("Matrix");
477 case ClassId_Vector :
478 return("Vector");
479
480 case ClassId_DVList :
481 return("DVList");
482
483 case ClassId_Histo1D :
484 return("Histo1D");
485 case ClassId_Histo2D :
486 return("Histo2D");
487 case ClassId_HProf :
488 return("HProf");
489 case ClassId_NTuple :
490 return("NTuple");
491 case ClassId_GeneralFitData :
492 return("GeneralFitData");
493
494 case ClassId_Image :
495 return("RzImage");
496 case ClassId_Image + kuint_1 :
497 return("ImageU1");
498 case ClassId_Image + kint_1 :
499 return("ImageI1");
500 case ClassId_Image + kuint_2 :
501 return("ImageU2");
502 case ClassId_Image + kint_2 :
503 return("ImageI2");
504 case ClassId_Image + kuint_4 :
505 return("ImageU4");
506 case ClassId_Image + kint_4 :
507 return("ImageI4");
508 case ClassId_Image + kr_4 :
509 return("ImageR4");
510 case ClassId_Image + kr_8 :
511 return("ImageR8");
512
513 case ClassId_ZFidu :
514 return("ZFidu");
515
516#ifdef SANS_EVOLPLANCK
517 case ClassId_StarList :
518 return("StarList");
519 case ClassId_Transfo :
520 return("Transfo");
521 case ClassId_PSF :
522 return("PSF");
523
524 case ClassId_Star + BStar_Type :
525 return("BStar");
526 case ClassId_Star + RzStar_Type :
527 return("RzStar");
528 case ClassId_Star + PSFStar_Type :
529 return("PSFStar");
530 case ClassId_Star + MCStar_Type :
531 return("MCStar");
532 case ClassId_Star + CircRFixStar_Type :
533 return("CircRFixStar");
534 case ClassId_Star + PSFDHStar_Type :
535 return("PSFDHStar");
536 case ClassId_Star + PSFSEStar_Type :
537 return("PSFSEStar");
538 case ClassId_Star + MCDHStar_Type :
539 return("MCDHStar");
540#endif
541
542// - Ajout objet PPF
543 default:
544 return("Unknown");
545 }
546}
547
548/* --Methode-- */
549char* Services2NObjMgr::PClassIdToShortClassName(int cid)
550{
551switch (cid) {
552 case ClassId_Poly1 :
553 case ClassId_Poly2 :
554 return("Poly");
555 case ClassId_Matrix :
556 return("Mtx");
557 case ClassId_Vector :
558 return("Vec");
559 case ClassId_DVList :
560 return("Dvl");
561
562 case ClassId_Histo1D :
563 return("H1D");
564 case ClassId_Histo2D :
565 return("H2D");
566 case ClassId_HProf :
567 return("HPF");
568 case ClassId_NTuple :
569 return("NT");
570 case ClassId_GeneralFitData :
571 return("GFD");
572
573 case ClassId_Image :
574 case ClassId_Image + kuint_1 :
575 case ClassId_Image + kint_1 :
576 case ClassId_Image + kuint_2 :
577 case ClassId_Image + kint_2 :
578 case ClassId_Image + kuint_4 :
579 case ClassId_Image + kint_4 :
580 case ClassId_Image + kr_4 :
581 case ClassId_Image + kr_8 :
582 return("Img");
583
584 case ClassId_ZFidu :
585 return("Fidu");
586
587#ifdef SANS_EVOLPLANCK
588 case ClassId_StarList :
589 return("Stl");
590 case ClassId_Transfo :
591 return("Tr");
592 case ClassId_PSF :
593 return("PSF");
594
595 case ClassId_Star + BStar_Type :
596 case ClassId_Star + RzStar_Type :
597 case ClassId_Star + PSFStar_Type :
598 case ClassId_Star + MCStar_Type :
599 case ClassId_Star + CircRFixStar_Type :
600 case ClassId_Star + PSFDHStar_Type :
601 case ClassId_Star + PSFSEStar_Type :
602 case ClassId_Star + MCDHStar_Type :
603 return("Star");
604#endif
605
606// - Ajout objet PPF
607 default:
608 return("U");
609 }
610}
611
612// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
613// Initialisation des chaines de caracteres designant les attributs graphiques
614
615/* --Methode-- */
616void Services2NObjMgr::InitGrAttNames()
617{
618gratt_item gi;
619// Les couleurs
620gi.a2 = 0;
621gi.a1 = PI_NotDefColor;
622GrAcolors["defcol"] = gi;
623gi.a1 = PI_Black;
624GrAcolors["black"] = gi;
625gi.a1 = PI_White;
626GrAcolors["white"] = gi;
627gi.a1 = PI_Grey;
628GrAcolors["grey"] = gi;
629gi.a1 = PI_Red;
630GrAcolors["red"] = gi;
631gi.a1 = PI_Blue;
632GrAcolors["blue"] = gi;
633gi.a1 = PI_Green;
634GrAcolors["green"] = gi;
635gi.a1 = PI_Yellow;
636GrAcolors["yellow"] = gi;
637gi.a1 = PI_Magenta;
638GrAcolors["magenta"] = gi;
639
640gi.a1 = PI_Cyan;
641GrAcolors["cyan"] = gi;
642gi.a1 = PI_Turquoise;
643GrAcolors["turquoise"] = gi;
644gi.a1 = PI_NavyBlue;
645GrAcolors["navyblue"] = gi;
646gi.a1 = PI_Orange;
647GrAcolors["orange"] = gi;
648gi.a1 = PI_SiennaRed;
649GrAcolors["siennared"] = gi;
650gi.a1 = PI_Purple;
651GrAcolors["purple"] = gi;
652gi.a1 = PI_LimeGreen;
653GrAcolors["limegreen"] = gi;
654gi.a1 = PI_Gold;
655GrAcolors["gold"] = gi;
656
657// Les attributs de lignes
658gi.a2 = 0;
659gi.a1 = PI_NotDefLineAtt;
660GrAlines["defline"] = gi;
661gi.a1 = PI_NormalLine;
662GrAlines["normalline"] = gi;
663gi.a1 = PI_ThinLine;
664GrAlines["thinline"] = gi;
665gi.a1 = PI_ThickLine;
666GrAlines["thickline"] = gi;
667gi.a1 = PI_DashedLine;
668GrAlines["dashedline"] = gi;
669gi.a1 = PI_ThinDashedLine;
670GrAlines["thindashedline"] = gi;
671gi.a1 = PI_ThickDashedLine;
672GrAlines["thickdashedline"] = gi;
673gi.a1 = PI_DottedLine;
674GrAlines["dottedline"] = gi;
675gi.a1 = PI_ThinDottedLine;
676GrAlines["thindottedline"] = gi;
677gi.a1 = PI_ThickDottedLine;
678GrAlines["thickdottedline"] = gi;
679
680// Les fontes (a faire)
681gi.a2 = PI_NotDefFontSize;
682gi.a1 = PI_NotDefFontAtt;
683GrAlines["deffont"] = gi;
684
685gi.a2 = PI_NormalSizeFont;
686gi.a1 = PI_RomanFont;
687GrAlines["normalfont"] = gi;
688gi.a1 = PI_BoldFont;
689GrAlines["boldfont"] = gi;
690gi.a1 = PI_ItalicFont;
691GrAlines["italicfont"] = gi;
692gi.a2 = PI_SmallSizeFont;
693gi.a1 = PI_RomanFont;
694GrAlines["smallfont"] = gi;
695gi.a1 = PI_BoldFont;
696GrAlines["smallboldfont"] = gi;
697gi.a1 = PI_ItalicFont;
698GrAlines["smallitalicfont"] = gi;
699gi.a2 = PI_BigSizeFont;
700gi.a1 = PI_RomanFont;
701GrAlines["bigfont"] = gi;
702gi.a1 = PI_BoldFont;
703GrAlines["bigboldfont"] = gi;
704gi.a1 = PI_ItalicFont;
705GrAlines["bigitalicfont"] = gi;
706gi.a2 = PI_HugeSizeFont;
707gi.a1 = PI_RomanFont;
708GrAlines["hugefont"] = gi;
709gi.a1 = PI_BoldFont;
710GrAlines["hugeboldfont"] = gi;
711gi.a1 = PI_ItalicFont;
712GrAlines["hugeitalicfont"] = gi;
713
714
715// Les markers
716const char* mrkn[11] = { "dotmarker", "plusmarker", "crossmarker",
717 "circlemarker", "fcirclemarker", "boxmarker", "fboxmarker",
718 "trianglemarker", "ftrianglemarker", "starmarker", "fstarmarker"};
719PIMarker mrk[11] = { PI_DotMarker, PI_PlusMarker, PI_CrossMarker,
720 PI_CircleMarker, PI_FCircleMarker, PI_BoxMarker, PI_FBoxMarker,
721 PI_TriangleMarker, PI_FTriangleMarker, PI_StarMarker, PI_FStarMarker};
722
723gi.a2 = 0;
724gi.a1 = PI_NotDefMarker;
725GrAmarkers["defmarker"] = gi;
726
727for(int j=0; j<11; j++) {
728 string smrk;
729 char buff[16];
730 for(int m=1; m<10; m+=2) {
731 sprintf(buff,"%d",m);
732 smrk = (string)mrkn[j] + (string)buff;
733 gi.a1 = mrk[j]; gi.a2 = m;
734 GrAmarkers[smrk] = gi;
735 }
736 }
737
738// Les tables de couleurs
739gi.a2 = 0;
740gi.a1 = CMAP_OTHER;
741GrAcmap["defcmap"] = gi;
742gi.a1 = CMAP_GREY32;
743GrAcmap["grey32"] = gi;
744gi.a1 = CMAP_GREYINV32;
745GrAcmap["greyinv32"] = gi;
746gi.a1 = CMAP_COLRJ32;
747GrAcmap["colrj32"] = gi;
748gi.a1 = CMAP_COLBR32;
749GrAcmap["colbr32"] = gi;
750gi.a1 = CMAP_GREY128;
751GrAcmap["grey128"] = gi;
752gi.a1 = CMAP_GREYINV128;
753GrAcmap["greyinv128"] = gi;
754gi.a1 = CMAP_COLRJ128;
755GrAcmap["colrj128"] = gi;
756gi.a1 = CMAP_COLBR128;
757GrAcmap["colbr128"] = gi;
758
759// La valeur de zoom
760gi.a2 = 0;
761gi.a1 = 0;
762GrAzoom["defzoom"] = gi;
763gi.a1 = 1;
764GrAzoom["zoomx1"] = gi;
765gi.a1 = 2;
766GrAzoom["zoomx2"] = gi;
767gi.a1 = 3;
768GrAzoom["zoomx3"] = gi;
769gi.a1 = 4;
770GrAzoom["zoomx4"] = gi;
771gi.a1 = 5;
772GrAzoom["zoomx5"] = gi;
773gi.a1 = -2;
774GrAzoom["zoom/2"] = gi;
775gi.a1 = -3;
776GrAzoom["zoom/3"] = gi;
777gi.a1 = -4;
778GrAzoom["zoom/4"] = gi;
779gi.a1 = -5;
780GrAzoom["zoom/5"] = gi;
781
782// Attributs d'axes
783gi.a2 = 0;
784gi.a1 = (int)(kBoxAxes | kExtTicks | kLabels);
785GrAaxes["stdaxes"] = gi;
786GrAaxes["defaxes"] = gi;
787GrAaxes["boxaxes"] = gi;
788gi.a1 = (int)kAxesDflt;
789GrAaxes["simpleaxes"] = gi;
790gi.a1 = (int)(kBoxAxes | kExtTicks | kLabels | kGridOn);
791GrAaxes["boxaxesgrid"] = gi;
792
793gi.a1 = (int)(kBoxAxes | kTicks | kLabels | kMinTicks | kMajTicks);
794GrAaxes["fineaxes"] = gi;
795 gi.a1 = (int)(kBoxAxes | kTicks | kLabels | kMinTicks | kMajTicks | kGridOn);
796GrAaxes["grid"] = gi;
797GrAaxes["fineaxesgrid"] = gi;
798
799}
Note: See TracBrowser for help on using the repository browser.