////////////////////////////////////////////////
// Beam pipe class /
////////////////////////////////////////////////
#include "AliPIPEv0.h"
#include "AliRun.h"
#include "TSystem.h"
ClassImp(AliPIPEv0)
//_____________________________________________________________________________
AliPIPEv0::AliPIPEv0()
{
}
//_____________________________________________________________________________
AliPIPEv0::AliPIPEv0(const char *name, const char *title)
: AliPIPE(name,title)
{
}
//___________________________________________
void AliPIPEv0::CreateGeometry()
{
printf("Create PIPEv0 geometry\n ");
//Begin_Html
/*
*/
//End_Html
//Begin_Html
/*
*/
//End_Html
const char *pipename = "$(ALICE_ROOT)/Euclid/bpipeb.euc";
const char *pumpname = "$(ALICE_ROOT)/Euclid/bpumpa.euc";
char *filtmp;
char topvol[5];
printf("Create PIPEv0 geometry ");
Int_t idrotm[2099];
//
// The peam pipe up to the Front Absorber
filtmp=gSystem->ExpandPathName(pipename);
FILE *file = fopen(filtmp,"r");
delete [] filtmp;
if(file) {
fclose(file);
printf(" Reading PIPE \n");
gAlice->ReadEuclid(pipename,this,topvol);
} else {
printf(" THE GEOM FILE %s DOES NOT EXIST !\n",pipename);
exit(1);
}
//
// The Ion Pump
filtmp=gSystem->ExpandPathName(pumpname);
file = fopen(filtmp,"r");
delete [] filtmp;
if(file) {
fclose(file);
printf(" Reading PUMP \n");
gAlice->ReadEuclid(pumpname,this,topvol);
} else {
printf(" THE GEOM FILE %s DOES NOT EXIST !\n",pumpname);
exit(1);
}
//
// --- Place the PIPE ghost volume (QBPM) in its mother volume (ALIC)
// and make it invisible
//
AliMatrix(idrotm[2001],90.,0.,90.,90.,180.,0.);
gMC->Gspos("QBPM",1,"ALIC",0,0,0,idrotm[2001],"ONLY");
//
// PLACE ION PUMP (QIPM) AT Z=-385.
//
gMC->Gspos("QIPM",1,"ALIC",0,0,-385,idrotm[2001],"ONLY");
gMC->Gsatt("QIPM", "SEEN", 0);
gMC->Gsatt("QBPM", "SEEN", 0);
gMC->Gsatt("QB20", "SEEN", 0);
}
//___________________________________________
void AliPIPEv0::DrawModule()
{
}
//___________________________________________
void AliPIPEv0::CreateMaterials()
{
printf("Create PIPEv0 materials\n");
const char *name = "$(ALICE_ROOT)/Euclid/pipe.tme";
char *filtmp;
filtmp=gSystem->ExpandPathName(name);
FILE *file = fopen(filtmp,"r");
delete [] filtmp;
if(file) {
fclose(file);
gAlice->ReadEuclidMedia(name,this);
} else {
printf(" THE MEDIA FILE %s DOES NOT EXIST !\n",name);
exit(1);
}
}