test of venus

{
   gROOT.Reset();

  //  dynamically link Venus shared libraries
   gSystem.Load("/user/brun/venus/venus.sl");
   gSystem.Load("/user/brun/root/lib/libEG.sl");
 
  //  Initialize Venus object
  TVenus *v = new TVenus("Hadron",10,82,207,82,207,200.,kTRUE,kTRUE,0.,8.,0.,0.);
  v->SetTitle("Venus5.21: Pb--Pb 200 GeV");
 
  //  Open ROOT output file
  TFile f("venus4.root","RECREATE");

  //  Generate a few events
  char tag[16];
  for (Int_t i = 1; i<101; i++) {
     v->GenerateEvent("All");
     sprintf(tag,"event%d",i);
     v->SetName(tag);
     v->Write();
     f.ls();
  }

  //  close output file
  f.Write();
  f.Close();
}