1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
// File: TestTopOpeTools_Mesure.cxx
// Created: Mon Mar 17 13:33:03 1997
// Author: Prestataire Mary FABIEN
// <fbi@langdox.paris1.matra-dtv.fr>
#include <TestTopOpeTools_Mesure.ixx>
#include <TestTopOpeTools_Mesure.hxx>
#include <TColStd_HArray1OfInteger.hxx>
#include <TColStd_HArray1OfReal.hxx>
#include <TColgp_HArray1OfPnt.hxx>
#include <TColgp_Array1OfPnt.hxx>
#include <Handle_Geom_BSplineCurve.hxx>
#include <Geom_BSplineCurve.hxx>
#include <gp_Pnt.hxx>
//=======================================================================
//function : TestTopOpeTools_Mesure
//purpose :
//=======================================================================
TestTopOpeTools_Mesure::TestTopOpeTools_Mesure()
:myPnts(new TColgp_HArray1OfPnt(1,100)),myNPnts(0){}
//=======================================================================
//function : TestTopOpeTools_Mesure
//purpose :
//=======================================================================
TestTopOpeTools_Mesure::TestTopOpeTools_Mesure
(const TCollection_AsciiString& Name)
: myName(Name),myPnts(new TColgp_HArray1OfPnt(1,100)),myNPnts(0)
{
myNPnts = 1;
myPnts->SetValue(myNPnts,gp_Pnt(0.,0.,0.));
}
//=======================================================================
//function : TestTopOpeTools_Mesure
//purpose :
//=======================================================================
TestTopOpeTools_Mesure::TestTopOpeTools_Mesure
(const Handle(TColgp_HArray1OfPnt)& P)
: myName(""),myPnts(new TColgp_HArray1OfPnt(1,100)),myNPnts(0)
{
myPnts = P;
myNPnts = myPnts->Length();
}
//=======================================================================
//function : Add
//purpose :
//=======================================================================
void TestTopOpeTools_Mesure::Add(const Standard_Integer n,
const Standard_Real t)
{
if (myPnts.IsNull()) return;
if (myNPnts+1 > myPnts->Upper()) {
Handle(TColgp_HArray1OfPnt) Ploc = new TColgp_HArray1OfPnt(1,10*myNPnts);
for(Standard_Integer i = 1;i <= myNPnts;i++)
Ploc->SetValue(i,myPnts->Value(i));
myPnts->ChangeArray1() = Ploc->Array1();
}
myNPnts++;
myPnts->SetValue(myNPnts,gp_Pnt((Standard_Real)n,t,0.));
}
//=======================================================================
//function : Name
//purpose :
//=======================================================================
const TCollection_AsciiString& TestTopOpeTools_Mesure::Name() const
{
return myName;
}
//=======================================================================
//function : Name
//purpose :
//=======================================================================
void TestTopOpeTools_Mesure::SetName(const TCollection_AsciiString& Name)
{
myName = Name;
}
//=======================================================================
//function : Pnts
//purpose :
//=======================================================================
const TColgp_Array1OfPnt& TestTopOpeTools_Mesure::Pnts() const
{
return myPnts->Array1();
}
//=======================================================================
//function : Pnt
//purpose :
//=======================================================================
const gp_Pnt& TestTopOpeTools_Mesure::Pnt(const Standard_Integer I) const
{
return myPnts->Value(I);
}
//=======================================================================
//function : NPnts
//purpose :
//=======================================================================
Standard_Integer TestTopOpeTools_Mesure::NPnts() const
{
return myNPnts;
}
//=======================================================================
//function : Clear
//purpose :
//=======================================================================
void TestTopOpeTools_Mesure::Clear()
{
myNPnts = 0;
}
|
