gAlice replaced by TVirtualMCApplication::Instance()
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 3 Mar 2003 09:54:02 +0000 (09:54 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 3 Mar 2003 09:54:02 +0000 (09:54 +0000)
TFluka/bxdraw.cxx
TFluka/eedraw.cxx
TFluka/endraw.cxx
TFluka/magfld.cxx
TFluka/mgdraw.cxx
TFluka/sodraw.cxx
TFluka/usdraw.cxx

index 90832c0e55060a030c3f183c25665293fad746ae..29db5c154ebdad01115e212a417f82d589ac3ee5 100644 (file)
@@ -1,5 +1,5 @@
 #include <Riostream.h>
-#include "AliRun.h"
+#include "TVirtualMCApplication.h"
 #include "TFluka.h"
 #ifndef WIN32
 # define bxdraw bxdraw_
@@ -16,9 +16,9 @@ void bxdraw(Int_t& icode, Int_t& mreg, Int_t& newreg,
   ((TFluka*) gMC)->SetXsco(xsco);
   ((TFluka*) gMC)->SetYsco(ysco);
   ((TFluka*) gMC)->SetZsco(zsco);
-  cout << endl << " !!! I am in bxdraw - calling gAlice->Stepping()" << endl;
+  cout << endl << " !!! I am in bxdraw - calling Stepping()" << endl;
   ((TFluka*) gMC)->FutoTest();
-//  gAlice->Stepping();
+  (TVirtualMCApplication::Instance())->Stepping();
 } // end of bxdraw
 } // end of extern "C"
 
index 04290f4073b6449bfe67ada48a481608fcf200f4..d2c7dac8e5f5c9d13f7f76b46295c59f0f2488ef 100644 (file)
@@ -1,5 +1,5 @@
 #include <Riostream.h>
-#include "AliRun.h"
+#include "TVirtualMCApplication.h"
 #include "TFluka.h"
 #ifndef WIN32
 # define eedraw eedraw_
@@ -10,9 +10,9 @@ extern "C" {
 void eedraw(Int_t& icode)
 {
   ((TFluka*) gMC)->SetIcode(icode);
-  cout << endl << " !!! I am in eedraw - calling gAlice->Stepping()" << endl;
+  cout << endl << " !!! I am in eedraw - calling Stepping()" << endl;
   ((TFluka*) gMC)->FutoTest();
-//  gAlice->Stepping();
+  (TVirtualMCApplication::Instance())->Stepping();
 } // end of eedraw
 } // end of extern "C"
 
index 0213740711e8763d0f5d3cb1e0f0a55cd0196919..68c1995c0c6e12918618a818ff7ca8adcca3be2a 100644 (file)
@@ -1,5 +1,5 @@
 #include <Riostream.h>
-#include "AliRun.h"
+#include "TVirtualMCApplication.h"
 #include "TFluka.h"
 #ifndef WIN32
 # define endraw endraw_
@@ -15,9 +15,9 @@ void endraw(Int_t& icode, Int_t& mreg, Double_t& rull, Double_t& xsco, Double_t&
   ((TFluka*) gMC)->SetXsco(xsco);
   ((TFluka*) gMC)->SetYsco(ysco);
   ((TFluka*) gMC)->SetZsco(zsco);
-  cout << endl << " !!! I am in endraw - calling gAlice->Stepping()" << endl;
+  cout << endl << " !!! I am in endraw - calling Stepping()" << endl;
   ((TFluka*) gMC)->FutoTest();
-//  gAlice->Stepping();
+  (TVirtualMCApplication::Instance())->Stepping();
 } // end of endraw
 } // end of extern "C"
 
index 2161e43f9595133279bcd2f37e88f1955923a4a5..f5d3aa51eed9d87b37c9acabf1103f484141f2a5 100644 (file)
@@ -1,5 +1,4 @@
-#include "AliRun.h"
-#include "AliMagF.h"
+#include "TVirtualMCApplication.h"
 #include "Fdblprc.h"  //(DBLPRC) fluka common
 //
 // #include "TCallf77.h"
@@ -37,8 +36,8 @@ extern "C" void type_of_call magfld(double& x,   double& y,   double& z,
     
     idisc = 0;
     
-    Float_t bc[3];
-    Float_t xc[3];
+    Double_t bc[3];
+    Double_t xc[3];
     
     xc[1] = x;
     xc[0] = y;
@@ -46,7 +45,7 @@ extern "C" void type_of_call magfld(double& x,   double& y,   double& z,
     
     
        
-    gAlice->Field()->Field(xc, bc);
+    (TVirtualMCApplication::Instance())->Field(xc, bc);
     
     b = sqrt(bc[0] * bc[0] + bc[1] * bc[1] + bc[2] * bc[2]);
     if (b) {
index 5d1d4dc172d84b77c8feb1f1b5600f4091949341..da179f486178397065726474a140cb61eec86fd0 100644 (file)
@@ -1,5 +1,5 @@
 #include <Riostream.h>
-#include "AliRun.h"
+#include "TVirtualMCApplication.h"
 #include "TFluka.h"
 #ifndef WIN32
 # define mgdraw mgdraw_
 extern "C" {
 void mgdraw(Int_t& icode, Int_t& mreg)
 {
-  ((TFluka*) gMC)->SetIcode(icode);
-  ((TFluka*) gMC)->SetMreg(mreg);
-  cout << endl << " !!! I am in mgdraw - calling gAlice->Stepping()" << endl;
-  ((TFluka*) gMC)->FutoTest();
-//  gAlice->Stepping();
+    Int_t oldreg = ((TFluka*) gMC)->GetMreg();
+    if (oldreg != mreg) {
+//
+//  Boundary Crossing
+//
+       ((TFluka*) gMC)->SetNewreg(mreg);
+       if (oldreg == -1) 
+           ((TFluka*) gMC)->SetMreg(mreg);
+       printf("Boundary Crossing %d %d \n", oldreg, mreg);
+    } else {
+       ((TFluka*) gMC)->SetMreg(mreg);
+       ((TFluka*) gMC)->SetNewreg(mreg);
+       printf("Normal step %d %d \n", oldreg, mreg);
+    }
+    ((TFluka*) gMC)->SetIcode(icode);
+    cout << endl << " !!! I am in mgdraw - calling Stepping()" << endl;
+    ((TFluka*) gMC)->FutoTest();
+
+    if (oldreg != mreg) {
+//
+//  Double step for boundary crossing
+//
+       ((TFluka*) gMC)->SetTrackIsExiting();
+       (TVirtualMCApplication::Instance())->Stepping();
+       ((TFluka*) gMC)->SetMreg(mreg);
+       ((TFluka*) gMC)->SetTrackIsEntering();
+       (TVirtualMCApplication::Instance())->Stepping();
+       ((TFluka*) gMC)->SetTrackIsInside();
+    } else {
+       (TVirtualMCApplication::Instance())->Stepping();
+    }
 } // end of mgdraw
 } // end of extern "C"
 
index 5ae563c2fe873a058d2e087e8f3a2a6cd03e4007..173ee756912cb1b0e325beb3382aec80b0ec0bc4 100644 (file)
@@ -1,5 +1,4 @@
 #include <Riostream.h>
-#include "AliRun.h"
 #include "TFluka.h"
 #ifndef WIN32
 # define sodraw sodraw_
@@ -10,9 +9,8 @@ extern "C" {
 void sodraw()
 {
   ((TFluka*) gMC)->SetIcode(0);
-  cout << endl << " !!! I am in sodraw - calling gAlice->Stepping()" << endl;
+  cout << endl << " !!! I am in sodraw" << endl;
   ((TFluka*) gMC)->FutoTest();
-//  gAlice->Stepping();
 } // end of sodraw
 } // end of extern "C"
 
index da0e61424de1f464d85ea49892ef4d46479e8183..1140aff52ee4dd7367482af02c36b88f9b5894f3 100644 (file)
@@ -1,5 +1,4 @@
 #include <Riostream.h>
-#include "AliRun.h"
 #include "TFluka.h"
 #ifndef WIN32
 # define usdraw usdraw_
@@ -15,9 +14,8 @@ void usdraw(Int_t& icode, Int_t& mreg,
   ((TFluka*) gMC)->SetXsco(xsco);
   ((TFluka*) gMC)->SetYsco(ysco);
   ((TFluka*) gMC)->SetZsco(zsco);
-  cout << endl << " !!! I am in usdraw - calling gAlice->Stepping()" << endl;
+  cout << endl << " !!! I am in usdraw" << endl;
   ((TFluka*) gMC)->FutoTest();
-//  gAlice->Stepping();
 } // end of usdraw
 } // end of extern "C"