1 /**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
7 * Permission to use, copy, modify and distribute this software and its *
8 * documentation strictly for non-commercial purposes is hereby granted *
9 * without fee, provided that the above copyright notice appears in all *
10 * copies and that both the copyright notice and this permission notice *
11 * appear in the supporting documentation. The authors make no claims *
12 * about the suitability of this software for any purpose. It is *
13 * provided "as is" without express or implied warranty. *
14 **************************************************************************/
20 ////////////////////////////////////////////////
22 ////////////////////////////////////////////////
24 #include "AliPIPEv0.h"
30 //_____________________________________________________________________________
31 AliPIPEv0::AliPIPEv0()
35 //_____________________________________________________________________________
36 AliPIPEv0::AliPIPEv0(const char *name, const char *title)
42 //___________________________________________
43 void AliPIPEv0::CreateGeometry()
45 printf("Create PIPEv0 geometry\n ");
48 <img src="picts/pipe.gif">
55 <img src="picts/tree_pipe.gif">
59 const char *pipename = "$(ALICE_ROOT)/Euclid/bpipeb.euc";
60 const char *pumpname = "$(ALICE_ROOT)/Euclid/bpumpa.euc";
63 printf("Create PIPEv0 geometry ");
68 // The peam pipe up to the Front Absorber
69 filtmp=gSystem->ExpandPathName(pipename);
70 FILE *file = fopen(filtmp,"r");
74 printf(" Reading PIPE \n");
75 gAlice->ReadEuclid(pipename,this,topvol);
77 printf(" THE GEOM FILE %s DOES NOT EXIST !\n",pipename);
82 filtmp=gSystem->ExpandPathName(pumpname);
83 file = fopen(filtmp,"r");
87 printf(" Reading PUMP \n");
88 gAlice->ReadEuclid(pumpname,this,topvol);
90 printf(" THE GEOM FILE %s DOES NOT EXIST !\n",pumpname);
94 // --- Place the PIPE ghost volume (QBPM) in its mother volume (ALIC)
95 // and make it invisible
97 AliMatrix(idrotm[2001],90.,0.,90.,90.,180.,0.);
99 gMC->Gspos("QBPM",1,"ALIC",0,0,0,idrotm[2001],"ONLY");
101 // PLACE ION PUMP (QIPM) AT Z=-385.
103 gMC->Gspos("QIPM",1,"ALIC",0,0,-385,idrotm[2001],"ONLY");
105 gMC->Gsatt("QIPM", "SEEN", 0);
106 gMC->Gsatt("QBPM", "SEEN", 0);
107 gMC->Gsatt("QB20", "SEEN", 0);
111 //___________________________________________
112 void AliPIPEv0::DrawModule()
116 //___________________________________________
117 void AliPIPEv0::CreateMaterials()
119 printf("Create PIPEv0 materials\n");
120 const char *name = "$(ALICE_ROOT)/Euclid/pipe.tme";
122 filtmp=gSystem->ExpandPathName(name);
123 FILE *file = fopen(filtmp,"r");
127 gAlice->ReadEuclidMedia(name,this);
129 printf(" THE MEDIA FILE %s DOES NOT EXIST !\n",name);