27 TMaterial::TMaterial()
 
   40 TMaterial::TMaterial(
const char *name, 
const char *title, Float_t a, Float_t z, Float_t density)
 
   41            :TNamed(name,title), TAttFill(0,1)
 
   43    if (!gGeometry) gGeometry = 
new TGeometry(
"Geometry",
"Default Geometry");
 
   47    fNumber  = gGeometry->GetListOfMaterials()->GetSize();
 
   50    gGeometry->GetListOfMaterials()->Add(
this);
 
   56 TMaterial::TMaterial(
const char *name, 
const char *title, Float_t a, Float_t z, Float_t density, Float_t radl, Float_t inter)
 
   57            :TNamed(name,title), TAttFill(0,1)
 
   59    if (!gGeometry) gGeometry = 
new TGeometry(
"Geometry",
"Default Geometry");
 
   63    fNumber  = gGeometry->GetListOfMaterials()->GetSize();
 
   66    gGeometry->GetListOfMaterials()->Add(
this);
 
   72 TMaterial::~TMaterial()
 
   74    if (gGeometry) gGeometry->GetListOfMaterials()->Remove(
this);
 
   81 void TMaterial::Streamer(TBuffer &R__b)
 
   84    if (R__b.IsReading()) {
 
   85       Version_t R__v = R__b.ReadVersion(&R__s, &R__c);
 
   86       R__b.ClassBegin(TMaterial::IsA());
 
   87       R__b.ClassMember(
"TNamed");
 
   88       TNamed::Streamer(R__b);
 
   89       R__b.ClassMember(
"fNumber", 
"Int_t");
 
   91       R__b.ClassMember(
"fA", 
"Float_t");
 
   93       R__b.ClassMember(
"fZ", 
"Float_t");
 
   95       R__b.ClassMember(
"fDensity", 
"Float_t");
 
   98          R__b.ClassMember(
"TAttFill");
 
   99          TAttFill::Streamer(R__b);
 
  100          R__b.ClassMember(
"fRadLength", 
"Float_t");
 
  102          R__b.ClassMember(
"fInterLength", 
"Float_t");
 
  103          R__b >> fInterLength;
 
  108       R__b.ClassEnd(TMaterial::IsA());
 
  109       R__b.CheckByteCount(R__s, R__c, TMaterial::IsA());
 
  111       R__c = R__b.WriteVersion(TMaterial::IsA(), kTRUE);
 
  112       R__b.ClassBegin(TMaterial::IsA());
 
  113       R__b.ClassMember(
"TNamed");
 
  114       TNamed::Streamer(R__b);
 
  115       R__b.ClassMember(
"fNumber", 
"Int_t");
 
  117       R__b.ClassMember(
"fA", 
"Float_t");
 
  119       R__b.ClassMember(
"fZ", 
"Float_t");
 
  121       R__b.ClassMember(
"fDensity", 
"Float_t");
 
  123       R__b.ClassMember(
"TAttFill");
 
  124       TAttFill::Streamer(R__b);
 
  125       R__b.ClassMember(
"fRadLength", 
"Float_t");
 
  127       R__b.ClassMember(
"fInterLength", 
"Float_t");
 
  128       R__b << fInterLength;
 
  129       R__b.ClassEnd(TMaterial::IsA());
 
  130       R__b.SetByteCount(R__c, kTRUE);