STRUCT/AliPIPEv3.cxx

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