Improvements in Wrappers. (A. Gheata)

[u/mrichter/AliRoot.git] / TFluka / bxdraw.cxx

#include <Riostream.h>

#ifndef WITH_ROOT
#include "TFluka.h"
#else
#include "TFlukaGeo.h"
#endif

#include "Fdimpar.h"  //(DIMPAR) fluka include
#include "Ftrackr.h"  //(TRACKR) fluka common
#ifndef WIN32
# define bxdraw bxdraw_
#else
# define bxdraw BXDRAW
#endif
extern "C" {
void bxdraw(Int_t& icode, Int_t& mreg, Int_t& newreg,
            Double_t& xsco, Double_t& ysco, Double_t& zsco)
{
    TFluka* fluka = (TFluka*) gMC;
    
    fluka->SetIcode(icode);
    fluka->SetNewreg(newreg);
    fluka->SetXsco(xsco);
    fluka->SetYsco(ysco);
    fluka->SetZsco(zsco);
//
// 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) mreg=%d newreg=%d \n",mreg,newreg);
    fluka->SetMreg(newreg);
    (TVirtualMCApplication::Instance())->Stepping();
//    fluka->SetCaller(1);
//    fluka->SetTrackIsInside();
//    printf("bxdraw (st) \n");
//    (TVirtualMCApplication::Instance())->Stepping();
} // end of bxdraw
} // end of extern "C"