Macros to view SSD support structures.

diff --git a/ITS/DrawS01.C b/ITS/DrawS01.C
new file mode 100644 (file)
index 0000000..be45e53
--- /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 (file)
index 0000000..40d5e81
--- /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"
+}