Two Stepping calls at boundary crossing.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 22 Jul 2003 15:48:30 +0000 (15:48 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 22 Jul 2003 15:48:30 +0000 (15:48 +0000)
TFluka/bxdraw.cxx

index 30cb968..c5cdc7f 100644 (file)
@@ -14,7 +14,6 @@ void bxdraw(Int_t& icode, Int_t& mreg, Int_t& newreg,
     TFluka* fluka = (TFluka*) gMC;
     
     fluka->SetIcode(icode);
-    fluka->SetMreg(mreg);
     fluka->SetNewreg(newreg);
     fluka->SetXsco(xsco);
     fluka->SetYsco(ysco);
@@ -22,15 +21,20 @@ void bxdraw(Int_t& icode, Int_t& mreg, Int_t& newreg,
 //
 // Double step for boundary crossing
 //
+    printf("bxdraw (ex) \n");
     fluka->SetTrackIsExiting();
     fluka->SetCaller(12);
+    fluka->SetMreg(mreg);
     (TVirtualMCApplication::Instance())->Stepping(); 
     fluka->SetCaller(11);
     fluka->SetTrackIsEntering();
+    printf("bxdraw (en) \n");
+    fluka->SetMreg(newreg);
     (TVirtualMCApplication::Instance())->Stepping();
-    fluka->SetCaller(1);
-    fluka->SetTrackIsInside();
-    (TVirtualMCApplication::Instance())->Stepping();
+//    fluka->SetCaller(1);
+//    fluka->SetTrackIsInside();
+//    printf("bxdraw (st) \n");
+//    (TVirtualMCApplication::Instance())->Stepping();
 } // end of bxdraw
 } // end of extern "C"