b2domain_property.H

//------------------------------------------------------------------------
// b2domain_property.H --
//
//
// written by Mathias Doreille
//
// Copyright (c) 2004-2015,2016
//     SMR Engineering & Development SA
//     2502 Bienne, Switzerland
//
// All Rights Reserved.  Proprietary source code.  The contents of
// this file may not be disclosed to third parties, copied or
// duplicated in any form, in whole or in part, without the prior
// written permission of SMR.
//------------------------------------------------------------------------
 
#ifndef _B2_DOMAIN_PROPERTY_H_
#define _B2_DOMAIN_PROPERTY_H_
 
#include "model/b2case.H"
#include "model/b2element.H"
 
namespace b2000 { namespace b2dbv3 {
 
class DomainProperty {
public:
    DomainProperty(Domain& domain_, int dim_ = 0, double facdrill_ = 0, double facrems_ = 0)
        : domain(domain_), dim(dim_), facdrill(facdrill_), facrems(facrems_) {}
 
    void set_case(b2000::Case& case_) {
        dim = case_.get_int("GEOM", 3);
        facdrill = case_.get_double("DRILLS", 0);
        facrems = case_.get_double("REMSING", 0);
    }
 
    Domain& get_domain() { return domain; }
 
    double get_drill_stiffness() const { return facdrill; }
 
private:
    Domain& domain;
    int dim;
    double facdrill;
    double facrems;
};
 
}}  // namespace b2000::b2dbv3
 
#endif /* _B2_DOMAIN_PROPERTY_H_ */