From ecdeb9667aff4117b48d4f86109eb8de3378c7d0 Mon Sep 17 00:00:00 2001 From: nilsen Date: Sun, 15 Sep 2002 19:55:23 +0000 Subject: [PATCH] Macros to view SSD support structures. --- ITS/DrawS01.C | 16 ++++++++++++++++ ITS/ViewS01.C | 14 ++++++++++++++ 2 files changed, 30 insertions(+) create mode 100644 ITS/DrawS01.C create mode 100644 ITS/ViewS01.C diff --git a/ITS/DrawS01.C b/ITS/DrawS01.C new file mode 100644 index 00000000000..be45e539741 --- /dev/null +++ b/ITS/DrawS01.C @@ -0,0 +1,16 @@ +void DrawS01() +{ + gMC->Gsatt("*", "seen", -1); + gMC->Gsatt("alic", "seen", 0); + gROOT->LoadMacro("ViewS01.C"); + gInterpreter->ProcessLine("ViewS01()"); + gMC->Gdopt("hide", "on"); + gMC->Gdopt("shad", "on"); + gMC->Gsatt("*", "fill", 7); + gMC->SetClipBox("."); + gMC->SetClipBox("*", 0, 100, -1000, 1000, -1000, 1000); + gMC->DefaultRange(); + gMC->Gdraw("alic", 40, 30, 0, 10, 10, .1, .1); + gMC->Gdhead(1111, "Inner Tracking System"); + gMC->Gdman(16, 6, "MAN"); +} diff --git a/ITS/ViewS01.C b/ITS/ViewS01.C new file mode 100644 index 00000000000..40d5e81f15a --- /dev/null +++ b/ITS/ViewS01.C @@ -0,0 +1,14 @@ +void ViewS01(){ + gMC->Gsatt("ITSV","seen",0); // Air "Gen Air" + gMC->Gsatt("ITSD","seen",0); // Air "Gen Air" + gMC->Gsatt("IS01","seen",0); // Air "Air" + gMC->Gsatt("ICY2","seen",1); // Carbon Fiber "SDD C (M55J) + gMC->Gsatt("I212","seen",1); // Carbon "ITS SandW C" + gMC->Gsatt("I211","seen",1); // PC board "G10FR4" + gMC->Gsatt("I217","seen",1); // Carbon Fiber "SDD/SSD rings" + gMC->Gsatt("I219","seen",1); // Carbon Fiber "SDD/SSD rings" + gMC->Gsatt("I214","seen",1); // PC board "G10FR4" + gMC->Gsatt("I213","seen",1); // PC board "G10FR4" + gMC->Gsatt("I215","seen",2); // Air "Air" + gMC->Gsatt("I216","seen",1); // Carbon "ITS Sandw C" +} -- 2.31.1