LineProcessor Class Reference

Extension to default text geometry file line processor. More...

Inheritance diagram for LineProcessor:

Collaboration diagram for LineProcessor:

Public Member Functions
	LineProcessor ()
	~LineProcessor ()
G4bool	ProcessLine (const vector< G4String > &words)
	Overwrite G4tgrLineProcessor::ProcessLine to add new tags. More...

Public Attributes
BorderSurface *	Border
	pointer to a BorderSurface object More...

Detailed Description

Extension to default text geometry file line processor.

Definition at line 201 of file gears.cc.

Constructor & Destructor Documentation

LineProcessor()

LineProcessor::LineProcessor ( )

inline

Definition at line 208 of file gears.cc.

: G4tgrLineProcessor(), Border(0) {};

~LineProcessor()

LineProcessor::~LineProcessor ( )

inline

Definition at line 209 of file gears.cc.

                   {
    while (Border) { // deleting G4OpticalSurface is done in Geant4
      BorderSurface *next = Border->next;
      delete Border;
      Border = next;
    }
  }

Member Function Documentation

ProcessLine()

G4bool LineProcessor::ProcessLine

(

const vector< G4String > &

words

)

Overwrite G4tgrLineProcessor::ProcessLine to add new tags.

Two new tags are added: ":PROP" and ":SURF" (case insensitive):

• ":prop" is used to add optical properties to a material
• ":surf" is used to define an optical surface

The function is called for each new line. Be sure to insert an end-of-line character by typing <Enter> at the end of the last line, otherwise, the last line will not be processed.

Definition at line 235 of file gears.cc.

                                                               {
  // process default text geometry tags
  G4bool processed = G4tgrLineProcessor::ProcessLine(words);
  if (processed)
    return true; // no new tags involved

  // process added tags: prop & surf
  G4String tag = words[0];
  G4StrUtil::to_lower(tag);          // to lower cases
  if (tag.substr(0, 5) == ":prop") { // set optical properties of a material
    G4NistManager *mgr = G4NistManager::Instance();
    mgr->SetVerbose(2);
    G4Material *m = mgr->FindOrBuildMaterial(words[1]);
    if (m == NULL) // if not in NIST, then build in tgb
      m = G4tgbMaterialMgr::GetInstance()->FindOrBuildG4Material(words[1]);
    G4cout << "GEARS: Set optical properties of " << words[1] << ":" << G4endl;
    m->SetMaterialPropertiesTable(CreateMaterialPropertiesTable(words, 2));
    return true;
  } else if (tag.substr(0, 5) == ":surf") { // define an optical surface
    auto bdr = new BorderSurface;
    bdr->next = Border; // save current border pointer
    Border = bdr;       // overwrite current border pointer
    bdr->name = words[1];
    bdr->v1 = words[2];
    bdr->v2 = words[3];
    bdr->optic = new G4OpticalSurface(words[1]);

    G4cout << "GEARS: Set optical properties of " << bdr->name << ":"<< G4endl;
    size_t i = 4;
    while (i < words.size()) { // loop over optical surface setup lines
      G4String setting = words[i], value = words[i + 1];
      G4StrUtil::to_lower(setting); G4StrUtil::to_lower(value);
      if (setting == "property") {
        i++;
        break;
      } else if (setting == "type") {
        if (value == "dielectric_metal")
          bdr->optic->SetType(dielectric_metal);
        else if (value == "dielectric_dielectric")
          bdr->optic->SetType(dielectric_dielectric);
        else if (value == "dielectric_lut")
          bdr->optic->SetType(dielectric_LUT);
        else if (value == "dielectric_lutdavis")
          bdr->optic->SetType(dielectric_LUTDAVIS);
        else if (value == "dielectric_dichroic")
          bdr->optic->SetType(dielectric_dichroic);
        else if (value == "firsov")
          bdr->optic->SetType(firsov);
        else if (value == "x_ray")
          bdr->optic->SetType(x_ray);
        else if (value == "coated")
          bdr->optic->SetType(coated);
        else
          G4cout << "GEARS: Ignore unknown surface type " << value << G4endl;
        G4cout << "GEARS: type = " << value << G4endl;
      } else if (setting == "model") {
        if (value == "glisur")
          bdr->optic->SetModel(glisur);
        else if (value == "unified")
          bdr->optic->SetModel(unified);
        else if (value == "lut")
          bdr->optic->SetModel(LUT);
        else if (value == "davis")
          bdr->optic->SetModel(DAVIS);
        else if (value == "dichroic")
          bdr->optic->SetModel(dichroic);
        else
          G4cout << "GEARS: Ignore unknown surface model " << value << G4endl;
        G4cout << "GEARS: model = " << value << G4endl;
      } else if (setting == "finish") {
        if (value == "polished") bdr->optic->SetFinish(polished);
        else if (value == "polishedfrontpainted") bdr->optic->SetFinish(polishedfrontpainted);
        else if (value == "polishedbackpainted") bdr->optic->SetFinish(polishedbackpainted);
        else if (value == "ground") bdr->optic->SetFinish(ground);
        else if (value == "groundfrontpainted") bdr->optic->SetFinish(groundfrontpainted);
        else if (value == "groundbackpainted") bdr->optic->SetFinish(groundbackpainted);
        // --- LBNL LUT Model Finishes ---
        else if (value == "polishedlumirrorair") bdr->optic->SetFinish(polishedlumirrorair);
        else if (value == "polishedlumirrorglue") bdr->optic->SetFinish(polishedlumirrorglue);
        else if (value == "polishedair") bdr->optic->SetFinish(polishedair);
        else if (value == "polishedteflonair") bdr->optic->SetFinish(polishedteflonair);
        else if (value == "polishedtioair") bdr->optic->SetFinish(polishedtioair);
        else if (value == "polishedtyvekair") bdr->optic->SetFinish(polishedtyvekair);
        else if (value == "polishedvm2000air") bdr->optic->SetFinish(polishedvm2000air);
        else if (value == "polishedvm2000glue") bdr->optic->SetFinish(polishedvm2000glue);

        else if (value == "etchedlumirrorair") bdr->optic->SetFinish(etchedlumirrorair);
        else if (value == "etchedlumirrorglue") bdr->optic->SetFinish(etchedlumirrorglue);
        else if (value == "etchedair") bdr->optic->SetFinish(etchedair);
        else if (value == "etchedteflonair") bdr->optic->SetFinish(etchedteflonair);
        else if (value == "etchedtioair") bdr->optic->SetFinish(etchedtioair);
        else if (value == "etchedtyvekair") bdr->optic->SetFinish(etchedtyvekair);
        else if (value == "etchedvm2000air") bdr->optic->SetFinish(etchedvm2000air);
        else if (value == "etchedvm2000glue") bdr->optic->SetFinish(etchedvm2000glue);

        else if (value == "groundlumirrorair") bdr->optic->SetFinish(groundlumirrorair);
        else if (value == "groundlumirrorglue") bdr->optic->SetFinish(groundlumirrorglue);
        else if (value == "groundair") bdr->optic->SetFinish(groundair);
        else if (value == "groundteflonair") bdr->optic->SetFinish(groundteflonair);
        else if (value == "groundtioair") bdr->optic->SetFinish(groundtioair);
        else if (value == "groundtyvekair") bdr->optic->SetFinish(groundtyvekair);
        else if (value == "groundvm2000air") bdr->optic->SetFinish(groundvm2000air);
        else if (value == "groundvm2000glue") bdr->optic->SetFinish(groundvm2000glue);
        // --- DAVIS Model Finishes (Lowercase Conversion) ---
        else if (value == "rough_lut") bdr->optic->SetFinish(Rough_LUT);
        else if (value == "roughteflon_lut") bdr->optic->SetFinish(RoughTeflon_LUT);
        else if (value == "roughesr_lut") bdr->optic->SetFinish(RoughESR_LUT);
        else if (value == "roughesrgrease_lut") bdr->optic->SetFinish(RoughESRGrease_LUT);
        else if (value == "polished_lut") bdr->optic->SetFinish(Polished_LUT);
        else if (value == "polishedteflon_lut") bdr->optic->SetFinish(PolishedTeflon_LUT);
        else if (value == "polishedesr_lut") bdr->optic->SetFinish(PolishedESR_LUT);
        else if (value == "polishedesrgrease_lut") bdr->optic->SetFinish(PolishedESRGrease_LUT);
        else if (value == "detector_lut") bdr->optic->SetFinish(Detector_LUT);

        else {
          G4cout << "GEARS: Unknown surface finish: " << value << "!" << G4endl;
          abort();
        }
        G4cout << "GEARS: finish = " << value << G4endl;
      } else if (setting == "sigma_alpha") {
        bdr->optic->SetSigmaAlpha(G4UIcommand::ConvertToDouble(value));
        G4cout<<"GEARS: sigma_alpha = "<<bdr->optic->GetSigmaAlpha()<<G4endl;
      } else
        G4cout << "GEARS: Ignore unknown surface setting " << value << G4endl;
      i += 2;
    }
    if (i < words.size()) // break while loop because of "property"
      bdr->optic->SetMaterialPropertiesTable(
          CreateMaterialPropertiesTable(words, i));
    return true;
  } else
    return false;
}

Member Data Documentation

Border

BorderSurface* LineProcessor::Border

pointer to a BorderSurface object

Definition at line 228 of file gears.cc.

---

The documentation for this class was generated from the following file:

• gears.cc