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 **************************************************************************/
18 Revision 1.11 1999/11/01 20:42:42 fca
19 FRAME version 1 is now the symmetric one.
21 Revision 1.10 1999/10/06 20:56:55 fca
22 Introducing new frame 1099
24 Revision 1.9 1999/09/29 09:24:30 fca
25 Introduction of the Copyright and cvs Log
29 ////////////////////////////////////////////////
30 // space frame class /
31 ////////////////////////////////////////////////
33 #include "AliFRAMEv0.h"
39 //_____________________________________________________________________________
40 AliFRAMEv0::AliFRAMEv0()
44 //_____________________________________________________________________________
45 AliFRAMEv0::AliFRAMEv0(const char *name, const char *title)
46 : AliFRAME(name,title)
48 printf("Create FRAMEv0 object\n");
49 fEuclidGeometry="$(ALICE_ROOT)/Euclid/frame1099h.euc";
50 fEuclidMaterial="$(ALICE_ROOT)/Euclid/frame.tme";
54 //___________________________________________
55 void AliFRAMEv0::CreateGeometry()
59 <img src="picts/frame.gif">
66 <img src="picts/tree_frame.gif">
75 filetmp = gSystem->ExpandPathName(fEuclidGeometry.Data());
76 FILE *file = fopen(filetmp,"r");
80 printf(" Reading FRAME geometry\n");
81 ReadEuclid(fEuclidGeometry.Data(),topvol);
83 Warning("CreateGeometry","The Euclid file %s does not exist!\n",
84 fEuclidGeometry.Data());
88 // --- Place the FRAME ghost volume (B010) in its mother volume (ALIC)
89 // and make it invisible
91 // AliMatrix(idrotm[2001],90.,0.,90.,90.,180.,0.);
93 gMC->Gspos(topvol,1,"ALIC",0,0,0,0,"ONLY");
95 gMC->Gsatt(topvol, "SEEN", 0);
99 //___________________________________________
100 void AliFRAMEv0::CreateMaterials()
103 printf("Create FRAMEv0 materials\n");
104 filetmp = gSystem->ExpandPathName(fEuclidMaterial.Data());
105 FILE *file = fopen(filetmp,"r");
109 ReadEuclidMedia(fEuclidMaterial.Data());
111 Warning("CreateMaterials","The material file %s does not exist!\n",
112 fEuclidMaterial.Data());
117 //_____________________________________________________________________________
118 void AliFRAMEv0::Init()
121 // Initialise the module after the geometry has been defined
124 printf("**************************************"
126 "**************************************\n");
127 printf("\n Version 0 of FRAME initialised, "
128 "with openings for PHOS and RICH\n\n");
129 printf("**************************************"
131 "**************************************\n");