{
   gInterpreter->ExecuteMacro("TeleGeo.cxx");
   geom->CloseGeometry();
   geom->SetVisLevel(4);
   top->Draw();
   Double_t point[3], dircos[3];
   point[0] = -8.984;
   point[1] = 0.0;
   point[2] = 7.8;
   dircos[0] = 0.;
   dircos[1] = 0.;
   dircos[2] = -1.;
   geom->InitTrack(point,dircos);
   for(Int_t i=0;i<3;i++){
     geom->FindNextBoundary();
     cout<<"Distance to Boundary is "<<geom->GetStep()<<" cm."<<endl;
     geom->Step();
   }
   
 }