0031687: Draw Harness, ViewerTest - extend command vrenderparams with option updating...
[occt.git] / src / GeomToIGES / GeomToIGES_GeomEntity.cxx
CommitLineData
b311480e 1// Created on: 1995-09-13
2// Created by: Marie Jose MARTZ
3// Copyright (c) 1995-1999 Matra Datavision
973c2be1 4// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 5//
973c2be1 6// This file is part of Open CASCADE Technology software library.
b311480e 7//
d5f74e42 8// This library is free software; you can redistribute it and/or modify it under
9// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 10// by the Free Software Foundation, with special exception defined in the file
11// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12// distribution for complete text of the license and disclaimer of any warranty.
b311480e 13//
973c2be1 14// Alternatively, this file may be used under the terms of Open CASCADE
15// commercial license or contractual agreement.
b311480e 16
7fd59977 17//rln 06.01.98 new method SetUnit
18
42cf5bc1 19#include <GeomToIGES_GeomEntity.hxx>
7fd59977 20#include <IGESData_IGESModel.hxx>
21
7fd59977 22//=======================================================================
23//function : GeomToIGES_GeomEntity
24//purpose :
25//=======================================================================
7fd59977 26GeomToIGES_GeomEntity::GeomToIGES_GeomEntity()
27{
28}
29
30
31//=======================================================================
32//function : GeomToIGES_GeomEntity
33//purpose :
34//=======================================================================
35
36GeomToIGES_GeomEntity::GeomToIGES_GeomEntity
37(const GeomToIGES_GeomEntity& other)
38{
39 TheUnitFactor = other.GetUnit();
40 TheModel = other.GetModel();
41}
42
43
44//=======================================================================
45//function : SetModel
46//purpose :
47//=======================================================================
48void GeomToIGES_GeomEntity::SetModel(const Handle(IGESData_IGESModel)& model)
49{
50 TheModel = model;
51 Standard_Real unitfactor = TheModel->GlobalSection().UnitValue();
52 TheUnitFactor = unitfactor;
53}
54
55
56//=======================================================================
57//function : GetModel
58//purpose :
59//=======================================================================
60Handle(IGESData_IGESModel) GeomToIGES_GeomEntity::GetModel() const
61{
62 return TheModel;
63}
64
65
66//=======================================================================
67//function : GetUnit
68//purpose :
69//=======================================================================
70void GeomToIGES_GeomEntity::SetUnit(const Standard_Real unit)
71{
72 TheUnitFactor = unit;
73}
74
75//=======================================================================
76//function : GetUnit
77//purpose :
78//=======================================================================
79Standard_Real GeomToIGES_GeomEntity::GetUnit() const
80{
81 return TheUnitFactor;
82}
83
84