/**************************************************************************
 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
 *                                                                        *
 * Author: The ALICE Off-line Project.                                    *
 * Contributors are mentioned in the code where appropriate.              *
 *                                                                        *
 * Permission to use, copy, modify and distribute this software and its   *
 * documentation strictly for non-commercial purposes is hereby granted   *
 * without fee, provided that the above copyright notice appears in all   *
 * copies and that both the copyright notice and this permission notice   *
 * appear in the supporting documentation. The authors make no claims     *
 * about the suitability of this software for any purpose. It is          *
 * provided "as is" without express or implied warranty.                  *
 **************************************************************************/

/* $Id$ */


// Generator for particles in a preset
// kinematic range (flat distribution)
// Note that for a given theta pt and p are not independent 
// Range for only one variable (pt or p) should be given.
// Comments and suggestions: andreas.morsch@cern.ch


#include "TPDGCode.h"

#include "AliConst.h"
#include "AliGenBox.h"
#include "AliRun.h"
#include "AliGenEventHeader.h"
#include "TDatabasePDG.h"
#include "AliPDG.h"

ClassImp(AliGenBox)

//_____________________________________________________________________________
AliGenBox::AliGenBox()
    :AliGenerator(), 
     fIpart(0),
     fEtaMin(0),
     fEtaMax(0)
{
  //
  // Default constructor
  //
}

//_____________________________________________________________________________
AliGenBox::AliGenBox(Int_t npart)
    :AliGenerator(npart),
     fIpart(kProton),
     fEtaMin(0),
     fEtaMax(0)
{
  //
  // Standard constructor
  //
  fName  = "Box";
  fTitle = "Box particle generator";
}

//_____________________________________________________________________________

void AliGenBox::Generate() {
  //
  // Generate one trigger (fNpart particles)
  //
  GenerateN(1);
}
 
//_____________________________________________________________________________
void AliGenBox::GenerateN(Int_t ntimes)
{
  //
  // Generate ntimes triggers
  //   total ntimes*fNpart particles
  //
  
    Float_t polar[3]= {0,0,0};
  //
    Float_t origin[3];
    Float_t time;
    Float_t p[3];
    Int_t i, j, nt;
    Double_t pmom, theta, phi, pt;
    Double_t y, mt;
    //
    Float_t random[6];
  //
    for (j=0;j<3;j++) origin[j]=fOrigin[j];
    time = fTimeOrigin;
    if(fVertexSmear==kPerEvent) {
	Vertex();
	for (j=0;j<3;j++) origin[j]=fVertex[j];
	time = fTime;
    }

    Double_t m = TDatabasePDG::Instance()->GetParticle(fIpart)->Mass();

    Int_t mult = fNpart*ntimes;
    for(i=0;i<mult;i++) {
	Rndm(random,3);
	
	if (TestBit(kYRange)) {
	    y = fYMin+random[0]*(fYMax-fYMin);
	
	    if(TestBit(kMomentumRange)) {
	        pmom=fPMin+random[1]*(fPMax-fPMin);
	        mt = TMath::Sqrt(pmom*pmom+m*m)/TMath::CosH(y);
	        pt = TMath::Sqrt(mt*mt - m*m);
	    } else {
	        pt=fPtMin+random[1]*(fPtMax-fPtMin);
	        mt=TMath::Sqrt(pt*pt+m*m);
	    }

	    phi=fPhiMin+random[2]*(fPhiMax-fPhiMin);
	    p[0] = pt*TMath::Cos(phi);
	    p[1] = pt*TMath::Sin(phi);
	    p[2] = mt*TMath::SinH(y);
	} else {
	    if (TestBit(kThetaRange)) {
	        theta = fThetaMin+random[0]*(fThetaMax-fThetaMin);
	    } else {
	        Float_t eta = fEtaMin+random[0]*(fEtaMax-fEtaMin);
	        theta = 2. * TMath::ATan(TMath::Exp(-eta));
	    }
	
	    if(TestBit(kMomentumRange)) {
	        pmom=fPMin+random[1]*(fPMax-fPMin);
	        pt=pmom*TMath::Sin(theta);
	    } else {

	        pt=fPtMin+random[1]*(fPtMax-fPtMin);
	        pmom=pt/TMath::Sin(theta);
	    }

	    phi=fPhiMin+random[2]*(fPhiMax-fPhiMin);
	    p[0] = pt*TMath::Cos(phi);
	    p[1] = pt*TMath::Sin(phi);
	    p[2] = pmom*TMath::Cos(theta);
	}

	if(fVertexSmear==kPerTrack) {
	    Rndm(random,6);
	    for (j=0;j<3;j++) {
		origin[j]=fOrigin[j]+fOsigma[j]*TMath::Cos(2*random[2*j]*TMath::Pi())*
		    TMath::Sqrt(-2*TMath::Log(random[2*j+1]));
	    }

	    Rndm(random,2);
	    time = fTimeOrigin + fOsigma[2]/TMath::Ccgs()*
	      TMath::Cos(2*random[0]*TMath::Pi())*
	      TMath::Sqrt(-2*TMath::Log(random[1]));
	}
	PushTrack(fTrackIt,-1,fIpart,p,origin,polar,time,kPPrimary,nt, 1., 1);
    }

    AliGenEventHeader* header = new AliGenEventHeader("BOX");
    header->SetPrimaryVertex(fVertex);
    header->SetNProduced(mult);
    header->SetInteractionTime(fTime);
    
 // Passes header either to the container or to gAlice
    if (fContainer) {
        header->SetName(fName);
	fContainer->AddHeader(header);
    } else {
	gAlice->SetGenEventHeader(header);	
    }
}

//_____________________________________________________________________________

void AliGenBox::Init()
{
// Initialisation, check consistency of selected ranges
  if(TestBit(kPtRange)&&TestBit(kMomentumRange)) 
    Fatal("Init","You should not set the momentum range and the pt range!\n");
  if((!TestBit(kPtRange))&&(!TestBit(kMomentumRange))) 
    Fatal("Init","You should set either the momentum or the pt range!\n");
  if((TestBit(kYRange)&&TestBit(kThetaRange)) || (TestBit(kYRange)&&TestBit(kEtaRange)) || (TestBit(kEtaRange)&&TestBit(kThetaRange)) )
    Fatal("Init","You should only set the range of one of these variables: y, eta or theta\n");
  if((!TestBit(kYRange)) && (!TestBit(kEtaRange)) && (!TestBit(kThetaRange)) )
    Fatal("Init","You should set the range of one of these variables: y, eta or theta\n");
}