STRUCT/AliPIPEv4.cxx

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