view release on metacpan or  search on metacpan

examples/Basic/geant3task.pl  view on Meta::CPAN

$gutrev->Add($gtreve);
my $gltrac = TTask->new("gltrac","Initialize tracking parameters");      
my $gftrac = TTask->new("gftrac","select next track segment from stack JTRACK");      
my $gutrak = TTask->new("gutrak","Application track manager");      
$gtreve->Add($gltrac);
$gtreve->Add($gftrac);
$gtreve->Add($gutrak);
my $gtrack = TTask->new("gtrack","Geant3 track manager");      
$gutrak->Add($gtrack);
my $gtgama = TTask->new("gtgama","photon propagator");      
my $gtelec = TTask->new("gtelec","electron propagator");      
my $gtneut = TTask->new("gtneut","neutron propagator");      
my $gthadr = TTask->new("gthadr","hadron propagator");      
my $gtmuon = TTask->new("gtmuon","muon propagator");      
my $gtnino = TTask->new("gtnino","geantino propagator");      
my $gtckov = TTask->new("gtckov","Cherenkov light propagator");      
my $gthion = TTask->new("gthion","heavy ion propagator");      
my $gustep = TTask->new("gustep","Application step manager");      
my $gtmedi = TTask->new("gtmedi","Geometry volume finder");      
$gtrack->Add($gtgama);
$gtrack->Add($gtelec);
$gtrack->Add($gtneut);
$gtrack->Add($gthadr);
$gtrack->Add($gtmuon);
$gtrack->Add($gtnino);
$gtrack->Add($gtckov);
$gtrack->Add($gthion);
$gtrack->Add($gustep);
$gtrack->Add($gtmedi);
my $gtnext = TTask->new("gtnext","Geometry bounary manager");      
my $gpairg = TTask->new("gpairg","Generate pair production");      
my $gcomp  = TTask->new("gcomp","Generate Compton scattering");      
my $gphot  = TTask->new("gphot","Generate photo effect");      
my $grayl  = TTask->new("grayl","Generate Rayleigh effect");      
my $gpfis  = TTask->new("gpfis","Generate photo fission");      
$gtgama->Add($gtnext);
$gtgama->Add($gpairg);
$gtgama->Add($gcomp);
$gtgama->Add($gphot);
$gtgama->Add($grayl);
$gtgama->Add($gpfis);
my $guswim = TTask->new("guswim","magnetic field propagator");      
my $ggckov = TTask->new("ggckov","Generate Cherenkov photons");      
my $gsync  = TTask->new("gsync","Generate synchrotron radiation");      
my $gmults = TTask->new("gmults","Apply multiple scattering");      
my $gbreme = TTask->new("gbreme","Generate Bremsstrahlung");      
my $gdray  = TTask->new("gdray","Generate delta ray");      
my $ganni  = TTask->new("ganni","Generate Positron annihilation");      
my $gannir = TTask->new("gannir","Stopped tracks and annihilation at rest");      

$gtelec->Add($gtnext);
$gtelec->Add($guswim);
$gtelec->Add($ggckov);
$gtelec->Add($gsync);
$gtelec->Add($gmults);
$gtelec->Add($gbreme);
$gtelec->Add($gdray);
$gtelec->Add($ganni);
$gtelec->Add($gannir);
my $guphad = TTask->new("guphad","Hadronic cross-section manager");      
my $guhadr = TTask->new("guhadr","Hadronic cascade manager");      
my $gdecay = TTask->new("gdecay","Particle decay");      
$gtneut->Add($gtnext);
$gtneut->Add($guphad);
$gtneut->Add($guhadr);
$gtneut->Add($gdecay);

$gthadr->Add($gtnext);
$gthadr->Add($guphad);
$gthadr->Add($guswim);
$gthadr->Add($ggckov);
$gthadr->Add($gmults);
$gthadr->Add($guhadr);
$gthadr->Add($gdecay);
$gthadr->Add($gdray);
my $gbremm = TTask->new("gbremm","Generate Bremsstrahlung");      
my $gpairm = TTask->new("gpairm","Generate Pair production");      
my $gmunu  = TTask->new("gmunu","Generate Nuclear interaction");      
$gtmuon->Add($gtnext);
$gtmuon->Add($guswim);
$gtmuon->Add($ggckov);
$gtmuon->Add($gmults);
$gtmuon->Add($gbremm);
$gtmuon->Add($gpairm);
$gtmuon->Add($gdecay);
$gtmuon->Add($gdray);
$gtmuon->Add($gmunu);
$gtmuon->Add($gdecay);

$gtnino->Add($gtnext);
my $glisur = TTask->new("glisur","Photon is reflected");      
$gtckov->Add($gtnext);
$gtckov->Add($glisur);

$gthion->Add($gtnext);
$gthion->Add($guswim);
$gthion->Add($gmults);
$gthion->Add($guhadr);
$gthion->Add($gdray);

TBrowser->new;

$gApplication->Run;

__END__