-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdet1_rich_modular_eleside_virtualplane.pl
51 lines (44 loc) · 1.36 KB
/
det1_rich_modular_eleside_virtualplane.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
use strict;
our %detector;
our %configuration;
use Getopt::Long;
use Math::Trig;
my $DetectorMother="root";
my $DetectorName = 'det1_rich_modular_eleside_virtualplane';
my $offset=70.9;
my $offset_inner=40.3;
sub det1_rich_modular_eleside_virtualplane
{
my $NUM = 1;
my @z = (-190);
my @Rin = (10);
my @Rout = (110);
my @Dz = (0.001);
my @name = ("");
my @mother = ("$DetectorMother");
my @mat = ("G4_Galactic");
my @rot = (0);
for(my $n=1; $n<=$NUM; $n++)
{
my %detector=init_det();
$detector{"name"} = "$DetectorName\_$name[$n-1]";
$detector{"mother"} = "$mother[$n-1]" ;
$detector{"description"} = "$DetectorName\_$name[$n-1]";
$detector{"pos"} = "0*cm 0*cm $z[$n-1]*cm";
$detector{"rotation"} = "$rot[$n-1]*deg 0*deg 0*deg";
$detector{"color"} = "000000";
$detector{"type"} = "Tube";
$detector{"dimensions"} = "$Rin[$n-1]*cm $Rout[$n-1]*cm $Dz[$n-1]*cm 0*deg 360*deg";
$detector{"material"} = $mat[$n-1];
$detector{"mfield"} = "no";
$detector{"ncopy"} = 1;
$detector{"pMany"} = 1;
$detector{"exist"} = 1;
$detector{"visible"} = 1;
$detector{"style"} = 0;
$detector{"sensitivity"} = "flux";
$detector{"hit_type"} = "flux";
$detector{"identifiers"} = "id manual 21000";
print_det(\%configuration, \%detector);
}
}