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
|
#include <RWStepGeom_RWDirection.ixx>
#include <TColStd_HArray1OfReal.hxx>
RWStepGeom_RWDirection::RWStepGeom_RWDirection () {}
void RWStepGeom_RWDirection::ReadStep
(const Handle(StepData_StepReaderData)& data,
const Standard_Integer num,
Handle(Interface_Check)& ach,
const Handle(StepGeom_Direction)& ent) const
{
// --- Number of Parameter Control ---
if (!data->CheckNbParams(num,2,ach,"direction")) return;
// --- inherited field : name ---
Handle(TCollection_HAsciiString) aName;
//szv#4:S4163:12Mar99 `Standard_Boolean stat1 =` not needed
data->ReadString (num,1,"name",ach,aName);
// --- own field : directionRatios ---
Handle(TColStd_HArray1OfReal) aDirectionRatios;
Standard_Real aDirectionRatiosItem;
Standard_Integer nsub2;
if (data->ReadSubList (num,2,"direction_ratios",ach,nsub2)) {
Standard_Integer nb2 = data->NbParams(nsub2);
aDirectionRatios = new TColStd_HArray1OfReal (1, nb2);
for (Standard_Integer i2 = 1; i2 <= nb2; i2 ++) {
//szv#4:S4163:12Mar99 `Standard_Boolean stat2 =` not needed
if (data->ReadReal (nsub2,i2,"direction_ratios",ach,aDirectionRatiosItem))
aDirectionRatios->SetValue(i2,aDirectionRatiosItem);
}
}
//--- Initialisation of the read entity ---
ent->Init(aName, aDirectionRatios);
}
void RWStepGeom_RWDirection::WriteStep
(StepData_StepWriter& SW,
const Handle(StepGeom_Direction)& ent) const
{
// --- inherited field name ---
SW.Send(ent->Name());
// --- own field : directionRatios ---
SW.OpenSub();
for (Standard_Integer i2 = 1; i2 <= ent->NbDirectionRatios(); i2 ++) {
SW.Send(ent->DirectionRatiosValue(i2));
}
SW.CloseSub();
}
void RWStepGeom_RWDirection::Check
(const Handle(StepGeom_Direction)& ent,
const Interface_ShareTool& ,
Handle(Interface_Check)& ach) const
{
Standard_Integer nbVal = ent->NbDirectionRatios();
Standard_Integer i;
for(i=1; i<=nbVal; i++) {
if(Abs(ent->DirectionRatiosValue(i)) >= RealEpsilon()) break;
}
if(i>nbVal) ach->AddFail("ERROR: DirectionRatios all 0.0");
}
|
