Make drawing and viewving named macros
[u/mrichter/AliRoot.git] / macros / DrawCASTOR.C
1 void DrawCASTOR()
2 {
3    gMC->Gsatt("*", "seen", -1);
4    gMC->Gsatt("alic", "seen", 0);
5    gROOT->LoadMacro("ViewCASTOR.C");
6    gInterpreter->ProcessLine("ViewCASTOR()");
7    gMC->Gdopt("hide", "on");
8    gMC->Gdopt("shad", "on");
9    gMC->Gsatt("*", "fill", 7);
10    gMC->SetClipBox(".");
11    gMC->SetClipBox("*", 0, 20, -20, 20, -1900, -1700);
12    gMC->DefaultRange();
13    gMC->Gdraw("alic", 40, 30, 0, -191.5, -78, .19, .19);
14    gMC->Gdhead(1111, "Castor");
15    gMC->Gdman(15,-2, "MAN");
16 }