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