/*
$Log$
+Revision 1.13 2001/06/21 12:26:52 morsch
+Simple concrete shielding around compensator dipole.
+
+Revision 1.12 2001/06/20 16:08:56 morsch
+Remove some shielding to accomodate compensator magnet.
+
+Revision 1.11 2001/05/16 14:57:22 alibrary
+New files for folders and Stack
+
+Revision 1.10 2000/10/02 21:28:15 fca
+Removal of useless dependecies via forward declarations
+
Revision 1.9 2000/06/13 14:55:26 morsch
Unused variables removed
gMC->Gspos("HPIL", 1, "ALIC", 165.,-706+pbox[1] , 1350., 0, "ONLY");
gMC->Gspos("HPIL", 2, "ALIC",-165.,-706+pbox[1] , 1350., 0, "ONLY");
- // concrete beam shield
-
- pbox[0] = 402.5;
- pbox[1] = 260.;
- pbox[2] = 120.;
- gMC->Gsvolu("HMBS", "BOX ", idtmed[1956], pbox, 3);
- pbox[0] = 85.;
- pbox[1] = 100.;
- gMC->Gsvolu("HBBS", "BOX ", idtmed[1956], pbox, 3);
- gMC->Gspos("HBBS", 1, "HMBS", -157.5, 0., 0., 0, "ONLY");
- pbox[0] = 40.;
- pbox[1] = 130.;
- gMC->Gsvolu("HPBS", "BOX ", idtmed[1956], pbox, 3);
- gMC->Gspos("HPBS", 1, "HMBS", 202.5, 30., 0., 0, "ONLY");
- gMC->Gspos("HMBS", 1, "ALIC", 157.5, -50., -820., 0, "ONLY");
+ // simple concrete beam shield
+
+ Float_t ppgon[10];
+ ppgon[0] = 45.;
+ ppgon[1] = 360.;
+ ppgon[2] = 4.;
+ ppgon[3] = 2.;
+ ppgon[4] = -1800.;
+ ppgon[5] = 150.;
+ ppgon[6] = 250.;
+ ppgon[7] = -720.;
+ ppgon[8] = 150.;
+ ppgon[9] = 250.;
+
+ gMC->Gsvolu("HMBS", "PGON", idtmed[1956], ppgon, 10);
+ gMC->Gspos("HMBS", 1, "ALIC", 0., 70., 0., 0, "ONLY");
}
//
Int_t i;
//
- printf("\n");
- for(i=0;i<35;i++) printf("*");
- printf(" HALL_INIT ");
- for(i=0;i<35;i++) printf("*");
- printf("\n");
- //
- // Here the HALL initialisation code (if any!)
- for(i=0;i<80;i++) printf("*");
- printf("\n");
+ if(fDebug) {
+ printf("\n%s: ",ClassName());
+ for(i=0;i<35;i++) printf("*");
+ printf(" HALL_INIT ");
+ for(i=0;i<35;i++) printf("*");
+ printf("\n%s: ",ClassName());
+ //
+ // Here the HALL initialisation code (if any!)
+ for(i=0;i<80;i++) printf("*");
+ printf("\n");
+ }
}
//_____________________________________________________________________________