Import Geant4 0.1.0 source tree

2016-06-08 15:09:25 +02:00
parent b97f8d0df7
commit aaa409b6ee
2922 changed files with 55107 additions and 81674 deletions
@@ -0,0 +1,91 @@
+// This code implementation is the intellectual property of
+// the RD44 GEANT4 collaboration.
+//
+// By copying, distributing or modifying the Program (or any work
+// based on the Program) you indicate your acceptance of this statement,
+// and all its terms.
+//
+// $Id: BuildCalorimeter.hh,v 1.1 1999/01/08 16:31:32 gunter Exp $
+// GEANT4 tag $Name: geant4-00-01 $
+//
+#ifndef BUILDCALORIMETER_HH
+#define BUILDCALORIMETER_HH
+
+#include "G4PVPlacement.hh"
+#include "G4LogicalVolume.hh"
+#include "G4Box.hh"
+#include "G4Tubs.hh"
+
+G4VPhysicalVolume* BuildCalorimeter()
+{
+    G4double offset=22.5,xTlate,yTlate;
+    G4int i,j,copyNo;
+    G4double z = 13.;
+    G4double a = 26.98*g/mole;
+    G4double density = 2.7*g/cm3;
+
+    G4Box *myWorldBox= new G4Box ("WBox",10000,10000,10000);
+    G4Box *myCalBox = new G4Box ("CBox",1500,1500,1000);
+    G4Tubs *myTargetTube = new G4Tubs ("TTube",0,22.5,1000,0,360);
+
+    G4LogicalVolume *myWorldLog=new G4LogicalVolume(myWorldBox,0,
+						   "WLog",0,0,0);
+    G4LogicalVolume *myCalLog=new G4LogicalVolume(myCalBox,0,
+						  "CLog",0,0,0);
+    G4LogicalVolume *myTargetLog=new G4LogicalVolume(myTargetTube,0,
+						     "TLog",0,0,0);
+
+    G4PVPlacement *myWorldPhys=new G4PVPlacement(0,G4ThreeVector(),
+						 "WPhys",
+						 myWorldLog,
+						 0,false,0);
+    G4PVPlacement *myCalPhys=new G4PVPlacement(0,G4ThreeVector(),
+					       "CalPhys",
+					       myCalLog,
+					       myWorldPhys,false,0);
+
+    G4String tName1("TPhys1");	// Allow all target physicals to share
+				// same name (delayed copy)
+    copyNo=0;
+    for (j=1;j<=25;j++)
+      {
+	yTlate=-1000.0-40.0+j*80.0;
+	
+	for (i=1;i<=50;i++)
+	  {
+	    copyNo++;
+	    xTlate=-1000.0-20.0+i*45.0-offset;
+	    G4PVPlacement *myTargetPhys=new G4PVPlacement(0,G4ThreeVector(xTlate,yTlate,0),
+							  tName1,
+							  myTargetLog,
+							  myCalPhys,
+							  false,
+							  copyNo);
+	  }
+      }
+    
+    G4String tName2("TPhys2");	// Allow all target physicals to share
+    // same name (delayed copy)
+    copyNo=0;
+    for (j=1;j<=26;j++)
+      {
+	yTlate=-1000.0-80.0+j*80.0;
+	for (i=1;i<=50;i++)
+	  {
+	    copyNo++;
+	    xTlate=-1000.0-20.0+i*45.0;
+	    G4PVPlacement *myTargetPhys=new G4PVPlacement(0,G4ThreeVector(xTlate,yTlate,0),
+							  tName2,
+							  myTargetLog,
+							  myCalPhys,
+							  false,
+							  copyNo);
+	  }
+      }
+
+    return myWorldPhys;
+}
+#endif
+
+
+