Modifications for upgraded pipi, S.Rossegger, Chinorar Kobdaj
[u/mrichter/AliRoot.git] / STRUCT / AliPIPEupgrade.cxx
1 /**************************************************************************
2  * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3  *                                                                        *
4  * Author: The ALICE Off-line Project.                                    *
5  * Contributors are mentioned in the code where appropriate.              *
6  *                                                                        *
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  **************************************************************************/
15
16 /* $Id: AliPIPEupgrade.cxx 56360 2012-August */
17
18 //-------------------------------------------------------------------------
19 //  Beam pipe class
20 //  This version uses TGeo
21 //  Author: xxx
22 //-------------------------------------------------------------------------
23
24
25 #include <Riostream.h>
26 #include <TGeoBBox.h>
27 #include <TGeoCompositeShape.h>
28 #include <TGeoCone.h>
29 #include <TGeoGlobalMagField.h>
30 #include <TGeoManager.h>
31 #include <TGeoMatrix.h>
32 #include <TGeoPcon.h>
33 #include <TGeoTorus.h>
34 #include <TGeoTube.h>
35 #include <TGeoVolume.h>
36 #include <TGeoXtru.h>
37 #include <TSystem.h>
38 #include <TVirtualMC.h>
39 #include "AliConst.h"
40 #include "AliMagF.h"
41 #include "AliPIPEupgrade.h"
42 #include "AliRun.h"
43 #include "AliLog.h"
44  
45 ClassImp(AliPIPEupgrade)
46
47
48 //_____________________________________________________________________________
49 AliPIPEupgrade::AliPIPEupgrade(Option_t *opt) : 
50   fBeamBackground(0), fConeIsBe(1), fIpPipeRo(0.), fIpPipeWidth(0.), fIpHLength(0.)
51 {
52   // Constructor
53
54   // Initialization of detector dimensions from TGeo
55   if(strstr(opt,"TGeo")){
56     if(!gGeoManager){
57       AliError("Geometry is not initialized\n");
58       return;
59     }
60     TGeoVolume *v=NULL;
61     v = gGeoManager->GetVolume("IP_PIPE");
62     if(!v){ 
63       AliError("TGeo volume IP_PIPE not found \n");
64     }
65     else {
66       TGeoTube *t=(TGeoTube*)v->GetShape();
67       //      printf(" rmin %lf   rmax %lf   dz %lf\n",t->GetRmin(),t->GetRmax(),t->GetDz());
68       fIpPipeRo = t->GetRmax();
69       fIpPipeWidth = t->GetRmax()-t->GetRmin();
70       fIpHLength = t->GetDz();
71     }
72   }
73 }
74
75 //_____________________________________________________________________________
76 AliPIPEupgrade::AliPIPEupgrade(Bool_t coneIsBe, Float_t ro, Float_t width, Float_t hlength) : 
77   fBeamBackground(0), fConeIsBe(coneIsBe), fIpPipeRo(ro), fIpPipeWidth(width), fIpHLength(hlength)
78 {
79 // Constructor
80 }
81
82 //_____________________________________________________________________________
83 AliPIPEupgrade::AliPIPEupgrade(const char *name, const char *title, 
84                                Bool_t coneIsBe, Float_t ro, Float_t width, Float_t hlength) :
85   AliPIPE(name,title), fBeamBackground(0), fConeIsBe(coneIsBe), fIpPipeRo(ro), fIpPipeWidth(width), fIpHLength(hlength)
86 {
87 // Constructor
88 }
89
90  
91 //___________________________________________
92 void AliPIPEupgrade::CreateGeometry()
93 {
94 //
95 //  Method describing the beam pipe geometry
96 //
97     AliDebug(1,"Create PIPEupgrade geometry");
98     Float_t dz, z, zsh, z0;
99 //
100 // Rotation Matrices
101 //
102     const Float_t  kDegRad = TMath::Pi() / 180.;
103 // Rotation by 180 deg
104     TGeoRotation* rot180        = new TGeoRotation("rot180", 90., 180.,  90.,  90., 180.,   0.);
105     TGeoRotation* rotyz         = new TGeoRotation("rotyz",  90., 180.,   0., 180.,  90.,  90.);
106     TGeoRotation* rotxz         = new TGeoRotation("rotxz",   0.,   0.,  90.,  90.,  90., 180.);
107     TGeoRotation* rot045        = new TGeoRotation("rot045", 90.,  45.,  90., 135.,   0.,   0.);
108     TGeoRotation* rot135        = new TGeoRotation("rot135", 90. ,135.,  90., 225.,   0.,   0.);
109     TGeoRotation* rot225        = new TGeoRotation("rot225", 90. ,225.,  90., 315.,   0.,   0.);
110     TGeoRotation* rot315        = new TGeoRotation("rot315", 90. ,315.,  90.,  45.,   0.,   0.);    
111 //
112 // Media
113     const TGeoMedium* kMedAir     =  gGeoManager->GetMedium("PIPE_AIR");
114     const TGeoMedium* kMedAirHigh =  gGeoManager->GetMedium("PIPE_AIR_HIGH");
115     const TGeoMedium* kMedVac     =  gGeoManager->GetMedium("PIPE_VACUUM");    
116     const TGeoMedium* kMedVacM    =  gGeoManager->GetMedium("PIPE_VACUUMM");    
117     const TGeoMedium* kMedInsu    =  gGeoManager->GetMedium("PIPE_INS_C0");    
118     const TGeoMedium* kMedSteel   =  gGeoManager->GetMedium("PIPE_INOX");        
119     const TGeoMedium* kMedBe      =  gGeoManager->GetMedium("PIPE_BE");       
120     const TGeoMedium* kMedAlu     =  gGeoManager->GetMedium("PIPE_ALU");       
121     const TGeoMedium* kMedCu      =  gGeoManager->GetMedium("PIPE_CU");        
122     const TGeoMedium* kMedAco     =  gGeoManager->GetMedium("PIPE_ANTICORODAL");    
123        
124 // Top volume
125     TGeoVolume* top    = gGeoManager->GetVolume("ALIC");
126 //
127 //
128 ////////////////////////////////////////////////////////////////////////////////     
129 //                                                                            //
130 //                                  The Central Vacuum system                 // 
131 //                                                                            //
132 ////////////////////////////////////////////////////////////////////////////////
133 //
134 //
135 //  The ALICE central beam-pipe according to drawing         LHCVC2C_0001 
136 //  Drawings of sub-elements:
137 //  
138 //  Pos 7 - Minimised Flange:                                LHCVFX_P0025
139 //  Pos 6 - Standard Flange:                                 STDVFUHV0009
140 //  Pos 8 - Bellow:                                          LHCVBX__0001
141 //
142 //  Absolute z-coordinates -82.0 - 400.0 cm 
143 //  Total length:                                          482.0 cm
144 //  It consists of 3 main parts:
145 //  CP/2 The flange on the non-absorber side:               36.5 cm  
146 //  CP/1 The central Be pipe:                              405.0 cm 
147 //  CP/3 The double-bellow and flange on the absorber side: 40.5 cm 
148 //
149
150 //
151 //
152 //  Starting position in z
153     const Float_t kCPz0      = -400.0;
154 //  Length of the CP/1 section
155     const Float_t kCP1Length =  405.0;    
156 //  Length of the CP/2 section    
157     const Float_t kCP2Length =   36.5;
158 //  Length of the CP/3 section    
159     const Float_t kCP3Length =   40.5;
160 //  Position of the CP/2 section    
161 //    const Float_t kCP2pos    = kCPz0 + kCP2Length / 2.;
162 //  Position of the CP/3 section
163     const Float_t kCP3pos    = kCPz0 + kCP2Length + kCP1Length + kCP3Length/2.;
164
165
166 ///////////////////
167 //      CP/1     //
168 ///////////////////
169 //  Inner and outer radii of the Be-section [Pos 1]
170       
171 //
172 // Be-Stainless Steel adaptor tube [Pos 2] at both ends of the Be-section. Length 5 cm
173    
174 //
175 // Bulge of the Be-Stainless Steel adaptor Tube [Pos 2]
176     
177 //
178 // Length of Be-pipe
179    
180
181 //    
182 // CP/1 Mother volume 
183     //TGeoVolume* voCp1Mo = new TGeoVolume("CP1MO",  new TGeoTube(0., kCP1BeStRo,  kCP1Length / 2.),  kMedAir);
184
185     //    Double_t beamPipeLength = 553.99;//482.0; //552.0; 
186     //    TGeoVolume* voCp1Mo = new TGeoVolume("CP1MO", new TGeoTube(0., 3.6, beamPipeLength/2.), kMedVac);
187     //    voCp1Mo->SetVisibility(kVac);
188
189     TGeoVolume* voCp1aMo = new TGeoVolume("CP1aMO", new TGeoTube(0., 3.6, (468.0-fIpHLength)/2), kMedVac);
190     voCp1aMo->SetVisibility(kVac);
191     TGeoVolume* voCp1bMo = new TGeoVolume("CP1bMO", new TGeoTube(0., fIpPipeRo, fIpHLength), kMedVac);
192     voCp1bMo->SetVisibility(kVac);
193     TGeoVolume* voCp1cMo = new TGeoVolume("CP1cMO", new TGeoTube(0., 3.6, (82.0-fIpHLength)/2), kMedVac);
194     voCp1cMo->SetVisibility(kVac);
195   
196    
197     TGeoVolumeAssembly* voCp1 = new TGeoVolumeAssembly("Cp1");
198     voCp1->AddNode(voCp1aMo, 0, new TGeoTranslation(0,0, 161-(468.0-fIpHLength)/2-fIpHLength));
199     voCp1->AddNode(voCp1bMo, 0, new TGeoTranslation(0,0,161));
200     voCp1->AddNode(voCp1cMo, 0, new TGeoTranslation(0,0, 161+(82.0-fIpHLength)/2+fIpHLength));
201
202     //    voCp1->AddNode(voCp1Mo, 1, gGeoIdentity);
203
204     /*    //Edit
205 // CP/1 Mother Volume
206 //
207     TGeoPcon* shCp1Mo = new TGeoPcon(0., 360., 6);
208     
209 //  
210     z = - kCP2Length / 2.;
211     shCp1Mo->DefineSection( 0, z, kCP2FixedFlangeRi, kCP2FixedFlangeRo);
212     z +=  kCP2FixedFlangeRecessLengths[0];
213     shCp1Mo->DefineSection( 1, z, kCP2FixedFlangeRi, kCP2FixedFlangeRo);
214     shCp1Mo->DefineSection( 2, z, 0.,                kCP2FixedFlangeRo);
215     z +=  (kCP2FixedFlangeRecessLengths[1] + kCP2FixedFlangeRecessLengths[2]) ;
216     shCp1Mo->DefineSection( 3, z, 0., kCP2FixedFlangeRo);
217 //  Straight section between Flange and Fixed Point
218     shCp1Mo->DefineSection( 4, z, 0., kCP2FixedFlangeBulgeRo);
219     z += kCP2FixedFlangeBulgeLength;
220     shCp1Mo->DefineSection( 5, z, 0., kCP2FixedFlangeBulgeRo);
221     shCp2Mo->DefineSection( 6, z, 0., kCP2StRo);
222     z =  - kCP2Length / 2 +  kCP2FixedPointZ - kCP2FixedPointLength / 2.;
223     shCp2Mo->DefineSection( 7, z, 0., kCP2StRo);
224
225     
226     TGeoVolume* voCp2Mo = new TGeoVolume("CP2MO", shCp2Mo, kMedAir);
227
228
229     */
230     
231 ///////////////////
232 //      CP/2     //
233 ///////////////////
234 //
235 // Fixed Point tube [Pos 5]
236 //
237 // Inner and outer radii of the Stainless Steel pipe    
238     const Float_t kCP2StRi               =      2.90;
239     const Float_t kCP2StRo               =      2.98;
240 //  
241 // Transition to central Be-pipe (Bulge)   
242 // Length
243     const Float_t kCP2BulgeLength        =      0.80;
244 //     
245 // Bulge outer radius
246     const Float_t kCP2BulgeRo            =      3.05;
247 //
248 // Fixed Point at z = 391.7 (IP)
249 //
250 // Position of fixed point
251     const Float_t kCP2FixedPointZ        =      8.30;
252 //
253 // Outer radius of fixed point
254     const Float_t kCP2FixedPointRo       =      3.50;
255 //
256 // Length of fixed point
257     const Float_t kCP2FixedPointLength   =      0.60;
258 //
259 // Fixed Flange [Pos 6]    
260 //
261 // Fixed flange outer radius
262     const Float_t kCP2FixedFlangeRo      =      7.60;
263 //
264 // Fixed flange inner radius
265     const Float_t kCP2FixedFlangeRi      =      3.00;
266 // Fixed flange inner radius bulge
267    
268 // Fixed flange lengths of sections at inner radius
269     const Float_t kCP2FixedFlangeRecessLengths[3] ={1., 0.08, 0.9};
270 // Fixed flange length
271    
272 //
273 // Fixed flange bulge
274 // Outer radius
275      const Float_t kCP2FixedFlangeBulgeRo =     3.00;
276 //
277 // Length    
278      const Float_t kCP2FixedFlangeBulgeLength = 2.00;
279
280 //Edit
281 // CP/2 Mother Volume
282 //
283     TGeoPcon* shCp2Mo = new TGeoPcon(0., 360., 14);
284     
285 //  Flange
286     z = - kCP2Length / 2.;
287     shCp2Mo->DefineSection( 0, z, kCP2FixedFlangeRi, kCP2FixedFlangeRo);
288     z +=  kCP2FixedFlangeRecessLengths[0];
289     shCp2Mo->DefineSection( 1, z, kCP2FixedFlangeRi, kCP2FixedFlangeRo);
290     shCp2Mo->DefineSection( 2, z, 0.,                kCP2FixedFlangeRo);
291     z +=  (kCP2FixedFlangeRecessLengths[1] + kCP2FixedFlangeRecessLengths[2]) ;
292     shCp2Mo->DefineSection( 3, z, 0., kCP2FixedFlangeRo);
293 //  Straight section between Flange and Fixed Point
294     shCp2Mo->DefineSection( 4, z, 0., kCP2FixedFlangeBulgeRo);
295     z += kCP2FixedFlangeBulgeLength;
296     shCp2Mo->DefineSection( 5, z, 0., kCP2FixedFlangeBulgeRo);
297     shCp2Mo->DefineSection( 6, z, 0., kCP2StRo);
298     z =  - kCP2Length / 2 +  kCP2FixedPointZ - kCP2FixedPointLength / 2.;
299     shCp2Mo->DefineSection( 7, z, 0., kCP2StRo);
300
301 //  Fixed Point
302     shCp2Mo->DefineSection( 8, z, 0., kCP2FixedPointRo);
303     z +=  kCP2FixedPointLength;
304     shCp2Mo->DefineSection( 9, z, 0., kCP2FixedPointRo);
305     
306 //  Straight section between Fixed Point and transition bulge
307     shCp2Mo->DefineSection(10, z, 0., 2.98);
308     z  =  kCP2Length / 2. - kCP2BulgeLength;
309     shCp2Mo->DefineSection(11, z, 0., 3.6);//2.98
310     shCp2Mo->DefineSection(12, z, 0., 3.6);
311     z = kCP2Length / 2.;
312     shCp2Mo->DefineSection(13, z, 0., 3.6);
313     
314     TGeoVolume* voCp2Mo = new TGeoVolume("CP2MO", shCp2Mo, kMedAir);
315
316
317
318 /////////////////////////////////////////////////////////////
319 //  CP/2 Beam pipe with fixed point and transition bulges  //
320 /////////////////////////////////////////////////////////////
321     TGeoPcon* shCp2Pi = new TGeoPcon(0., 360., 10);
322 //  Bulge at transition to flange 
323     z =  - (kCP2Length -  kCP2FixedFlangeRecessLengths[0] - kCP2FixedFlangeRecessLengths[1]) / 2.;
324     z0 = z;
325     shCp2Pi->DefineSection(0, z, kCP2StRi, kCP2FixedFlangeBulgeRo);
326     z += kCP2FixedFlangeBulgeLength;
327     shCp2Pi->DefineSection(1, z, kCP2StRi, kCP2FixedFlangeBulgeRo);
328 //  Straight section between Bulge and Fixed Point
329     shCp2Pi->DefineSection(2, z, kCP2StRi, kCP2StRo);
330     z  += (kCP2FixedPointZ - kCP2FixedPointLength / 2. - kCP2FixedFlangeRecessLengths[0]
331            - kCP2FixedFlangeRecessLengths[1] - 
332         kCP2FixedFlangeBulgeLength);
333     shCp2Pi->DefineSection(3, z, kCP2StRi, kCP2StRo);
334 //  Fixed Point
335     shCp2Pi->DefineSection(4, z, kCP2StRi, kCP2FixedPointRo);
336     z +=  kCP2FixedPointLength;
337     shCp2Pi->DefineSection(5, z, kCP2StRi, kCP2FixedPointRo);
338 //  Straight section between Fixed Point and transition bulge
339     shCp2Pi->DefineSection(6, z, kCP2StRi, kCP2StRo);
340     z = - shCp2Pi->GetZ(0) - kCP2BulgeLength;
341     shCp2Pi->DefineSection(7, z, kCP2StRi, kCP2StRo);
342 //  Bulge at transition to Be pipe
343     shCp2Pi->DefineSection(8, z, kCP2StRi, kCP2BulgeRo);
344     z = - shCp2Pi->GetZ(0);
345     shCp2Pi->DefineSection(9, z, kCP2StRi, kCP2BulgeRo);
346    
347 //  Beam Pipe Protection Tube
348 //
349 //  ALIFWDA_0025
350 //    
351 //  Plaque de Centrage  ALIFWDA_0019
352     const Float_t kFwdaBPPTXL = 3.;
353     TGeoXtru* shFwdaBPPTX = new TGeoXtru(2);
354     Double_t xBPPTX[8] = {12.5,  7.5, -7.5, -12.5, -12.5,  -7.5,   7.5, 12.5};
355     Double_t yBPPTX[8] = { 7.0, 12.0, 12.0,  7.0, -7.0, -12.0, -12.0,  -7.0};
356     shFwdaBPPTX->DefinePolygon(8, xBPPTX, yBPPTX);
357     shFwdaBPPTX->DefineSection(0, 0.,         0., 0., 1.);
358     shFwdaBPPTX->DefineSection(1, kFwdaBPPTXL, 0., 0., 1.);
359     shFwdaBPPTX->SetName("FwdaBPPTX");
360     TGeoTube* shFwdaBPPTY = new TGeoTube(0., 8.5, 3.2);
361     shFwdaBPPTY->SetName("FwdaBPPTY");
362     TGeoCompositeShape*  shFwdaBPPTPC = new TGeoCompositeShape("shFwdaBPPTPC", "FwdaBPPTX-FwdaBPPTY");
363     TGeoVolume* voFwdaBPPTPC =  new TGeoVolume("FwdaBPPTPC", shFwdaBPPTPC, kMedAco);
364 //    
365 //  Tube  ALIFWDA_0020  
366 //    const Float_t kFwdaBPPTTL = 48.;
367     const Float_t kFwdaBPPTTL = 35.;
368     TGeoVolume* voFwdaBPPTT =  new TGeoVolume("FwdaBPPTT", new TGeoTube(8.85, 9.0, kFwdaBPPTTL/2.), kMedAco);
369     TGeoVolumeAssembly* voFwdaBPPT = new TGeoVolumeAssembly("FwdaBPPT");
370     voFwdaBPPT->AddNode(voFwdaBPPTPC, 1, gGeoIdentity);
371     voFwdaBPPT->AddNode(voFwdaBPPTT,  1, new TGeoTranslation(0., 0., kFwdaBPPTTL/2. + kFwdaBPPTXL));
372
373     
374 //  BeamPipe and T0A Support
375 //
376 //  ALIFWDA_0033
377 //    
378 //  Support  Plate ALIFWDA_0026
379     const Float_t kFwdaBPSPL = 4.0;
380     TGeoXtru* shFwdaBPSPX = new TGeoXtru(2);
381     Double_t xBPSPX[8] = {10.0,  6.0 , -6.0, -10.0, -10.0,  -6.0,   6.0, 10.0};
382     Double_t yBPSPX[8] = { 6.0, 10.0,  10.0,   6.0, - 6.0, -10.0, -10.0, -6.0};
383     shFwdaBPSPX->DefinePolygon(8, xBPSPX, yBPSPX);
384     shFwdaBPSPX->DefineSection(0, 0.,         0., 0., 1.);
385     shFwdaBPSPX->DefineSection(1, kFwdaBPSPL, 0., 0., 1.);
386     shFwdaBPSPX->SetName("FwdaBPSPX");
387     TGeoPcon* shFwdaBPSPY = new TGeoPcon(0., 360., 6);
388     shFwdaBPSPY->DefineSection(0, -1.00, 0., 5.5);
389     shFwdaBPSPY->DefineSection(1,  3.50, 0., 5.5);    
390     shFwdaBPSPY->DefineSection(2,  3.50, 0., 5.0);    
391     shFwdaBPSPY->DefineSection(3,  3.86, 0., 5.0);    
392     shFwdaBPSPY->DefineSection(4,  3.86, 0., 5.5);    
393     shFwdaBPSPY->DefineSection(5,  5.00, 0., 5.5);    
394     shFwdaBPSPY->SetName("FwdaBPSPY");
395     TGeoCompositeShape*  shFwdaBPSP = new TGeoCompositeShape("shFwdaBPSP", "FwdaBPSPX-FwdaBPSPY");
396     TGeoVolume* voFwdaBPSP =  new TGeoVolume("FwdaBPSP", shFwdaBPSP, kMedAco);
397 //    
398 //  Flasque  ALIFWDA_00027
399
400
401     const Float_t kFwdaBPSTTRi  =  7.6/2.;
402     const Float_t kFwdaBPSTTRo1 = 13.9/2.;
403     const Float_t kFwdaBPSTTRo2 =  8.2/2.;
404     const Float_t kFwdaBPSTTRo3 =  9.4/2.;
405     
406     TGeoPcon* shFwdaBPSFL = new TGeoPcon(0., 360., 8);
407     z = 0., 
408     shFwdaBPSFL->DefineSection(0, z, kFwdaBPSTTRi, kFwdaBPSTTRo1);
409     z += 0.64;
410     shFwdaBPSFL->DefineSection(1, z, kFwdaBPSTTRi, kFwdaBPSTTRo1);
411     shFwdaBPSFL->DefineSection(2, z, kFwdaBPSTTRi, kFwdaBPSTTRo2);
412     z += 2.55;
413     shFwdaBPSFL->DefineSection(3, z, kFwdaBPSTTRi, kFwdaBPSTTRo2);
414     shFwdaBPSFL->DefineSection(4, z, kFwdaBPSTTRi, kFwdaBPSTTRo3);
415     z += 0.4;
416     shFwdaBPSFL->DefineSection(5, z, kFwdaBPSTTRi, kFwdaBPSTTRo3);
417     shFwdaBPSFL->DefineSection(6, z, kFwdaBPSTTRi, kFwdaBPSTTRo2);
418     z += 1.2;
419     shFwdaBPSFL->DefineSection(7, z, kFwdaBPSTTRi, kFwdaBPSTTRo2);
420
421     TGeoVolume* voFwdaBPSFL =  new TGeoVolume("FwdaBPSFL", shFwdaBPSFL, kMedAco);
422
423     
424     //
425     // Cable support 
426     TGeoBBox* shFwdaBPSCSa = new TGeoBBox(3.0, 8.75, 0.5);
427     shFwdaBPSCSa->SetName("FwdaBPSCSa");
428     TGeoBBox* shFwdaBPSCSb = new TGeoBBox(1.25, 4.00, 1.0);
429     shFwdaBPSCSb->SetName("FwdaBPSCSb");   
430     TGeoTranslation* tFwdaBPSCSb = new TGeoTranslation(0., 5.25 - 8.75, 0.);
431     tFwdaBPSCSb->SetName("tFwdaBPSCSb");
432     tFwdaBPSCSb->RegisterYourself();
433     TGeoBBox* shFwdaBPSCSc = new TGeoBBox(3.0, 0.50, 0.70);
434     shFwdaBPSCSc->SetName("FwdaBPSCSc");
435     TGeoTranslation* tFwdaBPSCSc = new TGeoTranslation(0., 0.5 - 8.75, 1.2);
436     tFwdaBPSCSc->SetName("tFwdaBPSCSc");
437     tFwdaBPSCSc->RegisterYourself();
438     TGeoCompositeShape* shFwdaBPSCS = new TGeoCompositeShape("shFwdaBPSCS", "(FwdaBPSCSa-FwdaBPSCSb:tFwdaBPSCSb)+FwdaBPSCSc:tFwdaBPSCSc");
439     TGeoVolume* voFwdaBPSCS = new TGeoVolume("FwdaBPSCS", shFwdaBPSCS, kMedAco);
440     
441     
442     // Assembling the beam pipe support 
443     TGeoVolumeAssembly* voFwdaBPS = new TGeoVolumeAssembly("FwdaBPS");
444     voFwdaBPS->AddNode(voFwdaBPSP,   1,  new TGeoCombiTrans(0., 0., 0., rot045));
445     voFwdaBPS->AddNode(voFwdaBPSFL,  1,  new TGeoTranslation(0., 0., kFwdaBPSPL));
446     const Float_t kFwdaBPSCSdy = 18.75/TMath::Sqrt(2.);
447     
448     voFwdaBPS->AddNode(voFwdaBPSCS,  1,  new TGeoCombiTrans(- kFwdaBPSCSdy,   kFwdaBPSCSdy, 2., rot045));
449     voFwdaBPS->AddNode(voFwdaBPSCS,  2,  new TGeoCombiTrans(- kFwdaBPSCSdy, - kFwdaBPSCSdy, 2., rot135));
450     voFwdaBPS->AddNode(voFwdaBPSCS,  3,  new TGeoCombiTrans(  kFwdaBPSCSdy, - kFwdaBPSCSdy, 2., rot225));
451     voFwdaBPS->AddNode(voFwdaBPSCS,  4,  new TGeoCombiTrans(  kFwdaBPSCSdy,   kFwdaBPSCSdy, 2., rot315));
452
453     TGeoVolumeAssembly* voCp2 = new TGeoVolumeAssembly("CP2");
454     voCp2->AddNode(voCp2Mo, 1, gGeoIdentity);
455     voCp2->AddNode(voFwdaBPPT, 1, new TGeoTranslation(0., 0., -kCP2Length / 2. + 13.8));
456     voCp2->AddNode(voFwdaBPS,  1, new TGeoTranslation(0., 0., -kCP2Length / 2. +  5.1));
457     
458     //  ++++++++++++++++++++++++++++++++++++++
459     
460     //
461     //  Assemble the central beam pipe
462     //
463     Double_t CP2Length = 36.5+68;
464     TGeoVolumeAssembly* asCP = new TGeoVolumeAssembly("CP");
465     z = 0.-CP2Length;
466     asCP->AddNode(voCp2,   1,  new TGeoTranslation(0., 0., z));
467     z +=  kCP2Length / 2. + kCP1Length / 2.+CP2Length;
468     asCP->AddNode(voCp1, 1, new TGeoTranslation(0., 0., z));
469     top->AddNode(asCP, 1,  new TGeoCombiTrans(0., 0., 400. -  kCP2Length / 2, rot180));
470     
471
472     //  ++++++++++++++++++++++++++++++++++++++
473     //edit part for upgrade
474     
475     //    position shift dzS+161 and dyS =15    
476     Float_t dzS = 0, dyS = 0; //15; 
477     
478
479     if (fIpHLength>63.5) AliFatal("Chosen half length of the Be part at the IP is too large (>63.5cm)");
480     if (fIpHLength<20.) AliFatal("Chosen half length of the Be part at the IP is too small. (<20cm). Most likely hits the ITS upgrade structure");
481
482     
483     //  ++++++++++++++++++++++++++++++++++++++
484     //Create IP (interactoin point) in center path with Be
485
486     Double_t ro=fIpPipeRo, width=fIpPipeWidth, ipLengthZ = fIpHLength*2;
487     TGeoVolume *ipPipe =  gGeoManager->MakeTube("IP_PIPE",(TGeoMedium*)kMedBe,ro-width,ro,ipLengthZ/2.);
488     ipPipe->SetLineColor(kBe); 
489     voCp1bMo->AddNode(ipPipe,3,new TGeoTranslation(0,dyS,dzS));
490
491     //  ++++++++++++++++++++++++++++++++++++++
492     // Create A-side section
493     Double_t lengthFromIp = 468.0;
494
495     dzS = +(468.0-fIpHLength)/2+fIpHLength;
496
497
498     // Flansh in A side
499     Double_t cylFALength = 1.4, coneFALength = 1.87; 
500     TGeoVolume *cylFA =  gGeoManager->MakeTube("cylFA",(TGeoMedium*)kMedAlu,3.0-width,3.5, cylFALength/2);
501     cylFA->SetLineColor(kAlu);
502     TGeoVolume *coneFA =  gGeoManager->MakeCone("coneFA",(TGeoMedium*)kMedAlu,coneFALength/2, 3.-width,3.,2.5-width,2.5);
503     coneFA->SetLineColor(kAlu);
504
505     voCp1aMo->AddNode(cylFA,2,new TGeoTranslation(0.,dyS,dzS- lengthFromIp + cylFALength/2));
506     voCp1aMo->AddNode(coneFA,3,new TGeoTranslation(0,dyS,dzS- lengthFromIp + cylFALength + coneFALength/2));
507   
508     // rest
509
510     TGeoMedium *med = (TGeoMedium*)kMedAlu;  if (fConeIsBe) med = (TGeoMedium*)kMedBe;
511     
512     Double_t cylSmallALength = 2.0;
513     Double_t coneALength = 2.61;
514     Double_t cylLargeALength = lengthFromIp - ipLengthZ/2 - cylSmallALength - coneALength - cylFALength - coneFALength;
515     
516     TGeoVolume *coneA =  gGeoManager->MakeCone("coneA",med,coneALength/2,2.5-width,2.5,ro-width,ro);
517     TGeoVolume *cylLargeA = new TGeoVolume("cylLargeA", new TGeoTube(2.5-width, 2.5,  cylLargeALength/2),med); 
518     TGeoVolume *cylSmallA = new TGeoVolume("cylSmallA", new TGeoTube(ro-width, ro,  cylSmallALength/2),med); 
519  
520     if (fConeIsBe) {
521       coneA->SetLineColor(kBe);
522       cylSmallA->SetLineColor(kBe);
523       cylLargeA->SetLineColor(kBe);
524     } else {
525       coneA->SetLineColor(kAlu);
526       cylSmallA->SetLineColor(kAlu);
527       cylLargeA->SetLineColor(kAlu);
528     }
529
530     voCp1aMo->AddNode(cylLargeA,4,new TGeoTranslation(0,dyS,dzS-lengthFromIp+cylFALength+coneFALength + cylLargeALength/2));
531     voCp1aMo->AddNode(coneA,    5,new TGeoTranslation(0,dyS,dzS-lengthFromIp+cylFALength+coneFALength + cylLargeALength +coneALength/2 ));
532     voCp1aMo->AddNode(cylSmallA,6,new TGeoTranslation(0,dyS,dzS-lengthFromIp+cylFALength+coneFALength + cylLargeALength +coneALength + cylSmallALength/2));
533
534   
535     //  ++++++++++++++++++++++++++++++++++++++
536     // Create C-side section 
537
538     dzS = -(82.0-fIpHLength)/2-fIpHLength;
539
540     // Connector of IpPipe to BellowPart
541     Double_t connectCLength = 63.52-fIpHLength;
542     TGeoVolume* connectC  = new TGeoVolume("conectC", new TGeoTube(ro-width, ro,  connectCLength/2),  kMedAlu); 
543     connectC->SetLineColor(kAlu);
544     voCp1cMo->AddNode(connectC,1,new TGeoTranslation(0.,dyS,dzS+ipLengthZ/2 + connectCLength/2));
545     
546     
547     // Bellow comiplation on C side
548     Double_t bellowLength = 12.6;
549     TGeoVolume* cyl0  = new TGeoVolume("cyl0", new TGeoTube(ro-width, ro,  2.0),  kMedAlu); cyl0->SetLineColor(kAlu);
550     voCp1cMo->AddNode(cyl0,2,new TGeoTranslation(0.,dyS,dzS+ipLengthZ/2+connectCLength + 5.8));
551     TGeoVolume* cyl1  = new TGeoVolume("cyl1", new TGeoTube(ro-width, ro,  0.5),  kMedAlu); cyl1->SetLineColor(kAlu);
552     voCp1cMo->AddNode(cyl1,3,new TGeoTranslation(0.,dyS,dzS+ipLengthZ/2+connectCLength + 11.6+0.5));
553
554
555     // Flansh in C side
556     Double_t cylFCLength = 1.4;
557     Double_t coneFCLength = 4.48;
558     TGeoVolume *coneFC =  gGeoManager->MakeCone("coneFC",(TGeoMedium*)kMedAlu, coneFCLength/2, 3.-width,3., ro-width,ro);
559     coneFC->SetLineColor(kAlu);
560     TGeoRotation *rot1 = new TGeoRotation("rot1",0.,180.,0.); // not needed
561     TGeoCombiTrans *combi = new TGeoCombiTrans(0,dyS,dzS+ipLengthZ/2+connectCLength+bellowLength+coneFCLength/2,rot1);
562     voCp1cMo->AddNode(coneFC,2,combi);
563     TGeoVolume *cylFC =  gGeoManager->MakeTube("cylFC",(TGeoMedium*)kMedAlu,3.-width,3.5, cylFCLength/2);
564     cylFC->SetLineColor(kAlu);
565     voCp1cMo->AddNode(cylFC,2,new TGeoTranslation(0.,dyS,dzS+ipLengthZ/2+connectCLength+bellowLength+coneFCLength+cylFCLength/2));
566
567
568     //Create Bellow
569     // Adaptor tube [Pos 4]
570 // 
571 // Adptor tube length 
572     const Float_t  kCP3AdaptorTubeLength            =  5.5;//5.50;
573 //
574 // Inner and outer radii
575 //    const Float_t kCP3AdaptorTubeRo                 =  ro;
576 //
577 // Bulge at transition point
578 // Inner and outer radii
579  
580      const Float_t kCP3AdaptorTubeBulgeRo           =  3.05;    
581 //
582 // Length of bulge
583  
584 //
585 // Bellow [Pos 8]
586 //
587 //  Total length    
588     const Float_t kCP3BellowLength                  =  7.8; //13// Don,t understand why I use this value
589 //  Outer Radius
590     const Float_t kCP3BellowRo                      =  ro+0.5;
591 //  Inner Radius 
592     const Float_t kCP3BellowRi                      =  ro-width;
593 //  Number of plies
594     const Int_t   kCP3NumberOfPlies                 =  6; //18;
595 //  Length of undulated region
596     const Float_t kCP3BellowUndulatedLength         =  3.8; //8.30; 
597 //  Plie thickness
598     const Float_t kCP3PlieThickness                 =  0.02;   
599 //  Connection Plie radies (at transition been undulated region and beam pipe)
600     const Float_t kCP3ConnectionPlieR               =  0.21;
601 //  Plie radius
602 //  const Float_t kCP3PlieR = 0.118286;
603     const Float_t kCP3PlieR = 
604         (kCP3BellowUndulatedLength - 4. *  kCP3ConnectionPlieR + 2. * kCP3PlieThickness + 
605          (2. *  kCP3NumberOfPlies - 2.) * kCP3PlieThickness) / (4. * kCP3NumberOfPlies - 2.);
606     //edit
607 //  Length of connection pipe
608     const Float_t kCP3BellowConnectionLength          =  2.0;
609     const Float_t kCP3BellowConnectionLengthI         =  2.0;
610     const Float_t kCP3BellowConnectionLengthII        =  4.0;
611 //
612 //  Tube between bellows [Pos 3]  
613 //    
614 //  Length of tube
615     const Float_t kCP3TubeLength                    =  4.00;
616 //
617 //  Minimised fixed flange [Pos 7]
618 //  
619 //  Length of flange connection tube
620     const Float_t kCP3FlangeConnectorLength         =  2.0-0.08;//5.0 - 1.4;//ตัวเชื่อม 20
621 //  Length of Flange
622     
623 //  Outer radius    
624     const Float_t kCP3FlangeRo                      =  4.30;
625
626 //
627 // CP/3 Mother volume
628 //
629     TGeoPcon* shCp3Mo = new TGeoPcon(0., 360., 12);
630 //  From transition to first bellow
631     z = - kCP3Length / 2.;
632     shCp3Mo->DefineSection( 0, z, 0., kCP3AdaptorTubeBulgeRo);
633     z += kCP3BellowConnectionLength + kCP3AdaptorTubeLength;
634     shCp3Mo->DefineSection( 1, z, 0., kCP3AdaptorTubeBulgeRo);
635 //  First Bellow
636     shCp3Mo->DefineSection( 2, z, 0., kCP3BellowRo);
637     z +=  kCP3BellowUndulatedLength;
638     shCp3Mo->DefineSection( 3, z, 0., kCP3BellowRo);
639 //  Connection between the two bellows
640     shCp3Mo->DefineSection( 4, z, 0., kCP3AdaptorTubeBulgeRo);
641     z +=  2. * kCP3BellowConnectionLength + kCP3TubeLength;
642     shCp3Mo->DefineSection( 5, z, 0., kCP3AdaptorTubeBulgeRo);
643 //  Second bellow
644     shCp3Mo->DefineSection( 6, z, 0., kCP3BellowRo);
645     z += kCP3BellowUndulatedLength;
646     shCp3Mo->DefineSection( 7, z, 0., kCP3BellowRo);
647 //  Pipe between second Bellow and Flange
648     shCp3Mo->DefineSection( 8, z, 0., kCP3AdaptorTubeBulgeRo);
649     z +=  kCP3BellowConnectionLength +  kCP3FlangeConnectorLength;
650     shCp3Mo->DefineSection( 9, z, 0., kCP3AdaptorTubeBulgeRo);
651 //  Flange 
652     shCp3Mo->DefineSection(10, z, 0., kCP3FlangeRo);
653     z = -shCp3Mo->GetZ(0);
654     shCp3Mo->DefineSection(11, z, 0., kCP3FlangeRo);
655 //
656     TGeoVolume* voCp3Mo = new TGeoVolume("CP3MO", shCp3Mo, kMedAir);
657     voCp3Mo->SetVisibility(0);
658  
659     TGeoVolumeAssembly* voCp3 = new TGeoVolumeAssembly("Cp3");
660     voCp3->AddNode(voCp3Mo,  1, gGeoIdentity);//edit undulator volume
661     dz = kCP3pos;
662     
663     
664 ////////////////////////////////////////
665 // Add Bellow section in C-side  //
666 ////////////////////////////////////////
667
668 //
669 //  Upper part of the undulation
670     TGeoTorus* plieTorusUO =  new TGeoTorus(kCP3BellowRo - kCP3PlieR, 0. , kCP3PlieR);
671     plieTorusUO->SetName("TorusUO");
672     TGeoTorus* plieTorusUI =  new TGeoTorus(kCP3BellowRo - kCP3PlieR, kCP3PlieR - kCP3PlieThickness, kCP3PlieR);
673     plieTorusUI->SetName("TorusUI");
674     TGeoTube*  plieTubeU   =  new TGeoTube (kCP3BellowRo - kCP3PlieR, kCP3BellowRo, kCP3PlieR);
675     plieTubeU->SetName("TubeU");
676     
677     TGeoCompositeShape*  shUpperPlieO = new TGeoCompositeShape("upperPlieO", "TorusUO*TubeU");
678     TGeoCompositeShape*  shUpperPlieI = new TGeoCompositeShape("upperPlieI", "TorusUI*TubeU");
679  
680     TGeoVolume* voWiggleUO = new TGeoVolume("CP3WUO", shUpperPlieO, kMedVac);
681     TGeoVolume* voWiggleUI = new TGeoVolume("CP3WUI", shUpperPlieI, (TGeoMedium*)kMedAlu);
682     voWiggleUO->AddNode(voWiggleUI, 1,  gGeoIdentity);//edit    
683     voWiggleUI->SetLineColor(kAlu);//edit
684 //
685 // Lower part of the undulation
686     TGeoTorus* plieTorusLO =  new TGeoTorus(kCP3BellowRi + kCP3PlieR, 0. , kCP3PlieR);
687     plieTorusLO->SetName("TorusLO");
688     TGeoTorus* plieTorusLI =  new TGeoTorus(kCP3BellowRi + kCP3PlieR, kCP3PlieR - kCP3PlieThickness, kCP3PlieR);
689     plieTorusLI->SetName("TorusLI");
690     TGeoTube*  plieTubeL   =  new TGeoTube (kCP3BellowRi, kCP3BellowRi + kCP3PlieR, kCP3PlieR);
691     plieTubeL->SetName("TubeL");
692
693     TGeoCompositeShape*  shLowerPlieO = new TGeoCompositeShape("lowerPlieO", "TorusLO*TubeL");
694     TGeoCompositeShape*  shLowerPlieI = new TGeoCompositeShape("lowerPlieI", "TorusLI*TubeL");
695
696     TGeoVolume* voWiggleLO = new TGeoVolume("CP3WLO", shLowerPlieO, kMedVac);
697     TGeoVolume* voWiggleLI = new TGeoVolume("CP3WLI", shLowerPlieI, (TGeoMedium*)kMedAlu);
698     voWiggleLO->AddNode(voWiggleLI, 1,  gGeoIdentity);//edit    
699     voWiggleLI->SetLineColor(kAlu);//edit
700 //
701 // Connection between upper and lower part of undulation
702     TGeoVolume* voWiggleC1 = new TGeoVolume("Q3WCO1",  
703                                           new TGeoTube(kCP3BellowRi + kCP3PlieR, kCP3BellowRo - kCP3PlieR, kCP3PlieThickness / 2.),
704                                           kMedSteel);
705     TGeoVolume* voWiggleC2 = new TGeoVolume("Q3WCO2",  
706                                           new TGeoTube(kCP3BellowRi + kCP3ConnectionPlieR, kCP3BellowRo - kCP3PlieR, kCP3PlieThickness / 2.),
707                                           kMedSteel);
708 //
709 // Conncetion between undulated section and beam pipe
710     TGeoTorus* plieTorusCO =  new TGeoTorus(kCP3BellowRi + kCP3ConnectionPlieR, 0. , kCP3ConnectionPlieR);
711     plieTorusCO->SetName("TorusCO");
712     TGeoTorus* plieTorusCI =  new TGeoTorus(kCP3BellowRi + kCP3ConnectionPlieR, kCP3ConnectionPlieR - kCP3PlieThickness, kCP3ConnectionPlieR);
713     plieTorusCI->SetName("TorusCI");
714     TGeoTube*  plieTubeC   =  new TGeoTube (kCP3BellowRi, kCP3BellowRi + kCP3ConnectionPlieR, kCP3ConnectionPlieR);
715     plieTubeC->SetName("TubeC");
716
717     TGeoCompositeShape*  shConnectionPlieO = new TGeoCompositeShape("connectionPlieO", "TorusCO*TubeC");
718     TGeoCompositeShape*  shConnectionPlieI = new TGeoCompositeShape("connectionPlieI", "TorusCI*TubeC");
719
720     TGeoVolume* voConnectionPO = new TGeoVolume("CP3CPO", shConnectionPlieO, kMedVac);
721     TGeoVolume* voConnectionPI = new TGeoVolume("CP3CPI", shConnectionPlieI, (TGeoMedium*)kMedAlu);
722     voConnectionPO->AddNode(voConnectionPI, 1,  gGeoIdentity);    
723     voConnectionPI->SetLineColor(kAlu);
724
725 //
726 // Bellow mother
727     TGeoPcon* shBellowMotherPC = new TGeoPcon(0., 360., 2);
728     dz =  - kCP3BellowLength / 2;
729     //    shBellowMotherPC->DefineSection(0, dz, 0.,  kCP3AdaptorTubeRo);
730     dz +=  kCP3BellowConnectionLength;
731     //    shBellowMotherPC->DefineSection(1, dz, 0.,  kCP3AdaptorTubeRo);
732     shBellowMotherPC->DefineSection(0, dz, 0.,  kCP3BellowRo);
733     dz =  kCP3BellowLength /2. -  kCP3BellowConnectionLength;;
734     shBellowMotherPC->DefineSection(1, dz, 0.,  kCP3BellowRo);
735     //    shBellowMotherPC->DefineSection(4, dz, 0.,  kCP3AdaptorTubeRo);
736     dz +=  kCP3BellowConnectionLength;
737     //   shBellowMotherPC->DefineSection(5, dz, 0.,  kCP3AdaptorTubeRo);
738
739     TGeoVolume* voBellowMother = new TGeoVolume("CP1BeMO", shBellowMotherPC, kMedVac);
740     voBellowMother->SetVisibility(20);  
741
742     
743 //
744 //Add undulations
745     z0   =  - kCP3BellowLength / 2. +  kCP3BellowConnectionLength + 2. * kCP3ConnectionPlieR - kCP3PlieThickness;
746     zsh  = 4. *  kCP3PlieR -  2. * kCP3PlieThickness;
747     for (Int_t iw = 0; iw < 6; iw++) {
748         Float_t zpos =  z0 + iw * zsh;  
749         if (iw > 0) 
750           voBellowMother->AddNode(voWiggleC1,  iw + 1 , new TGeoTranslation(0., 0.,zpos + kCP3PlieThickness / 2.));     
751         else
752           voBellowMother->AddNode(voWiggleC2,  iw + 1 , new TGeoTranslation(0., 0.,zpos + kCP3PlieThickness / 2.));     
753
754         zpos += kCP3PlieR;
755         voBellowMother->AddNode(voWiggleUO, iw + 1,  new TGeoTranslation(0., 0., zpos));        
756
757         zpos += kCP3PlieR;
758         if (iw < 5) 
759             voBellowMother->AddNode(voWiggleC1,  iw + 7, new TGeoTranslation(0., 0.,zpos - kCP3PlieThickness / 2.));
760         else
761             voBellowMother->AddNode(voWiggleC2,  iw + 7, new TGeoTranslation(0., 0.,zpos - kCP3PlieThickness / 2.));
762
763         if (iw < 5) {
764             zpos += kCP3PlieR;
765             voBellowMother->AddNode(voWiggleLO, iw + 1, new TGeoTranslation(0., 0. ,zpos -  kCP3PlieThickness));
766         }
767     }
768     
769     //
770     // Add connecting undulation between bellow and connecting pipe
771     dz = - kCP3BellowUndulatedLength / 2. + kCP3ConnectionPlieR;
772     voBellowMother->AddNode(voConnectionPO, 1,  new TGeoTranslation(0., 0.,  dz ));
773     voBellowMother->AddNode(voConnectionPO, 2,  new TGeoTranslation(0., 0., -dz ));
774       
775     
776     // Add bellow to CP/3 mother    
777     Double_t dz1 = dzS+ipLengthZ/2 + connectCLength-2 + kCP3BellowConnectionLengthI/2;
778     voCp1cMo->AddNode(voBellowMother,1, new TGeoTranslation(0., dyS , dz1 + kCP3BellowUndulatedLength/2 + kCP3BellowConnectionLengthI/2 ));
779     voCp1cMo->AddNode(voBellowMother,1, new TGeoTranslation(0., dyS , dz1 + kCP3BellowUndulatedLength + kCP3BellowUndulatedLength/2 
780                                                            + kCP3BellowConnectionLengthI/2 + kCP3BellowConnectionLengthII ));
781       
782     
783     // Assemble voFwdaBPPT 
784
785     voCp2->AddNode(voFwdaBPPT, 1, new TGeoTranslation(0., 0., -kCP2Length / 2. + 13.8 ));//edit volume 1
786     voCp2->AddNode(voFwdaBPS,  1, new TGeoTranslation(0., 0., -kCP2Length / 2. +  5.1 ));
787
788     //edit part
789
790
791 ////////////////////////////////////////////////////////////////////////////////     
792 //                                                                            //
793 //                                  RB24/1                                    // 
794 //                                                                            //
795 ////////////////////////////////////////////////////////////////////////////////
796 //
797 //
798 // Drawing LHCVC2U_0001
799 // Copper Tube RB24/1      393.5 cm 
800 // Warm module VMACA        18.0 cm
801 // Annular Ion Pump         35.0 cm
802 // Valve                     7.5 cm
803 // Warm module VMABC        28.0 cm
804 // ================================
805 //                         462.0 cm
806 //
807
808     
809 // Copper Tube RB24/1
810     const Float_t  kRB24CuTubeL   = 393.5;
811     const Float_t  kRB24CuTubeRi  = 8.0/2.;
812     const Float_t  kRB24CuTubeRo  = 8.4/2.;
813     const Float_t  kRB24CuTubeFRo = 7.6;
814     const Float_t  kRB24CuTubeFL  = 1.86;
815
816     TGeoVolume* voRB24CuTubeM = new TGeoVolume("voRB24CuTubeM", 
817                                                new TGeoTube(0., kRB24CuTubeRo, kRB24CuTubeL/2.), kMedVac);
818     voRB24CuTubeM->SetVisibility(0);
819     TGeoVolume* voRB24CuTube  = new TGeoVolume("voRB24CuTube", 
820                                                new TGeoTube(kRB24CuTubeRi, kRB24CuTubeRo, kRB24CuTubeL/2.), kMedCu);
821     voRB24CuTubeM->AddNode(voRB24CuTube, 1, gGeoIdentity);
822     // Air outside tube with higher transport cuts
823     TGeoVolume* voRB24CuTubeA  = new TGeoVolume("voRB24CuTubeA", 
824                                                 new TGeoTube(25., 100., kRB24CuTubeL/2.), kMedAirHigh);
825     voRB24CuTubeA->SetVisibility(0);
826     // Simplified DN 100 Flange
827     TGeoVolume* voRB24CuTubeF  = new TGeoVolume("voRB24CuTubeF",
828                                                 new TGeoTube(kRB24CuTubeRo, kRB24CuTubeFRo, kRB24CuTubeFL/2.), kMedSteel);
829
830 // Warm Module Type VMACA
831 // LHCVMACA_0002
832 // 
833 // Pos 1 Warm Bellows DN100       LHCVBU__0012
834 // Pos 2 RF Contact   D80         LHCVSR__0005
835 // Pos 3 Trans. Tube Flange       LHCVSR__0065
836 // [Pos 4 Hex. Countersunk Screw   Bossard BN4719]
837 // [Pos 5 Tension spring           LHCVSR__0011]
838 //
839 //
840 //
841 // Pos1    Warm Bellows DN100
842 // Pos1.1  Bellows                  LHCVBU__0006
843 //
844 //
845 // Connection Tubes    
846 // Connection tube inner r
847     const Float_t kRB24B1ConTubeRin        = 10.0/2.;
848 // Connection tube outer r
849     const Float_t kRB24B1ConTubeRou        = 10.3/2.;
850 // Connection tube length
851     const Float_t kRB24B1ConTubeL          =  2.5;
852 // 
853     const Float_t kRB24B1CompL             = 16.00;    // Length of the compensator
854     const Float_t kRB24B1BellowRi          = 10.25/2.; // Bellow inner radius        
855     const Float_t kRB24B1BellowRo          = 11.40/2.; // Bellow outer radius        
856     const Int_t   kRB24B1NumberOfPlies     = 27;       // Number of plies            
857     const Float_t kRB24B1BellowUndL        = 11.00;    // Length of undulated region 
858     const Float_t kRB24B1PlieThickness     =  0.015;   // Plie thickness             
859
860     const Float_t kRB24B1PlieRadius = 
861         (kRB24B1BellowUndL + (2. *  kRB24B1NumberOfPlies - 2.) * kRB24B1PlieThickness) / (4. * kRB24B1NumberOfPlies);
862     
863     const Float_t kRB24B1ProtTubeThickness = 0.02;     // Thickness of the protection tube
864     const Float_t kRB24B1ProtTubeLength    = 4.2;      // Length of the protection tube
865
866     const Float_t kRB24B1RFlangeL          = 1.86;     // Length of the flanges
867     const Float_t kRB24B1RFlangeLO         = 0.26;     // Flange overlap
868     const Float_t kRB24B1RFlangeRO         = 11.18/2;  // Inner radius at Flange overlap    
869     const Float_t kRB24B1RFlangeRou        = 15.20/2.; // Outer radius of flange
870     const Float_t kRB24B1RFlangeRecess     = 0.98;     // Flange recess
871     const Float_t kRB24B1L                 = kRB24B1CompL +  2. * (kRB24B1RFlangeL - kRB24B1RFlangeRecess);
872     
873 ///      
874 //
875 // Bellow mother volume
876     TGeoPcon* shRB24B1BellowM = new TGeoPcon(0., 360., 14);
877     // Connection Tube and Flange
878     z = 0.;
879     shRB24B1BellowM->DefineSection( 0, z, 0.,               kRB24B1RFlangeRou);
880     z += kRB24B1RFlangeLO;
881     shRB24B1BellowM->DefineSection( 1, z, 0.,               kRB24B1RFlangeRou);
882     shRB24B1BellowM->DefineSection( 2, z, 0.,               kRB24B1RFlangeRou);    
883     z = kRB24B1RFlangeL;
884     shRB24B1BellowM->DefineSection( 3, z, 0.,               kRB24B1RFlangeRou);    
885     shRB24B1BellowM->DefineSection( 4, z, 0.,               kRB24B1ConTubeRou);
886     z = kRB24B1ConTubeL +  kRB24B1RFlangeL - kRB24B1RFlangeRecess;
887     shRB24B1BellowM->DefineSection( 5, z, 0.,               kRB24B1ConTubeRou);
888     // Plie
889     shRB24B1BellowM->DefineSection( 6, z, 0.,               kRB24B1BellowRo + kRB24B1ProtTubeThickness);
890     z += kRB24B1BellowUndL;
891     shRB24B1BellowM->DefineSection( 7, z, 0.,               kRB24B1BellowRo + kRB24B1ProtTubeThickness);
892     shRB24B1BellowM->DefineSection( 8, z, 0.,               kRB24B1ConTubeRou);
893     // Connection Tube and Flange
894     z = kRB24B1L - shRB24B1BellowM->GetZ(3);
895     shRB24B1BellowM->DefineSection( 9, z, 0.,               kRB24B1ConTubeRou);
896     shRB24B1BellowM->DefineSection(10, z, 0.,               kRB24B1RFlangeRou);
897     z = kRB24B1L - shRB24B1BellowM->GetZ(1);
898     shRB24B1BellowM->DefineSection(11, z, 0.,               kRB24B1RFlangeRou);
899     shRB24B1BellowM->DefineSection(12, z, 0.,               kRB24B1RFlangeRou);
900     z = kRB24B1L - shRB24B1BellowM->GetZ(0);
901     shRB24B1BellowM->DefineSection(13, z, 0.,               kRB24B1RFlangeRou);
902
903     TGeoVolume* voRB24B1BellowM = new TGeoVolume("RB24B1BellowM", shRB24B1BellowM, kMedVac);
904     voRB24B1BellowM->SetVisibility(0);
905 //
906 // Bellow Section    
907     TGeoVolume* voRB24B1Bellow 
908         = MakeBellow("RB24B1", kRB24B1NumberOfPlies, kRB24B1BellowRi, kRB24B1BellowRo, 
909                      kRB24B1BellowUndL, kRB24B1PlieRadius ,kRB24B1PlieThickness);
910     voRB24B1Bellow->SetVisibility(0);
911     
912 //
913 // End Parts (connection tube)
914     TGeoVolume* voRB24B1CT = new TGeoVolume("RB24B1CT", new TGeoTube(kRB24B1ConTubeRin, kRB24B1ConTubeRou,  kRB24B1ConTubeL/2.), kMedSteel); 
915 //
916 // Protection Tube      
917     TGeoVolume* voRB24B1PT = new TGeoVolume("RB24B1PT", new TGeoTube(kRB24B1BellowRo, kRB24B1BellowRo + kRB24B1ProtTubeThickness,  
918                                                                      kRB24B1ProtTubeLength / 2.), kMedSteel);
919     
920     z = kRB24B1ConTubeL/2. +  (kRB24B1RFlangeL - kRB24B1RFlangeRecess);
921     
922     voRB24B1BellowM->AddNode(voRB24B1CT, 1, new TGeoTranslation(0., 0., z));
923     z += (kRB24B1ConTubeL/2.+ kRB24B1BellowUndL/2.);
924     voRB24B1BellowM->AddNode(voRB24B1Bellow, 1, new TGeoTranslation(0., 0., z));
925     z += (kRB24B1BellowUndL/2. + kRB24B1ConTubeL/2);
926     voRB24B1BellowM->AddNode(voRB24B1CT, 2, new TGeoTranslation(0., 0., z));
927     z =  kRB24B1ConTubeL +  kRB24B1ProtTubeLength / 2. + 1. + kRB24B1RFlangeLO;
928     voRB24B1BellowM->AddNode(voRB24B1PT, 1, new TGeoTranslation(0., 0., z));
929     z +=  kRB24B1ProtTubeLength + 0.6;
930     voRB24B1BellowM->AddNode(voRB24B1PT, 2, new TGeoTranslation(0., 0., z));
931
932                  
933
934 // Pos 1/2 Rotatable Flange         LHCVBU__0013
935 // Pos 1/3 Flange DN100/103         LHCVBU__0018
936 // The two flanges can be represented by the same volume
937     // Outer Radius (including the outer movable ring).
938     // The inner ring has a diameter of 12.04 cm
939
940   
941     TGeoPcon* shRB24B1RFlange = new TGeoPcon(0., 360., 10);
942     z = 0.;
943     shRB24B1RFlange->DefineSection(0, z, 10.30/2., kRB24B1RFlangeRou);
944     z += 0.55;  // 5.5 mm added for outer ring
945     z += 0.43;
946     shRB24B1RFlange->DefineSection(1, z, 10.30/2., kRB24B1RFlangeRou);
947     shRB24B1RFlange->DefineSection(2, z, 10.06/2., kRB24B1RFlangeRou);    
948     z += 0.15;
949     shRB24B1RFlange->DefineSection(3, z, 10.06/2., kRB24B1RFlangeRou);    
950     // In reality this part is rounded
951     shRB24B1RFlange->DefineSection(4, z, 10.91/2., kRB24B1RFlangeRou);    
952     z += 0.15;
953     shRB24B1RFlange->DefineSection(5, z, 10.91/2., kRB24B1RFlangeRou);    
954     shRB24B1RFlange->DefineSection(6, z, 10.06/2., kRB24B1RFlangeRou);    
955     z += 0.32;
956     shRB24B1RFlange->DefineSection(7, z, 10.06/2., kRB24B1RFlangeRou);    
957     shRB24B1RFlange->DefineSection(8, z, kRB24B1RFlangeRO, kRB24B1RFlangeRou);    
958     z += kRB24B1RFlangeLO;
959     shRB24B1RFlange->DefineSection(9, z, kRB24B1RFlangeRO, kRB24B1RFlangeRou);    
960     
961     TGeoVolume* voRB24B1RFlange = new TGeoVolume("RB24B1RFlange", shRB24B1RFlange, kMedSteel);
962
963     
964     z = kRB24B1L - kRB24B1RFlangeL;
965     voRB24B1BellowM->AddNode(voRB24B1RFlange, 1, new TGeoTranslation(0., 0., z));
966     z = kRB24B1RFlangeL;
967     voRB24B1BellowM->AddNode(voRB24B1RFlange, 2, new TGeoCombiTrans(0., 0., z, rot180));
968 //
969 // Pos 2 RF Contact   D80         LHCVSR__0005
970 //
971 // Pos 2.1 RF Contact Flange      LHCVSR__0003
972 //
973     TGeoPcon* shRB24B1RCTFlange = new TGeoPcon(0., 360., 6);
974     const Float_t kRB24B1RCTFlangeRin  = 8.06/2. + 0.05;  // Inner radius
975     const Float_t kRB24B1RCTFlangeL    = 1.45;            // Length
976     
977     z = 0.;
978     shRB24B1RCTFlange->DefineSection(0, z, kRB24B1RCTFlangeRin,  8.20/2.);
979     z += 0.15;
980     shRB24B1RCTFlange->DefineSection(1, z, kRB24B1RCTFlangeRin,  8.20/2.);
981     shRB24B1RCTFlange->DefineSection(2, z, kRB24B1RCTFlangeRin,  8.60/2.);
982     z += 1.05;
983     shRB24B1RCTFlange->DefineSection(3, z, kRB24B1RCTFlangeRin,  8.60/2.);
984     shRB24B1RCTFlange->DefineSection(4, z, kRB24B1RCTFlangeRin, 11.16/2.);
985     z += 0.25;
986     shRB24B1RCTFlange->DefineSection(5, z, kRB24B1RCTFlangeRin, 11.16/2.);
987     TGeoVolume* voRB24B1RCTFlange = new TGeoVolume("RB24B1RCTFlange", shRB24B1RCTFlange, kMedCu);
988     z = kRB24B1L - kRB24B1RCTFlangeL;
989     
990     voRB24B1BellowM->AddNode(voRB24B1RCTFlange, 1, new TGeoTranslation(0., 0., z));
991 //
992 // Pos 2.2 RF-Contact        LHCVSR__0004
993 //
994     TGeoPcon* shRB24B1RCT = new TGeoPcon(0., 360., 3);
995     const Float_t kRB24B1RCTRin  = 8.00/2.;        // Inner radius
996     const Float_t kRB24B1RCTCRin = 8.99/2.;        // Max. inner radius conical section
997     const Float_t kRB24B1RCTL    = 11.78;          // Length
998     const Float_t kRB24B1RCTSL   = 10.48;          // Length of straight section
999     const Float_t kRB24B1RCTd    =  0.03;          // Thickness
1000     
1001     z = 0;
1002     shRB24B1RCT->DefineSection(0, z,  kRB24B1RCTCRin,  kRB24B1RCTCRin + kRB24B1RCTd);
1003     z =  kRB24B1RCTL -  kRB24B1RCTSL;
1004     // In the (VSR0004) this section is straight in (LHCVC2U_0001) it is conical ????
1005     shRB24B1RCT->DefineSection(1, z,  kRB24B1RCTRin + 0.35,  kRB24B1RCTRin + 0.35 + kRB24B1RCTd);
1006     z = kRB24B1RCTL - 0.03;
1007     shRB24B1RCT->DefineSection(2, z,  kRB24B1RCTRin,  kRB24B1RCTRin + kRB24B1RCTd);
1008
1009     TGeoVolume* voRB24B1RCT = new TGeoVolume("RB24B1RCT", shRB24B1RCT, kMedCu);
1010     z = kRB24B1L - kRB24B1RCTL - 0.45;
1011     voRB24B1BellowM->AddNode(voRB24B1RCT, 1, new TGeoTranslation(0., 0., z));    
1012
1013 //
1014 // Pos 3 Trans. Tube Flange       LHCVSR__0065
1015 //
1016 // Pos 3.1 Transition Tube D53    LHCVSR__0064
1017 // Pos 3.2 Transition Flange      LHCVSR__0060
1018 // Pos 3.3 Transition Tube        LHCVSR__0058
1019     TGeoPcon* shRB24B1TTF = new TGeoPcon(0., 360., 7);
1020     // Flange
1021     z = 0.;
1022     shRB24B1TTF->DefineSection(0, z,  6.30/2., 11.16/2.);
1023     z += 0.25;
1024     shRB24B1TTF->DefineSection(1, z,  6.30/2., 11.16/2.);
1025     shRB24B1TTF->DefineSection(2, z,  6.30/2.,  9.3/2.);
1026     z += 0.55;
1027     shRB24B1TTF->DefineSection(3, z,  6.30/2.,  9.3/2.);
1028     // Tube
1029     shRB24B1TTF->DefineSection(4, z,  6.30/2.,  6.7/2.);
1030     z += 5.80;
1031     shRB24B1TTF->DefineSection(5, z,  6.30/2.,  6.7/2.);
1032     // Transition Tube
1033     z += 3.75;
1034     shRB24B1TTF->DefineSection(6, z,  8.05/2.,  8.45/2.);
1035     TGeoVolume* voRB24B1TTF = new TGeoVolume("RB24B1TTF", shRB24B1TTF, kMedSteel);
1036     z =  0.;
1037     voRB24B1BellowM->AddNode(voRB24B1TTF, 1, new TGeoTranslation(0., 0., z));    
1038
1039 // Annular Ion Pump        
1040 // LHCVC2U_0003
1041 //
1042 // Pos  1 Rotable Flange         LHCVFX__0031
1043 // Pos  2 RF Screen Tube         LHCVC2U_0005
1044 // Pos  3 Shell                  LHCVC2U_0007
1045 // Pos  4 Extruded Shell         LHCVC2U_0006
1046 // Pos  5 Feedthrough Tube       LHCVC2U_0004
1047 // Pos  6 Tubulated Flange       STDVFUHV0021
1048 // Pos  7 Fixed Flange           LHCVFX__0032
1049 // Pos  8 Pumping Elements
1050
1051 //
1052 // Pos 1 Rotable Flange          LHCVFX__0031
1053 // pos 7 Fixed Flange            LHCVFX__0032
1054 //
1055 //  Mother volume
1056     const Float_t kRB24AIpML = 35.;
1057     
1058     TGeoVolume* voRB24AIpM = new TGeoVolume("voRB24AIpM", new TGeoTube(0., 10., kRB24AIpML/2.), kMedAir);
1059     voRB24AIpM->SetVisibility(0);
1060     
1061     //
1062     // Length 35 cm
1063     // Flange 2 x 1.98 =   3.96
1064     // Tube            =  32.84
1065     //==========================
1066     //                    36.80
1067     // Overlap 2 * 0.90 =  1.80
1068                         
1069     const Float_t kRB24IpRFD1     =  0.68;    // Length of section 1
1070     const Float_t kRB24IpRFD2     =  0.30;    // Length of section 2                                                 
1071     const Float_t kRB24IpRFD3     =  0.10;    // Length of section 3                                                       
1072     const Float_t kRB24IpRFD4     =  0.35;    // Length of section 4                                                       
1073     const Float_t kRB24IpRFD5     =  0.55;    // Length of section 5                                                       
1074     
1075     const Float_t kRB24IpRFRo     = 15.20/2.; // Flange outer radius 
1076     const Float_t kRB24IpRFRi1    =  6.30/2.; // Flange inner radius section 1
1077     const Float_t kRB24IpRFRi2    =  6.00/2.; // Flange inner radius section 2
1078     const Float_t kRB24IpRFRi3    =  5.84/2.; // Flange inner radius section 3    
1079     const Float_t kRB24IpRFRi4    =  6.00/2.; // Flange inner radius section 1
1080     const Float_t kRB24IpRFRi5    = 10.50/2.; // Flange inner radius section 2
1081
1082     TGeoPcon* shRB24IpRF = new TGeoPcon(0., 360., 9);
1083     z0 = 0.;
1084     shRB24IpRF->DefineSection(0, z0, kRB24IpRFRi1, kRB24IpRFRo);
1085     z0 += kRB24IpRFD1;
1086     shRB24IpRF->DefineSection(1, z0, kRB24IpRFRi2, kRB24IpRFRo);
1087     z0 += kRB24IpRFD2;
1088     shRB24IpRF->DefineSection(2, z0, kRB24IpRFRi2, kRB24IpRFRo);
1089     shRB24IpRF->DefineSection(3, z0, kRB24IpRFRi3, kRB24IpRFRo);
1090     z0 += kRB24IpRFD3;
1091     shRB24IpRF->DefineSection(4, z0, kRB24IpRFRi3, kRB24IpRFRo);
1092     shRB24IpRF->DefineSection(5, z0, kRB24IpRFRi4, kRB24IpRFRo);
1093     z0 += kRB24IpRFD4;
1094     shRB24IpRF->DefineSection(6, z0, kRB24IpRFRi4, kRB24IpRFRo);
1095     shRB24IpRF->DefineSection(7, z0, kRB24IpRFRi5, kRB24IpRFRo);
1096     z0 += kRB24IpRFD5;
1097     shRB24IpRF->DefineSection(8, z0, kRB24IpRFRi5, kRB24IpRFRo);
1098
1099     TGeoVolume* voRB24IpRF = new TGeoVolume("RB24IpRF", shRB24IpRF, kMedSteel);
1100     
1101 //
1102 // Pos  2 RF Screen Tube         LHCVC2U_0005
1103 //
1104
1105 //
1106 // Tube
1107     Float_t kRB24IpSTTL  = 32.84;            // Total length of the tube
1108     Float_t kRB24IpSTTRi =  5.80/2.;         // Inner Radius
1109     Float_t kRB24IpSTTRo =  6.00/2.;         // Outer Radius
1110     TGeoVolume* voRB24IpSTT = new TGeoVolume("RB24IpSTT", new TGeoTube(kRB24IpSTTRi, kRB24IpSTTRo, kRB24IpSTTL/2.), kMedSteel);
1111 // Screen
1112     Float_t kRB24IpSTCL  =  0.4;             // Lenth of the crochet detail
1113     // Length of the screen 
1114     Float_t kRB24IpSTSL  =  9.00 - 2. * kRB24IpSTCL; 
1115     // Rel. position of the screen 
1116     Float_t kRB24IpSTSZ  =  7.00 + kRB24IpSTCL; 
1117     TGeoVolume* voRB24IpSTS = new TGeoVolume("RB24IpSTS", new TGeoTube(kRB24IpSTTRi, kRB24IpSTTRo, kRB24IpSTSL/2.), kMedSteel);
1118     // Vacuum
1119     TGeoVolume* voRB24IpSTV = new TGeoVolume("RB24IpSTV", new TGeoTube(0., kRB24IpSTTRi, kRB24AIpML/2.), kMedVac);
1120     //
1121     voRB24IpSTT->AddNode(voRB24IpSTS, 1, new TGeoTranslation(0., 0., kRB24IpSTSZ -  kRB24IpSTTL/2. +  kRB24IpSTSL/2.));
1122     
1123 // Crochets
1124     // Inner radius
1125     Float_t kRB24IpSTCRi  = kRB24IpSTTRo + 0.25;
1126     // Outer radius
1127     Float_t kRB24IpSTCRo  = kRB24IpSTTRo + 0.35;
1128     // Length of 1stsection
1129     Float_t kRB24IpSTCL1  = 0.15;
1130     // Length of 2nd section
1131     Float_t kRB24IpSTCL2  = 0.15;
1132     // Length of 3rd section
1133     Float_t kRB24IpSTCL3  = 0.10;
1134     // Rel. position of 1st Crochet
1135
1136
1137     TGeoPcon* shRB24IpSTC = new TGeoPcon(0., 360., 5);
1138     z0 = 0;
1139     shRB24IpSTC->DefineSection(0, z0, kRB24IpSTCRi, kRB24IpSTCRo);
1140     z0 += kRB24IpSTCL1;
1141     shRB24IpSTC->DefineSection(1, z0, kRB24IpSTCRi, kRB24IpSTCRo);
1142     shRB24IpSTC->DefineSection(2, z0, kRB24IpSTTRo, kRB24IpSTCRo);
1143     z0 += kRB24IpSTCL2;
1144     shRB24IpSTC->DefineSection(3, z0, kRB24IpSTTRo, kRB24IpSTCRo);
1145     z0 += kRB24IpSTCL3;
1146     shRB24IpSTC->DefineSection(4, z0, kRB24IpSTTRo, kRB24IpSTTRo + 0.001);
1147     TGeoVolume* voRB24IpSTC = new TGeoVolume("RB24IpSTC", shRB24IpSTC, kMedSteel);
1148
1149 // Pos  3 Shell                  LHCVC2U_0007
1150 // Pos  4 Extruded Shell         LHCVC2U_0006
1151     Float_t kRB24IpShellL     =  4.45;    // Length of the Shell
1152     Float_t kRB24IpShellD     =  0.10;    // Wall thickness of the shell
1153     Float_t kRB24IpShellCTRi  =  6.70/2.; // Inner radius of the connection tube
1154     Float_t kRB24IpShellCTL   =  1.56;    // Length of the connection tube
1155     Float_t kRB24IpShellCARi  = 17.80/2.; // Inner radius of the cavity
1156     Float_t kRB24IpShellCCRo  = 18.20/2.; // Inner radius at the centre
1157
1158     TGeoPcon* shRB24IpShell = new TGeoPcon(0., 360., 7);
1159     z0 = 0;
1160     shRB24IpShell->DefineSection(0, z0, kRB24IpShellCTRi, kRB24IpShellCTRi + kRB24IpShellD);
1161     z0 +=  kRB24IpShellCTL;
1162     shRB24IpShell->DefineSection(1, z0, kRB24IpShellCTRi, kRB24IpShellCTRi + kRB24IpShellD);
1163     shRB24IpShell->DefineSection(2, z0, kRB24IpShellCTRi, kRB24IpShellCARi + kRB24IpShellD);
1164     z0 += kRB24IpShellD;
1165     shRB24IpShell->DefineSection(3, z0, kRB24IpShellCARi, kRB24IpShellCARi + kRB24IpShellD);
1166     z0 = kRB24IpShellL - kRB24IpShellD;
1167     shRB24IpShell->DefineSection(4, z0, kRB24IpShellCARi, kRB24IpShellCARi + kRB24IpShellD);
1168     shRB24IpShell->DefineSection(5, z0, kRB24IpShellCARi, kRB24IpShellCCRo);
1169     z0 = kRB24IpShellL;
1170     shRB24IpShell->DefineSection(6, z0, kRB24IpShellCARi, kRB24IpShellCCRo);
1171     TGeoVolume* voRB24IpShell = new TGeoVolume("RB24IpShell", shRB24IpShell, kMedSteel);
1172     
1173     TGeoPcon* shRB24IpShellM   = MakeMotherFromTemplate(shRB24IpShell, 0, 6, kRB24IpShellCTRi , 13);
1174     
1175     
1176     for (Int_t i = 0; i < 6; i++) {
1177         z = 2. * kRB24IpShellL  - shRB24IpShellM->GetZ(5-i);
1178         Float_t rmin = shRB24IpShellM->GetRmin(5-i);
1179         Float_t rmax = shRB24IpShellM->GetRmax(5-i);
1180         shRB24IpShellM->DefineSection(7+i, z, rmin, rmax);
1181     }
1182     
1183     TGeoVolume* voRB24IpShellM = new TGeoVolume("RB24IpShellM", shRB24IpShellM, kMedVac);
1184     voRB24IpShellM->SetVisibility(0);
1185     voRB24IpShellM->AddNode(voRB24IpShell, 1, gGeoIdentity);
1186     voRB24IpShellM->AddNode(voRB24IpShell, 2, new TGeoCombiTrans(0., 0., 2. * kRB24IpShellL, rot180));
1187 //
1188 // Pos  8 Pumping Elements
1189 //
1190 //  Anode array
1191     TGeoVolume* voRB24IpPE = new TGeoVolume("voRB24IpPE", new TGeoTube(0.9, 1., 2.54/2.), kMedSteel);
1192     Float_t kRB24IpPEAR = 5.5;
1193     
1194     for (Int_t i = 0; i < 15; i++) {
1195         Float_t phi = Float_t(i) * 24.;
1196         Float_t x   =  kRB24IpPEAR * TMath::Cos(kDegRad * phi);
1197         Float_t y   =  kRB24IpPEAR * TMath::Sin(kDegRad * phi);
1198         voRB24IpShellM->AddNode(voRB24IpPE, i+1, new TGeoTranslation(x, y, kRB24IpShellL));
1199     }
1200     
1201     
1202 //
1203 //  Cathodes
1204 //
1205 // Here we could add some Ti strips
1206
1207 // Postioning of elements
1208     voRB24AIpM->AddNode(voRB24IpRF,     1, new TGeoTranslation(0., 0., -kRB24AIpML/2.));
1209     voRB24AIpM->AddNode(voRB24IpRF,     2, new TGeoCombiTrans (0., 0., +kRB24AIpML/2., rot180));
1210     voRB24AIpM->AddNode(voRB24IpSTT,    1, new TGeoTranslation(0., 0., 0.));
1211     voRB24AIpM->AddNode(voRB24IpSTV,    1, new TGeoTranslation(0., 0., 0.));
1212     voRB24AIpM->AddNode(voRB24IpShellM, 1, new TGeoTranslation(0., 0., -kRB24AIpML/2. +  8.13));
1213     voRB24AIpM->AddNode(voRB24IpSTC,    1, new TGeoTranslation(0., 0., 8.13 - kRB24AIpML/2.));
1214     voRB24AIpM->AddNode(voRB24IpSTC,    2, new TGeoCombiTrans (0., 0., 8.14 + 8.9 - kRB24AIpML/2., rot180));
1215     
1216 //
1217 // Valve
1218 // VAC Series 47 DN 63 with manual actuator
1219 //
1220     const Float_t kRB24ValveWz = 7.5;
1221     const Float_t kRB24ValveDN = 10.0/2.;
1222 //
1223 //  Body containing the valve plate
1224 //
1225     const Float_t kRB24ValveBoWx =  15.6;
1226     const Float_t kRB24ValveBoWy = (21.5 + 23.1 - 5.);
1227     const Float_t kRB24ValveBoWz =  4.6;
1228     const Float_t kRB24ValveBoD  =  0.5;
1229
1230     TGeoVolume* voRB24ValveBoM =
1231         new TGeoVolume("RB24ValveBoM", 
1232                        new TGeoBBox( kRB24ValveBoWx/2.,  kRB24ValveBoWy/2., kRB24ValveBoWz/2.), kMedAir);
1233     voRB24ValveBoM->SetVisibility(0);
1234     TGeoVolume* voRB24ValveBo =
1235         new TGeoVolume("RB24ValveBo", 
1236                        new TGeoBBox( kRB24ValveBoWx/2.,  kRB24ValveBoWy/2., kRB24ValveBoWz/2.), kMedSteel);
1237     voRB24ValveBoM->AddNode(voRB24ValveBo, 1, gGeoIdentity);
1238     //
1239     // Inner volume
1240     //
1241     TGeoVolume* voRB24ValveBoI = new TGeoVolume("RB24ValveBoI", 
1242                                                 new TGeoBBox( kRB24ValveBoWx/2. -  kRB24ValveBoD,  
1243                                                               kRB24ValveBoWy/2. -  kRB24ValveBoD/2., 
1244                                                               kRB24ValveBoWz/2. -  kRB24ValveBoD), 
1245                                                 kMedVac);
1246     voRB24ValveBo->AddNode(voRB24ValveBoI, 1, new TGeoTranslation(0., kRB24ValveBoD/2., 0.));
1247     //
1248     // Opening and Flanges
1249     const Float_t  kRB24ValveFlRo = 18./2.;
1250     const Float_t  kRB24ValveFlD  = 1.45;    
1251     TGeoVolume* voRB24ValveBoA = new TGeoVolume("RB24ValveBoA", 
1252                                                 new TGeoTube(0., kRB24ValveDN/2., kRB24ValveBoD/2.), kMedVac);
1253     voRB24ValveBo->AddNode(voRB24ValveBoA, 1, new TGeoTranslation(0., - kRB24ValveBoWy/2. + 21.5, -kRB24ValveBoWz/2. +  kRB24ValveBoD/2.));
1254     voRB24ValveBo->AddNode(voRB24ValveBoA, 2, new TGeoTranslation(0., - kRB24ValveBoWy/2. + 21.5, +kRB24ValveBoWz/2. -  kRB24ValveBoD/2.));
1255  
1256     TGeoVolume* voRB24ValveFl  = new TGeoVolume("RB24ValveFl",  new TGeoTube(kRB24ValveDN/2.,  kRB24ValveFlRo, kRB24ValveFlD/2.), kMedSteel);
1257     TGeoVolume* voRB24ValveFlI = new TGeoVolume("RB24ValveFlI", new TGeoTube(0.,               kRB24ValveFlRo, kRB24ValveFlD/2.), kMedVac);
1258     voRB24ValveFlI->AddNode(voRB24ValveFl, 1, gGeoIdentity);
1259     
1260     //
1261     // Actuator Flange
1262     const Float_t kRB24ValveAFlWx =  18.9;
1263     const Float_t kRB24ValveAFlWy =   5.0;
1264     const Float_t kRB24ValveAFlWz =   7.7;
1265     TGeoVolume* voRB24ValveAFl = new TGeoVolume("RB24ValveAFl", new TGeoBBox(kRB24ValveAFlWx/2., kRB24ValveAFlWy/2., kRB24ValveAFlWz/2.), kMedSteel);
1266     //
1267     // Actuator Tube
1268     const Float_t kRB24ValveATRo = 9.7/2.;
1269     const Float_t kRB24ValveATH  = 16.6;
1270     TGeoVolume* voRB24ValveAT = new TGeoVolume("RB24ValveAT", new TGeoTube(kRB24ValveATRo -  2. * kRB24ValveBoD,kRB24ValveATRo,  kRB24ValveATH/2.), 
1271                                                kMedSteel);
1272     //
1273     // Manual Actuator (my best guess)
1274     TGeoVolume* voRB24ValveMA1 = new TGeoVolume("RB24ValveMA1", new TGeoCone(2.5/2., 0., 0.5, 4.5, 5.), kMedSteel);
1275     TGeoVolume* voRB24ValveMA2 = new TGeoVolume("RB24ValveMA2", new TGeoTorus(5., 0., 1.25), kMedSteel);
1276     TGeoVolume* voRB24ValveMA3 = new TGeoVolume("RB24ValveMA3", new TGeoTube (0., 1.25, 2.5), kMedSteel);
1277     
1278
1279     //
1280     // Position all volumes
1281     Float_t y0;
1282     TGeoVolumeAssembly*  voRB24ValveMo = new TGeoVolumeAssembly("RB24ValveMo");
1283     voRB24ValveMo->AddNode(voRB24ValveFl,  1, new TGeoTranslation(0., 0., - 7.5/2. + kRB24ValveFlD/2.));
1284     voRB24ValveMo->AddNode(voRB24ValveFl,  2, new TGeoTranslation(0., 0., + 7.5/2. - kRB24ValveFlD/2.));
1285     y0 = -21.5;
1286     voRB24ValveMo->AddNode(voRB24ValveBoM, 1, new TGeoTranslation(0., y0 + kRB24ValveBoWy/2.,   0.));
1287     y0 +=  kRB24ValveBoWy;
1288     voRB24ValveMo->AddNode(voRB24ValveAFl, 1, new TGeoTranslation(0., y0 +  kRB24ValveAFlWy/2., 0.));
1289     y0 +=  kRB24ValveAFlWy;
1290     voRB24ValveMo->AddNode(voRB24ValveAT,  1, new TGeoCombiTrans(0.,  y0 + kRB24ValveATH/2.,    0., rotyz));
1291     y0 += kRB24ValveATH;
1292     voRB24ValveMo->AddNode(voRB24ValveMA1, 1, new TGeoCombiTrans(0.,  y0 + 2.5/2.,    0., rotyz));
1293     y0 += 2.5;
1294     voRB24ValveMo->AddNode(voRB24ValveMA2, 1, new TGeoCombiTrans(0.,  y0 + 2.5/2.,    0., rotyz));
1295     y0 += 2.5;
1296     voRB24ValveMo->AddNode(voRB24ValveMA3, 1, new TGeoCombiTrans(5./TMath::Sqrt(2.),  y0 + 5.0/2., 5./TMath::Sqrt(2.), rotyz));
1297 //
1298 // Warm Module Type VMABC
1299 // LHCVMABC_0002
1300 // 
1301 //
1302 //
1303 // Flange                  1.00
1304 // Central Piece          11.50
1305 // Bellow                 14.50
1306 // End Flange              1.00
1307 //===================================
1308 // Total                  28.00 
1309 //                        
1310 // Pos 1 Warm Bellows DN100       LHCVBU__0016
1311 // Pos 2 Trans. Tube Flange       LHCVSR__0062
1312 // Pos 3 RF Contact   D63         LHCVSR__0057
1313 // [Pos 4 Hex. Countersunk Screw   Bossard BN4719]
1314 // [Pos 5 Tension spring           LHCVSR__00239]
1315 //
1316
1317 // Pos 1 Warm Bellows DN100                   LHCVBU__0016
1318 // Pos 1.1 Right Body 2 Ports with Support    LHCVBU__0014
1319     //
1320     // Tube 1
1321     const Float_t kRB24VMABCRBT1Ri = 10.0/2.;
1322     const Float_t kRB24VMABCRBT1Ro = 10.3/2.;
1323     const Float_t kRB24VMABCRBT1L  = 11.5;   
1324     const Float_t kRB24VMABCRBT1L2 = 8.;
1325     const Float_t kRB24VMABCL      = 28.;
1326     
1327     TGeoTube* shRB24VMABCRBT1 = new TGeoTube(kRB24VMABCRBT1Ri, kRB24VMABCRBT1Ro, kRB24VMABCRBT1L/2.);
1328     shRB24VMABCRBT1->SetName("RB24VMABCRBT1");
1329     TGeoTube* shRB24VMABCRBT1o = new TGeoTube(0., kRB24VMABCRBT1Ro,  kRB24VMABCRBT1L/2.);
1330     shRB24VMABCRBT1o->SetName("RB24VMABCRBT1o");
1331     TGeoTube* shRB24VMABCRBT1o2 = new TGeoTube(0., kRB24VMABCRBT1Ro + 0.3, kRB24VMABCRBT1L/2.);
1332     shRB24VMABCRBT1o2->SetName("RB24VMABCRBT1o2");
1333     // Lower inforcement 
1334     TGeoVolume*  voRB24VMABCRBT12  = new TGeoVolume("RB24VMABCRBT12", 
1335                                                     new TGeoTubeSeg(kRB24VMABCRBT1Ro, kRB24VMABCRBT1Ro + 0.3, kRB24VMABCRBT1L2/2., 220., 320.)
1336                                                     , kMedSteel);
1337     //
1338     // Tube 2
1339     const Float_t kRB24VMABCRBT2Ri =   6.0/2.;
1340     const Float_t kRB24VMABCRBT2Ro =   6.3/2.;
1341     const Float_t kRB24VMABCRBF2Ro =  11.4/2.;
1342     const Float_t kRB24VMABCRBT2L  =   5.95 + 2.; // 2. cm added for welding    
1343     const Float_t kRB24VMABCRBF2L  =   1.75;
1344     TGeoTube* shRB24VMABCRBT2 = new TGeoTube(kRB24VMABCRBT2Ri, kRB24VMABCRBT2Ro,  kRB24VMABCRBT2L/2.);
1345     shRB24VMABCRBT2->SetName("RB24VMABCRBT2");
1346     TGeoTube* shRB24VMABCRBT2i = new TGeoTube(0., kRB24VMABCRBT2Ri, kRB24VMABCRBT2L/2. + 2.);
1347     shRB24VMABCRBT2i->SetName("RB24VMABCRBT2i");
1348     TGeoCombiTrans* tRBT2 = new TGeoCombiTrans(-11.5 + kRB24VMABCRBT2L/2., 0., 7.2 - kRB24VMABCRBT1L/2.  , rotxz);
1349     tRBT2->SetName("tRBT2");
1350     tRBT2->RegisterYourself();
1351     TGeoCompositeShape* shRB24VMABCRBT2c =  new TGeoCompositeShape("shRB24VMABCRBT2c","RB24VMABCRBT2:tRBT2-RB24VMABCRBT1o");
1352     TGeoVolume* voRB24VMABCRBT2 = new TGeoVolume("shRB24VMABCRBT2", shRB24VMABCRBT2c, kMedSteel);
1353     // Flange
1354     // Pos 1.4 Flange DN63                        LHCVBU__0008
1355     TGeoVolume* voRB24VMABCRBF2 = new TGeoVolume("RB24VMABCRBF2", 
1356                                                  new TGeoTube(kRB24VMABCRBT2Ro, kRB24VMABCRBF2Ro, kRB24VMABCRBF2L/2.), kMedSteel);
1357     // DN63 Blank Flange (my best guess)
1358     TGeoVolume* voRB24VMABCRBF2B = new TGeoVolume("RB24VMABCRBF2B", 
1359                                                   new TGeoTube(0., kRB24VMABCRBF2Ro, kRB24VMABCRBF2L/2.), kMedSteel);
1360     //
1361     // Tube 3
1362     const Float_t kRB24VMABCRBT3Ri =  3.5/2.;
1363     const Float_t kRB24VMABCRBT3Ro =  3.8/2.;
1364     const Float_t kRB24VMABCRBF3Ro =  7.0/2.;
1365     const Float_t kRB24VMABCRBT3L  =  4.95 + 2.; // 2. cm added for welding    
1366     const Float_t kRB24VMABCRBF3L  =  1.27;
1367     TGeoTube* shRB24VMABCRBT3 = new TGeoTube(kRB24VMABCRBT3Ri, kRB24VMABCRBT3Ro,  kRB24VMABCRBT3L/2);
1368     shRB24VMABCRBT3->SetName("RB24VMABCRBT3");
1369     TGeoTube* shRB24VMABCRBT3i = new TGeoTube(0., kRB24VMABCRBT3Ri, kRB24VMABCRBT3L/2. + 2.);
1370     shRB24VMABCRBT3i->SetName("RB24VMABCRBT3i");
1371     TGeoCombiTrans* tRBT3 = new TGeoCombiTrans(0., 10.5 - kRB24VMABCRBT3L/2., 7.2 - kRB24VMABCRBT1L/2.  , rotyz);
1372     tRBT3->SetName("tRBT3");
1373     tRBT3->RegisterYourself();
1374     TGeoCompositeShape* shRB24VMABCRBT3c =  new TGeoCompositeShape("shRB24VMABCRBT3c","RB24VMABCRBT3:tRBT3-RB24VMABCRBT1o");
1375     TGeoVolume* voRB24VMABCRBT3 = new TGeoVolume("shRB24VMABCRBT3", shRB24VMABCRBT3c, kMedSteel);
1376     // Flange
1377     // Pos 1.4 Flange DN35                        LHCVBU__0007
1378     TGeoVolume* voRB24VMABCRBF3 = new TGeoVolume("RB24VMABCRBF3", 
1379                                                  new TGeoTube(kRB24VMABCRBT3Ro, kRB24VMABCRBF3Ro, kRB24VMABCRBF3L/2.), kMedSteel);
1380     //
1381     // Tube 4
1382     const Float_t kRB24VMABCRBT4Ri =  6.0/2.;
1383     const Float_t kRB24VMABCRBT4Ro =  6.4/2.;
1384     const Float_t kRB24VMABCRBT4L  =  6.6;    
1385     TGeoTube* shRB24VMABCRBT4 = new TGeoTube(kRB24VMABCRBT4Ri, kRB24VMABCRBT4Ro,  kRB24VMABCRBT4L/2.);
1386     shRB24VMABCRBT4->SetName("RB24VMABCRBT4");
1387     TGeoCombiTrans* tRBT4 = new TGeoCombiTrans(0.,-11.+kRB24VMABCRBT4L/2., 7.2 - kRB24VMABCRBT1L/2.  , rotyz);
1388     tRBT4->SetName("tRBT4");
1389     tRBT4->RegisterYourself();
1390     TGeoCompositeShape* shRB24VMABCRBT4c =  new TGeoCompositeShape("shRB24VMABCRBT4c","RB24VMABCRBT4:tRBT4-RB24VMABCRBT1o2");
1391     TGeoVolume* voRB24VMABCRBT4 = new TGeoVolume("shRB24VMABCRBT4", shRB24VMABCRBT4c, kMedSteel);
1392     TGeoCompositeShape* shRB24VMABCRB = new TGeoCompositeShape("shRB24VMABCRB", "RB24VMABCRBT1-(RB24VMABCRBT2i:tRBT2+RB24VMABCRBT3i:tRBT3)");
1393     TGeoVolume* voRB24VMABCRBI = new TGeoVolume("RB24VMABCRBI", shRB24VMABCRB, kMedSteel);
1394     //
1395     // Plate
1396     const Float_t kRB24VMABCRBBx = 16.0;
1397     const Float_t kRB24VMABCRBBy =  1.5;
1398     const Float_t kRB24VMABCRBBz = 15.0;
1399     
1400     // Relative position of tubes
1401     const Float_t  kRB24VMABCTz =   7.2;
1402     // Relative position of plate
1403     const Float_t  kRB24VMABCPz =   3.6;
1404     const Float_t  kRB24VMABCPy = -12.5;
1405     
1406     TGeoVolume* voRB24VMABCRBP = new TGeoVolume("RB24VMABCRBP", new TGeoBBox(kRB24VMABCRBBx/2., kRB24VMABCRBBy/2., kRB24VMABCRBBz/2.), kMedSteel);
1407     //
1408     // Pirani Gauge (my best guess)
1409     //
1410     TGeoPcon* shRB24VMABCPirani = new TGeoPcon(0., 360., 15);
1411     // DN35/16 Coupling
1412     z = 0;
1413     shRB24VMABCPirani->DefineSection( 0, z,  0.8 , kRB24VMABCRBF3Ro);
1414     z += kRB24VMABCRBF3L; // 1.3
1415     shRB24VMABCPirani->DefineSection( 1, z,  0.8 , kRB24VMABCRBF3Ro);
1416     shRB24VMABCPirani->DefineSection( 2, z,  0.8 , 1.0);
1417     // Pipe
1418     z += 2.8;
1419     shRB24VMABCPirani->DefineSection( 3, z,  0.8 , 1.0);
1420     // Flange
1421     shRB24VMABCPirani->DefineSection( 4, z,  0.8 , 1.75);
1422     z += 1.6;
1423     shRB24VMABCPirani->DefineSection( 5, z,  0.8 , 1.75);
1424     shRB24VMABCPirani->DefineSection( 6, z,  0.8 , 1.0);
1425     z += 5.2;
1426     shRB24VMABCPirani->DefineSection( 7, z,  0.8 , 1.0);
1427     shRB24VMABCPirani->DefineSection( 8, z,  0.8 , 2.5);    
1428     z += 2.0;
1429     shRB24VMABCPirani->DefineSection( 9, z,  0.80, 2.50);    
1430     shRB24VMABCPirani->DefineSection(10, z,  1.55, 1.75);    
1431     z += 5.7;
1432     shRB24VMABCPirani->DefineSection(11, z,  1.55, 1.75);    
1433     shRB24VMABCPirani->DefineSection(11, z,  0.00, 1.75);    
1434     z += 0.2;
1435     shRB24VMABCPirani->DefineSection(12, z,  0.00, 1.75);    
1436     shRB24VMABCPirani->DefineSection(13, z,  0.00, 0.75);    
1437     z += 0.5;
1438     shRB24VMABCPirani->DefineSection(14, z,  0.00, 0.75);  
1439     TGeoVolume* voRB24VMABCPirani = new TGeoVolume("RB24VMABCPirani", shRB24VMABCPirani, kMedSteel);
1440     //
1441     //
1442     // 
1443     
1444     
1445     //
1446     // Positioning of elements
1447     TGeoVolumeAssembly* voRB24VMABCRB = new TGeoVolumeAssembly("RB24VMABCRB");
1448     //
1449     voRB24VMABCRB->AddNode(voRB24VMABCRBI,   1, gGeoIdentity);
1450     // Plate
1451     voRB24VMABCRB->AddNode(voRB24VMABCRBP,   1, new TGeoTranslation(0., kRB24VMABCPy +  kRB24VMABCRBBy /2., 
1452                                                                     kRB24VMABCRBBz/2. - kRB24VMABCRBT1L/2. +  kRB24VMABCPz));
1453     // Tube 2
1454     voRB24VMABCRB->AddNode(voRB24VMABCRBT2,  1, gGeoIdentity);
1455     // Flange Tube 2
1456     voRB24VMABCRB->AddNode(voRB24VMABCRBF2,  1, new TGeoCombiTrans(kRB24VMABCPy + kRB24VMABCRBF2L/2., 0.,  kRB24VMABCTz - kRB24VMABCRBT1L/2., rotxz));
1457     // Blank Flange Tube 2
1458     voRB24VMABCRB->AddNode(voRB24VMABCRBF2B, 1, new TGeoCombiTrans(kRB24VMABCPy- kRB24VMABCRBF2L/2., 0.,  kRB24VMABCTz - kRB24VMABCRBT1L/2., rotxz));    
1459     // Tube 3
1460     voRB24VMABCRB->AddNode(voRB24VMABCRBT3,  1, gGeoIdentity);
1461     // Flange Tube 3
1462     voRB24VMABCRB->AddNode(voRB24VMABCRBF3,  1, new TGeoCombiTrans(0.,   11.2 - kRB24VMABCRBF3L/2.,  kRB24VMABCTz - kRB24VMABCRBT1L/2., rotyz));
1463     // Pirani Gauge
1464     voRB24VMABCRB->AddNode(voRB24VMABCPirani, 1, new  TGeoCombiTrans(0., 11.2,  kRB24VMABCTz - kRB24VMABCRBT1L/2., rotyz));
1465     // Tube 4
1466     voRB24VMABCRB->AddNode(voRB24VMABCRBT4,  1, gGeoIdentity);
1467     // Inforcement 
1468     voRB24VMABCRB->AddNode(voRB24VMABCRBT12, 1, new TGeoTranslation(0., 0., kRB24VMABCRBT1L2/2. - kRB24VMABCRBT1L/2. + 2.8));
1469     
1470
1471 // Pos 1.3 Bellows with end part              LHCVBU__0002
1472 //
1473 // Connection Tube    
1474 // Connection tube inner r
1475     const Float_t kRB24VMABBEConTubeRin        = 10.0/2.;
1476 // Connection tube outer r
1477     const Float_t kRB24VMABBEConTubeRou        = 10.3/2.;
1478 // Connection tube length
1479     const Float_t kRB24VMABBEConTubeL1         =  0.9;
1480     const Float_t kRB24VMABBEConTubeL2         =  2.6;
1481 //  const Float_t RB24VMABBEBellowL            =  kRB24VMABBEConTubeL1 + kRB24VMABBEConTubeL2 + kRB24B1BellowUndL;
1482     
1483 // Mother volume
1484     TGeoPcon* shRB24VMABBEBellowM = new TGeoPcon(0., 360., 6);
1485     // Connection Tube and Flange
1486     z = 0.;
1487     shRB24VMABBEBellowM->DefineSection( 0, z, kRB24VMABBEConTubeRin,  kRB24VMABBEConTubeRou);
1488     z += kRB24VMABBEConTubeL1;
1489     shRB24VMABBEBellowM->DefineSection( 1, z, kRB24VMABBEConTubeRin, kRB24VMABBEConTubeRou);
1490     shRB24VMABBEBellowM->DefineSection( 2, z, kRB24B1BellowRi,       kRB24B1BellowRo + kRB24B1ProtTubeThickness);
1491     z += kRB24B1BellowUndL;
1492     shRB24VMABBEBellowM->DefineSection( 3, z, kRB24B1BellowRi,       kRB24B1BellowRo + kRB24B1ProtTubeThickness);
1493     shRB24VMABBEBellowM->DefineSection( 4, z, kRB24VMABBEConTubeRin,  kRB24VMABBEConTubeRou);
1494     z += kRB24VMABBEConTubeL2;
1495     shRB24VMABBEBellowM->DefineSection( 5, z, kRB24VMABBEConTubeRin,  kRB24VMABBEConTubeRou);
1496     TGeoVolume* voRB24VMABBEBellowM = new TGeoVolume("RB24VMABBEBellowM", shRB24VMABBEBellowM, kMedVac);
1497     voRB24VMABBEBellowM->SetVisibility(0);
1498     
1499 //  Connection tube left
1500     TGeoVolume* voRB24VMABBECT1 = new TGeoVolume("RB24VMABBECT1", 
1501                                               new TGeoTube(kRB24VMABBEConTubeRin, kRB24VMABBEConTubeRou,kRB24VMABBEConTubeL1/2.),
1502                                               kMedSteel);
1503 //  Connection tube right
1504     TGeoVolume* voRB24VMABBECT2 = new TGeoVolume("RB24VMABBECT2", 
1505                                               new TGeoTube(kRB24VMABBEConTubeRin, kRB24VMABBEConTubeRou,kRB24VMABBEConTubeL2/2.),
1506                                               kMedSteel);
1507     z = kRB24VMABBEConTubeL1/2.;
1508     voRB24VMABBEBellowM->AddNode(voRB24VMABBECT1, 1, new TGeoTranslation(0., 0., z));
1509     z += kRB24VMABBEConTubeL1/2.;
1510     z += kRB24B1BellowUndL/2.;
1511     voRB24VMABBEBellowM->AddNode(voRB24B1Bellow, 2, new TGeoTranslation(0., 0., z));
1512     z += kRB24B1BellowUndL/2.;
1513     z += kRB24VMABBEConTubeL2/2.;
1514     voRB24VMABBEBellowM->AddNode(voRB24VMABBECT2, 1, new TGeoTranslation(0., 0., z));
1515     z += kRB24VMABBEConTubeL2/2.;
1516
1517     voRB24VMABCRB->AddNode(voRB24VMABBEBellowM, 1, new TGeoTranslation(0., 0., kRB24VMABCRBT1L/2.));
1518
1519 // Pos 1.2 Rotable flange                     LHCVBU__0013[*]
1520 // Front
1521     voRB24VMABCRB->AddNode(voRB24B1RFlange,  3, new TGeoCombiTrans(0., 0., - kRB24VMABCRBT1L/2. + 0.86, rot180));
1522 // End
1523     z =  kRB24VMABCRBT1L/2. + kRB24B1BellowUndL +kRB24VMABBEConTubeL1 +  kRB24VMABBEConTubeL2;
1524     voRB24VMABCRB->AddNode(voRB24B1RFlange,  4, new TGeoTranslation(0., 0., z - 0.86));
1525
1526
1527 // Pos 2    Trans. Tube Flange       LHCVSR__0062
1528 // Pos 2.1  Transition Tube          LHCVSR__0063
1529 // Pos 2.2  Transition Flange        LHCVSR__0060
1530 //
1531 // Transition Tube with Flange
1532     TGeoPcon* shRB24VMABCTT = new TGeoPcon(0., 360., 7);
1533     z = 0.;
1534     shRB24VMABCTT->DefineSection(0, z, 6.3/2., 11.16/2.);
1535     z += 0.25;
1536     shRB24VMABCTT->DefineSection(1, z, 6.3/2., 11.16/2.);
1537     shRB24VMABCTT->DefineSection(2, z, 6.3/2.,  9.30/2.);
1538     z += 0.25;
1539     shRB24VMABCTT->DefineSection(3, z, 6.3/2.,  9.30/2.);
1540     shRB24VMABCTT->DefineSection(4, z, 6.3/2.,  6.70/2.);
1541     z += (20.35 - 0.63);
1542     shRB24VMABCTT->DefineSection(5, z, 6.3/2.,  6.7/2.);
1543     z += 0.63;
1544     shRB24VMABCTT->DefineSection(6, z, 6.3/2.,  6.7/2.);
1545     TGeoVolume* voRB24VMABCTT = new TGeoVolume("RB24VMABCTT", shRB24VMABCTT, kMedSteel);
1546     voRB24VMABCRB->AddNode(voRB24VMABCTT, 1, new TGeoTranslation(0., 0., - kRB24VMABCRBT1L/2.-1.));
1547
1548 // Pos 3   RF Contact   D63         LHCVSR__0057
1549 // Pos 3.1 RF Contact Flange        LHCVSR__0017
1550 //
1551     TGeoPcon* shRB24VMABCCTFlange = new TGeoPcon(0., 360., 6);
1552     const Float_t kRB24VMABCCTFlangeRin  = 6.36/2.;  // Inner radius
1553     const Float_t kRB24VMABCCTFlangeL    = 1.30;     // Length
1554     
1555     z = 0.;
1556     shRB24VMABCCTFlange->DefineSection(0, z, kRB24VMABCCTFlangeRin,  6.5/2.);
1557     z += 0.15;
1558     shRB24VMABCCTFlange->DefineSection(1, z, kRB24VMABCCTFlangeRin,  6.5/2.);
1559     shRB24VMABCCTFlange->DefineSection(2, z, kRB24VMABCCTFlangeRin,  6.9/2.);
1560     z += 0.9;
1561     shRB24VMABCCTFlange->DefineSection(3, z, kRB24VMABCCTFlangeRin,  6.9/2.);
1562     shRB24VMABCCTFlange->DefineSection(4, z, kRB24VMABCCTFlangeRin, 11.16/2.);
1563     z += 0.25;
1564     shRB24VMABCCTFlange->DefineSection(5, z, kRB24VMABCCTFlangeRin, 11.16/2.);
1565     TGeoVolume* voRB24VMABCCTFlange = new TGeoVolume("RB24VMABCCTFlange", shRB24VMABCCTFlange, kMedCu);
1566 //
1567 // Pos 3.2 RF-Contact        LHCVSR__0056
1568 //
1569     TGeoPcon* shRB24VMABCCT = new TGeoPcon(0., 360., 4);
1570     const Float_t kRB24VMABCCTRin  = 6.30/2.;        // Inner radius
1571     const Float_t kRB24VMABCCTCRin = 7.29/2.;        // Max. inner radius conical section
1572     const Float_t kRB24VMABCCTL    = 11.88;          // Length
1573     const Float_t kRB24VMABCCTSL   = 10.48;          // Length of straight section
1574     const Float_t kRB24VMABCCTd    =  0.03;          // Thickness
1575     z = 0;
1576     shRB24VMABCCT->DefineSection(0, z,  kRB24VMABCCTCRin,  kRB24VMABCCTCRin + kRB24VMABCCTd);
1577     z =  kRB24VMABCCTL -  kRB24VMABCCTSL;
1578     shRB24VMABCCT->DefineSection(1, z,  kRB24VMABCCTRin + 0.35,  kRB24VMABCCTRin + 0.35 + kRB24VMABCCTd);
1579     z = kRB24VMABCCTL  -  kRB24VMABCCTFlangeL;
1580     shRB24VMABCCT->DefineSection(2, z,  kRB24VMABCCTRin,  kRB24VMABCCTRin + kRB24VMABCCTd);
1581     z = kRB24VMABCCTL;
1582     shRB24VMABCCT->DefineSection(3, z,  kRB24VMABCCTRin,  kRB24VMABCCTRin + kRB24VMABCCTd);
1583
1584     TGeoVolume* voRB24VMABCCT = new TGeoVolume("RB24VMABCCT", shRB24VMABCCT, kMedCu);
1585     
1586     TGeoVolumeAssembly* voRB24VMABRFCT = new TGeoVolumeAssembly("RB24VMABRFCT");
1587     voRB24VMABRFCT->AddNode(voRB24VMABCCT,        1, gGeoIdentity);
1588     voRB24VMABRFCT->AddNode( voRB24VMABCCTFlange, 1, new TGeoTranslation(0., 0.,  kRB24VMABCCTL - kRB24VMABCCTFlangeL));
1589
1590     z =  kRB24VMABCRBT1L/2. + kRB24B1BellowUndL + kRB24VMABBEConTubeL1 +  kRB24VMABBEConTubeL2 - kRB24VMABCCTL + 1.;    
1591     voRB24VMABCRB->AddNode(voRB24VMABRFCT, 1, new TGeoTranslation(0., 0., z));
1592
1593
1594 //
1595 // Assembling RB24/1
1596 //    
1597     TGeoVolumeAssembly* voRB24 = new TGeoVolumeAssembly("RB24");
1598     // Cu Tube with two simplified flanges
1599     voRB24->AddNode(voRB24CuTubeM, 1, gGeoIdentity);
1600     if (!fBeamBackground) voRB24->AddNode(voRB24CuTubeA, 1, gGeoIdentity);
1601     z = - kRB24CuTubeL/2 + kRB24CuTubeFL/2.;
1602     voRB24->AddNode(voRB24CuTubeF, 1, new TGeoTranslation(0., 0., z));
1603     z = + kRB24CuTubeL/2 - kRB24CuTubeFL/2.;
1604     voRB24->AddNode(voRB24CuTubeF, 2, new TGeoTranslation(0., 0., z));
1605     // VMABC close to compensator magnet
1606     z = - kRB24CuTubeL/2. -  (kRB24VMABCL - kRB24VMABCRBT1L/2) + 1.;
1607     
1608     voRB24->AddNode(voRB24VMABCRB, 2, new TGeoTranslation(0., 0., z));
1609     // Bellow
1610     z =  kRB24CuTubeL/2;
1611     voRB24->AddNode(voRB24B1BellowM, 1, new TGeoTranslation(0., 0., z));
1612     z +=  (kRB24B1L +  kRB24AIpML/2.);
1613     // Annular ion pump
1614     voRB24->AddNode(voRB24AIpM, 1, new TGeoTranslation(0., 0., z));
1615     z +=  (kRB24AIpML/2. +  kRB24ValveWz/2.);
1616     // Valve
1617     voRB24->AddNode(voRB24ValveMo, 1, new TGeoTranslation(0., 0., z));
1618     z += (kRB24ValveWz/2.+ kRB24VMABCRBT1L/2. + 1.);
1619     // VMABC close to forward detectors
1620     voRB24->AddNode(voRB24VMABCRB, 3, new TGeoTranslation(0., 0., z));
1621 //
1622 //   RB24/2
1623 //     
1624 // Copper Tube RB24/2
1625 //
1626 // This is the part inside the compensator magnet
1627     const Float_t  kRB242CuTubeL  = 330.0;
1628     
1629     TGeoVolume* voRB242CuTubeM = new TGeoVolume("voRB242CuTubeM", 
1630                                                 new TGeoTube(0., kRB24CuTubeRo, kRB242CuTubeL/2.), kMedVacM);
1631     voRB242CuTubeM->SetVisibility(0);
1632     TGeoVolume* voRB242CuTube = new TGeoVolume("voRB242CuTube", 
1633                                                new TGeoTube(kRB24CuTubeRi, kRB24CuTubeRo, kRB242CuTubeL/2.), kMedCu);
1634     voRB242CuTubeM->AddNode(voRB242CuTube, 1, gGeoIdentity);
1635     
1636
1637     TGeoVolumeAssembly* voRB242 = new TGeoVolumeAssembly("RB242");
1638     voRB242->AddNode(voRB242CuTubeM, 1, gGeoIdentity);
1639     z = - kRB242CuTubeL/2 + kRB24CuTubeFL/2.;
1640     voRB242->AddNode(voRB24CuTubeF, 3, new TGeoTranslation(0., 0., z));
1641     z = + kRB242CuTubeL/2 - kRB24CuTubeFL/2.;
1642     voRB242->AddNode(voRB24CuTubeF, 4, new TGeoTranslation(0., 0., z));
1643     z = - kRB24CuTubeL/2 - kRB24VMABCL - kRB242CuTubeL/2.;
1644     voRB24->AddNode(voRB242, 1, new TGeoTranslation(0., 0., z));
1645 //
1646 //   RB24/3
1647 //     
1648 // Copper Tube RB24/3
1649     const Float_t  kRB243CuTubeL  = 303.35;
1650     
1651     TGeoVolume* voRB243CuTubeM = new TGeoVolume("voRB243CuTubeM", 
1652                                                 new TGeoTube(0., kRB24CuTubeRo, kRB243CuTubeL/2.), kMedVac);
1653     voRB24CuTubeM->SetVisibility(0);
1654     TGeoVolume* voRB243CuTube = new TGeoVolume("voRB243CuTube", 
1655                                                new TGeoTube(kRB24CuTubeRi, kRB24CuTubeRo, kRB243CuTubeL/2.), kMedCu);
1656     voRB243CuTubeM->AddNode(voRB243CuTube, 1, gGeoIdentity);
1657     
1658
1659     TGeoVolumeAssembly* voRB243  = new TGeoVolumeAssembly("RB243");
1660     TGeoVolumeAssembly* voRB243A = new TGeoVolumeAssembly("RB243A");
1661     
1662     voRB243A->AddNode(voRB243CuTubeM, 1, gGeoIdentity);
1663     z = - kRB243CuTubeL/2 + kRB24CuTubeFL/2.;
1664     voRB243A->AddNode(voRB24CuTubeF, 5, new TGeoTranslation(0., 0., z));
1665     z = + kRB243CuTubeL/2 - kRB24CuTubeFL/2.;
1666     voRB243A->AddNode(voRB24CuTubeF, 6, new TGeoTranslation(0., 0., z));
1667     z = + kRB243CuTubeL/2;
1668     voRB243A->AddNode(voRB24B1BellowM,  2, new TGeoTranslation(0., 0., z));    
1669
1670     z = - kRB243CuTubeL/2.  - kRB24B1L;
1671     voRB243->AddNode(voRB243A, 1, new TGeoTranslation(0., 0., z));    
1672     z = - (1.5 * kRB243CuTubeL + 2. * kRB24B1L);
1673     voRB243->AddNode(voRB243A, 2, new TGeoTranslation(0., 0., z));    
1674
1675     z = - 2. * (kRB243CuTubeL + kRB24B1L) - (kRB24VMABCL - kRB24VMABCRBT1L/2) + 1.;
1676     voRB243->AddNode(voRB24VMABCRB, 3, new TGeoTranslation(0., 0., z));    
1677     
1678     z = - kRB24CuTubeL/2 - kRB24VMABCL - kRB242CuTubeL;
1679     voRB24->AddNode(voRB243, 1, new TGeoTranslation(0., 0., z));
1680
1681
1682 //
1683 //
1684     top->AddNode(voRB24, 1, new TGeoCombiTrans(0., 0., kRB24CuTubeL/2 + 88.5 + 400. + CP2Length, rot180));
1685
1686
1687 // 
1688 ////////////////////////////////////////////////////////////////////////////////     
1689 //                                                                            //
1690 //                                  The Absorber Vacuum system                // 
1691 //                                                                            //
1692 ////////////////////////////////////////////////////////////////////////////////
1693 //
1694 //    Rotable Flange starts at:            82.00 cm from IP      
1695 //    Length of rotable flange section:    10.68 cm             
1696 //    Weld                                  0.08 cm                  
1697 //    Length of straight section          207.21 cm
1698 //    =======================================================================
1699 //                                        299.97 cm  [0.03 cm missing ?]
1700 //    Length of opening cone              252.09 cm
1701 //    Weld                                  0.15 cm                
1702 //    Length of compensator                30.54 cm
1703 //    Weld                                  0.15 cm                
1704 //    Length of fixed flange  2.13 - 0.97   1.16 cm
1705 //    ======================================================================= 
1706 //                                        584.06 cm [584.80 installed] [0.74 cm missing]
1707 //    RB26/3
1708 //    Length of split flange  2.13 - 1.2    0.93 cm
1709 //    Weld                                  0.15 cm                
1710 //    Length of fixed point section        16.07 cm               
1711 //    Weld                                  0.15 cm                
1712 //    Length of opening cone              629.20 cm
1713 //    Weld                                  0.30 cm                
1714 //    Kength of the compensator            41.70 cm
1715 //    Weld                                  0.30 cm                
1716 //    Length of fixed flange  2.99 - 1.72   1.27 cm
1717 // =================================================
1718 //    Length of RB26/3                    690.07 cm [689.20 installed] [0.87 cm too much] 
1719 //
1720 //    RB26/4-5
1721 //    Length of split flange  2.13 - 1.2    0.93 cm
1722 //    Weld                                  0.15 cm                
1723 //    Length of fixed point section        16.07 cm               
1724 //    Weld                                  0.15 cm                
1725 //    Length of opening cone              629.20 cm
1726 //    Weld                                  0.30 cm                
1727 //    Length of closing cone
1728 //    Weld
1729 //    Lenth of straight section 
1730 //    Kength of the compensator            41.70 cm
1731 //    Weld                                  0.30 cm                
1732 //    Length of fixed flange  2.99 - 1.72   1.27 cm
1733 // =================================================
1734 //    Length of RB26/3                    690.07 cm [689.20 installed] [0.87 cm too much] 
1735       
1736 ///////////////////////////////////////////
1737 //                                       //
1738 //    RB26/1-2                           //  
1739 //    Drawing LHCV2a_0050 [as installed] //
1740 //    Drawing LHCV2a_0008                //
1741 //    Drawing LHCV2a_0001                //
1742 ///////////////////////////////////////////
1743 //    Pos1 Vacuum Tubes   LHCVC2A__0010
1744 //    Pos2 Compensator    LHCVC2A__0064
1745 //    Pos3 Rotable Flange LHCVFX___0016
1746 //    Pos4 Fixed Flange   LHCVFX___0006
1747 //    Pos5 Bellow Tooling LHCVFX___0003
1748 //
1749 //             
1750 //
1751 ///////////////////////////////////
1752 //    RB26/1-2 Vacuum Tubes      //
1753 //    Drawing  LHCVC2a_0010      //
1754 ///////////////////////////////////
1755       const Float_t kRB26s12TubeL = 459.45; // 0.15 cm added for welding       
1756       //
1757       // Add 1 cm on outer diameter for insulation
1758       //
1759       TGeoPcon* shRB26s12Tube = new TGeoPcon(0., 360., 5);
1760       // Section 1: straight section
1761       shRB26s12Tube->DefineSection(0,   0.00,         5.84/2.,  6.00/2.);
1762       shRB26s12Tube->DefineSection(1, 207.21,         5.84/2.,  6.00/2.);      
1763       // Section 2: 0.72 deg opening cone
1764       shRB26s12Tube->DefineSection(2, 207.21,         5.84/2.,  6.14/2.);      
1765       shRB26s12Tube->DefineSection(3, 452.30,        12.00/2., 12.30/2.);      
1766       shRB26s12Tube->DefineSection(4, kRB26s12TubeL, 12.00/2., 12.30/2.); 
1767       TGeoVolume* voRB26s12Tube  = new TGeoVolume("RB26s12Tube", shRB26s12Tube, kMedSteel);
1768       // Add the insulation layer    
1769       TGeoVolume* voRB26s12TubeIns = new TGeoVolume("RB26s12TubeIns", MakeInsulationFromTemplate(shRB26s12Tube), kMedInsu); 
1770       voRB26s12Tube->AddNode(voRB26s12TubeIns, 1, gGeoIdentity);
1771
1772  
1773       TGeoVolume* voRB26s12TubeM  = new TGeoVolume("RB26s12TubeM", MakeMotherFromTemplate(shRB26s12Tube), kMedVac);
1774       voRB26s12TubeM->AddNode(voRB26s12Tube, 1, gGeoIdentity);
1775       
1776
1777       
1778 ///////////////////////////////////
1779 //    RB26/2   Axial Compensator //
1780 //    Drawing  LHCVC2a_0064      //
1781 ///////////////////////////////////
1782       const Float_t kRB26s2CompL             = 30.65;    // Length of the compensator
1783       const Float_t kRB26s2BellowRo          = 14.38/2.; // Bellow outer radius        [Pos 1]
1784       const Float_t kRB26s2BellowRi          = 12.12/2.; // Bellow inner radius        [Pos 1] 
1785       const Int_t   kRB26s2NumberOfPlies     = 14;       // Number of plies            [Pos 1] 
1786       const Float_t kRB26s2BellowUndL        = 10.00;    // Length of undulated region [Pos 1]  [+10 mm installed including pretension ?] 
1787       const Float_t kRB26s2PlieThickness     =  0.025;   // Plie thickness             [Pos 1]
1788       const Float_t kRB26s2ConnectionPlieR   =  0.21;    // Connection plie radius     [Pos 1] 
1789 //  Plie radius
1790       const Float_t kRB26s2PlieR = 
1791         (kRB26s2BellowUndL - 4. *  kRB26s2ConnectionPlieR + 2. * kRB26s2PlieThickness + 
1792          (2. *  kRB26s2NumberOfPlies - 2.) * kRB26s2PlieThickness) / (4. * kRB26s2NumberOfPlies - 2.);
1793       const Float_t kRB26s2CompTubeInnerR    = 12.00/2.;  // Connection tubes inner radius     [Pos 2 + 3]
1794       const Float_t kRB26s2CompTubeOuterR    = 12.30/2.;  // Connection tubes outer radius     [Pos 2 + 3]
1795       const Float_t kRB26s2WeldingTubeLeftL  =  9.00/2.;  // Left connection tube half length  [Pos 2]
1796       const Float_t kRB26s2WeldingTubeRightL = 11.65/2.;  // Right connection tube half length [Pos 3]  [+ 0.15 cm for welding]
1797       const Float_t kRB26s2RingOuterR        = 18.10/2.;  // Ring inner radius                 [Pos 4]
1798       const Float_t kRB26s2RingL             =  0.40/2.;  // Ring half length                  [Pos 4]
1799       const Float_t kRB26s2RingZ             =  6.50   ;  // Ring z-position                   [Pos 4]
1800       const Float_t kRB26s2ProtOuterR        = 18.20/2.;  // Protection tube outer radius      [Pos 5]
1801       const Float_t kRB26s2ProtL             = 15.00/2.;  // Protection tube half length       [Pos 5]
1802       const Float_t kRB26s2ProtZ             =  6.70   ;  // Protection tube z-position        [Pos 5]
1803    
1804       
1805 // Mother volume
1806 //
1807       TGeoPcon* shRB26s2Compensator  = new TGeoPcon(0., 360., 6);
1808       shRB26s2Compensator->DefineSection( 0,   0.0, 0., kRB26s2CompTubeOuterR);
1809       shRB26s2Compensator->DefineSection( 1,   kRB26s2RingZ, 0., kRB26s2CompTubeOuterR);      
1810       shRB26s2Compensator->DefineSection( 2,   kRB26s2RingZ, 0., kRB26s2ProtOuterR);      
1811       shRB26s2Compensator->DefineSection( 3,   kRB26s2ProtZ + 2. * kRB26s2ProtL, 0., kRB26s2ProtOuterR);            
1812       shRB26s2Compensator->DefineSection( 4,   kRB26s2ProtZ + 2. * kRB26s2ProtL, 0., kRB26s2CompTubeOuterR);
1813       shRB26s2Compensator->DefineSection( 5,   kRB26s2CompL                    , 0., kRB26s2CompTubeOuterR);            
1814       TGeoVolume* voRB26s2Compensator  = new TGeoVolume("RB26s2Compensator", shRB26s2Compensator, kMedVac);
1815             
1816 //
1817 // [Pos 1] Bellow
1818 //      
1819 //
1820       TGeoVolume* voRB26s2Bellow = new TGeoVolume("RB26s2Bellow", new TGeoTube(kRB26s2BellowRi, kRB26s2BellowRo, kRB26s2BellowUndL/2.), kMedVac);
1821 //      
1822 //  Upper part of the undulation
1823 //
1824       TGeoTorus* shRB26s2PlieTorusU  =  new TGeoTorus(kRB26s2BellowRo - kRB26s2PlieR, kRB26s2PlieR - kRB26s2PlieThickness, kRB26s2PlieR);
1825       shRB26s2PlieTorusU->SetName("RB26s2TorusU");
1826       TGeoTube*  shRB26s2PlieTubeU   =  new TGeoTube (kRB26s2BellowRo - kRB26s2PlieR, kRB26s2BellowRo, kRB26s2PlieR);
1827       shRB26s2PlieTubeU->SetName("RB26s2TubeU");
1828       TGeoCompositeShape*  shRB26s2UpperPlie = new TGeoCompositeShape("RB26s2UpperPlie", "RB26s2TorusU*RB26s2TubeU");
1829  
1830       TGeoVolume* voRB26s2WiggleU = new TGeoVolume("RB26s2UpperPlie", shRB26s2UpperPlie, kMedSteel);
1831 //
1832 // Lower part of the undulation
1833       TGeoTorus* shRB26s2PlieTorusL =  new TGeoTorus(kRB26s2BellowRi + kRB26s2PlieR, kRB26s2PlieR - kRB26s2PlieThickness, kRB26s2PlieR);
1834       shRB26s2PlieTorusL->SetName("RB26s2TorusL");
1835       TGeoTube*  shRB26s2PlieTubeL   =  new TGeoTube (kRB26s2BellowRi, kRB26s2BellowRi + kRB26s2PlieR, kRB26s2PlieR);
1836       shRB26s2PlieTubeL->SetName("RB26s2TubeL");
1837       TGeoCompositeShape*  shRB26s2LowerPlie = new TGeoCompositeShape("RB26s2LowerPlie", "RB26s2TorusL*RB26s2TubeL");
1838       
1839       TGeoVolume* voRB26s2WiggleL = new TGeoVolume("RB26s2LowerPlie", shRB26s2LowerPlie, kMedSteel); 
1840
1841 //
1842 // Connection between upper and lower part of undulation
1843       TGeoVolume* voRB26s2WiggleC1 = new TGeoVolume("RB26s2PlieConn1",  
1844                                                     new TGeoTube(kRB26s2BellowRi + kRB26s2PlieR, 
1845                                                                  kRB26s2BellowRo - kRB26s2PlieR, kRB26s2PlieThickness / 2.), kMedSteel);
1846 //
1847 // One wiggle
1848       TGeoVolumeAssembly* voRB26s2Wiggle = new TGeoVolumeAssembly("RB26s2Wiggle");
1849       z0 =  -  kRB26s2PlieThickness / 2.;
1850       voRB26s2Wiggle->AddNode(voRB26s2WiggleC1,  1 , new TGeoTranslation(0., 0., z0));
1851       z0 += kRB26s2PlieR -  kRB26s2PlieThickness / 2.;
1852       voRB26s2Wiggle->AddNode(voRB26s2WiggleU,   1 , new TGeoTranslation(0., 0., z0));
1853       z0 += kRB26s2PlieR -  kRB26s2PlieThickness / 2.;
1854       voRB26s2Wiggle->AddNode(voRB26s2WiggleC1,  2 , new TGeoTranslation(0., 0., z0));
1855       z0 += kRB26s2PlieR -  kRB26s2PlieThickness;
1856       voRB26s2Wiggle->AddNode(voRB26s2WiggleL ,  1 , new TGeoTranslation(0., 0., z0));
1857 // Positioning of the volumes
1858       z0   = - kRB26s2BellowUndL/2.+ kRB26s2ConnectionPlieR;
1859       voRB26s2Bellow->AddNode(voRB26s2WiggleL, 1, new TGeoTranslation(0., 0., z0));
1860       z0  +=  kRB26s2ConnectionPlieR;
1861       zsh  = 4. *  kRB26s2PlieR -  2. * kRB26s2PlieThickness;
1862       for (Int_t iw = 0; iw < kRB26s2NumberOfPlies; iw++) {
1863           Float_t zpos =  z0 + iw * zsh;        
1864           voRB26s2Bellow->AddNode(voRB26s2Wiggle,  iw + 1, new TGeoTranslation(0., 0., zpos -  kRB26s2PlieThickness));  
1865       }
1866
1867       voRB26s2Compensator->AddNode(voRB26s2Bellow, 1,  new TGeoTranslation(0., 0., 2. * kRB26s2WeldingTubeLeftL + kRB26s2BellowUndL/2.));
1868       
1869 //
1870 // [Pos 2] Left Welding Tube
1871 //      
1872       TGeoTube* shRB26s2CompLeftTube = new TGeoTube(kRB26s2CompTubeInnerR, kRB26s2CompTubeOuterR, kRB26s2WeldingTubeLeftL);
1873       TGeoVolume* voRB26s2CompLeftTube = new TGeoVolume("RB26s2CompLeftTube", shRB26s2CompLeftTube, kMedSteel);
1874       voRB26s2Compensator->AddNode(voRB26s2CompLeftTube, 1,  new TGeoTranslation(0., 0., kRB26s2WeldingTubeLeftL));
1875 //
1876 // [Pos 3] Right Welding Tube
1877 //      
1878       TGeoTube* shRB26s2CompRightTube = new TGeoTube(kRB26s2CompTubeInnerR, kRB26s2CompTubeOuterR, kRB26s2WeldingTubeRightL);
1879       TGeoVolume* voRB26s2CompRightTube = new TGeoVolume("RB26s2CompRightTube", shRB26s2CompRightTube, kMedSteel);
1880       voRB26s2Compensator->AddNode(voRB26s2CompRightTube,  1, new TGeoTranslation(0., 0.,  kRB26s2CompL - kRB26s2WeldingTubeRightL));
1881 //
1882 // [Pos 4] Ring
1883 //      
1884       TGeoTube* shRB26s2CompRing = new TGeoTube(kRB26s2CompTubeOuterR, kRB26s2RingOuterR, kRB26s2RingL);
1885       TGeoVolume* voRB26s2CompRing = new TGeoVolume("RB26s2CompRing", shRB26s2CompRing, kMedSteel);
1886       voRB26s2Compensator->AddNode(voRB26s2CompRing,  1, new TGeoTranslation(0., 0., kRB26s2RingZ + kRB26s2RingL));
1887
1888 //
1889 // [Pos 5] Outer Protecting Tube
1890 //      
1891       TGeoTube* shRB26s2CompProtTube = new TGeoTube(kRB26s2RingOuterR, kRB26s2ProtOuterR, kRB26s2ProtL);
1892       TGeoVolume* voRB26s2CompProtTube = new TGeoVolume("RB26s2CompProtTube", shRB26s2CompProtTube, kMedSteel);
1893       voRB26s2Compensator->AddNode(voRB26s2CompProtTube, 1,  new TGeoTranslation(0., 0., kRB26s2ProtZ + kRB26s2ProtL));
1894       
1895 ///////////////////////////////////
1896 //    Rotable Flange             //
1897 //    Drawing  LHCVFX_0016       //
1898 /////////////////////////////////// 
1899       const Float_t kRB26s1RFlangeTubeRi    = 5.84/2. ;  // Tube inner radius
1900       const Float_t kRB26s1RFlangeTubeRo    = 6.00/2. ;  // Tube outer radius
1901
1902 // Pos 1 Clamp Ring          LHCVFX__0015
1903       const Float_t kRB26s1RFlangeCrL       = 1.40     ; // Lenth of the clamp ring
1904       const Float_t kRB26s1RFlangeCrRi1     = 6.72/2.  ; // Ring inner radius section 1
1905       const Float_t kRB26s1RFlangeCrRi2     = 6.06/2.  ; // Ring inner radius section 2
1906       const Float_t kRB26s1RFlangeCrRo      = 8.60/2.  ; // Ring outer radius 
1907       const Float_t kRB26s1RFlangeCrD       = 0.800    ; // Width section 1
1908       
1909       TGeoPcon* shRB26s1RFlangeCr = new TGeoPcon(0., 360., 4);
1910       z0 = 0.;
1911       shRB26s1RFlangeCr->DefineSection(0, z0, kRB26s1RFlangeCrRi1, kRB26s1RFlangeCrRo);
1912       z0 += kRB26s1RFlangeCrD;
1913       shRB26s1RFlangeCr->DefineSection(1, z0, kRB26s1RFlangeCrRi1, kRB26s1RFlangeCrRo);
1914       shRB26s1RFlangeCr->DefineSection(2, z0, kRB26s1RFlangeCrRi2, kRB26s1RFlangeCrRo);      
1915       z0 = kRB26s1RFlangeCrL;
1916       shRB26s1RFlangeCr->DefineSection(3, z0, kRB26s1RFlangeCrRi2, kRB26s1RFlangeCrRo);
1917       TGeoVolume* voRB26s1RFlangeCr =  
1918           new TGeoVolume("RB26s1RFlangeCr", shRB26s1RFlangeCr, kMedSteel);
1919
1920 // Pos 2 Insert              LHCVFX__0015
1921       const Float_t kRB26s1RFlangeIsL       = 4.88     ; // Lenth of the insert
1922       const Float_t kRB26s1RFlangeIsR       = 6.70/2.  ; // Ring radius
1923       const Float_t kRB26s1RFlangeIsD       = 0.80     ; // Ring Width
1924
1925       TGeoPcon* shRB26s1RFlangeIs = new TGeoPcon(0., 360., 4);
1926       z0 = 0.;
1927       shRB26s1RFlangeIs->DefineSection(0, z0, kRB26s1RFlangeTubeRi, kRB26s1RFlangeIsR);
1928       z0 += kRB26s1RFlangeIsD;
1929       shRB26s1RFlangeIs->DefineSection(1, z0, kRB26s1RFlangeTubeRi, kRB26s1RFlangeIsR);
1930       shRB26s1RFlangeIs->DefineSection(2, z0, kRB26s1RFlangeTubeRi, kRB26s1RFlangeTubeRo);      
1931       z0 = kRB26s1RFlangeIsL;
1932       shRB26s1RFlangeIs->DefineSection(3, z0, kRB26s1RFlangeTubeRi, kRB26s1RFlangeTubeRo);
1933       TGeoVolume* voRB26s1RFlangeIs =  
1934           new TGeoVolume("RB26s1RFlangeIs", shRB26s1RFlangeIs, kMedSteel);
1935 // 4.88 + 3.7 = 8.58 (8.7 to avoid overlap)
1936 // Pos 3 Fixed Point Section LHCVC2A_0021
1937       const Float_t kRB26s1RFlangeFpL       = 5.88     ; // Length of the fixed point section (0.08 cm added for welding)
1938       const Float_t kRB26s1RFlangeFpZ       = 3.82     ; // Position of the ring
1939       const Float_t kRB26s1RFlangeFpD       = 0.59     ; // Width of the ring
1940       const Float_t kRB26s1RFlangeFpR       = 7.00/2.  ; // Radius of the ring
1941       
1942       TGeoPcon* shRB26s1RFlangeFp = new TGeoPcon(0., 360., 6);
1943       z0 = 0.;
1944       shRB26s1RFlangeFp->DefineSection(0, z0, kRB26s1RFlangeTubeRi, kRB26s1RFlangeTubeRo);
1945       z0 += kRB26s1RFlangeFpZ;
1946       shRB26s1RFlangeFp->DefineSection(1, z0, kRB26s1RFlangeTubeRi, kRB26s1RFlangeTubeRo);      
1947       shRB26s1RFlangeFp->DefineSection(2, z0, kRB26s1RFlangeTubeRi, kRB26s1RFlangeFpR);           
1948       z0 += kRB26s1RFlangeFpD;
1949       shRB26s1RFlangeFp->DefineSection(3, z0, kRB26s1RFlangeTubeRi, kRB26s1RFlangeFpR);           
1950       shRB26s1RFlangeFp->DefineSection(4, z0, kRB26s1RFlangeTubeRi, kRB26s1RFlangeTubeRo);
1951       z0 = kRB26s1RFlangeFpL;
1952       shRB26s1RFlangeFp->DefineSection(5, z0, kRB26s1RFlangeTubeRi, kRB26s1RFlangeTubeRo);
1953       TGeoVolume* voRB26s1RFlangeFp = new TGeoVolume("RB26s1RFlangeFp", shRB26s1RFlangeFp, kMedSteel);
1954              
1955 // Put everything in a mother volume
1956       TGeoPcon* shRB26s1RFlange = new TGeoPcon(0., 360., 8);
1957       z0 =  0.;
1958       shRB26s1RFlange->DefineSection(0, z0, 0., kRB26s1RFlangeCrRo);
1959       z0 += kRB26s1RFlangeCrL;
1960       shRB26s1RFlange->DefineSection(1, z0, 0., kRB26s1RFlangeCrRo);
1961       shRB26s1RFlange->DefineSection(2, z0, 0., kRB26s1RFlangeTubeRo);
1962       z0 = kRB26s1RFlangeIsL + kRB26s1RFlangeFpZ;
1963       shRB26s1RFlange->DefineSection(3, z0, 0., kRB26s1RFlangeTubeRo);      
1964       shRB26s1RFlange->DefineSection(4, z0, 0., kRB26s1RFlangeFpR);
1965       z0 += kRB26s1RFlangeFpD;
1966       shRB26s1RFlange->DefineSection(5, z0, 0., kRB26s1RFlangeFpR);               
1967       shRB26s1RFlange->DefineSection(6, z0, 0., kRB26s1RFlangeTubeRo);
1968       z0 = kRB26s1RFlangeIsL + kRB26s1RFlangeFpL;
1969       shRB26s1RFlange->DefineSection(7, z0, 0., kRB26s1RFlangeTubeRo);
1970       TGeoVolume* voRB26s1RFlange = new TGeoVolume("RB26s1RFlange", shRB26s1RFlange, kMedVac);
1971
1972       voRB26s1RFlange->AddNode(voRB26s1RFlangeIs, 1, gGeoIdentity);
1973       voRB26s1RFlange->AddNode(voRB26s1RFlangeCr, 1, gGeoIdentity);
1974       voRB26s1RFlange->AddNode(voRB26s1RFlangeFp, 1, new TGeoTranslation(0., 0., kRB26s1RFlangeIsL));
1975       
1976 ///////////////////////////////////
1977 //    Fixed Flange               //
1978 //    Drawing  LHCVFX_0006       //
1979 /////////////////////////////////// 
1980       const Float_t kRB26s2FFlangeL      =  2.13;    // Length of the flange
1981       const Float_t kRB26s2FFlangeD1     =  0.97;    // Length of section 1
1982       const Float_t kRB26s2FFlangeD2     =  0.29;    // Length of section 2                                                  
1983       const Float_t kRB26s2FFlangeD3     =  0.87;    // Length of section 3                                                        
1984       const Float_t kRB26s2FFlangeRo     = 17.15/2.; // Flange outer radius 
1985       const Float_t kRB26s2FFlangeRi1    = 12.30/2.; // Flange inner radius section 1
1986       const Float_t kRB26s2FFlangeRi2    = 12.00/2.; // Flange inner radius section 2
1987       const Float_t kRB26s2FFlangeRi3    = 12.30/2.; // Flange inner radius section 3
1988       z0 = 0;
1989       TGeoPcon* shRB26s2FFlange = new TGeoPcon(0., 360., 6);
1990       z0 = 0.;
1991       shRB26s2FFlange->DefineSection(0, z0, kRB26s2FFlangeRi1, kRB26s2FFlangeRo);
1992       z0 += kRB26s2FFlangeD1;
1993       shRB26s2FFlange->DefineSection(1, z0, kRB26s2FFlangeRi1, kRB26s2FFlangeRo);
1994       shRB26s2FFlange->DefineSection(2, z0, kRB26s2FFlangeRi2, kRB26s2FFlangeRo);
1995       z0 += kRB26s2FFlangeD2;
1996       shRB26s2FFlange->DefineSection(3, z0, kRB26s2FFlangeRi2, kRB26s2FFlangeRo);
1997       shRB26s2FFlange->DefineSection(4, z0, kRB26s2FFlangeRi3, kRB26s2FFlangeRo);
1998       z0 += kRB26s2FFlangeD3;
1999       shRB26s2FFlange->DefineSection(5, z0, kRB26s2FFlangeRi3, kRB26s2FFlangeRo);
2000       TGeoVolume* voRB26s2FFlange = new TGeoVolume("RB26s2FFlange", shRB26s2FFlange, kMedSteel);
2001
2002       TGeoVolume* voRB26s2FFlangeM = new TGeoVolume("RB26s2FFlangeM", MakeMotherFromTemplate(shRB26s2FFlange, 2, 5), kMedVac);
2003       voRB26s2FFlangeM->AddNode(voRB26s2FFlange, 1, gGeoIdentity);
2004       
2005       
2006
2007 ////////////////////////////////////////
2008 //                                    //
2009 //    RB26/3                          //  
2010 //    Drawing LHCV2a_0048             //
2011 //    Drawing LHCV2a_0002             //
2012 ////////////////////////////////////////    
2013 //
2014 //    Pos 1 Vacuum Tubes      LHCVC2A__0003
2015 //    Pos 2 Fixed Point       LHCVFX___0005
2016 //    Pos 3 Split Flange      LHCVFX___0007
2017 //    Pos 4 Fixed Flange      LHCVFX___0004
2018 //    Pos 5 Axial Compensator LHCVC2A__0065
2019 //
2020 //
2021 //
2022 //
2023 ///////////////////////////////////
2024 //    Vacuum Tube                //
2025 //    Drawing  LHCVC2A_0003      //
2026 /////////////////////////////////// 
2027       const Float_t kRB26s3TubeL  = 629.35 + 0.3; // 0.3 cm added for welding
2028       const Float_t kRB26s3TubeR1 =  12./2.;
2029       const Float_t kRB26s3TubeR2 =  kRB26s3TubeR1 + 215.8 * TMath::Tan(0.829 / 180. * TMath::Pi());
2030       
2031       
2032       TGeoPcon* shRB26s3Tube = new TGeoPcon(0., 360., 7);
2033       // Section 1: straight section
2034       shRB26s3Tube->DefineSection(0,   0.00, kRB26s3TubeR1, kRB26s3TubeR1 + 0.15);
2035       shRB26s3Tube->DefineSection(1,   2.00, kRB26s3TubeR1, kRB26s3TubeR1 + 0.15);      
2036       // Section 2: 0.829 deg opening cone
2037       shRB26s3Tube->DefineSection(2,   2.00, kRB26s3TubeR1, kRB26s3TubeR1 + 0.20);
2038       
2039       shRB26s3Tube->DefineSection(3, 217.80, kRB26s3TubeR2, kRB26s3TubeR2 + 0.20);
2040       shRB26s3Tube->DefineSection(4, 217.80, kRB26s3TubeR2, kRB26s3TubeR2 + 0.30);      
2041
2042       shRB26s3Tube->DefineSection(5, 622.20,       30.00/2., 30.60/2.);      
2043       shRB26s3Tube->DefineSection(6, kRB26s3TubeL, 30.00/2., 30.60/2.); 
2044
2045       TGeoVolume* voRB26s3Tube = new TGeoVolume("RB26s3Tube", shRB26s3Tube, kMedSteel);
2046 //    Add the insulation layer
2047       TGeoVolume* voRB26s3TubeIns = new TGeoVolume("RB26s3TubeIns", MakeInsulationFromTemplate(shRB26s3Tube), kMedInsu); 
2048       voRB26s3Tube->AddNode(voRB26s3TubeIns, 1, gGeoIdentity);
2049
2050       TGeoVolume* voRB26s3TubeM  = new TGeoVolume("RB26s3TubeM", MakeMotherFromTemplate(shRB26s3Tube), kMedVac);
2051       voRB26s3TubeM->AddNode(voRB26s3Tube, 1, gGeoIdentity);
2052
2053       
2054
2055 ///////////////////////////////////
2056 //    Fixed Point                //
2057 //    Drawing  LHCVFX_0005       //
2058 /////////////////////////////////// 
2059       const Float_t kRB26s3FixedPointL       = 16.37     ; // Length of the fixed point section (0.3 cm added for welding)
2060       const Float_t kRB26s3FixedPointZ       =  9.72     ; // Position of the ring (0.15 cm added for welding)
2061       const Float_t kRB26s3FixedPointD       =  0.595    ; // Width of the ring
2062       const Float_t kRB26s3FixedPointR       = 13.30/2.  ; // Radius of the ring
2063       const Float_t kRB26s3FixedPointRi      = 12.00/2.  ; // Inner radius of the tube
2064       const Float_t kRB26s3FixedPointRo1     = 12.30/2.  ; // Outer radius of the tube (in)
2065       const Float_t kRB26s3FixedPointRo2     = 12.40/2.  ; // Outer radius of the tube (out)
2066       const Float_t kRB26s3FixedPointDs      =  1.5      ; // Width of straight section behind ring
2067       const Float_t kRB26s3FixedPointDc      =  3.15     ; // Width of conical  section behind ring (0.15 cm added for welding)      
2068       
2069       TGeoPcon* shRB26s3FixedPoint = new TGeoPcon(0., 360., 8);
2070       z0 = 0.;
2071       shRB26s3FixedPoint->DefineSection(0, z0, kRB26s3FixedPointRi, kRB26s3FixedPointRo1);
2072       z0 += kRB26s3FixedPointZ;
2073       shRB26s3FixedPoint->DefineSection(1, z0, kRB26s3FixedPointRi, kRB26s3FixedPointRo1);      
2074       shRB26s3FixedPoint->DefineSection(2, z0, kRB26s3FixedPointRi, kRB26s3FixedPointR);          
2075       z0 += kRB26s3FixedPointD;
2076       shRB26s3FixedPoint->DefineSection(3, z0, kRB26s3FixedPointRi, kRB26s3FixedPointR);          
2077       shRB26s3FixedPoint->DefineSection(4, z0, kRB26s3FixedPointRi, kRB26s3FixedPointRo1);
2078       z0 += kRB26s3FixedPointDs;
2079       shRB26s3FixedPoint->DefineSection(5, z0, kRB26s3FixedPointRi, kRB26s3FixedPointRo1);
2080       z0 += kRB26s3FixedPointDc;
2081       shRB26s3FixedPoint->DefineSection(6, z0, kRB26s3FixedPointRi, kRB26s3FixedPointRo2);
2082       z0 = kRB26s3FixedPointL;
2083       shRB26s3FixedPoint->DefineSection(7, z0, kRB26s3FixedPointRi, kRB26s3FixedPointRo2);
2084       TGeoVolume* voRB26s3FixedPoint = new TGeoVolume("RB26s3FixedPoint", shRB26s3FixedPoint, kMedSteel);
2085
2086       TGeoVolume* voRB26s3FixedPointM = new TGeoVolume("RB26s3FixedPointM", MakeMotherFromTemplate(shRB26s3FixedPoint), kMedVac);
2087       voRB26s3FixedPointM->AddNode(voRB26s3FixedPoint, 1, gGeoIdentity);
2088       
2089 ///////////////////////////////////
2090 //    Split Flange               //
2091 //    Drawing  LHCVFX_0005       //
2092 /////////////////////////////////// 
2093       const Float_t kRB26s3SFlangeL      =  2.13;        // Length of the flange
2094       const Float_t kRB26s3SFlangeD1     =  0.57;        // Length of section 1
2095       const Float_t kRB26s3SFlangeD2     =  0.36;        // Length of section 2                                              
2096       const Float_t kRB26s3SFlangeD3     =  0.50 + 0.70; // Length of section 3                                                    
2097       const Float_t kRB26s3SFlangeRo     = 17.15/2.;     // Flange outer radius 
2098       const Float_t kRB26s3SFlangeRi1    = 12.30/2.;     // Flange inner radius section 1
2099       const Float_t kRB26s3SFlangeRi2    = 12.00/2.;     // Flange inner radius section 2
2100       const Float_t kRB26s3SFlangeRi3    = 12.30/2.;     // Flange inner radius section 3
2101       z0 = 0;
2102       TGeoPcon* shRB26s3SFlange = new TGeoPcon(0., 360., 6);
2103       z0 = 0.;
2104       shRB26s3SFlange->DefineSection(0, z0, kRB26s3SFlangeRi1, kRB26s3SFlangeRo);
2105       z0 += kRB26s3SFlangeD1;
2106       shRB26s3SFlange->DefineSection(1, z0, kRB26s3SFlangeRi1, kRB26s3SFlangeRo);
2107       shRB26s3SFlange->DefineSection(2, z0, kRB26s3SFlangeRi2, kRB26s3SFlangeRo);
2108       z0 += kRB26s3SFlangeD2;
2109       shRB26s3SFlange->DefineSection(3, z0, kRB26s3SFlangeRi2, kRB26s3SFlangeRo);
2110       shRB26s3SFlange->DefineSection(4, z0, kRB26s3SFlangeRi3, kRB26s3SFlangeRo);
2111       z0 += kRB26s3SFlangeD3;
2112       shRB26s3SFlange->DefineSection(5, z0, kRB26s3SFlangeRi3, kRB26s3SFlangeRo);
2113       TGeoVolume* voRB26s3SFlange = new TGeoVolume("RB26s3SFlange", shRB26s3SFlange, kMedSteel);
2114
2115       TGeoVolume* voRB26s3SFlangeM = new TGeoVolume("RB26s3SFlangeM", MakeMotherFromTemplate(shRB26s3SFlange, 0, 3), kMedVac);
2116       voRB26s3SFlangeM->AddNode(voRB26s3SFlange, 1, gGeoIdentity);
2117         
2118 ///////////////////////////////////
2119 //    RB26/3   Fixed Flange      //
2120 //    Drawing  LHCVFX___0004     //
2121 /////////////////////////////////// 
2122       const Float_t kRB26s3FFlangeL      =  2.99;    // Length of the flange
2123       const Float_t kRB26s3FFlangeD1     =  1.72;    // Length of section 1
2124       const Float_t kRB26s3FFlangeD2     =  0.30;    // Length of section 2                                                  
2125       const Float_t kRB26s3FFlangeD3     =  0.97;    // Length of section 3                                                        
2126       const Float_t kRB26s3FFlangeRo     = 36.20/2.; // Flange outer radius 
2127       const Float_t kRB26s3FFlangeRi1    = 30.60/2.; // Flange inner radius section 1
2128       const Float_t kRB26s3FFlangeRi2    = 30.00/2.; // Flange inner radius section 2
2129       const Float_t kRB26s3FFlangeRi3    = 30.60/2.; // Flange inner radius section 3
2130       z0 = 0;
2131       TGeoPcon* shRB26s3FFlange = new TGeoPcon(0., 360., 6);
2132       z0 = 0.;
2133       shRB26s3FFlange->DefineSection(0, z0, kRB26s3FFlangeRi1, kRB26s3FFlangeRo);
2134       z0 += kRB26s3FFlangeD1;
2135       shRB26s3FFlange->DefineSection(1, z0, kRB26s3FFlangeRi1, kRB26s3FFlangeRo);
2136       shRB26s3FFlange->DefineSection(2, z0, kRB26s3FFlangeRi2, kRB26s3FFlangeRo);
2137       z0 += kRB26s3FFlangeD2;
2138       shRB26s3FFlange->DefineSection(3, z0, kRB26s3FFlangeRi2, kRB26s3FFlangeRo);
2139       shRB26s3FFlange->DefineSection(4, z0, kRB26s3FFlangeRi3, kRB26s3FFlangeRo);
2140       z0 += kRB26s3FFlangeD3;
2141       shRB26s3FFlange->DefineSection(5, z0, kRB26s3FFlangeRi3, kRB26s3FFlangeRo);
2142       TGeoVolume* voRB26s3FFlange = new TGeoVolume("RB26s3FFlange", shRB26s3FFlange, kMedSteel);
2143       
2144       TGeoVolume* voRB26s3FFlangeM = new TGeoVolume("RB26s3FFlangeM", MakeMotherFromTemplate(shRB26s3FFlange, 2, 5), kMedVac);
2145       voRB26s3FFlangeM->AddNode(voRB26s3FFlange, 1, gGeoIdentity);
2146             
2147
2148
2149 ///////////////////////////////////
2150 //    RB26/3   Axial Compensator //
2151 //    Drawing  LHCVC2a_0065      //
2152 /////////////////////////////////// 
2153       const Float_t kRB26s3CompL              = 42.0;     // Length of the compensator (0.3 cm added for welding)
2154       const Float_t kRB26s3BellowRo           = 34.00/2.; // Bellow outer radius        [Pos 1]
2155       const Float_t kRB26s3BellowRi           = 30.10/2.; // Bellow inner radius        [Pos 1] 
2156       const Int_t   kRB26s3NumberOfPlies      = 13;       // Number of plies            [Pos 1] 
2157       const Float_t kRB26s3BellowUndL         = 17.70;    // Length of undulated region [Pos 1] 
2158       const Float_t kRB26s3PlieThickness      =  0.06;    // Plie thickness             [Pos 1]
2159       const Float_t kRB26s3ConnectionPlieR    =  0.21;    // Connection plie radius     [Pos 1] 
2160 //  Plie radius
2161       const Float_t kRB26s3PlieR = 
2162         (kRB26s3BellowUndL - 4. *  kRB26s3ConnectionPlieR + 2. * kRB26s3PlieThickness + 
2163          (2. *  kRB26s3NumberOfPlies - 2.) * kRB26s3PlieThickness) / (4. * kRB26s3NumberOfPlies - 2.);
2164
2165       //
2166       // The welding tubes have 3 sections with different radii and 2 transition regions.
2167       // Section 1: connection to the outside
2168       // Section 2: commection to the bellow
2169       // Section 3: between 1 and 2
2170       const Float_t kRB26s3CompTubeInnerR1    = 30.0/2.;  // Outer Connection tubes inner radius     [Pos 4 + 3]
2171       const Float_t kRB26s3CompTubeOuterR1    = 30.6/2.;  // Outer Connection tubes outer radius     [Pos 4 + 3]
2172       const Float_t kRB26s3CompTubeInnerR2    = 29.4/2.;  // Connection tubes inner radius           [Pos 4 + 3]
2173       const Float_t kRB26s3CompTubeOuterR2    = 30.0/2.;  // Connection tubes outer radius           [Pos 4 + 3]
2174       const Float_t kRB26s3CompTubeInnerR3    = 30.6/2.;  // Connection tubes inner radius at bellow [Pos 4 + 3]
2175       const Float_t kRB26s3CompTubeOuterR3    = 32.2/2.;  // Connection tubes outer radius at bellow [Pos 4 + 3]
2176  
2177       const Float_t kRB26s3WeldingTubeLeftL1  =  2.0;     // Left connection tube length             [Pos 4]
2178       const Float_t kRB26s3WeldingTubeLeftL2  =  3.4;     // Left connection tube length             [Pos 4]
2179       const Float_t kRB26s3WeldingTubeLeftL   =  7.0;     // Left connection tube total length       [Pos 4]
2180       const Float_t kRB26s3WeldingTubeRightL1 =  2.3;     // Right connection tube length            [Pos 3] (0.3 cm added for welding)
2181       const Float_t kRB26s3WeldingTubeRightL2 = 13.4;     // Right connection tube length            [Pos 3]
2182
2183       const Float_t kRB26s3WeldingTubeT1      =  0.6;     // Length of first r-transition            [Pos 4 + 3]
2184       const Float_t kRB26s3WeldingTubeT2      =  1.0;     // Length of 2nd   r-transition            [Pos 4 + 3]       
2185
2186       
2187       
2188       const Float_t kRB26s3RingOuterR         = 36.1/2.;  // Ring inner radius                       [Pos 4]
2189       const Float_t kRB26s3RingL              =  0.8/2.;  // Ring half length                        [Pos 4]
2190       const Float_t kRB26s3RingZ              =  3.7   ;  // Ring z-position                         [Pos 4]
2191       const Float_t kRB26s3ProtOuterR         = 36.2/2.;  // Protection tube outer radius            [Pos 2]
2192       const Float_t kRB26s3ProtL              = 27.0/2.;  // Protection tube half length             [Pos 2]
2193       const Float_t kRB26s3ProtZ              =  4.0   ;  // Protection tube z-position              [Pos 2]
2194    
2195       
2196 // Mother volume
2197 //
2198       TGeoPcon* shRB26s3Compensator  = new TGeoPcon(0., 360., 6);
2199       shRB26s3Compensator->DefineSection( 0,   0.0, 0., kRB26s3CompTubeOuterR1);
2200       shRB26s3Compensator->DefineSection( 1,   kRB26s3RingZ, 0., kRB26s3CompTubeOuterR1);      
2201       shRB26s3Compensator->DefineSection( 2,   kRB26s3RingZ, 0., kRB26s3ProtOuterR);      
2202       shRB26s3Compensator->DefineSection( 3,   kRB26s3ProtZ + 2. * kRB26s3ProtL, 0., kRB26s3ProtOuterR);            
2203       shRB26s3Compensator->DefineSection( 4,   kRB26s3ProtZ + 2. * kRB26s3ProtL, 0., kRB26s3CompTubeOuterR1);
2204       shRB26s3Compensator->DefineSection( 5,   kRB26s3CompL                    , 0., kRB26s3CompTubeOuterR1);            
2205       TGeoVolume* voRB26s3Compensator  =  
2206           new TGeoVolume("RB26s3Compensator", shRB26s3Compensator, kMedVac);
2207             
2208 //
2209 // [Pos 1] Bellow
2210 //      
2211 //
2212       TGeoVolume* voRB26s3Bellow = new TGeoVolume("RB26s3Bellow", 
2213                                                   new TGeoTube(kRB26s3BellowRi, kRB26s3BellowRo, kRB26s3BellowUndL/2.), kMedVac);
2214 //      
2215 //  Upper part of the undulation
2216 //
2217       TGeoTorus* shRB26s3PlieTorusU  =  new TGeoTorus(kRB26s3BellowRo - kRB26s3PlieR, kRB26s3PlieR - kRB26s3PlieThickness, kRB26s3PlieR);
2218       shRB26s3PlieTorusU->SetName("RB26s3TorusU");
2219       TGeoTube*  shRB26s3PlieTubeU   =  new TGeoTube (kRB26s3BellowRo - kRB26s3PlieR, kRB26s3BellowRo, kRB26s3PlieR);
2220       shRB26s3PlieTubeU->SetName("RB26s3TubeU");
2221       TGeoCompositeShape*  shRB26s3UpperPlie = new TGeoCompositeShape("RB26s3UpperPlie", "RB26s3TorusU*RB26s3TubeU");
2222  
2223       TGeoVolume* voRB26s3WiggleU = new TGeoVolume("RB26s3UpperPlie", shRB26s3UpperPlie, kMedSteel);
2224 //
2225 // Lower part of the undulation
2226       TGeoTorus* shRB26s3PlieTorusL =  new TGeoTorus(kRB26s3BellowRi + kRB26s3PlieR, kRB26s3PlieR - kRB26s3PlieThickness, kRB26s3PlieR);
2227       shRB26s3PlieTorusL->SetName("RB26s3TorusL");
2228       TGeoTube*  shRB26s3PlieTubeL   =  new TGeoTube (kRB26s3BellowRi, kRB26s3BellowRi + kRB26s3PlieR, kRB26s3PlieR);
2229       shRB26s3PlieTubeL->SetName("RB26s3TubeL");
2230       TGeoCompositeShape*  shRB26s3LowerPlie = new TGeoCompositeShape("RB26s3LowerPlie", "RB26s3TorusL*RB26s3TubeL");
2231       
2232       TGeoVolume* voRB26s3WiggleL = new TGeoVolume("RB26s3LowerPlie", shRB26s3LowerPlie, kMedSteel); 
2233
2234 //
2235 // Connection between upper and lower part of undulation
2236       TGeoVolume* voRB26s3WiggleC1 = new TGeoVolume("RB26s3PlieConn1",  
2237                                                     new TGeoTube(kRB26s3BellowRi + kRB26s3PlieR, 
2238                                                                  kRB26s3BellowRo - kRB26s3PlieR, kRB26s3PlieThickness / 2.), kMedSteel);
2239 //
2240 // One wiggle
2241       TGeoVolumeAssembly* voRB26s3Wiggle = new TGeoVolumeAssembly("RB26s3Wiggle");
2242       z0 =  -  kRB26s3PlieThickness / 2.;
2243       voRB26s3Wiggle->AddNode(voRB26s3WiggleC1,  1 , new TGeoTranslation(0., 0., z0));
2244       z0 += kRB26s3PlieR -  kRB26s3PlieThickness / 2.;
2245       voRB26s3Wiggle->AddNode(voRB26s3WiggleU,   1 , new TGeoTranslation(0., 0., z0));
2246       z0 += kRB26s3PlieR -  kRB26s3PlieThickness / 2.;
2247       voRB26s3Wiggle->AddNode(voRB26s3WiggleC1,  2 , new TGeoTranslation(0., 0., z0));
2248       z0 += kRB26s3PlieR -  kRB26s3PlieThickness;
2249       voRB26s3Wiggle->AddNode(voRB26s3WiggleL,  1 , new TGeoTranslation(0., 0., z0));
2250 // Positioning of the volumes
2251       z0   = - kRB26s3BellowUndL/2.+ kRB26s3ConnectionPlieR;
2252       voRB26s3Bellow->AddNode(voRB26s3WiggleL, 1, new TGeoTranslation(0., 0., z0));
2253       z0  +=  kRB26s3ConnectionPlieR;
2254       zsh  = 4. *  kRB26s3PlieR -  2. * kRB26s3PlieThickness;
2255       for (Int_t iw = 0; iw < kRB26s3NumberOfPlies; iw++) {
2256           Float_t zpos =  z0 + iw * zsh;        
2257           voRB26s3Bellow->AddNode(voRB26s3Wiggle,  iw + 1, new TGeoTranslation(0., 0., zpos -  kRB26s3PlieThickness));  
2258       }
2259
2260       voRB26s3Compensator->AddNode(voRB26s3Bellow, 1,  new TGeoTranslation(0., 0., kRB26s3WeldingTubeLeftL + kRB26s3BellowUndL/2.));
2261
2262
2263 //
2264 // [Pos 2] Outer Protecting Tube
2265 //      
2266       TGeoTube* shRB26s3CompProtTube = new TGeoTube(kRB26s3RingOuterR, kRB26s3ProtOuterR, kRB26s3ProtL);
2267       TGeoVolume* voRB26s3CompProtTube =  
2268           new TGeoVolume("RB26s3CompProtTube", shRB26s3CompProtTube, kMedSteel);
2269       voRB26s3Compensator->AddNode(voRB26s3CompProtTube, 1,  new TGeoTranslation(0., 0., kRB26s3ProtZ + kRB26s3ProtL));
2270       
2271
2272 //
2273 // [Pos 3] Right Welding Tube
2274 //      
2275       TGeoPcon* shRB26s3CompRightTube = new TGeoPcon(0., 360., 5);
2276       z0 = 0.;
2277       shRB26s3CompRightTube->DefineSection(0, z0,  kRB26s3CompTubeInnerR3, kRB26s3CompTubeOuterR3);
2278       z0 += kRB26s3WeldingTubeT2;
2279       shRB26s3CompRightTube->DefineSection(1, z0,  kRB26s3CompTubeInnerR2, kRB26s3CompTubeOuterR2);
2280       z0 += kRB26s3WeldingTubeRightL2;
2281       shRB26s3CompRightTube->DefineSection(2, z0,  kRB26s3CompTubeInnerR2, kRB26s3CompTubeOuterR2);
2282       z0 += kRB26s3WeldingTubeT1;
2283       shRB26s3CompRightTube->DefineSection(3, z0,  kRB26s3CompTubeInnerR1, kRB26s3CompTubeOuterR1);
2284       z0 += kRB26s3WeldingTubeRightL1;
2285       shRB26s3CompRightTube->DefineSection(4, z0,  kRB26s3CompTubeInnerR1, kRB26s3CompTubeOuterR1);
2286       
2287       TGeoVolume* voRB26s3CompRightTube =  
2288           new TGeoVolume("RB26s3CompRightTube", shRB26s3CompRightTube, kMedSteel);
2289       voRB26s3Compensator->AddNode(voRB26s3CompRightTube,  1, new TGeoTranslation(0., 0.,  kRB26s3CompL - z0));
2290
2291 //
2292 // [Pos 4] Left Welding Tube
2293 //      
2294       TGeoPcon* shRB26s3CompLeftTube = new TGeoPcon(0., 360., 5);
2295       z0 = 0.;
2296       shRB26s3CompLeftTube->DefineSection(0, z0,  kRB26s3CompTubeInnerR1, kRB26s3CompTubeOuterR1);
2297       z0 += kRB26s3WeldingTubeLeftL1;
2298       shRB26s3CompLeftTube->DefineSection(1, z0,  kRB26s3CompTubeInnerR1, kRB26s3CompTubeOuterR1);
2299       z0 += kRB26s3WeldingTubeT1;
2300       shRB26s3CompLeftTube->DefineSection(2, z0,  kRB26s3CompTubeInnerR2, kRB26s3CompTubeOuterR2);
2301       z0 += kRB26s3WeldingTubeLeftL2;
2302       shRB26s3CompLeftTube->DefineSection(3, z0,  kRB26s3CompTubeInnerR2, kRB26s3CompTubeOuterR2);
2303       z0 += kRB26s3WeldingTubeT2;
2304       shRB26s3CompLeftTube->DefineSection(4, z0,  kRB26s3CompTubeInnerR3, kRB26s3CompTubeOuterR3);
2305
2306       TGeoVolume* voRB26s3CompLeftTube =  
2307           new TGeoVolume("RB26s3CompLeftTube", shRB26s3CompLeftTube, kMedSteel);
2308       voRB26s3Compensator->AddNode(voRB26s3CompLeftTube, 1,  gGeoIdentity);
2309 //
2310 // [Pos 5] Ring
2311 //      
2312       TGeoTube* shRB26s3CompRing = new TGeoTube(kRB26s3CompTubeOuterR2, kRB26s3RingOuterR, kRB26s3RingL);
2313       TGeoVolume* voRB26s3CompRing =  
2314           new TGeoVolume("RB26s3CompRing", shRB26s3CompRing, kMedSteel);
2315       voRB26s3Compensator->AddNode(voRB26s3CompRing,  1, new TGeoTranslation(0., 0., kRB26s3RingZ + kRB26s3RingL));
2316
2317
2318
2319 ///////////////////////////////////////////
2320 //                                       //
2321 //    RB26/4-5                           //  
2322 //    Drawing LHCV2a_0012 [as installed] //
2323 ////////////////////////////////////////////
2324 //    Pos1 Vacuum Tubes        LHCVC2A__0014
2325 //    Pos2 Compensator         LHCVC2A__0066
2326 //    Pos3 Fixed Point Section LHCVC2A__0016
2327 //    Pos4 Split Flange        LHCVFX___0005
2328 //    Pos5 RotableFlange       LHCVFX___0009
2329 ////////////////////////////////////////////
2330
2331 ///////////////////////////////////
2332 //    RB26/4-5 Vacuum Tubes      //
2333 //    Drawing  LHCVC2a_0014      //
2334 /////////////////////////////////// 
2335       const Float_t kRB26s45TubeL = 593.12 + 0.3; // 0.3 cm added for welding
2336       
2337       TGeoPcon* shRB26s45Tube = new TGeoPcon(0., 360., 11);
2338       // Section 1: straight section
2339       shRB26s45Tube->DefineSection( 0,   0.00, 30.00/2., 30.60/2.);
2340       shRB26s45Tube->DefineSection( 1,   1.20, 30.00/2., 30.60/2.);
2341       shRB26s45Tube->DefineSection( 2,   1.20, 30.00/2., 30.80/2.);
2342       shRB26s45Tube->DefineSection( 3,  25.10, 30.00/2., 30.80/2.);      
2343       // Section 2: 0.932 deg opening cone
2344       shRB26s45Tube->DefineSection( 4, 486.10, 45.00/2., 45.80/2.);      
2345       // Section 3: straight section 4 mm 
2346       shRB26s45Tube->DefineSection( 5, 512.10, 45.00/2., 45.80/2.);
2347       // Section 4: straight section 3 mm
2348       shRB26s45Tube->DefineSection( 6, 512.10, 45.00/2., 45.60/2.);
2349       shRB26s45Tube->DefineSection( 7, 527.70, 45.00/2., 45.60/2.);
2350       // Section 4: closing cone 
2351       shRB26s45Tube->DefineSection( 8, 591.30, 10.00/2., 10.60/2.);      
2352       shRB26s45Tube->DefineSection( 9, 591.89, 10.00/2., 10.30/2.);      
2353
2354       shRB26s45Tube->DefineSection(10, kRB26s45TubeL, 10.00/2., 10.30/2.);      
2355       TGeoVolume* voRB26s45Tube  =  
2356           new TGeoVolume("RB26s45Tube", shRB26s45Tube, kMedSteel);
2357
2358       TGeoVolume* voRB26s45TubeM  = new TGeoVolume("RB26s45TubeM", MakeMotherFromTemplate(shRB26s45Tube), kMedVac);
2359       voRB26s45TubeM->AddNode(voRB26s45Tube, 1, gGeoIdentity);
2360             
2361       
2362
2363 ///////////////////////////////////
2364 //    RB26/5   Axial Compensator //
2365 //    Drawing  LHCVC2a_0066      //
2366 /////////////////////////////////// 
2367       const Float_t kRB26s5CompL             = 27.60;    // Length of the compensator (0.30 cm added for welding)
2368       const Float_t kRB26s5BellowRo          = 12.48/2.; // Bellow outer radius        [Pos 1]
2369       const Float_t kRB26s5BellowRi          = 10.32/2.; // Bellow inner radius        [Pos 1] 
2370       const Int_t   kRB26s5NumberOfPlies     = 15;       // Number of plies            [Pos 1] 
2371       const Float_t kRB26s5BellowUndL        = 10.50;    // Length of undulated region [Pos 1] 
2372       const Float_t kRB26s5PlieThickness     =  0.025;   // Plie thickness             [Pos 1]
2373       const Float_t kRB26s5ConnectionPlieR   =  0.21;    // Connection plie radius     [Pos 1] 
2374       const Float_t kRB26s5ConnectionR       = 11.2/2.;  // Bellow connection radius   [Pos 1] 
2375 //  Plie radius
2376       const Float_t kRB26s5PlieR = 
2377         (kRB26s5BellowUndL - 4. *  kRB26s5ConnectionPlieR + 2. * kRB26s5PlieThickness + 
2378          (2. *  kRB26s5NumberOfPlies - 2.) * kRB26s5PlieThickness) / (4. * kRB26s5NumberOfPlies - 2.);
2379       const Float_t kRB26s5CompTubeInnerR    = 10.00/2.;  // Connection tubes inner radius     [Pos 2 + 3]
2380       const Float_t kRB26s5CompTubeOuterR    = 10.30/2.;  // Connection tubes outer radius     [Pos 2 + 3]
2381       const Float_t kRB26s5WeldingTubeLeftL  =  3.70/2.;  // Left connection tube half length  [Pos 2]
2382       const Float_t kRB26s5WeldingTubeRightL = 13.40/2.;  // Right connection tube half length [Pos 3]   (0.3 cm added for welding)
2383       const Float_t kRB26s5RingInnerR        = 11.2/2.;   // Ring inner radius                 [Pos 4]
2384       const Float_t kRB26s5RingOuterR        = 16.0/2.;   // Ring inner radius                 [Pos 4]
2385       const Float_t kRB26s5RingL             =  0.4/2.;   // Ring half length                  [Pos 4]
2386       const Float_t kRB26s5RingZ             = 14.97;     // Ring z-position                   [Pos 4]
2387       const Float_t kRB26s5ProtOuterR        = 16.2/2.;   // Protection tube outer radius      [Pos 5]
2388       const Float_t kRB26s5ProtL             = 13.0/2.;   // Protection tube half length       [Pos 5]
2389       const Float_t kRB26s5ProtZ             =  2.17;     // Protection tube z-position        [Pos 5]
2390       const Float_t kRB26s5DetailZR          = 11.3/2.;   // Detail Z max radius
2391       
2392       
2393 // Mother volume
2394 //
2395       TGeoPcon* shRB26s5Compensator  = new TGeoPcon(0., 360., 8);
2396       shRB26s5Compensator->DefineSection( 0,   0.0,                                                  0., kRB26s5CompTubeOuterR);
2397       shRB26s5Compensator->DefineSection( 1,   kRB26s5ProtZ,                                         0., kRB26s5CompTubeOuterR);      
2398       shRB26s5Compensator->DefineSection( 2,   kRB26s5ProtZ,                                         0., kRB26s5ProtOuterR);
2399       shRB26s5Compensator->DefineSection( 3,   kRB26s5ProtZ + 2. * kRB26s5ProtL + 2. * kRB26s5RingL, 0., kRB26s5ProtOuterR);      
2400       shRB26s5Compensator->DefineSection( 4,   kRB26s5ProtZ + 2. * kRB26s5ProtL + 2. * kRB26s5RingL, 0., kRB26s5DetailZR);
2401       shRB26s5Compensator->DefineSection( 5,   kRB26s5CompL - 8.,                                    0., kRB26s5DetailZR);
2402       shRB26s5Compensator->DefineSection( 6,   kRB26s5CompL - 8.,                                    0., kRB26s5CompTubeOuterR);            
2403       shRB26s5Compensator->DefineSection( 7,   kRB26s5CompL,                                         0., kRB26s5CompTubeOuterR);            
2404       TGeoVolume* voRB26s5Compensator  = new TGeoVolume("RB26s5Compensator", shRB26s5Compensator, kMedVac);
2405             
2406 //
2407 // [Pos 1] Bellow
2408 //      
2409 //
2410       TGeoVolume* voRB26s5Bellow = new TGeoVolume("RB26s5Bellow", 
2411                                                   new TGeoTube(kRB26s5BellowRi, kRB26s5BellowRo, kRB26s5BellowUndL/2.), kMedVac);
2412 //      
2413 //  Upper part of the undulation
2414 //
2415       TGeoTorus* shRB26s5PlieTorusU  =  new TGeoTorus(kRB26s5BellowRo - kRB26s5PlieR, kRB26s5PlieR - kRB26s5PlieThickness, kRB26s5PlieR);
2416       shRB26s5PlieTorusU->SetName("RB26s5TorusU");
2417       TGeoTube*  shRB26s5PlieTubeU   =  new TGeoTube (kRB26s5BellowRo - kRB26s5PlieR, kRB26s5BellowRo, kRB26s5PlieR);
2418       shRB26s5PlieTubeU->SetName("RB26s5TubeU");
2419       TGeoCompositeShape*  shRB26s5UpperPlie = new TGeoCompositeShape("RB26s5UpperPlie", "RB26s5TorusU*RB26s5TubeU");
2420  
2421       TGeoVolume* voRB26s5WiggleU = new TGeoVolume("RB26s5UpperPlie", shRB26s5UpperPlie, kMedSteel);
2422 //
2423 // Lower part of the undulation
2424       TGeoTorus* shRB26s5PlieTorusL =  new TGeoTorus(kRB26s5BellowRi + kRB26s5PlieR, kRB26s5PlieR - kRB26s5PlieThickness, kRB26s5PlieR);
2425       shRB26s5PlieTorusL->SetName("RB26s5TorusL");
2426       TGeoTube*  shRB26s5PlieTubeL   =  new TGeoTube (kRB26s5BellowRi, kRB26s5BellowRi + kRB26s5PlieR, kRB26s5PlieR);
2427       shRB26s5PlieTubeL->SetName("RB26s5TubeL");
2428       TGeoCompositeShape*  shRB26s5LowerPlie = new TGeoCompositeShape("RB26s5LowerPlie", "RB26s5TorusL*RB26s5TubeL");
2429       
2430       TGeoVolume* voRB26s5WiggleL = new TGeoVolume("RB26s5LowerPlie", shRB26s5LowerPlie, kMedSteel); 
2431
2432 //
2433 // Connection between upper and lower part of undulation
2434       TGeoVolume* voRB26s5WiggleC1 = new TGeoVolume("RB26s5PlieConn1",  
2435                                                     new TGeoTube(kRB26s5BellowRi + kRB26s5PlieR, 
2436                                                                  kRB26s5BellowRo - kRB26s5PlieR, kRB26s5PlieThickness / 2.), kMedSteel);
2437 //
2438 // One wiggle
2439       TGeoVolumeAssembly* voRB26s5Wiggle = new TGeoVolumeAssembly("RB26s5Wiggle");
2440       z0 =  -  kRB26s5PlieThickness / 2.;
2441       voRB26s5Wiggle->AddNode(voRB26s5WiggleC1,  1 , new TGeoTranslation(0., 0., z0));
2442       z0 += kRB26s5PlieR -  kRB26s5PlieThickness / 2.;
2443       voRB26s5Wiggle->AddNode(voRB26s5WiggleU,   1 , new TGeoTranslation(0., 0., z0));
2444       z0 += kRB26s5PlieR -  kRB26s5PlieThickness / 2.;
2445       voRB26s5Wiggle->AddNode(voRB26s5WiggleC1,  2 , new TGeoTranslation(0., 0., z0));
2446       z0 += kRB26s5PlieR -  kRB26s5PlieThickness;
2447       voRB26s5Wiggle->AddNode(voRB26s5WiggleL ,  1 , new TGeoTranslation(0., 0., z0));
2448 // Positioning of the volumes
2449       z0   = - kRB26s5BellowUndL/2.+ kRB26s5ConnectionPlieR;
2450       voRB26s5Bellow->AddNode(voRB26s5WiggleL, 1, new TGeoTranslation(0., 0., z0));
2451       z0  +=  kRB26s5ConnectionPlieR;
2452       zsh  = 4. *  kRB26s5PlieR -  2. * kRB26s5PlieThickness;
2453       for (Int_t iw = 0; iw < kRB26s5NumberOfPlies; iw++) {
2454           Float_t zpos =  z0 + iw * zsh;        
2455           voRB26s5Bellow->AddNode(voRB26s5Wiggle,  iw + 1, new TGeoTranslation(0., 0., zpos -  kRB26s5PlieThickness));  
2456       }
2457
2458       voRB26s5Compensator->AddNode(voRB26s5Bellow, 1,  new TGeoTranslation(0., 0., 2. * kRB26s5WeldingTubeLeftL + kRB26s5BellowUndL/2.));
2459       
2460 //
2461 // [Pos 2] Left Welding Tube
2462 //      
2463       TGeoPcon* shRB26s5CompLeftTube = new TGeoPcon(0., 360., 3);
2464       z0 = 0;
2465       shRB26s5CompLeftTube->DefineSection(0, z0, kRB26s5CompTubeInnerR, kRB26s5CompTubeOuterR);
2466       z0 += 2 * kRB26s5WeldingTubeLeftL - ( kRB26s5ConnectionR - kRB26s5CompTubeOuterR);
2467       shRB26s5CompLeftTube->DefineSection(1, z0, kRB26s5CompTubeInnerR, kRB26s5CompTubeOuterR);
2468       z0 += ( kRB26s5ConnectionR - kRB26s5CompTubeOuterR);
2469       shRB26s5CompLeftTube->DefineSection(2, z0, kRB26s5ConnectionR - 0.15, kRB26s5ConnectionR);
2470       TGeoVolume* voRB26s5CompLeftTube = new TGeoVolume("RB26s5CompLeftTube", shRB26s5CompLeftTube, kMedSteel);
2471       voRB26s5Compensator->AddNode(voRB26s5CompLeftTube, 1,  gGeoIdentity);
2472 //
2473 // [Pos 3] Right Welding Tube
2474 //      
2475       TGeoPcon* shRB26s5CompRightTube = new TGeoPcon(0., 360., 11);
2476       // Detail Z
2477       shRB26s5CompRightTube->DefineSection( 0, 0.  , kRB26s5CompTubeInnerR + 0.22, 11.2/2.);
2478       shRB26s5CompRightTube->DefineSection( 1, 0.05, kRB26s5CompTubeInnerR + 0.18, 11.2/2.);
2479       shRB26s5CompRightTube->DefineSection( 2, 0.22, kRB26s5CompTubeInnerR       , 11.2/2. - 0.22);
2480       shRB26s5CompRightTube->DefineSection( 3, 0.44, kRB26s5CompTubeInnerR       , 11.2/2.);
2481       shRB26s5CompRightTube->DefineSection( 4, 1.70, kRB26s5CompTubeInnerR       , 11.2/2.);
2482       shRB26s5CompRightTube->DefineSection( 5, 2.10, kRB26s5CompTubeInnerR       , kRB26s5CompTubeOuterR);
2483       shRB26s5CompRightTube->DefineSection( 6, 2.80, kRB26s5CompTubeInnerR       , kRB26s5CompTubeOuterR);
2484       shRB26s5CompRightTube->DefineSection( 7, 2.80, kRB26s5CompTubeInnerR       , 11.3/2.);
2485       shRB26s5CompRightTube->DefineSection( 8, 3.40, kRB26s5CompTubeInnerR       , 11.3/2.);
2486       // Normal pipe
2487       shRB26s5CompRightTube->DefineSection( 9, 3.50, kRB26s5CompTubeInnerR       , kRB26s5CompTubeOuterR);
2488       shRB26s5CompRightTube->DefineSection(10, 2. * kRB26s5WeldingTubeRightL, kRB26s5CompTubeInnerR, kRB26s5CompTubeOuterR);
2489       
2490       TGeoVolume* voRB26s5CompRightTube =  
2491           new TGeoVolume("RB26s5CompRightTube", shRB26s5CompRightTube, kMedSteel);
2492       voRB26s5Compensator->AddNode(voRB26s5CompRightTube,  1, 
2493                                    new TGeoTranslation(0., 0.,  kRB26s5CompL - 2. * kRB26s5WeldingTubeRightL));
2494 //
2495 // [Pos 4] Ring
2496 //      
2497       TGeoTube* shRB26s5CompRing = new TGeoTube(kRB26s5RingInnerR, kRB26s5RingOuterR, kRB26s5RingL);
2498       TGeoVolume* voRB26s5CompRing =  
2499           new TGeoVolume("RB26s5CompRing", shRB26s5CompRing, kMedSteel);
2500       voRB26s5Compensator->AddNode(voRB26s5CompRing,  1, new TGeoTranslation(0., 0., kRB26s5RingZ + kRB26s5RingL));
2501
2502 //
2503 // [Pos 5] Outer Protecting Tube
2504 //      
2505       TGeoTube* shRB26s5CompProtTube = new TGeoTube(kRB26s5RingOuterR, kRB26s5ProtOuterR, kRB26s5ProtL);
2506       TGeoVolume* voRB26s5CompProtTube =  
2507           new TGeoVolume("RB26s5CompProtTube", shRB26s5CompProtTube, kMedSteel);
2508       voRB26s5Compensator->AddNode(voRB26s5CompProtTube, 1,  new TGeoTranslation(0., 0., kRB26s5ProtZ + kRB26s5ProtL));
2509
2510 ///////////////////////////////////////
2511 //    RB26/4   Fixed Point Section   //
2512 //    Drawing  LHCVC2a_0016          //
2513 /////////////////////////////////////// 
2514       const Float_t kRB26s4TubeRi            =  30.30/2. ; // Tube inner radius  (0.3 cm added for welding)
2515       const Float_t kRB26s4TubeRo            =  30.60/2. ; // Tube outer radius      
2516       const Float_t kRB26s4FixedPointL       =  12.63    ; // Length of the fixed point section
2517       const Float_t kRB26s4FixedPointZ       =  10.53    ; // Position of the ring (0.15 added for welding)
2518       const Float_t kRB26s4FixedPointD       =   0.595   ; // Width of the ring
2519       const Float_t kRB26s4FixedPointR       =  31.60/2. ; // Radius of the ring
2520       
2521       TGeoPcon* shRB26s4FixedPoint = new TGeoPcon(0., 360., 6);
2522       z0 = 0.;
2523       shRB26s4FixedPoint->DefineSection(0, z0, kRB26s4TubeRi, kRB26s4TubeRo);
2524       z0 += kRB26s4FixedPointZ;
2525       shRB26s4FixedPoint->DefineSection(1, z0, kRB26s4TubeRi, kRB26s4TubeRo);      
2526       shRB26s4FixedPoint->DefineSection(2, z0, kRB26s4TubeRi, kRB26s4FixedPointR);                
2527       z0 += kRB26s4FixedPointD;
2528       shRB26s4FixedPoint->DefineSection(3, z0, kRB26s4TubeRi, kRB26s4FixedPointR);                
2529       shRB26s4FixedPoint->DefineSection(4, z0, kRB26s4TubeRi, kRB26s4TubeRo);
2530       z0 = kRB26s4FixedPointL;
2531       shRB26s4FixedPoint->DefineSection(5, z0, kRB26s4TubeRi, kRB26s4TubeRo);
2532       TGeoVolume* voRB26s4FixedPoint = new TGeoVolume("RB26s4FixedPoint", shRB26s4FixedPoint, kMedSteel);
2533       
2534       TGeoVolume* voRB26s4FixedPointM = new TGeoVolume("RB26s4FixedPointM", MakeMotherFromTemplate(shRB26s4FixedPoint), kMedVac);
2535       voRB26s4FixedPointM->AddNode(voRB26s4FixedPoint, 1, gGeoIdentity);
2536             
2537
2538 ///////////////////////////////////////
2539 //    RB26/4   Split Flange          //
2540 //    Drawing  LHCVFX__0005          //
2541 /////////////////////////////////////// 
2542       const Float_t kRB26s4SFlangeL      =  2.99;        // Length of the flange
2543       const Float_t kRB26s4SFlangeD1     =  0.85;        // Length of section 1
2544       const Float_t kRB26s4SFlangeD2     =  0.36;        // Length of section 2                                              
2545       const Float_t kRB26s4SFlangeD3     =  0.73 + 1.05; // Length of section 3                                                    
2546       const Float_t kRB26s4SFlangeRo     = 36.20/2.;     // Flange outer radius 
2547       const Float_t kRB26s4SFlangeRi1    = 30.60/2.;     // Flange inner radius section 1
2548       const Float_t kRB26s4SFlangeRi2    = 30.00/2.;     // Flange inner radius section 2
2549       const Float_t kRB26s4SFlangeRi3    = 30.60/2.;     // Flange inner radius section 3
2550       z0 = 0;
2551       TGeoPcon* shRB26s4SFlange = new TGeoPcon(0., 360., 6);
2552       z0 = 0.;
2553       shRB26s4SFlange->DefineSection(0, z0, kRB26s4SFlangeRi1, kRB26s4SFlangeRo);
2554       z0 += kRB26s4SFlangeD1;
2555       shRB26s4SFlange->DefineSection(1, z0, kRB26s4SFlangeRi1, kRB26s4SFlangeRo);
2556       shRB26s4SFlange->DefineSection(2, z0, kRB26s4SFlangeRi2, kRB26s4SFlangeRo);
2557       z0 += kRB26s4SFlangeD2;
2558       shRB26s4SFlange->DefineSection(3, z0, kRB26s4SFlangeRi2, kRB26s4SFlangeRo);
2559       shRB26s4SFlange->DefineSection(4, z0, kRB26s4SFlangeRi3, kRB26s4SFlangeRo);
2560       z0 += kRB26s4SFlangeD3;
2561       shRB26s4SFlange->DefineSection(5, z0, kRB26s4SFlangeRi3, kRB26s4SFlangeRo);
2562       TGeoVolume* voRB26s4SFlange = new TGeoVolume("RB26s4SFlange", shRB26s4SFlange, kMedSteel);
2563
2564       TGeoVolume* voRB26s4SFlangeM = new TGeoVolume("RB26s4SFlangeM", MakeMotherFromTemplate(shRB26s4SFlange, 0, 3), kMedVac);
2565       voRB26s4SFlangeM->AddNode(voRB26s4SFlange, 1, gGeoIdentity);
2566       
2567 ///////////////////////////////////////
2568 //    RB26/5   Rotable Flange        //
2569 //    Drawing  LHCVFX__0009          //
2570 /////////////////////////////////////// 
2571       const Float_t kRB26s5RFlangeL      =  1.86;    // Length of the flange
2572       const Float_t kRB26s5RFlangeD1     =  0.61;    // Length of section 1
2573       const Float_t kRB26s5RFlangeD2     =  0.15;    // Length of section 2                                                  
2574       const Float_t kRB26s5RFlangeD3     =  0.60;    // Length of section 3                                                        
2575       const Float_t kRB26s5RFlangeD4     =  0.50;    // Length of section 4                                                        
2576       const Float_t kRB26s5RFlangeRo     = 15.20/2.; // Flange outer radius 
2577       const Float_t kRB26s5RFlangeRi1    = 10.30/2.; // Flange inner radius section 1
2578       const Float_t kRB26s5RFlangeRi2    = 10.00/2.; // Flange inner radius section 2
2579       const Float_t kRB26s5RFlangeRi3    = 10.30/2.; // Flange inner radius section 3
2580       const Float_t kRB26s5RFlangeRi4    = 10.50/2.; // Flange inner radius section 4
2581
2582       z0 = 0;
2583       TGeoPcon* shRB26s5RFlange = new TGeoPcon(0., 360., 8);
2584       z0 = 0.;
2585       shRB26s5RFlange->DefineSection(0, z0, kRB26s5RFlangeRi4, kRB26s5RFlangeRo);
2586       z0 += kRB26s5RFlangeD4;
2587       shRB26s5RFlange->DefineSection(1, z0, kRB26s5RFlangeRi4, kRB26s5RFlangeRo);
2588       shRB26s5RFlange->DefineSection(2, z0, kRB26s5RFlangeRi3, kRB26s5RFlangeRo);
2589       z0 += kRB26s5RFlangeD3;
2590       shRB26s5RFlange->DefineSection(3, z0, kRB26s5RFlangeRi3, kRB26s5RFlangeRo);
2591       shRB26s5RFlange->DefineSection(4, z0, kRB26s5RFlangeRi2, kRB26s5RFlangeRo);
2592       z0 += kRB26s5RFlangeD2;
2593       shRB26s5RFlange->DefineSection(5, z0, kRB26s5RFlangeRi2, kRB26s5RFlangeRo);
2594       shRB26s5RFlange->DefineSection(6, z0, kRB26s5RFlangeRi1, kRB26s5RFlangeRo);
2595       z0 += kRB26s5RFlangeD1;
2596       shRB26s5RFlange->DefineSection(7, z0, kRB26s5RFlangeRi1, kRB26s5RFlangeRo);
2597       TGeoVolume* voRB26s5RFlange = new TGeoVolume("RB26s5RFlange", shRB26s5RFlange, kMedSteel);
2598
2599       TGeoVolume* voRB26s5RFlangeM = new TGeoVolume("RB26s5RFlangeM", MakeMotherFromTemplate(shRB26s5RFlange, 4, 7), kMedVac);
2600       voRB26s5RFlangeM->AddNode(voRB26s5RFlange, 1, gGeoIdentity);
2601
2602 //      
2603 // Assemble RB26/1-2
2604 //
2605       TGeoVolumeAssembly* asRB26s12 = new TGeoVolumeAssembly("RB26s12"); 
2606       z0 = 0.;
2607       asRB26s12->AddNode(voRB26s1RFlange,       1, gGeoIdentity);
2608       z0 += kRB26s1RFlangeIsL + kRB26s1RFlangeFpL;
2609       asRB26s12->AddNode(voRB26s12TubeM,         1, new TGeoTranslation(0., 0., z0));
2610       z0 += kRB26s12TubeL;
2611       asRB26s12->AddNode(voRB26s2Compensator,   1, new TGeoTranslation(0., 0., z0));
2612       z0 += kRB26s2CompL;
2613       z0 -= kRB26s2FFlangeD1;
2614       asRB26s12->AddNode(voRB26s2FFlangeM,       1, new TGeoTranslation(0., 0., z0));
2615       z0 += kRB26s2FFlangeL;
2616       const Float_t kRB26s12L = z0;
2617
2618 //
2619 // Assemble RB26/3
2620 //
2621       TGeoVolumeAssembly* asRB26s3 = new TGeoVolumeAssembly("RB26s3"); 
2622       z0 = 0.;
2623       asRB26s3->AddNode(voRB26s3SFlangeM,      1, gGeoIdentity);
2624       z0 +=  kRB26s3SFlangeL;
2625       z0 -=  kRB26s3SFlangeD3;
2626       asRB26s3->AddNode(voRB26s3FixedPointM,   1, new TGeoTranslation(0., 0., z0));
2627       z0 += kRB26s3FixedPointL;
2628       asRB26s3->AddNode(voRB26s3TubeM,         1, new TGeoTranslation(0., 0., z0));
2629       z0 += kRB26s3TubeL;
2630       asRB26s3->AddNode(voRB26s3Compensator,   1, new TGeoTranslation(0., 0., z0));
2631       z0 += kRB26s3CompL;
2632       z0 -= kRB26s3FFlangeD1;
2633       asRB26s3->AddNode(voRB26s3FFlangeM,      1, new TGeoTranslation(0., 0., z0));
2634       z0 += kRB26s3FFlangeL;
2635       const Float_t kRB26s3L = z0;
2636       
2637
2638 //
2639 // Assemble RB26/4-5
2640 //
2641       TGeoVolumeAssembly* asRB26s45 = new TGeoVolumeAssembly("RB26s45"); 
2642       z0 = 0.;
2643       asRB26s45->AddNode(voRB26s4SFlangeM,       1, gGeoIdentity);
2644       z0 +=  kRB26s4SFlangeL;
2645       z0 -=  kRB26s4SFlangeD3;
2646       asRB26s45->AddNode(voRB26s4FixedPointM,    1, new TGeoTranslation(0., 0., z0));
2647       z0 += kRB26s4FixedPointL;
2648       asRB26s45->AddNode(voRB26s45TubeM,         1, new TGeoTranslation(0., 0., z0));
2649       z0 += kRB26s45TubeL;
2650       asRB26s45->AddNode(voRB26s5Compensator,    1, new TGeoTranslation(0., 0., z0));
2651       z0 += kRB26s5CompL;
2652       z0 -= kRB26s5RFlangeD3;
2653       z0 -= kRB26s5RFlangeD4;
2654       asRB26s45->AddNode(voRB26s5RFlangeM,       1, new TGeoTranslation(0., 0., z0));
2655       z0 += kRB26s5RFlangeL;
2656       const Float_t kRB26s45L = z0;
2657       
2658 //
2659 // Assemble RB26
2660 //
2661       TGeoVolumeAssembly* asRB26Pipe = new TGeoVolumeAssembly("RB26Pipe"); 
2662       z0 = 0.;
2663       asRB26Pipe->AddNode(asRB26s12,       1, new TGeoTranslation(0., 0., z0));
2664       z0 +=  kRB26s12L;
2665       asRB26Pipe->AddNode(asRB26s3,        1, new TGeoTranslation(0., 0., z0));
2666       z0 +=  kRB26s3L;
2667       asRB26Pipe->AddNode(asRB26s45,       1, new TGeoTranslation(0., 0., z0));
2668       z0 +=  kRB26s45L;
2669       top->AddNode(asRB26Pipe, 1, new TGeoCombiTrans(0., 0., -82., rot180));
2670 }
2671
2672
2673
2674 //___________________________________________
2675 void AliPIPEupgrade::CreateMaterials()
2676 {
2677   //
2678   // Define materials for beam pipe
2679   //
2680
2681   AliDebugClass(1,"Create PIPEupgrade materials");
2682   Int_t   isxfld = ((AliMagF*)TGeoGlobalMagField::Instance()->GetField())->Integ();
2683   Float_t sxmgmx = ((AliMagF*)TGeoGlobalMagField::Instance()->GetField())->Max();
2684   // Steel (Inox)  
2685   Float_t asteel[4] = { 55.847,51.9961,58.6934,28.0855 };
2686   Float_t zsteel[4] = { 26.,24.,28.,14. };
2687   Float_t wsteel[4] = { .715,.18,.1,.005 };
2688   // AlBe - alloy 
2689   Float_t aAlBe[2] = { 26.98, 9.01};
2690   Float_t zAlBe[2] = { 13.00, 4.00};
2691   Float_t wAlBe[2] = { 0.4, 0.6};
2692   //
2693   // Polyamid
2694   Float_t aPA[4] = {16., 14., 12.,  1.};
2695   Float_t zPA[4] = { 8.,  7.,  6.,  1.};
2696   Float_t wPA[4] = { 1.,  1.,  6., 11.};
2697   //
2698   // Air 
2699   //
2700   Float_t aAir[4]={12.0107,14.0067,15.9994,39.948};
2701   Float_t zAir[4]={6.,7.,8.,18.};
2702   Float_t wAir[4]={0.000124,0.755267,0.231781,0.012827};
2703   Float_t dAir = 1.20479E-3;
2704   Float_t dAir1 = 1.20479E-11;
2705   //
2706   // Insulation powder
2707   //                    Si         O       Ti     Al
2708   Float_t ains[4] ={28.0855, 15.9994, 47.867,  26.982};
2709   Float_t zins[4] ={14.,      8.    , 22.   ,  13.   };
2710   Float_t wins[4] ={ 0.3019,  0.4887,  0.1914,  0.018};
2711   //
2712   //
2713   // Anticorodal
2714   //
2715   // Al Si7 Mg 0.6
2716   //
2717   Float_t aaco[3] ={26.982, 28.0855, 24.035};
2718   Float_t zaco[3] ={13.,    14.    , 12.   };
2719   Float_t waco[3] ={ 0.924,  0.07,  0.006};
2720   // Kapton
2721   //
2722   Float_t aKapton[4]={1.00794,12.0107, 14.010,15.9994};
2723   Float_t zKapton[4]={1.,6.,7.,8.};
2724   Float_t wKapton[4]={0.026362,0.69113,0.07327,0.209235};
2725   Float_t dKapton = 1.42;
2726   // NEG coating
2727   //                  Ti     V      Zr
2728   Float_t aNEG[4] = {47.87, 50.94, 91.24};
2729   Float_t zNEG[4] = {22.00, 23.00, 40.00};
2730   Float_t wNEG[4] = {1./3., 1./3., 1./3.};  
2731   Float_t dNEG = 5.6; // ?
2732
2733   //
2734   //
2735   //     Berillium 
2736   AliMaterial(5, "BERILLIUM$", 9.01, 4., 1.848, 35.3, 36.7);
2737   //
2738   //     Carbon 
2739   AliMaterial(6,  "CARBON$   ", 12.01, 6., 2.265, 18.8, 49.9);
2740   //
2741   //     Aluminum 
2742   AliMaterial(9,  "ALUMINIUM$", 26.98, 13., 2.7, 8.9, 37.2);
2743   //
2744   //     Copper 
2745   AliMaterial(10, "COPPER", 63.55, 29, 8.96, 1.43, 85.6/8.96);
2746   //
2747   //     Air 
2748   AliMixture(15, "AIR$      ", aAir, zAir, dAir, 4, wAir);
2749   AliMixture(35, "AIR_HIGH$ ", aAir, zAir, dAir, 4, wAir);
2750   //
2751   //     Vacuum 
2752   AliMixture(16, "VACUUM$ " , aAir, zAir, dAir1, 4, wAir);
2753   AliMixture(17, "VACUUMM$ ", aAir, zAir, dAir1, 4, wAir);
2754   //
2755   //     stainless Steel 
2756   AliMixture(19, "STAINLESS STEEL$", asteel, zsteel, 7.88, 4, wsteel);
2757   //
2758   //     reduced density steel to approximate pump getter material
2759   AliMixture(20, "GETTER$", asteel, zsteel, 1.00, 4, wsteel);
2760   //     Al-Be alloy
2761   //     
2762   AliMixture(21, "AlBe$", aAlBe, zAlBe, 2.07, 2, wAlBe);
2763   //     Polyamid
2764   //   
2765   AliMixture(22, "PA$", aPA, zPA, 1.14, -4, wPA);
2766   //
2767   //     Kapton
2768   AliMixture(23, "KAPTON", aKapton, zKapton, dKapton, 4, wKapton);
2769   // Anticorodal 
2770   AliMixture(24, "ANTICORODAL", aaco, zaco, 2.66, 3, waco);
2771   
2772   //
2773   //     Insulation powder 
2774    AliMixture(14, "INSULATION0$", ains, zins, 0.41, 4, wins);
2775    AliMixture(34, "INSULATION1$", ains, zins, 0.41, 4, wins);
2776    AliMixture(54, "INSULATION2$", ains, zins, 0.41, 4, wins);
2777
2778    //    NEG
2779    AliMixture(25, "NEG COATING", aNEG, zNEG, dNEG, -3, wNEG);
2780    
2781    
2782    // **************** 
2783    //     Defines tracking media parameters. 
2784    //
2785   Float_t epsil  = .001;    // Tracking precision, 
2786   Float_t stemax = -0.01;   // Maximum displacement for multiple scat 
2787   Float_t tmaxfd = -20.;    // Maximum angle due to field deflection 
2788   Float_t deemax = -.3;     // Maximum fractional energy loss, DLS 
2789   Float_t stmin  = -.8;
2790   // *************** 
2791   //
2792   //    Beryllium 
2793   
2794   AliMedium(5, "BE",       5, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2795
2796   //    Carbon 
2797   AliMedium(6, "C",        6, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2798   //
2799   //    Aluminum 
2800   AliMedium(9, "ALU",      9, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2801   //    Copper 
2802   AliMedium(10, "CU",      10, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2803   //
2804   //    Air 
2805   AliMedium(15, "AIR",     15, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2806   AliMedium(35, "AIR_HIGH",35, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2807   //
2808   //    Vacuum 
2809   AliMedium(16, "VACUUM",  16, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2810   AliMedium(17, "VACUUMM", 17, 0, isxfld, sxmgmx, 0.1, stemax, deemax, epsil, stmin);
2811   //
2812   //    Steel 
2813   AliMedium(19, "INOX",   19, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2814   //
2815   //    Getter 
2816   AliMedium(20, "GETTER", 20, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2817   //
2818   //   AlBe - Aloy 
2819   AliMedium(21, "AlBe"  , 21, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2820   //
2821   //   Polyamid
2822   AliMedium(22, "PA"  ,   22, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2823   //   Antocorodal
2824   AliMedium(24, "ANTICORODAL",   24, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2825   //    Insulation Powder 
2826   AliMedium(14, "INS_C0          ", 14, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2827   AliMedium(34, "INS_C1          ", 34, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2828   AliMedium(54, "INS_C2          ", 54, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2829   //
2830   //   KAPTON
2831   AliMedium(23, "KAPTON", 23, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2832
2833   //
2834   //   NEG
2835   AliMedium(25, "NEG COATING", 25, 0, isxfld, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
2836 }
2837
2838
2839 TGeoPcon* AliPIPEupgrade::MakeMotherFromTemplate(const TGeoPcon* shape, Int_t imin, Int_t imax, Float_t r0, Int_t nz)
2840 {
2841 //
2842 //  Create a mother shape from a template setting some min radii to 0
2843 //
2844     Int_t nz0 = shape->GetNz();
2845     // if nz > -1 the number of planes is given by nz
2846     if (nz != -1) nz0 = nz;
2847     TGeoPcon* mother = new TGeoPcon(0., 360., nz0);
2848
2849     if (imin == -1 || imax == -1) {
2850         imin = 0;
2851         imax = shape->GetNz();
2852     } else if (imax >= nz0) {
2853         imax = nz0 - 1;
2854         printf("Warning: imax reset to nz-1 %5d %5d %5d %5d\n", imin, imax, nz, nz0);
2855     }
2856     
2857
2858     
2859     for (Int_t i = 0;  i < shape->GetNz(); i++) {
2860         Double_t rmin = shape->GetRmin(i);
2861         if ((i >= imin) && (i <= imax) ) rmin = r0;
2862         Double_t rmax = shape->GetRmax(i);
2863         Double_t    z = shape->GetZ(i);
2864         mother->DefineSection(i, z, rmin, rmax);
2865     }
2866     return mother;
2867     
2868 }
2869
2870 TGeoPcon* AliPIPEupgrade::MakeInsulationFromTemplate(TGeoPcon* shape)
2871 {
2872 //
2873 //  Create an beam pipe insulation layer shape from a template
2874 //
2875     Int_t nz = shape->GetNz();
2876     TGeoPcon* insu = new TGeoPcon(0., 360., nz);
2877     
2878     for (Int_t i = 0;  i < nz; i++) {
2879         Double_t    z = shape->GetZ(i);
2880         Double_t rmin = shape->GetRmin(i);
2881         Double_t rmax = shape->GetRmax(i);
2882         rmax += 0.5;
2883         shape->DefineSection(i, z, rmin, rmax); 
2884         rmin  = rmax - 0.5;
2885         insu->DefineSection(i, z, rmin, rmax);  
2886     }
2887     return insu;
2888     
2889 }
2890
2891
2892 TGeoVolume* AliPIPEupgrade::MakeBellow(const char* ext, Int_t nc, Float_t rMin, Float_t rMax, Float_t dU, Float_t rPlie, Float_t dPlie)
2893 {
2894     // nc     Number of convolution
2895     // rMin   Inner radius of the bellow
2896     // rMax   Outer radius of the bellow
2897     // dU     Undulation length
2898     // rPlie  Plie radius
2899     // dPlie  Plie thickness
2900     const TGeoMedium* kMedVac    =  gGeoManager->GetMedium("PIPE_VACUUM");    
2901     const TGeoMedium* kMedSteel  =  gGeoManager->GetMedium("PIPE_INOX");   
2902
2903     char name[64], nameA[64], nameB[64], bools[64];
2904     snprintf(name, 64, "%sBellowUS", ext);
2905     TGeoVolume* voBellow = new TGeoVolume(name, new TGeoTube(rMin, rMax, dU/2.), kMedVac);
2906 //      
2907 //  Upper part of the undulation
2908 //
2909     TGeoTorus* shPlieTorusU  =  new TGeoTorus(rMax - rPlie, rPlie - dPlie, rPlie);
2910     snprintf(nameA, 64, "%sTorusU", ext);
2911     shPlieTorusU->SetName(nameA);
2912     TGeoTube*  shPlieTubeU   =  new TGeoTube (rMax - rPlie, rMax, rPlie);
2913     snprintf(nameB, 64, "%sTubeU", ext);
2914     shPlieTubeU->SetName(nameB);
2915     snprintf(name,  64, "%sUpperPlie", ext);
2916     snprintf(bools, 64, "%s*%s", nameA, nameB);
2917     TGeoCompositeShape*  shUpperPlie = new TGeoCompositeShape(name, bools);
2918     
2919     TGeoVolume* voWiggleU = new TGeoVolume(name, shUpperPlie, kMedSteel);
2920 //
2921 // Lower part of the undulation
2922     TGeoTorus* shPlieTorusL =  new TGeoTorus(rMin + rPlie, rPlie - dPlie, rPlie);
2923     snprintf(nameA, 64, "%sTorusL", ext);
2924     shPlieTorusL->SetName(nameA);
2925     TGeoTube*  shPlieTubeL  =  new TGeoTube (rMin, rMin + rPlie, rPlie);
2926     snprintf(nameB, 64, "%sTubeL", ext);
2927     shPlieTubeL->SetName(nameB);
2928     snprintf(name,  64, "%sLowerPlie", ext);
2929     snprintf(bools, 64, "%s*%s", nameA, nameB);
2930     TGeoCompositeShape*  shLowerPlie = new TGeoCompositeShape(name, bools);
2931     
2932     TGeoVolume* voWiggleL = new TGeoVolume(name, shLowerPlie, kMedSteel); 
2933     
2934 //
2935 // Connection between upper and lower part of undulation
2936     snprintf(name, 64, "%sPlieConn1", ext);
2937     TGeoVolume* voWiggleC1 = new TGeoVolume(name, new TGeoTube(rMin + rPlie, rMax - rPlie, dPlie/2.), kMedSteel);
2938 //
2939 // One wiggle
2940     Float_t dz = rPlie -  dPlie / 2.;
2941     Float_t z0 = -  dPlie / 2.;
2942     snprintf(name, 64, "%sWiggle", ext);
2943     TGeoVolumeAssembly* asWiggle = new TGeoVolumeAssembly(name);
2944     asWiggle->AddNode(voWiggleC1,  1 , new TGeoTranslation(0., 0., z0));
2945     z0 += dz;
2946     asWiggle->AddNode(voWiggleU,   1 , new TGeoTranslation(0., 0., z0));
2947     z0 += dz;
2948     asWiggle->AddNode(voWiggleC1,  2 , new TGeoTranslation(0., 0., z0));
2949     z0 += dz;
2950     asWiggle->AddNode(voWiggleL ,  1 , new TGeoTranslation(0., 0., z0));
2951 // Positioning of the volumes
2952     z0   = - dU / 2.+ rPlie;
2953     voBellow->AddNode(voWiggleL, 2, new TGeoTranslation(0., 0., z0));
2954     z0  +=  rPlie;
2955     Float_t zsh  = 4. *  rPlie -  2. * dPlie;
2956     for (Int_t iw = 0; iw < nc; iw++) {
2957         Float_t zpos =  z0 + iw * zsh;  
2958         voBellow->AddNode(asWiggle,  iw + 1, new TGeoTranslation(0., 0., zpos - dPlie));        
2959     }
2960     return voBellow;
2961 }
2962
2963 //_______________________________________________________________________
2964 void AliPIPEupgrade::AddAlignableVolumes() const
2965 {
2966   // 
2967   AliInfo("Add PIPE alignable volume");
2968
2969   if (!gGeoManager) {
2970     AliFatal("TGeoManager doesn't exist !");
2971     return;
2972   }
2973
2974   TString symname("CP1");
2975   TString volpath("/ALIC_1/CP_1/Cp1_1");
2976   if(!gGeoManager->SetAlignableEntry(symname.Data(),volpath.Data()))
2977     AliFatal(Form("Alignable entry %s not created. Volume path %s not valid",
2978                   symname.Data(),volpath.Data()));
2979
2980   //TString symname2("CP3");
2981   //TString volpath2("/ALIC_1/CP_1/Cp3_1");
2982   //if(!gGeoManager->SetAlignableEntry(symname2.Data(),volpath2.Data()))
2983   //  AliFatal(Form("Alignable entry %s not created. Volume path %s not valid",
2984   //              symname2.Data(),volpath2.Data()));
2985 }
2986
2987
2988
2989
2990