STRUCT/DrawPIPE.C

   1 //void DrawPIPE()
   2 {
   3    gMC->Gsatt("*", "seen", -1);
   4    gMC->Gsatt("alic", "seen", 0);
   5    gROOT->Macro("ViewPIPE.C");
   6    gMC->Gdopt("hide", "on");
   7    gMC->Gdopt("shad", "on");
   8    gMC->Gsatt("*", "fill", 7);
   9    gMC->SetClipBox(".");
  10    gMC->SetClipBox("*", 0, 3000, -3000, 3000, -6000, 6000);
  11    gMC->DefaultRange();
  12    gMC->Gdraw("alic", 40, 30, 0, 3, 5, .04, .04);
  13    gMC->Gdhead(1111, "Beam Pipe");
  14    gMC->Gdman(16, 6, "MAN");
  15 }