3 gSystem->Load("libEG");
4 gSystem->Load("libdime");
5 gSystem->Load("libTDime");
7 TDime* dime = new TDime();
8 dime->SetEnergyCMS(7000.);
11 TClonesArray* particles = new TClonesArray("TParticle", 100);
13 for (Int_t i = 0; i < 10; i++)
15 dime->GenerateEvent();
16 Int_t np = dime->ImportParticles(particles, "All");
17 printf("\n Imported %3d particles \n", np);
18 for (Int_t ip = 0; ip < np; ip++) {
19 TParticle* part = (TParticle*) (particles->At(ip));