1 #if !defined(__CINT__) || defined(__MAKECINT__)
9 #include <TCanvasImp.h>
12 #include <TClonesArray.h>
13 #include <TParticle.h>
18 #include <TPolyMarker.h>
20 #include <AliESDEvent.h>
21 #include <AliCDBManager.h>
22 #include <AliCDBEntry.h>
23 #include "AliHMPIDHit.h"
24 #include "AliHMPIDv2.h"
25 #include "AliHMPIDReconstructor.h"
26 #include "AliHMPIDRecon.h"
27 #include "AliHMPIDParam.h"
28 #include "AliHMPIDCluster.h"
29 #include "AliTracker.h"
34 AliHMPIDParam *fParam;
37 TCanvas *fCanvas=0; Int_t fType=3; Int_t fEvt=-1; Int_t fNevt=0;
38 TCanvasImp *fCanvasImp;
39 TFile *fHitFile; TTree *fHitTree; TClonesArray *fHitLst; TPolyMarker *fRenMip[7]; TPolyMarker *fRenCko[7]; TPolyMarker *fRenFee[7];
40 TClonesArray *fSdiLst;
41 TFile *fDigFile; TTree *fDigTree; TObjArray *fDigLst; TBox *fRenDig[7][160*144]; TBox *fBox[7][160*144];
42 TFile *fCluFile; TTree *fCluTree; TObjArray *fCluLst; TPolyMarker *fRenClu[7];
43 TFile *fEsdFile; TTree *fEsdTree; AliESDEvent *fEsd; TPolyMarker *fRenTxC[7]; TPolyMarker *fRenRin[7];
44 TFile *fCosFile; TTree *fCosTree;
46 TButton *fHitMipBok,*fHitCkoBok,*fHitFeeBok,*fDigBok,*fCluBok,*fEsdBok;
48 TString fStHitMip = "ON";
49 TString fStHitCko = "ON";
50 TString fStHitFee = "ON";
51 TString fStDig = "ON";
52 TString fStClu = "ON";
53 TString fStEsd = "ON";
57 Int_t fMaxCharge = 200; //maximum charge to saturate color to red
59 Int_t fChamN[9]={6,5,-1,4,3,2,-1,1,0};
61 Int_t fTotPads[7],fTotClus[7];
67 enum EObjectType {kHitMip=kOpenTriangleUp,kHitCko=kOpenCircle,kHitFee=kOpenDiamond,kCluster=kStar,kTrack=kPlus,kRing=kFullDotSmall};
68 // kOpenTriangleUp Hit Mip
69 // kOpenCircle Hit Ckov
70 // kOpenDiamond Hit Feedback
75 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
76 void CreateContainers()
77 {//to create all containers
78 fHitLst=new TClonesArray("AliHMPIDHit");
79 fSdiLst=new TClonesArray("AliHMPIDDigit");
80 fDigLst=new TObjArray(7); for(Int_t i=0;i<7;i++) fDigLst->AddAt(new TClonesArray("AliHMPIDDigit"),i); fDigLst->SetOwner(kTRUE);
81 fCluLst=new TObjArray(7); for(Int_t i=0;i<7;i++) fCluLst->AddAt(new TClonesArray("AliHMPIDCluster"),i); fCluLst->SetOwner(kTRUE);
82 fEsd =new AliESDEvent;
84 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
87 for(Int_t ch=0;ch<7;ch++){
88 fRenMip[ch]=new TPolyMarker; fRenMip[ch]->SetMarkerStyle(kOpenTriangleUp);fRenMip[ch]->SetMarkerColor(kBlack) ;
89 fRenCko[ch]=new TPolyMarker; fRenCko[ch]->SetMarkerStyle(kOpenCircle); fRenCko[ch]->SetMarkerColor(kBlack) ;
90 fRenFee[ch]=new TPolyMarker; fRenFee[ch]->SetMarkerStyle(kOpenDiamond); fRenFee[ch]->SetMarkerColor(kBlack) ;
91 fRenClu[ch]=new TPolyMarker; fRenClu[ch]->SetMarkerStyle(kStar); fRenClu[ch]->SetMarkerColor(kMagenta);
92 fRenTxC[ch]=new TPolyMarker; fRenTxC[ch]->SetMarkerStyle(kPlus); fRenTxC[ch]->SetMarkerColor(kRed) ;
93 fRenTxC[ch]->SetMarkerSize(3);
94 fRenRin[ch]=new TPolyMarker; fRenRin[ch]->SetMarkerStyle(kFullDotSmall); fRenRin[ch]->SetMarkerColor(kMagenta);
96 for(Int_t iDig=0;iDig<160*144;iDig++) {
97 fRenDig[ch][iDig] = new TBox;
98 fRenDig[ch][iDig]->SetFillStyle(1);
99 fBox[ch][iDig] = new TBox;
100 fBox[ch][iDig]->SetFillStyle(0);
104 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
107 for(Int_t ch=0;ch<7;ch++){
108 fRenTxC[ch]->SetPolyMarker(0);
109 fRenRin[ch]->SetPolyMarker(0);
110 fRenMip[ch]->SetPolyMarker(0);
111 fRenCko[ch]->SetPolyMarker(0);
112 fRenFee[ch]->SetPolyMarker(0);
114 fRenClu[ch]->SetPolyMarker(0);
117 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
120 //Prints a list of HMPID hits for a given event. Default is event number 0.
121 if(!fHitTree) return;
122 Printf("List of HMPID hits for event %i",fEvt);
124 for(Int_t iEnt=0;iEnt<fHitTree->GetEntries();iEnt++){//entries loop
125 fHitTree->GetEntry(iEnt);
127 iTot+=fHitLst->GetEntries();
129 Printf("totally %i hits for event %i",iTot,fEvt);
131 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
133 {//prints a list of HMPID sdigits for a given event
134 Printf("List of HMPID sdigits for event %i",fEvt);
136 Printf("totally %i sdigits for event %i",fSdiLst->GetEntries(),fEvt);
138 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
140 {//prints a list of HMPID digits
141 Printf("List of HMPID digits for event %i",fEvt);
143 Int_t iTot=0; for(Int_t i=0;i<7;i++) {iTot+=((TClonesArray*)fDigLst->At(i))->GetEntries();}
144 Printf("totally %i digits for event %i",iTot,fEvt);
146 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
148 {//prints a list of HMPID clusters for a given event
149 Printf("List of HMPID clusters for event %i",fEvt);
152 Int_t iTot=0; for(Int_t iCh=0;iCh<7;iCh++) iTot+=((TClonesArray*)fCluLst->At(iCh))->GetEntries();
154 Printf("totally %i clusters for event %i",iTot,fEvt);
156 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
158 {//prints a list of HMPID Esd for a given event
159 Printf("List of HMPID ESD summary for event %i",fEvt);
160 for(Int_t iTrk=0;iTrk<fEsd->GetNumberOfTracks();iTrk++){
161 AliESDtrack *pTrk = fEsd->GetTrack(iTrk);
162 Float_t x,y;Int_t q,nacc; pTrk->GetHMPIDmip(x,y,q,nacc);
163 Printf("Track %02i with p %7.2f with ThetaCer %5.3f with %i photons",iTrk,pTrk->GetP(),pTrk->GetHMPIDsignal(),nacc);
166 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
167 void DrawChamber(Int_t iCh)
168 {//used by Draw() to Draw() chamber structure
169 gPad->Range(-10,-10,AliHMPIDParam::SizeAllX()+5,AliHMPIDParam::SizeAllY()+5);
170 if(iCh>=0){TLatex txt; txt.SetTextSize(0.1); txt.DrawLatex(-5,-5,Form("%i",iCh));}
172 for(Int_t iPc=AliHMPIDParam::kMinPc;iPc<=AliHMPIDParam::kMaxPc;iPc++){
173 TBox *pBox=new TBox(AliHMPIDParam::MinPcX(iPc),AliHMPIDParam::MinPcY(iPc),
174 AliHMPIDParam::MaxPcX(iPc),AliHMPIDParam::MaxPcY(iPc));
175 pBox->SetFillStyle(0); pBox->Draw();
178 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
180 {//used by Draw() to draw legend
181 Int_t nTxC=0,nMip=0,nCko=0,nFee=0,nDig=0,nClu=0;
182 for(Int_t ch=0;ch<7;ch++){
183 nTxC+=fRenTxC[ch]->Size();
184 nMip+=fRenMip[ch]->Size();
185 nCko+=fRenCko[ch]->Size();
186 nFee+=fRenFee[ch]->Size();
187 nClu+=fRenClu[ch]->Size();
190 TLegend *pLeg=new TLegend(0.2,0.2,0.8,0.8);
191 pLeg->SetHeader(Form("Event %i Total %i",fEvt,fNevt));
192 pLeg->AddEntry(fRenTxC[0], Form("TRKxPC %i" ,nTxC),"p");
193 pLeg->AddEntry(fRenMip[0], Form("Mip hits %i" ,nMip),"p");
194 pLeg->AddEntry(fRenCko[0], Form("Ckov hits %i" ,nCko),"p");
195 pLeg->AddEntry(fRenFee[0], Form("Feed hits %i" ,nFee),"p");
196 pLeg->AddEntry(fRenDig[0][0],Form("Digs %i" ,nDig),"p");
197 pLeg->AddEntry(fRenClu[0], Form("Clus %i" ,nClu),"p");
200 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
202 {//draws all the objects of current event in given canvas
203 Int_t iPadN[7]={9,8,6,5,4,2,1};
204 Int_t sampleCol = fMaxCharge/gStyle->GetNumberOfColors();
205 for(Int_t iCh=0;iCh<7;iCh++){//chambers loop
206 fCanvas->cd(iPadN[iCh]);
207 gPad->SetEditable(kTRUE); gPad->Clear(); DrawChamber(iCh);
211 for(Int_t iDig=0;iDig<nDigs[iCh];iDig++) {
212 Int_t charge = fRenDig[iCh][iDig]->GetUniqueID();
213 Int_t color = charge/sampleCol;if(color>=gStyle->GetNumberOfColors()) color = gStyle->GetNumberOfColors()-1;
214 fRenDig[iCh][iDig]->SetFillColor(gStyle->GetColorPalette(color));
215 fRenDig[iCh][iDig]->Draw();
216 fBox[iCh][iDig]->Draw();
221 if(fEsdFile){if(fStEsd =="ON") fRenTxC[iCh]->Draw();}
224 if(fStHitMip=="ON") fRenMip[iCh]->Draw();
225 if(fStHitFee=="ON") fRenFee[iCh]->Draw();
226 if(fStHitCko=="ON") fRenCko[iCh]->Draw();
229 if(fEsdFile){if(fStEsd =="ON") fRenRin[iCh]->Draw();}
230 if(fCluFile){if(fStClu =="ON") fRenClu[iCh]->Draw();}
231 gPad->SetEditable(kFALSE);
234 fCanvas->cd(3); gPad->Clear(); DrawLegend();
239 fHitMipBok->SetTitle(Form("Mips %s",fStHitMip.Data())); fHitMipBok->Modified();
240 fHitCkoBok->SetTitle(Form("Ckov %s",fStHitCko.Data())); fHitCkoBok->Modified();
241 fHitFeeBok->SetTitle(Form("Fdbk %s",fStHitFee.Data())); fHitFeeBok->Modified();
243 if(fDigFile){fDigBok->SetTitle(fStDig); fDigBok->Modified();}
244 if(fCluFile){fCluBok->SetTitle(fStClu); fCluBok->Modified();}
245 if(fEsdFile){fEsdBok->SetTitle(fStEsd); fEsdBok->Modified();}
248 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
249 void RenderHit(TClonesArray *pHitLst)
250 {//used by ReadEvent() and SimulateEvent() to render hits to polymarker structures, one per chamber
251 for(Int_t iHit=0;iHit<pHitLst->GetEntries();iHit++){ //hits loop
252 AliHMPIDHit *pHit = (AliHMPIDHit*)pHitLst->At(iHit); Int_t ch=pHit->Ch(); Float_t x=pHit->LorsX(); Float_t y=pHit->LorsY(); //get current hit
254 case 50000050: fRenCko[ch]->SetNextPoint(x,y);break;
255 case 50000051: fRenFee[ch]->SetNextPoint(x,y);break;
256 default: fRenMip[ch]->SetNextPoint(x,y);break;
258 // Printf("----------ihit %i ch %i chhit %i MIP %i CKO %i FEE %i",iHit,ch,pHit->Pid());
259 }//hits loop for this entry
261 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
262 void RenderDig(TObjArray *pDigLst)
263 {//used by ReadEvent() and SimulateEvent() to render digs to Tbox structures, one per chamber
264 for(Int_t iCh=0;iCh<=6;iCh++){ //chambers loop
265 TClonesArray *pDigCham=(TClonesArray*)pDigLst->At(iCh); //get digs list for this chamber
267 fTotPads[iCh] = pDigCham->GetEntries();
268 for(Int_t iDig=0;iDig<pDigCham->GetEntries();iDig++){ //digs loop
269 AliHMPIDDigit *pDig = (AliHMPIDDigit*)pDigCham->At(iDig); Float_t x=pDig->LorsX(); Float_t y=pDig->LorsY(); //get current hit
270 fRenDig[iCh][iDig]->SetX1(x-0.5*AliHMPIDParam::SizePadX());
271 fRenDig[iCh][iDig]->SetX2(x+0.5*AliHMPIDParam::SizePadX());
272 fRenDig[iCh][iDig]->SetY1(y-0.5*AliHMPIDParam::SizePadY());
273 fRenDig[iCh][iDig]->SetY2(y+0.5*AliHMPIDParam::SizePadY());
274 fRenDig[iCh][iDig]->SetUniqueID((Int_t)pDig->Q());
275 fBox[iCh][iDig]->SetX1(x-0.5*AliHMPIDParam::SizePadX());
276 fBox[iCh][iDig]->SetX2(x+0.5*AliHMPIDParam::SizePadX());
277 fBox[iCh][iDig]->SetY1(y-0.5*AliHMPIDParam::SizePadY());
278 fBox[iCh][iDig]->SetY2(y+0.5*AliHMPIDParam::SizePadY());
281 }//hits loop for this entry
283 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
284 void RenderClu(TObjArray *pClus)
285 {//used by ReadEvent() and SimulateEvent() to render clusters to polymarker structures, one per chamber
286 for(Int_t iCh=0;iCh<=6;iCh++){ //chambers loop
287 TClonesArray *pClusCham=(TClonesArray*)pClus->At(iCh); //get clusters list for this chamber
288 fTotClus[iCh] = pClusCham->GetEntries();
289 for(Int_t iClu=0;iClu<pClusCham->GetEntries();iClu++){ //clusters loop
290 AliHMPIDCluster *pClu = (AliHMPIDCluster*)pClusCham->At(iClu); //get current cluster
291 fRenClu[iCh]->SetNextPoint(pClu->X(),pClu->Y());
292 // Printf("RenderClu: ch %i x %f y %f",iCh,pClu->X(),pClu->Y());
294 }//chamber loop for this entry
296 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
297 void RenderEsd(AliESDEvent *pEsd)
298 {//used by ReadEvent() or SimulateEvent() to render ESD to polymarker structures for rings and intersections one per chamber
300 for(Int_t iTrk=0;iTrk<pEsd->GetNumberOfTracks();iTrk++){//tracks loop to collect cerenkov rings and intersection points
301 AliESDtrack *pTrk=pEsd->GetTrack(iTrk); Int_t ch=pTrk->GetHMPIDcluIdx(); //get track and chamber intersected by it
302 if(ch<0) continue; //this track does not intersect any chamber
303 Float_t thRa,phRa,xRa,yRa; pTrk->GetHMPIDtrk(xRa,yRa,thRa,phRa); //get info on current track
305 Float_t xPc=0,yPc=0; AliHMPIDTracker::IntTrkCha(pTrk,xPc,yPc); //find again intersection of track with PC--> it is not stored in ESD!
306 fRenTxC[ch]->SetNextPoint(xPc,yPc); //add this intersection point
307 Float_t ckov=pTrk->GetHMPIDsignal(); //get ckov angle stored for this track
309 rec.SetTrack(xRa,yRa,thRa,phRa);
310 for(Int_t j=0;j<500;j++){
311 TVector2 pos; pos=rec.TracePhot(ckov,j*6.28/500.);
312 if(!AliHMPIDParam::IsInDead(pos.X(),pos.Y())) fRenRin[ch]->SetNextPoint(pos.X(),pos.Y());
317 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
318 void SimulateEsd(AliESDEvent *pEsd)
320 TParticle part; TLorentzVector mom;
321 for(Int_t iTrk=0;iTrk<100;iTrk++){//stack loop
322 Printf("SimulateEsd: kProton %i",kProton);
323 part.SetPdgCode(kProton);
324 part.SetProductionVertex(0,0,0,0);
325 Double_t eta= -0.2+gRandom->Rndm()*0.4; //rapidity is random [-0.2,+0.2]
326 Double_t phi= gRandom->Rndm()*60.*TMath::DegToRad(); //phi is random [ 0 , 60 ] degrees
327 mom.SetPtEtaPhiM(5,eta,phi,part.GetMass());
328 part.SetMomentum(mom);
329 AliESDtrack trk(&part);
330 pEsd->AddTrack(&trk);
333 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
334 void SimulateHits(AliESDEvent *pEsd, TClonesArray *pHits)
335 {//used by SimulateEvent to simulate hits out from provided ESD
336 const Int_t kCerenkov=50000050;
337 const Int_t kFeedback=50000051;
340 Float_t eMip=200e-9,ePho=7.5e-9;
342 for(Int_t iTrk=0;iTrk<pEsd->GetNumberOfTracks();iTrk++){//tracks loop
343 AliESDtrack *pTrk=pEsd->GetTrack(iTrk);
345 Int_t ch=AliHMPIDTracker::IntTrkCha(pTrk,xRa,yRa);
346 if(ch<0) continue; //this track does not hit HMPID
347 Float_t beta = pTrk->GetP()/(TMath::Sqrt(pTrk->GetP()*pTrk->GetP()+0.938*0.938));
348 Float_t ckov=TMath::ACos(1./(beta*1.292));
350 Float_t theta,phi,xPc,yPc,; pTrk->GetHMPIDtrk(xPc,yPc,theta,phi); rec.SetTrack(xRa,yRa,theta,phi);
352 if(!AliHMPIDParam::IsInDead(xPc,yPc)) new((*pHits)[hc++]) AliHMPIDHit(ch,eMip,kProton ,iTrk,xPc,yPc); //mip hit
353 Int_t nPhots = (Int_t)(20.*TMath::Power(TMath::Sin(ckov),2)/TMath::Power(TMath::Sin(TMath::ACos(1./1.292)),2));
354 for(int i=0;i<nPhots;i++){
356 pos=rec.TracePhot(ckov,gRandom->Rndm()*TMath::TwoPi());
357 if(!AliHMPIDParam::IsInDead(pos.X(),pos.Y())) new((*pHits)[hc++]) AliHMPIDHit(ch,ePho,kCerenkov,iTrk,pos.X(),pos.Y());
359 for(int i=0;i<3;i++){//feedback photons
360 Float_t x=gRandom->Rndm()*160; Float_t y=gRandom->Rndm()*150;
361 if(!AliHMPIDParam::IsInDead(x,y)) new((*pHits)[hc++]) AliHMPIDHit(ch,ePho,kFeedback,iTrk,x,y); //feedback hits
365 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
366 TString Stack(Int_t evt,Int_t tid)
368 // Prints some useful info from stack
369 // Arguments: evt - event number. if not -1 print info only for that event
370 // tid - track id. if not -1 then print it and all it's mothers if any
371 // Returns: mother tid of the given tid if any
372 if(gAL->LoadHeader()) return -1;
373 if(gAL->LoadKinematics()) return -1;
376 AliStack *pStack=gAL->Stack();
377 TParticle *pTrack=pStack->Particle(tid);
378 // Int_t mtid=pTrack->GetFirstMother();
380 str.Append(Form("with P = %7.4f (%7.4f,%7.4f,%7.4f) GeV/c ",pTrack->P(),pTrack->Px(),pTrack->Py(),pTrack->Pz()));
381 gAL->UnloadHeader(); gAL->UnloadKinematics();
384 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
385 void DispTB(TString t0,TString t1,TString t2,TString t3)
387 fCanvasImp->SetStatusText(t0,0);
388 fCanvasImp->SetStatusText(t1,1);
389 fCanvasImp->SetStatusText(t2,2);
390 fCanvasImp->SetStatusText(t3,3);
392 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
393 void DisplayInfo(Int_t evt,Int_t px, Int_t py)
396 TVirtualPad *pPad=gPad->GetSelectedPad();
397 Int_t padN = pPad->GetNumber()-1;
398 if(padN<0 || padN>8) return;
399 Int_t ch,pc,padX,padY;
402 TString text0,text1,text2,text3;
404 Float_t x=pPad->AbsPixeltoX(px); Float_t y=pPad->AbsPixeltoY(py);
405 fParam->Lors2Pad(x,y,pc,padX,padY);
406 TVector3 xyz=fParam->Lors2Mars(ch,x,y);
408 if(padX>=0&&padY>=0) {
409 text0.Append(Form("Pad(%i,%i)-LORS(%6.2f,%6.2f)-MARS(%7.2f,%7.2f,%7.2f)",padX,padY,x,y,xyz.X(),xyz.Y(),xyz.Z()));
410 text1.Append(Form("Module %i Sector %i",ch,pc));
412 text3.Append(Form("Pads = %i - Clusters = %i - Multiplicity %5.2f%%",fTotPads[ch],fTotClus[ch],100.*fTotPads[ch]/(144.*160.)));
415 TObject *obj = fCanvas->GetSelected();
416 TString name = obj->GetName();
420 if(name=="") {DispTB(text0,text1,text2,text3);return;} // TLatex not interesting
422 if(name.Contains("TBox")) {
423 TBox *box = (TBox*)obj;
424 if(box->GetUniqueID()==0) return; // just black frame hit!
425 text2.Append(Form("charge = %i ADC",box->GetUniqueID()));
426 DispTB(text0,text1,text2,text3);
430 // Find object HITs CLUSTER TRACK and RING (based on TPolyMarker and symbol)
432 TPolyMarker *b = (TPolyMarker*)obj;
434 const Int_t big = 9999;
436 // check if point is near one of the points
437 Int_t distance = big;
440 Double_t *xPol = b->GetX();
441 Double_t *yPol = b->GetY();
443 for(Int_t i=0;i<b->Size();i++) {
444 Int_t pxp = pPad->XtoAbsPixel(pPad->XtoPad(xPol[i]));
445 Int_t pyp = pPad->YtoAbsPixel(pPad->YtoPad(yPol[i]));
446 Int_t d = TMath::Abs(pxp-px) + TMath::Abs(pyp-py);
447 if (d < distance) {distance = d; index=i;}
450 Int_t symbol = b->GetMarkerStyle();
452 // kOpenTriangleUp Hit Mip
453 // kOpenCircle Hit Ckov
454 // kOpenDiamond Hit Feedback
457 // kFullDotSmall Ring
459 // Case Hit Mip of Hit Ckov or Hit Feedback
460 if(symbol==kHitMip || symbol==kHitCko || symbol==kHitFee) {
461 if(evt!=kButton1Down) return;
463 Int_t iCko[7]={0,0,0,0,0,0,0};
464 Int_t iFee[7]={0,0,0,0,0,0,0};
465 Int_t iMip[7]={0,0,0,0,0,0,0};
470 Int_t indTrk = b->GetUniqueID(); // track index
471 for(Int_t iEnt=0;iEnt<fHitTree->GetEntries();iEnt++){//entries loop
472 fHitTree->GetEntry(iEnt);
473 for(iHit=0;iHit<fHitLst->GetEntries();iHit++) { //hits loop
474 AliHMPIDHit *pHit = (AliHMPIDHit*)fHitLst->At(iHit);
476 Int_t pid = pHit->Pid();
477 if(pid==50000050) iCko[chHit]++;
478 else if(pid==50000051) iFee[chHit]++;
481 if(symbol==kHitMip && ch==chHit && index==iMip[chHit]-1) {indTrk=iEnt;indHit = iHit;break;}
482 if(symbol==kHitCko && ch==chHit && index==iCko[chHit]-1) {indTrk=iEnt;indHit = iHit;break;}
483 if(symbol==kHitFee && ch==chHit && index==iFee[chHit]-1) {indTrk=iEnt;indHit = iHit;break;}
486 fHitTree->GetEntry(indTrk);
487 AliHMPIDHit *pHit = (AliHMPIDHit*)fHitLst->At(indHit);
489 Int_t tid = pHit->Tid();
491 TString str = Stack(fEvt,tid);
493 Float_t x=pHit->LorsX();
494 Float_t y=pHit->LorsY();
495 Float_t charge = pHit->Q();
496 if(pHit->Pid()==50000050) {nameHit = " Cherenkov Photon ";}
497 else if(pHit->Pid()==50000051) {nameHit = " Feedback Photon ";}
498 else if(fPdg->GetParticle(pHit->Pid())) nameHit = fPdg->GetParticle(pHit->Pid())->GetName();
499 text0="";text0.Append(Form("Hit x %6.2f y %6.2f total hit produced %i",x,y,fHitLst->GetEntries()));
500 text2="";text2.Append(Form("Q = %7.2f ADC",charge));
501 text3="";text3="Particle: "+ nameHit +" "+ str;
503 else if (symbol==kCluster) {
504 TClonesArray *pClusCham=(TClonesArray*)fCluLst->At(ch); //get clusters list for this chamber
505 AliHMPIDCluster *pClu = (AliHMPIDCluster*)pClusCham->At(index); //get current cluster
506 text0="";text0.Append(Form("CLUSTER: x %6.2f y %6.2f",pClu->X(),pClu->Y()));
507 text2="";text2.Append(Form("charge = %i ADC",(Int_t)pClu->Q()));
509 else if (symbol==kTrack) {
510 AliESDtrack *pTrk=fEsd->GetTrack(index);
511 Float_t thRa,phRa,xRa,yRa; pTrk->GetHMPIDtrk(xRa,yRa,thRa,phRa);
512 Float_t xPc,yPc; AliHMPIDTracker::IntTrkCha(pTrk,xPc,yPc);
513 text0="";text0.Append(Form("TRACK: x %6.2f y %6.2f at PC plane",xPc,yPc));
514 text2="";text2.Append(Form("p = %7.2f GeV/c",pTrk->GetP()));
515 Float_t ckov=pTrk->GetHMPIDsignal();
517 Float_t x,y;Int_t q,nacc; pTrk->GetHMPIDmip(x,y,q,nacc);
518 text3="";text3.Append(Form("Theta Cherenkov %5.3f with %i photons",pTrk->GetHMPIDsignal(),nacc));
521 //Update toolbar status
523 DispTB(text0,text1,text2,text3);
525 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
529 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
530 void DoZoom(Int_t evt, Int_t px, Int_t py, TObject *)
532 // Printf(" px %i py%i event %i",px,py,evt);
533 if(evt==kMouseMotion||evt==kButton1Down) DisplayInfo(evt,px,py);
534 if(evt==11) CloseInfo();
535 if(evt!=5 && evt!=6) return; //5- zoom in 6-zoom out
536 const Int_t minZoom=64;
537 const Int_t maxZoom=2;
538 static Int_t zoom[7]={64,64,64,64,64,64,64}; //zoom level
540 // if(!obj->IsA()->InheritsFrom("TPad")) return; //current object is not pad
541 TVirtualPad *pPad=gPad->GetSelectedPad();
542 Int_t padN = pPad->GetNumber()-1;
543 if(padN<0 || padN>8) return;
545 Int_t iCh = fChamN[padN];
548 if(evt==5&&zoom[iCh]==maxZoom) return;
549 if(evt==6&&zoom[iCh]==minZoom) return;
551 Float_t x=pPad->AbsPixeltoX(px); Float_t y=pPad->AbsPixeltoY(py);
553 if(evt==5){ zoom[iCh]=zoom[iCh]/2; pPad->Range(x-zoom[iCh]*2,y-zoom[iCh]*2,x+zoom[iCh]*2,y+zoom[iCh]*2);} //zoom in
554 if(evt==6){ zoom[iCh]=zoom[iCh]*2; pPad->Range(x-zoom[iCh]*2,y-zoom[iCh]*2,x+zoom[iCh]*2,y+zoom[iCh]*2);} //zoom out
555 if(zoom[iCh]==minZoom) pPad->Range(-10,-10,AliHMPIDParam::SizeAllX()+5,AliHMPIDParam::SizeAllY()+5);
556 ((TCanvas *)gTQSender)->SetTitle(Form("zoom x%i",minZoom/zoom[iCh]));
560 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
562 {//used by NextEvent() to read curent event and construct all render elements
563 if(fNevt && fEvt>=fNevt) fEvt=0; //loop over max event
564 if(fNevt && fEvt<0) fEvt=fNevt-1; //loop over max event
567 if(fHitTree) delete fHitTree; fHitTree=(TTree*)fHitFile->Get(Form("Event%i/TreeH",fEvt));
569 fHitTree->SetBranchAddress("HMPID",&fHitLst);
570 for(Int_t iEnt=0;iEnt<fHitTree->GetEntries();iEnt++){
571 fHitTree->GetEntry(iEnt);
577 if(fDigTree) delete fDigTree; fDigTree=(TTree*)fDigFile->Get(Form("Event%i/TreeD",fEvt));
578 for(Int_t iCh=AliHMPIDParam::kMinCh;iCh<=AliHMPIDParam::kMaxCh;iCh++) fDigTree->SetBranchAddress(Form("HMPID%i",iCh),&(*fDigLst)[iCh]);
579 fDigTree->GetEntry(0);
584 if(fCluTree) delete fCluTree; fCluTree=(TTree*)fCluFile->Get(Form("Event%i/TreeR",fEvt));
585 for(Int_t iCh=AliHMPIDParam::kMinCh;iCh<=AliHMPIDParam::kMaxCh;iCh++) fCluTree->SetBranchAddress(Form("HMPID%i",iCh),&(*fCluLst)[iCh]);
586 fCluTree->GetEntry(0);
590 if(fEsdFile){//if ESD file open
591 fEsdTree->GetEntry(fEvt);
595 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
597 {// used by NextEvent() to simulate all info
598 AliCDBManager* pCDB = AliCDBManager::Instance(); pCDB->SetDefaultStorage("local://$HOME"); pCDB->SetRun(0);
599 AliCDBEntry *pNmeanEnt=pCDB->Get("HMPID/Calib/Nmean");
602 SimulateHits(fEsd,fHitLst);
603 AliHMPIDv2::Hit2Sdi(fHitLst,fSdiLst);
604 AliHMPIDDigitizer::Sdi2Dig(fSdiLst,fDigLst);
605 AliHMPIDReconstructor::Dig2Clu(fDigLst,fCluLst);
606 AliHMPIDTracker::Recon(fEsd,fCluLst,(TObjArray*)pNmeanEnt->GetObject());
612 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
616 if(fStHitMip=="OFF") {fHitMipBok->SetFillColor(kRed);} else {fHitMipBok->SetFillColor(18);}
617 if(fStHitCko=="OFF") {fHitCkoBok->SetFillColor(kRed);} else {fHitCkoBok->SetFillColor(18);}
618 if(fStHitFee=="OFF") {fHitFeeBok->SetFillColor(kRed);} else {fHitFeeBok->SetFillColor(18);}
620 if(fDigFile){if(fStDig =="OFF") {fDigBok->SetFillColor(kRed);} else {fDigBok->SetFillColor(18);}}
621 if(fCluFile){if(fStClu =="OFF") {fCluBok->SetFillColor(kRed);} else {fCluBok->SetFillColor(18);}}
622 if(fEsdFile){if(fStEsd =="OFF") {fEsdBok->SetFillColor(kRed);} else {fEsdBok->SetFillColor(18);}}
624 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
630 case 1: ReadEvent();break;
631 // case 2: ReadCosmic(); break;
632 case 3: SimulateEvent(); break;
637 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
644 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
651 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
656 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
658 {//display events from files if any in current directory or simulated events
660 fParam=AliHMPIDParam::Instance(); // first invocation of AliHMPIDParam to initialize geometry...
661 fPdg = TDatabasePDG::Instance(); // first invocation of TDatabasePDG to retrieve particle infos...
666 TString title="Session with";
667 if(gSystem->IsFileInIncludePath("HMPID.Hits.root")){// tries to open hits
668 fHitFile=TFile::Open("HMPID.Hits.root"); fNevt=fHitFile->GetNkeys(); fType=1; title+=Form(" HITS-%i ",fNevt);
671 if(gSystem->IsFileInIncludePath("HMPID.Digits.root")){// tries to open clusters
672 fDigFile=TFile::Open("HMPID.Digits.root"); fNevt=fDigFile->GetNkeys(); fType=1; title+=Form(" DIGITS-%i ",fNevt);
675 if(gSystem->IsFileInIncludePath("HMPID.RecPoints.root")){// tries to open clusters
676 fCluFile=TFile::Open("HMPID.RecPoints.root"); fNevt=fCluFile->GetNkeys(); fType=1; title+=Form(" CLUSTERS-%i ",fNevt);
679 if(gSystem->IsFileInIncludePath("AliESDs.root")){
680 fEsdFile=TFile::Open("AliESDs.root");
681 fEsdTree=(TTree*)fEsdFile->Get("esdTree");
682 fEsd->ReadFromTree(fEsdTree); fEsd->GetStdContent(); //clm: new ESD schema: see Task Force meeting 20th June, 2007
683 fNevt=fEsdTree->GetEntries(); fType=1; title+=Form(" ESD-%i ",fNevt);
685 //clm: we need to set the magnetic field
686 if(gSystem->IsFileInIncludePath("galice.root")){
687 if(gAlice) delete gAlice;
688 gAL=AliRunLoader::Open();
690 AliHMPIDTracker::SetFieldMap(gAL->GetAliRun()->Field(),kTRUE);
692 Printf("=============== NO galice file! Magnetic field for ESD tracking is: %f ===============",AliTracker::GetBz());
697 if(gSystem->IsFileInIncludePath("cosmic.root")){ //clm: Check if cosmic file is in the folder
698 fCosFile=TFile::Open("cosmic.root"); fCosTree=(TTree*)fCosFile->Get("cosmic"); fNevt=fCosTree->GetEntries(); fType=2;
699 fCosTree->SetBranchAddress("Digs",&fDigLst); fCosTree->SetBranchAddress("Clus",&fCluLst);
702 fCanvas=new TCanvas("all","",-1024,768);fCanvas->SetWindowSize(1024,768);
703 fCanvasImp = fCanvas->GetCanvasImp();
704 fCanvasImp->ShowStatusBar();
705 fCanvas->Divide(3,3,0,0);// pAll->ToggleEditor();
706 fCanvas->Connect("ProcessedEvent(Int_t,Int_t,Int_t,TObject*)",0,0,"DoZoom(Int_t,Int_t,Int_t,TObject*)");
708 gStyle->SetPalette(1,0);
710 case 1: fCanvas->SetTitle(title.Data());
711 TButton *pNxtBtn = new TButton("Next" ,"NextEvent()" ,0.0,0.0,0.3,0.1); pNxtBtn->Draw();
712 TButton *pPrvBtn = new TButton("Previous" ,"PrevEvent()" ,0.3,0.0,0.6,0.1); pPrvBtn->Draw();
713 if(fHitFile){TButton *pHitBtn = new TButton("Print hits","PrintHits()" ,0.0,0.2,0.3,0.3); pHitBtn->Draw();}
714 if(fDigFile){TButton *pDigBtn = new TButton("Print digs","PrintDigs()" ,0.0,0.4,0.3,0.5); pDigBtn->Draw();}
715 if(fCluFile){TButton *pCluBtn = new TButton("Print clus","PrintClus()" ,0.0,0.6,0.3,0.7); pCluBtn->Draw();}
716 if(fEsdFile){TButton *pEsdBtn = new TButton("Print ESD ","PrintEsd()" ,0.0,0.8,0.3,0.9); pEsdBtn->Draw();}
717 if(fHitFile){ fHitMipBok = new TButton(Form("Mip %s",fStHitMip.Data()),"SwitchHitMip()",0.3,0.16,0.6,0.22); fHitMipBok->Draw();}
718 if(fHitFile){ fHitCkoBok = new TButton(Form("Ckov %s",fStHitCko.Data()),"SwitchHitCko()",0.3,0.22,0.6,0.28); fHitCkoBok->Draw();}
719 if(fHitFile){ fHitFeeBok = new TButton(Form("Fdbk %s",fStHitFee.Data()),"SwitchHitFee()",0.3,0.28,0.6,0.34); fHitFeeBok->Draw();}
720 if(fDigFile){ fDigBok = new TButton(fStDig ,"SwitchDigs()" ,0.3,0.4,0.6,0.5); fDigBok->Draw();}
721 if(fCluFile){ fCluBok = new TButton(fStClu ,"SwitchClus()" ,0.3,0.6,0.6,0.7); fCluBok->Draw();}
722 if(fEsdFile){ fEsdBok = new TButton(fStEsd ,"SwitchEsd()" ,0.3,0.8,0.6,0.9); fEsdBok->Draw();}
724 if(fHitFile){TButton *fHitMipOnly = new TButton(" Only ","OnlyHitMip()",0.6,0.16,0.9,0.22); fHitMipOnly->Draw();}
725 if(fHitFile){TButton *fHitCkoOnly = new TButton(" Only ","OnlyHitCko()",0.6,0.22,0.9,0.28); fHitCkoOnly->Draw();}
726 if(fHitFile){TButton *fHitFeeOnly = new TButton(" Only ","OnlyHitFee()",0.6,0.28,0.9,0.34); fHitFeeOnly->Draw();}
727 if(fDigFile){TButton *fDigOnly = new TButton(" Only ","OnlyDigs()" ,0.6,0.40,0.9,0.50); fDigOnly->Draw();}
728 if(fCluFile){TButton *fCluOnly = new TButton(" Only ","OnlyClus()" ,0.6,0.60,0.9,0.70); fCluOnly->Draw();}
729 if(fEsdFile){TButton *fEsdOnly = new TButton(" Only ","OnlyEsd()" ,0.6,0.80,0.9,0.90); fEsdOnly->Draw();}
730 TButton *pAll = new TButton(" ALL ","All()" ,0.5,0.90,0.7,1.00); pAll->Draw();
732 TButton *pEnd = new TButton("Quit" ,"End()" ,0.6,0.0,0.9,0.1); pEnd->Draw();
734 case 2: fCanvas->SetTitle("COSMIC");
735 TButton *pCosBtn = new TButton("Next" ,"NextEvent()",0.0,0.0,0.3,0.1); pCosBtn->Draw();
738 case 3: fCanvas->SetTitle("SIMULATION");
739 TButton *pSimBtn = new TButton("Simulate" ,"NextEvent()",0.0,0.0,0.3,0.1); pSimBtn->Draw();
740 TButton *pHitBtn = new TButton("Print hits","PrintHits()",0.0,0.2,0.3,0.3); pHitBtn->Draw();
741 TButton *pDigBtn = new TButton("Print digs","PrintDigs()",0.0,0.4,0.3,0.5); pDigBtn->Draw();
742 TButton *pCluBtn = new TButton("Print clus","PrintClus()",0.0,0.6,0.3,0.7); pCluBtn->Draw();
743 TButton *pEsdBtn = new TButton("Print ESD" ,"PrintEsd()" ,0.0,0.8,0.3,0.9); pEsdBtn->Draw();
744 if(fHitFile){ fHitMipBok = new TButton(Form("Mips %s",fStHitMip.Data()),"SwitchHitMip()",0.3,0.16,0.6,0.22); fHitMipBok->Draw();}
745 if(fHitFile){ fHitCkoBok = new TButton(Form("Ckov %s",fStHitCko.Data()),"SwitchHitCko()",0.3,0.22,0.6,0.28); fHitCkoBok->Draw();}
746 if(fHitFile){ fHitFeeBok = new TButton(Form("Fdbk %s",fStHitFee.Data()),"SwitchHitFee()",0.3,0.28,0.6,0.34); fHitFeeBok->Draw();}
747 if(fDigFile){ fDigBok = new TButton(fStDig ,"SwitchDigs()" ,0.3,0.4,0.6,0.5); fDigBok->Draw();}
748 if(fCluFile){ fCluBok = new TButton(fStClu ,"SwitchClus()" ,0.3,0.6,0.6,0.7); fCluBok->Draw();}
749 if(fEsdFile){ fEsdBok = new TButton(fStEsd ,"SwitchEsd()" ,0.3,0.8,0.6,0.9); fEsdBok->Draw();}
751 if(fHitFile){TButton *fHitMipOnly = new TButton(" Only ","OnlyHitMip()",0.6,0.16,0.9,0.22); fHitMipOnly->Draw();}
752 if(fHitFile){TButton *fHitCkoOnly = new TButton(" Only ","OnlyHitCko()",0.6,0.22,0.9,0.28); fHitCkoOnly->Draw();}
753 if(fHitFile){TButton *fHitFeeOnly = new TButton(" Only ","OnlyHitFee()",0.6,0.28,0.9,0.34); fHitFeeOnly->Draw();}
754 if(fDigFile){TButton *fDigOnly = new TButton(" Only ","OnlyDigs()" ,0.6,0.40,0.9,0.50); fDigOnly->Draw();}
755 if(fCluFile){TButton *fCluOnly = new TButton(" Only ","OnlyClus()" ,0.6,0.60,0.9,0.70); fCluOnly->Draw();}
756 if(fEsdFile){TButton *fEsdOnly = new TButton(" Only ","OnlyEsd()" ,0.6,0.80,0.9,0.90); fEsdOnly->Draw();}
757 TButton *pSimAll = new TButton(" ALL ","All()" ,0.5,0.90,0.7,1.00); pSimAll->Draw();
764 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
767 fStHitMip=(fStHitMip=="OFF")? "ON":"OFF";
770 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
773 fStHitCko=(fStHitCko=="OFF")? "ON":"OFF";
776 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
779 fStHitFee=(fStHitFee=="OFF")? "ON":"OFF";
782 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
785 fStDig=(fStDig=="OFF")? "ON":"OFF";
788 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
791 fStClu=(fStClu=="OFF")? "ON":"OFF";
794 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
797 fStEsd=(fStEsd=="OFF")? "ON":"OFF";
800 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
808 if(fDigFile) fStDig = "OFF";
809 if(fCluFile) fStClu = "OFF";
810 if(fEsdFile) fStEsd = "OFF";
812 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
820 if(fDigFile) fStDig = "ON";
821 if(fCluFile) fStClu = "ON";
822 if(fEsdFile) fStEsd = "ON";
824 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
830 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
837 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
844 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
851 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
858 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
865 //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++