Macros
#define	the solids

#define	the solids

Functions
	GetOptions ("input\|i:s"=>\$input,"help\|h"=>\$help,"suffix\|s:s"=>\$suffix,"output\|o:s"=>\$output)

	if (defined $help)

	if (!defined $suffix)

foreach	$parameter ($xmldata->findnodes('/parameters/geometry/parameter'))

	gen_defs ()

	gen_rotations ()

	gen_materials ()

	gen_microplane ()

	gen_microvertplane ()

	gen_groundplate ()

	gen_cathode ()

	gen_fieldcage ()

	gen_tpc ()

	if ($pmt_switch eq"on")

	gen_cryostat ()

	gen_enclosure ()

	gen_world ()

	write_fragments ()

sub	usage ()

sub	gen_tpcplanevert_bad ()

sub	gen_tpcplane_bad ()

	push (@gdmlFiles, $PMT)

	open (PMT) or die("Could not open file $PMT for writing")

Variables
	else

	$parser = new XML::LibXML

	$xmldata = $parser->parse_file($input)

	$SinUVAngle = sin( deg2rad($UVAngle) )

	$CosUVAngle = cos( deg2rad($UVAngle) )

	$TanUVAngle = tan( deg2rad($UVAngle) )

	$wires_on =1

	$wire_int =20

	$NumberOfTPCPlanes =3

	$tpc_neg_length =1000

	$tpc_neg_width =200

	$tpc_neg_height =200

	$wire_frame_width =9.5

	$wire_plane_height =240

	$wire_plane_length =1042

	$wires_plength =($wire_plane_length - 2*$wire_frame_width)

	$wires_pwidth =($wire_plane_height - 2*$wire_frame_width)

	$field_cage_width = 200

	$field_cage_height = 180

	$field_cage_cross_length = sqrt(($field_cage_width)2+($field_cage_height-50)2)

	$field_cage_length = 1000

	$field_cage_loop_interval = 1

	$spacers_on_off = "off"

	$electronics_height =12

	$pmt_switch ="off"

	exit

sub	gen_pmt

	$PMT = ">" . $PMT

Macro Definition Documentation

#define the solids

Function Documentation

foreach $parameter ( $xmldata->'/parameters/geometry/parameter' )

Definition at line 48 of file generate_gdml_test.pl.

 {
     # Get the name and value attributes for that parameter:
     $name = $parameter->getAttribute("name");
     $value = $parameter->getAttribute("value");
 
     # Here's the clever part: The following eval creates a variable
     # with the same name as $name. For example, if $name eq "TPCDepth",
     # then the following statement assigns the value to $TPCDepth. The
     # value is in quotes, because some of the parameters have text
     # strings in them (like "kInch").
 
     eval "\$$name = '$value'";
 }

gen_cathode ( )

gen_cryostat ( )

gen_defs ( )

gen_enclosure ( )

gen_fieldcage ( )

gen_groundplate ( )

gen_materials ( )

sub gen_microplane ( )

Definition at line 343 of file generate_gdml_test.pl.

 {
 
 
     $GDML = "micro-plane" . $suffix . ".gdml";
     push (@gdmlFiles, $GDML); # Add file to list of GDML fragments
     $GDML = ">" . $GDML;
     open(GDML) or die("Could not open file $GDML for writing");
 
     # Calculate the number of wire ends on a given y-edge of the plane.
     my $TPCYWirePitch = $TPCWirePitch / $CosUVAngle;
     my $NumberWiresPerEdge = int( $TPCLength / $TPCYWirePitch );
 
     # How many side wires will be "cut off" by the lower or higher
     # z-edge?
     my $NumberSideWires = int( $TanUVAngle * $TPCWidth / $TPCYWirePitch );
 
     # The number of full-length "center" wires.
     my $NumberCenterWires = $NumberWiresPerEdge - $NumberSideWires;
 
     # define the solids
     print GDML <<EOF;
 <?xml version='1.0'?>
 <gdml>
 <solids>
 EOF
 
     # wires on either end of the tpc
     for($i = 0; $i < $NumberSideWires; ++$i)
     {
         print GDML <<EOF;
 <tube name="TPCWire$i"
   rmax="0.5*kTPCWireThickness"
   z="kTPCWireXPitch*($i+1)/kSinUVAngle"
   deltaphi="2*kPi"
   aunit="rad"
   lunit="cm"/>
 EOF
     }
 
     # The solids for the middle wire and the TPC wire plane, and start off the structures.
     print GDML <<EOF;
 <tube name="TPCWireCommon"
   rmax="0.5*kTPCWireThickness"
   z="kTPCWidth/kCosUVAngle"
   deltaphi="2*kPi"
   aunit="rad"
   lunit="cm"/>
 <box name="TPCPlane"
   x="kTPCWirePlaneThickness"
   y="kTPCWidth+1"
   z="kTPCLength+1"
   lunit="cm"/>
 </solids>
 <structure>
 EOF
  
     # the wires at either end of the plane
     for ($i = 0; $i < $NumberSideWires; ++$i)
     {
         print GDML <<EOF;
     <volume name="volTPCWire$i">
         <materialref ref="Titanium"/>
         <solidref ref="TPCWire$i"/>
     </volume>
 EOF
     }
 
   
     # The wires in the middle of the plane, and the plane itself.
     print GDML <<EOF;
     <volume name="volTPCWireCommon">
       <materialref ref="Titanium"/>
       <solidref ref="TPCWireCommon"/>
     </volume>
     <volume name="volTPCPlane">
       <materialref ref="LAr"/>
       <solidref ref="TPCPlane"/>
 EOF
 
   # the wires at the -z end
   for ($i = 0; $i < $NumberSideWires; ++$i)
   {
       print GDML <<EOF;
     <physvol>
      <volumeref ref="volTPCWire$i"/> 
      <position name="posTPCWire$i" unit="cm" y="-0.5*kTPCWidth+0.5*($i+1)*kTPCWireXPitch/kTanUVAngle" z="0.5*(-kTPCLength+($i+1)*kTPCWireXPitch)" x="0"/>
      <rotationref ref="rPlusUVAngleAboutX"/>
     </physvol>
 EOF
   }
 
   # The wires in the middle.
   for ($i = 0; $i < $NumberCenterWires; ++$i)
   {
       my $j = $NumberSideWires+$i;
       print GDML <<EOF;
     <physvol>
      <volumeref ref="volTPCWireCommon"/>
      <position name="posTPCWire$j" unit="cm" y="0" z="-0.5*kTPCWirePlaneLength+kTPCWireXPitch*(0.5*$NumberSideWires + $i+1)" x="0"/>
      <rotationref ref="rPlusUVAngleAboutX"/>
     </physvol>
 EOF
   }
 
   # the wires at the +z end
   for ($i = 0; $i < $NumberSideWires; ++$i)
   {
       my $j = $NumberSideWires-$i-1;
       my $k = $NumberCenterWires+$NumberSideWires+$i;
 
       print GDML <<EOF;
     <physvol>
      <volumeref ref="volTPCWire$j"/>
      <position name="posTPCWire$k" unit="cm" y="0.5*kTPCWidth-0.5*($j+1)*kTPCWireXPitch/kTanUVAngle" z="0.5*kTPCWirePlaneLength-0.5*kTPCWireXPitch*($j+1)" x="0"/>
      <rotationref ref="rPlusUVAngleAboutX"/>
     </physvol>
 EOF
   }
 
       print GDML <<EOF;
   </volume>
 </structure>
 </gdml>
 EOF
 
   close(GDML);
 }

sub gen_microvertplane ( )

Definition at line 282 of file generate_gdml_test.pl.

 {
     my $NumberWires = int( $TPCLength / $TPCWirePitch ) - 1;
 
     $GDML = "micro-vertplane" . $suffix . ".gdml";
     push (@gdmlFiles, $GDML); # Add file to list of GDML fragments
     $GDML = ">" . $GDML;
     open(GDML) or die("Could not open file $GDML for writing");
 
     # Define the solids and structures: the wires and the TPC wire plane.
     print GDML <<EOF;
 <?xml version='1.0'?>
 <gdml>
 <solids>
 <tube name="TPCWireVert"
   rmax="0.5*kTPCWireThickness"
   z="kTPCWidth"
   deltaphi="2*kPi"
   aunit="rad"
   lunit="cm"/>
 <box name="TPCPlaneVert"
   x="kTPCWirePlaneThickness" 
   y="kTPCWidth+1" 
   z="kTPCLength+1"
   lunit="cm"/>
 </solids>
 <structure>
   <volume name="volTPCWireVert">
     <materialref ref="Titanium"/>
     <solidref ref="TPCWireVert"/>
   </volume>
   <volume name="volTPCPlaneVert">
     <materialref ref="LAr"/>       
     <solidref ref="TPCPlaneVert"/>
 EOF
 
     # the wires 
     for ( $i = 0; $i < $NumberWires; ++$i)
     {
         print GDML <<EOF;
             <physvol>
              <volumeref ref="volTPCWireVert"/>
              <position name="posTPCWireVert$i" unit="cm" z="(-0.5*kTPCLength)+(($i+1)*kTPCWirePitch)" x="0" y="0"/>
              <rotationref ref="rPlus90AboutX"/>
             </physvol>
 EOF
     }
 
     print GDML <<EOF;
   </volume>
 </structure>
 </gdml>
 EOF
 
     close(GDML);
 }

gen_rotations ( )

gen_tpc ( )

sub gen_tpcplane_bad ( )

Definition at line 547 of file generate_gdml_test.pl.

 {
 
     my $NumberWires = $TPCLength / $TPCWirePitch - 1;
 
     $GDML = "microboone/micro-plane" . $suffix . ".gdml";
     push (@gdmlFiles, $GDML); # Add file to list of GDML fragments
     $GDML = ">" . $GDML;
     open(GDML) or die("Could not open file $GDML for writing");
 
     # Calculate the number of wire ends on a given y-edge of the plane.
     my $TPCYWirePitch = $TPCWirePitch / $CosUVAngle;
     my $NumberWiresPerEdge = int( $TPCLength / $TPCYWirePitch );
     #my $NumberWiresPerEdge = int( ( $wires_plength ) / $TPCYWirePitch );
 
     # How many side wires will be "cut off" by the lower or higher
     # z-edge?
     #my $NumberSideWires = int( $TanUVAngle * ( $wires_pwidth ) / $TPCYWirePitch );
     my $NumberSideWires = int( $TanUVAngle * $TPCWidth / $TPCYWirePitch ) - 1;
 
 
     # The number of full-length "center" wires.
     my $NumberCenterWires = $NumberWiresPerEdge - $NumberSideWires;
 
     # define the solids
     print GDML <<EOF;
 <?xml version='1.0'?>
 <gdml>
 <solids>
 EOF
 
     # wires on either end of the tpc
     for ($i = 0; $i < $NumberSideWires; ++$i)
     {
         print GDML <<EOF;
 <tube name="TPCWire$i"
   rmax="0.5*kTPCWireThickness"
   z="kTPCWireXPitch*($i+1)/kSinUVAngle"
   deltaphi="2*kPi"
   aunit="rad"
   lunit="cm"/>
 EOF
     }
 
     # The solids for the middle wire and the TPC wire plane, and start off the structures.
     print GDML <<EOF;
 <tube name="TPCWireCommon" 
   rmax="0.5*kTPCWireThickness" 
   z="kTPCWidth/kCosUVAngle" 
   deltaphi="2*kPi" 
   aunit="rad" 
   lunit="cm"/>
 <box name="TPCPlane"  
   x="kTPCWirePlaneThickness"  
   y="kTPCWidth"  
   z="kTPCLength"  
   lunit="cm"/>
 </solids>
 <structure>
 EOF
  
     # the wires at either end of the plane
     for ($i = 0; $i < $NumberSideWires; ++$i)
     {
         print GDML <<EOF;
     <volume name="volTPCWire$i">
         <materialref ref="Titanium"/>
         <solidref ref="TPCWire$i"/>
     </volume>
 EOF
     }
 
   
     # The wires in the middle of the plane, and the plane itself.
     print GDML <<EOF;
     <volume name="volTPCWireCommon">
       <materialref ref="Titanium"/>
       <solidref ref="TPCWireCommon"/>
     </volume>
     <volume name="volTPCPlane">
       <materialref ref="LAr"/>
       <solidref ref="TPCPlane"/>
 EOF
 
   # the wires at the -z end
   for ($i = 0; $i < $NumberSideWires; ++$i)
   {
       print GDML <<EOF;
     <physvol>
      <volumeref ref="volTPCWire$i"/> 
      <position name="posTPCWire$i" unit="cm" y="(-0.5*kTPCWirePlaneWidth)+0.5*($i+1)*kTPCWireXPitch/kTanUVAngle" z="-0.5*kTPCWirePlaneLength+0.5*kTPCWireXPitch*($i+1)" x="0"/>
      <rotationref ref="rPlusUVAngleAboutX"/>
     </physvol>
 EOF
   }
 
   # The wires in the middle.
   for ($i = 0; $i < $NumberCenterWires - 1 ; ++$i)
   {
       my $j = $NumberSideWires+$i;
       print GDML <<EOF;
     <physvol>
      <volumeref ref="volTPCWireCommon"/>
      <position name="posTPCWire$j" unit="cm" y="0" z="(-0.5*kTPCWirePlaneLength)+kTPCWireXPitch*(0.5*$NumberSideWires + $i+1)" x="0"/>
      <rotationref ref="rPlusUVAngleAboutX"/>
     </physvol>
 EOF
   }
 
   # the wires at the +z end
   for ($i = 0; $i < $NumberSideWires ; ++$i)
   {
       my $j = $NumberSideWires-$i-1;
       my $k = $NumberCenterWires+$NumberSideWires+$i;
 
       print GDML <<EOF;
     <physvol>
      <volumeref ref="volTPCWire$j"/>
      <position name="posTPCWire$k" unit="cm" y="0.5*kTPCWirePlaneWidth-0.5*($j+1)*kTPCWireXPitch/kTanUVAngle" z="0.5*kTPCWirePlaneLength-0.5*kTPCWireXPitch*($j+1)" x="0"/>
      <rotationref ref="rPlusUVAngleAboutX"/>
     </physvol>
 EOF
   }
 
       print GDML <<EOF;
   </volume>
 </structure>
 </gdml>
 EOF
 
   close(GDML);
 }

sub gen_tpcplanevert_bad ( )

Definition at line 476 of file generate_gdml_test.pl.

 {
 
 
 ##### temporary edits:
 #####   - TPCPlaneVert   y="TPCWidth" z="kTPCLength"
 #####   - TPCWireVert    y="TPCWidth"
 #####   - (above)my $NumberWires = int($TPCLength / $TPCWirePitch ) - 1
 
 
 
     my $NumberWires = int( ( $wires_plength ) / $TPCWirePitch ) - 1;
 
     $GDML = "microboone/micro-vertplane" . $suffix . ".gdml";
     push (@gdmlFiles, $GDML); # Add file to list of GDML fragments
     $GDML = ">" . $GDML;
     open(GDML) or die("Could not open file $GDML for writing");
 
     # Define the solids and structures: the wires and the TPC wire plane.
 
     print GDML <<EOF;
 <?xml version='1.0'?>
 <gdml>
 <solids>
 <tube name="TPCWireVert"
   rmax="0.5*kTPCWireThickness"
   z="$wires_pwidth"             
   deltaphi="2*kPi"
   aunit="rad"
   lunit="cm"/>
 <box name="TPCPlaneVert"
   x="kTPCWirePlaneThickness" 
   y="$wires_pwidth" 
   z="$wires_plength"
   lunit="cm"/>
 </solids>
 <structure>
   <volume name="volTPCWireVert">
     <materialref ref="Titanium"/>
     <solidref ref="TPCWireVert"/>
   </volume>
   <volume name="volTPCPlaneVert">
     <materialref ref="LAr"/>       
     <solidref ref="TPCPlaneVert"/>
 EOF
 
     # the wires 
     for ( $i = 0; $i < ( $NumberWires / $wire_int ); ++$i )
     {
         $j=($wire_int*$i);
         print GDML <<EOF;
             <physvol>
              <volumeref ref="volTPCWireVert"/>
              <position name="posTPCWireVert$i" unit="cm" z="(-0.5*kTPCWirePlaneLength)+kTPCWirePitch*($j+1)" x="0" y="0"/>
              <rotationref ref="rPlus90AboutX"/>
             </physvol>
 EOF
     }
 
     print GDML <<EOF;
   </volume>
 </structure>
 </gdml>
 EOF
 
     close(GDML);
 }

gen_world ( )

GetOptions	(	"input\|i:s"	,
		\	$input,
		"help\|h"	,
		\	$help,
		"suffix\|s:s"	,
		\	$suffix,
		"output\|o:s"	,
		\	$output
	)

if ( defined $help )

Definition at line 20 of file generate_gdml_test.pl.

 {
     # If the user requested help, print the usage notes and exit.
     usage();
     exit;
 }

if ( !defined $suffix )

Definition at line 27 of file generate_gdml_test.pl.

 {
     # The user didn't supply a suffix, so append nothing to the file
     # names.
     $suffix = "";
 }

if ( $pmt_switch eq"on" )

Definition at line 105 of file generate_gdml_test.pl.

105 { gen_pmt(); } # physical volumes defined in gen_cryostat()

gen_pmt

sub gen_pmt

Definition: generate_gdml_simple.pl:780

gen_cryostat

gen_cryostat()

defined

then echo echo For and will not be changed by echo further linking echo echo B echo The symbol is in the uninitialized data multiple common symbols may appear with the echo same name If the symbol is defined the common echo symbols are treated as undefined references For more echo details on common see the discussion of warn common echo in *Note Linker see the discussion of warn common echo in *Note Linker such as a global int variable echo as opposed to a large global array echo echo I echo The symbol is an indirect reference to another symbol This echo is a GNU extension to the a out object file format which is echo rarely used echo echo N echo The symbol is a debugging symbol echo echo R echo The symbol is in a read only data section echo echo S echo The symbol is in an uninitialized data section for small echo objects echo echo T echo The symbol is in the the normal defined echo symbol is used with no error When a weak undefined symbol echo is linked and the symbol is not defined

Definition: find_global_symbol.sh:107

in

if &&[-z"$BASH_VERSION"] then echo Attempting to switch to bash bash shellSwitch exit fi &&["$1"= 'shellSwitch'] shift declare a IncludeDirectives for Dir in

Definition: quiet_Math_Functor_test.sh:23

open ( PMT )

push	(	@	gdmlFiles,
			$PMT
	)

sub usage ( )

Definition at line 116 of file generate_gdml_test.pl.

 {
     print "Usage: $0 [-h|--help] -i|--input <parameters-file> [-o|--output <fragments-file>] [-s|--suffix <string>]\n";
     print "       -i/--input can be omitted; <parameters-file> contains geometry and material parameters\n";
     print "       if -o is omitted, output goes to STDOUT; <fragments-file> is input to make_gdml.pl\n";
     print "       -s <string> appends the string to the file names; useful for multiple detector versions\n";
     print "       -h prints this message, then quits\n";
 }

write_fragments ( )

Definition at line 1168 of file generate_gdml_simple.pl.

 {
     # The output file is a list of the GDML sub-files created by this
     # script.
 
     if ( ! defined $output )
     {
         $output = "-"; # write to STDOUT 
     }
 
     # Set up the output file.
     $OUTPUT = ">" . $output;
     open(OUTPUT) or die("Could not open file $OUTPUT");
 
     print OUTPUT <<EOF;
 <?xml version='1.0'?>
 
 <!-- Input to Geometry/gdml/make_gdml.pl; define the GDML fragments
      that will be zipped together to create a detector description. 
      -->
 
 <config>
 
    <constantfiles>
 
       <!-- These files contain GDML <constant></constant>
            blocks. They are read in separately, so they can be
            interpreted into the remaining GDML. See make_gdml.pl for
            more information. 
            -->
            
 EOF
 
     foreach $filename (@defFiles)
     {
         print OUTPUT <<EOF;
       <filename> $filename </filename>
 EOF
     }
 
     print OUTPUT <<EOF;
 
    </constantfiles>
 
    <gdmlfiles>
 
       <!-- The GDML file fragments to be zipped together. -->
 
 EOF
 
     foreach $filename (@gdmlFiles)
     {
         print OUTPUT <<EOF;
       <filename> $filename </filename>
 EOF
     }
 
     print OUTPUT <<EOF;
 
    </gdmlfiles>
 
 </config>
 EOF
 
     close(OUTPUT);
 }

Variable Documentation

$CosUVAngle = cos( deg2rad($UVAngle) )

Definition at line 65 of file generate_gdml_test.pl.

$electronics_height =12

Definition at line 87 of file generate_gdml_test.pl.

$field_cage_cross_length = sqrt(($field_cage_width)**2+($field_cage_height-50)**2)

Definition at line 83 of file generate_gdml_test.pl.

$field_cage_height = 180

Definition at line 82 of file generate_gdml_test.pl.

$field_cage_length = 1000

Definition at line 84 of file generate_gdml_test.pl.

$field_cage_loop_interval = 1

Definition at line 85 of file generate_gdml_test.pl.

$field_cage_width = 200

Definition at line 81 of file generate_gdml_test.pl.

$NumberOfTPCPlanes =3

Definition at line 72 of file generate_gdml_test.pl.

$parser = new XML::LibXML

Definition at line 41 of file generate_gdml_test.pl.

$PMT = ">" . $PMT

Definition at line 976 of file generate_gdml_test.pl.

$pmt_switch ="off"

Definition at line 88 of file generate_gdml_test.pl.

$SinUVAngle = sin( deg2rad($UVAngle) )

Definition at line 64 of file generate_gdml_test.pl.

$spacers_on_off = "off"

Definition at line 86 of file generate_gdml_test.pl.

$TanUVAngle = tan( deg2rad($UVAngle) )

Definition at line 66 of file generate_gdml_test.pl.

$tpc_neg_height =200

Definition at line 75 of file generate_gdml_test.pl.

$tpc_neg_length =1000

Definition at line 73 of file generate_gdml_test.pl.

$tpc_neg_width =200

Definition at line 74 of file generate_gdml_test.pl.

$wire_frame_width =9.5

Definition at line 76 of file generate_gdml_test.pl.

$wire_int =20

Definition at line 71 of file generate_gdml_test.pl.

$wire_plane_height =240

Definition at line 77 of file generate_gdml_test.pl.

$wire_plane_length =1042

Definition at line 78 of file generate_gdml_test.pl.

$wires_on =1

Definition at line 70 of file generate_gdml_test.pl.

$wires_plength =($wire_plane_length - 2*$wire_frame_width)

Definition at line 79 of file generate_gdml_test.pl.

$wires_pwidth =($wire_plane_height - 2*$wire_frame_width)

Definition at line 80 of file generate_gdml_test.pl.

$xmldata = $parser->parse_file($input)

Definition at line 45 of file generate_gdml_test.pl.

else

Initial value:

{
    $suffix = "-" . $suffix

Definition at line 34 of file generate_gdml_test.pl.

exit

Definition at line 112 of file generate_gdml_test.pl.

sub gen_pmt

Initial value:

{
    $PMT = "microboone/micro-pmtdef" . $suffix . ".gdml"

Definition at line 972 of file generate_gdml_test.pl.

Macros

Functions

Variables

Macro Definition Documentation

Function Documentation

Variable Documentation