2 #include "TVirtualMCApplication.h"
5 # define mgdraw mgdraw_
11 void mgdraw(Int_t& icode, Int_t& mreg)
13 Int_t oldreg = ((TFluka*) gMC)->GetMreg();
18 ((TFluka*) gMC)->SetNewreg(mreg);
20 ((TFluka*) gMC)->SetMreg(mreg);
21 printf("Boundary Crossing %d %d \n", oldreg, mreg);
23 ((TFluka*) gMC)->SetMreg(mreg);
24 ((TFluka*) gMC)->SetNewreg(mreg);
25 printf("Normal step %d %d \n", oldreg, mreg);
27 ((TFluka*) gMC)->SetIcode(icode);
28 cout << endl << " !!! I am in mgdraw - calling Stepping()" << endl;
29 ((TFluka*) gMC)->FutoTest();
33 // Double step for boundary crossing
35 ((TFluka*) gMC)->SetTrackIsExiting();
36 (TVirtualMCApplication::Instance())->Stepping();
37 ((TFluka*) gMC)->SetMreg(mreg);
38 ((TFluka*) gMC)->SetTrackIsEntering();
39 (TVirtualMCApplication::Instance())->Stepping();
40 ((TFluka*) gMC)->SetTrackIsInside();
42 (TVirtualMCApplication::Instance())->Stepping();
45 } // end of extern "C"