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 173 of file gears.cc.

Constructor & Destructor Documentation

LineProcessor()

LineProcessor::LineProcessor ( )

inline

Definition at line 179 of file gears.cc.

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

~LineProcessor()

LineProcessor::~LineProcessor ( )

inline

Definition at line 180 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 206 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]);
    size_t i=4; 
    // loop over optical surface setup lines
    while (i<words.size()) {
      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=="firsov") bdr->optic->SetType(firsov);
        else if (value=="x_ray") bdr->optic->SetType(x_ray);
        else G4cout<<"GERAS: Ignore unknown surface type "<<value<<G4endl;
      } else if (setting=="model") {
        if (value=="glisur") bdr->optic->SetModel(glisur);
        else if (value=="unified") bdr->optic->SetModel(unified);
        else G4cout<<"GERAS: Ignore unknown surface model "<<value<<G4endl;
      } else if (setting=="finish") {
        G4cout<<"GERAS: Set surface finish to be "<<value<<G4endl;
        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);
        else {
          G4cout<<"GERAS: Unknown surface finish: "<<value<<"!"<<G4endl;
          abort();
        }
      } else if (setting=="sigma_alpha") {
        bdr->optic->SetSigmaAlpha(G4UIcommand::ConvertToInt(value));
      } else
        G4cout<<"GERAS: Ignore unknown surface setting "<<value<<G4endl;
      i+=2;
    }
    if (i<words.size()) { // break while loop because of "property"
      G4cout<<"GEARS: Set optical properties of "<<bdr->name<<":"<<G4endl;
      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 199 of file gears.cc.

---

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

• gears.cc