TOF/DrawTOFstrips.C

   1 void DrawTOFstrips()
   2 {
   3    gMC->Gsatt("*", "seen", -1);
   4    gMC->Gsatt("alic", "seen", 0);
   5    gROOT->LoadMacro("ViewTOFstrips.C");
   6    gInterpreter->ProcessLine("ViewTOFstrips()");
   7    gMC->Gdopt("hide", "on");
   8    gMC->Gdopt("shad", "on");
   9    gMC->Gsatt("*", "fill", 5);
  10    gMC->SetClipBox(".");
  11    gMC->SetClipBox("*", 0, 1000, 0, 1000, 0, 1000);
  12    gMC->DefaultRange();
  13    gMC->Gdraw("alic", 45, 40, 0, 10, 10, .015, .015);
  14    gMC->Gdhead(1111, "TOF Detector (Strips)");
  15    gMC->Gdman(18, 4, "MAN");
  16 }