+void AliFRAMEv2::MakeHeatScreen(char* name, Float_t dyP, Int_t rot1, Int_t rot2)
+{
+ // Heat screen panel
+ //
+ Int_t *idtmed = fIdtmed->GetArray()-1999;
+ const Int_t kAir = idtmed[2004];
+ const Int_t kAlu = idtmed[2008];
+
+ Float_t dx, dy;
+ char mname [128];
+ char cname [128];
+ char t1name[128];
+ char t2name[128];
+ char t3name[128];
+ char t4name[128];
+ char t5name[128];
+
+ //
+ Float_t dxP = 2. * (287. * TMath::Sin(10.* TMath::Pi()/180.) - 2.);
+ Float_t dzP = 1.05;
+ //
+ // Mother volume
+ Float_t thshM[3];
+ thshM[0] = dxP / 2.;
+ thshM[1] = dyP / 2.;
+ thshM[2] = dzP / 2.;
+ sprintf(mname, "BTSH_%s", name);
+ gMC->Gsvolu(mname, "BOX ", kAir, thshM, 3);
+ //
+ // Aluminum sheet
+ thshM[2] = 0.025;
+ sprintf(cname, "BTSHA_%s", name);
+ gMC->Gsvolu(cname, "BOX ", kAlu, thshM, 3);
+ gMC->Gspos(cname, 1, mname, 0., 0., -0.5, 0);
+ //
+ // Tubes
+ Float_t thshT[3];
+ thshT[0] = 0.4;
+ thshT[1] = 0.5;
+ thshT[2] = (dyP / 2. - 8.);
+ //
+ sprintf(t1name, "BTSHT1_%s", name);
+ gMC->Gsvolu(t1name, "TUBE", kAlu, thshT, 3);
+ dx = - dxP / 2. + 8. - 0.5;
+ gMC->Gspos(t1name, 1, mname, dx, 0., 0.05, rot1);
+ //
+ sprintf(t2name, "BTSHT2_%s", name);
+ sprintf(t3name, "BTSHT3_%s", name);
+ sprintf(t4name, "BTSHT4_%s", name);
+ sprintf(t5name, "BTSHT5_%s", name);
+ thshT[2] = (thshM[1] - 12.);
+ gMC->Gsvolu(t2name, "TUBE", kAlu, thshT, 3);
+ thshT[2] = 7.9/2.;
+ gMC->Gsvolu(t3name, "TUBE", kAlu, thshT, 3);
+ thshT[2] = 23.9/2.;
+ gMC->Gsvolu(t4name, "TUBE", kAlu, thshT, 3);
+
+ Int_t sig = 1;
+ Int_t ipo = 1;
+ for (Int_t i = 0; i < 5; i++) {
+ sig *= -1;
+ dx += 8.00;
+ dy = 4. * sig;
+ Float_t dy1 = - (thshM[1] - 15.5) * sig;
+ Float_t dy2 = - (thshM[1] - 7.5) * sig;
+
+ gMC->Gspos(t2name, ipo++, mname, dx, dy, 0.05, rot1);
+ dx += 6.9;
+ gMC->Gspos(t2name, ipo++, mname, dx, dy, 0.05, rot1);
+
+ gMC->Gspos(t3name, i+1, mname, dx - 3.45, dy1, 0.05, rot2);
+ gMC->Gspos(t4name, i+1, mname, dx - 3.45, dy2, 0.05, rot2);
+ }
+ dx += 8.;
+ gMC->Gspos(t1name, 2, mname, dx, 0., 0.05, rot1);
+ gMC->Gspos(t3name, 6, mname, dx - 3.45, -(thshM[1] - 7.5), 0.05, rot2);
+}