generate_voltpc.pl File Reference

Go to the source code of this file.

Functions
	gen_header ()
	gen_materials ()
	gen_voltpc ()

Variables
	$CryostatWidth =200
	$CryostatHeight =200
	$CryostatLength =1000
	$SteelThickness =0.5*2.54
	$ArgonWidth =$CryostatWidth-2*$SteelThickness
	$ArgonHeight =$CryostatHeight-2*$SteelThickness
	$ArgonLength =$CryostatLength-2*$SteelThickness
	$RockThickness =200
	$ConcretePadding =50
	$GlassFoamPadding =100
	$TotalPadding =$ConcretePadding+$GlassFoamPadding+$SteelThickness
	$CavernWidth =$ArgonWidth+2*$TotalPadding
	$CavernHeight =$ArgonHeight+$TotalPadding
	$CavernLength =$ArgonLength+2*$TotalPadding
	$TPCWidth =$CryostatWidth
	$TPCHeight =$CryostatHeight
	$TPCLength =$CryostatLength
	$TPCWireThickness =0.015
	exit

Function Documentation

sub gen_header

(

)

Definition at line 149 of file generate_voltpc.pl.

{

  $volTPC = "voltpc.gdml";
  $volTPC = ">" . $volTPC;
  open(volTPC) or die("Could not open file $volTPC for writing");
  print volTPC <<EOF;
<?xml version="1.0" encoding="UTF-8" ?>
<gdml xmlns:gdml="http://cern.ch/2001/Schemas/GDML"
      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
      xsi:noNamespaceSchemaLocation="GDMLSchema/gdml.xsd">
EOF
}

gen_materials

(

)

sub gen_voltpc

(

)

Definition at line 41 of file generate_voltpc.pl.

{
  # Set up the output file.
  $volTPC = "voltpc.gdml";
  $volTPC = ">>" . $volTPC;
  open(volTPC) or die("Could not open file $volTPC for writing");

  print volTPC <<EOF;
  <solids>
    <box name="World" lunit="cm" 
      x="5*$CryostatWidth" 
      y="5*$CryostatHeight" 
      z="5*$CryostatLength"/>
    <box name="DetEnclosure" lunit="cm" 
      x="$CryostatWidth+10" 
      y="$CryostatHeight+10" 
      z="$CryostatLength+10"/>
    <box name="Cryostat" lunit="cm" 
      x="$CryostatWidth" 
      y="$CryostatHeight" 
      z="$CryostatLength"/>
    <box name="TPC" lunit="cm" 
      x="$TPCWidth" 
      y="$TPCHeight" 
      z="$TPCLength"/>
    <box name="TPCPlane" lunit="cm" 
      x="0.1" 
      y="0.9*$TPCHeight" 
      z="0.9*$TPCLength"/>
    <tube name="TPCWire"
      rmax="0.5*$TPCWireThickness"
      z="0.89*$TPCHeight"               
      deltaphi="2*3.14159"
      aunit="rad"
      lunit="cm"/>

  </solids>
  <structure>
    <volume name="volTPCWire">
      <materialref ref="STEEL_STAINLESS_Fe7Cr2Ni" />
      <solidref ref="TPCWire" />
    </volume>
    <volume name="volTPCPlane">
      <materialref ref="LAr"/>
      <solidref ref="TPCPlane"/>
EOF

for ( $i=-0.3*$TPCLength ; $i < 0.3*$TPCLength ; $i+=100 ) {
    $wire_zpos=$i;
      print volTPC <<EOF;
      <physvol>
        <volumeref ref="volTPCWire"/>
        <position name="posTPCWire$i" unit="cm" x="0" y="0" z="$wire_zpos"/>
        <rotation name="rTPCWire$i" unit="deg" x="60" y="0" z="0"/>
      </physvol>
EOF
}
    print volTPC <<EOF;
    </volume>
    <volume name="volTPC">
      <materialref ref="LAr" />
      <solidref ref="TPC" />
      <physvol>
        <volumeref ref="volTPCPlane"/>
        <position name="posTPCPlane1" unit="cm" x="-0.45*$TPCWidth" y="0" z="0"/>
      </physvol>
      <physvol>
        <volumeref ref="volTPCPlane"/>
        <position name="posTPCPlane2" unit="cm" x="-0.475*$TPCWidth" y="0" z="0"/>
        <rotation name="rTPCPlane2" unit="deg" x="0" y="180" z="0"/>
      </physvol>
    </volume>
    <volume name="volCryostat">
      <materialref ref="LAr" />
      <solidref ref="Cryostat" />
        <physvol>
          <volumeref ref="volTPC"/>
          <position name="posTPC" unit="cm" x="0" y="0" z="0"/>
        </physvol>
    </volume>
    <volume name="volDetEnclosure">
      <materialref ref="Air"/>
      <solidref ref="DetEnclosure"/>
      <physvol>
        <volumeref ref="volCryostat"/>
        <position name="posCryostat" unit="cm" x="0" y="0" z="0"/>
      </physvol>
    </volume>
    <volume name="volWorld" >
      <materialref ref="Air"/>
      <solidref ref="World"/>
      <physvol>
        <volumeref ref="volDetEnclosure"/>
        <position name="posDetEnclosure" unit="cm" x="0.5*$TPCWidth" y="0" z="0.5*$TPCLength"/>
      </physvol>
    </volume>
  </structure>

  <setup name="Default" version="1.0">
    <world ref="volWorld" />
  </setup>
</gdml>
EOF
   close(volTPC);
}

Variable Documentation

$ArgonHeight =$CryostatHeight-2*$SteelThickness

Definition at line 16 of file generate_voltpc.pl.

$ArgonLength =$CryostatLength-2*$SteelThickness

Definition at line 17 of file generate_voltpc.pl.

$ArgonWidth =$CryostatWidth-2*$SteelThickness

Definition at line 15 of file generate_voltpc.pl.

$CavernHeight =$ArgonHeight+$TotalPadding

Definition at line 23 of file generate_voltpc.pl.

$CavernLength =$ArgonLength+2*$TotalPadding

Definition at line 24 of file generate_voltpc.pl.

$CavernWidth =$ArgonWidth+2*$TotalPadding

Definition at line 22 of file generate_voltpc.pl.

$ConcretePadding =50

Definition at line 19 of file generate_voltpc.pl.

$CryostatHeight =200

Definition at line 10 of file generate_voltpc.pl.

$CryostatLength =1000

Definition at line 11 of file generate_voltpc.pl.

$CryostatWidth =200

Definition at line 9 of file generate_voltpc.pl.

$GlassFoamPadding =100

Definition at line 20 of file generate_voltpc.pl.

$RockThickness =200

Definition at line 18 of file generate_voltpc.pl.

$SteelThickness =0.5*2.54

Definition at line 14 of file generate_voltpc.pl.

$TotalPadding =$ConcretePadding+$GlassFoamPadding+$SteelThickness

Definition at line 21 of file generate_voltpc.pl.

$TPCHeight =$CryostatHeight

Definition at line 26 of file generate_voltpc.pl.

$TPCLength =$CryostatLength

Definition at line 27 of file generate_voltpc.pl.

$TPCWidth =$CryostatWidth

Definition at line 25 of file generate_voltpc.pl.

$TPCWireThickness =0.015

Definition at line 28 of file generate_voltpc.pl.

exit

Definition at line 34 of file generate_voltpc.pl.