0022627: Change OCCT memory management defaults
[occt.git] / src / ChFiDS / ChFiDS_CommonPoint.cxx
CommitLineData
7fd59977 1// File: ChFiDS_CommonPoint.cxx
2// Created: Tue Nov 30 17:48:00 1993
3// Author: Isabelle GRIGNON
4// <isg@zerox>
5
6
7#include <ChFiDS_CommonPoint.ixx>
8
9//=======================================================================
10//function : ChFiDS_CommonPoint
11//purpose :
12//=======================================================================
13
14ChFiDS_CommonPoint::ChFiDS_CommonPoint() :
15tol(0.),
16isonarc(Standard_False),
17isvtx(Standard_False),
18hasvector(Standard_False)
19{
20}
21
22
23//=======================================================================
24//function : Reset
25//purpose :
26//=======================================================================
27
28void ChFiDS_CommonPoint::Reset()
29{
30 tol = 0.;
31 isvtx = Standard_False;
32 isonarc = Standard_False;
33 hasvector = Standard_False;
34}
35
36
37//=======================================================================
38//function : SetArc
39//purpose :
40// 30/09/1997 : PMN On n'ecrabouille plus la tolerance
41//=======================================================================
42
43void ChFiDS_CommonPoint::SetArc(const Standard_Real Tol,
44 const TopoDS_Edge& A,
45 const Standard_Real Param,
46 const TopAbs_Orientation TArc)
47{
48 isonarc = Standard_True;
49 if (Tol > tol) tol = Tol;
50 arc = A;
51 prmarc = Param;
52 traarc = TArc;
53}
54
55//=======================================================================
56//function : SetParameter
57//purpose :
58//=======================================================================
59
60void ChFiDS_CommonPoint::SetParameter(const Standard_Real Param)
61{
62 prmtg = Param;
63}
64
65//=======================================================================
66//function : Arc
67//purpose :
68//=======================================================================
69
70const TopoDS_Edge& ChFiDS_CommonPoint::Arc()const
71{
72 if (!isonarc){
73 Standard_DomainError::Raise("CommonPoint not on Arc");
74 }
75 return arc;
76}
77
78
79//=======================================================================
80//function : TransitionOnArc
81//purpose :
82//=======================================================================
83
84TopAbs_Orientation ChFiDS_CommonPoint::TransitionOnArc()const
85{
86 if (!isonarc){
87 Standard_DomainError::Raise("CommonPoint not on Arc");
88 }
89 return traarc;
90}
91
92
93//=======================================================================
94//function : ParameterOnArc
95//purpose :
96//=======================================================================
97
98Standard_Real ChFiDS_CommonPoint::ParameterOnArc()const
99{
100 if (!isonarc){
101 Standard_DomainError::Raise("CommonPoint not on Arc");
102 }
103 return prmarc;
104}
105
106//=======================================================================
107//function : Parameter
108//purpose :
109//=======================================================================
110
111Standard_Real ChFiDS_CommonPoint::Parameter()const
112{
113 return prmtg;
114}
115
116