0022627: Change OCCT memory management defaults
[occt.git] / src / RWStepBasic / RWStepBasic_RWEulerAngles.cxx
1 // File:        RWStepBasic_RWEulerAngles.cxx
2 // Created:     Thu Dec 12 15:38:06 2002 
3 // Author:      data exchange team
4 // Generator:   ExpToCas (EXPRESS -> CASCADE/XSTEP Translator) V1.2
5 // Copyright:   Open CASCADE 2002
6
7 #include <RWStepBasic_RWEulerAngles.ixx>
8 #include <TColStd_HArray1OfReal.hxx>
9 #include <Standard_Real.hxx>
10
11 //=======================================================================
12 //function : RWStepBasic_RWEulerAngles
13 //purpose  : 
14 //=======================================================================
15
16 RWStepBasic_RWEulerAngles::RWStepBasic_RWEulerAngles ()
17 {
18 }
19
20 //=======================================================================
21 //function : ReadStep
22 //purpose  : 
23 //=======================================================================
24
25 void RWStepBasic_RWEulerAngles::ReadStep (const Handle(StepData_StepReaderData)& data,
26                                           const Standard_Integer num,
27                                           Handle(Interface_Check)& ach,
28                                           const Handle(StepBasic_EulerAngles) &ent) const
29 {
30   // Check number of parameters
31   if ( ! data->CheckNbParams(num,1,ach,"euler_angles") ) return;
32
33   // Own fields of EulerAngles
34
35   Handle(TColStd_HArray1OfReal) aAngles;
36   Standard_Integer sub1 = 0;
37   if ( data->ReadSubList (num, 1, "angles", ach, sub1) ) {
38     Standard_Integer nb0 = data->NbParams(sub1);
39     aAngles = new TColStd_HArray1OfReal (1, nb0);
40     Standard_Integer num2 = sub1;
41     for ( Standard_Integer i0=1; i0 <= nb0; i0++ ) {
42       Standard_Real anIt0;
43       data->ReadReal (num2, i0, "real", ach, anIt0);
44       aAngles->SetValue(i0, anIt0);
45     }
46   }
47
48   // Initialize entity
49   ent->Init(aAngles);
50 }
51
52 //=======================================================================
53 //function : WriteStep
54 //purpose  : 
55 //=======================================================================
56
57 void RWStepBasic_RWEulerAngles::WriteStep (StepData_StepWriter& SW,
58                                            const Handle(StepBasic_EulerAngles) &ent) const
59 {
60
61   // Own fields of EulerAngles
62
63   SW.OpenSub();
64   for (Standard_Integer i0=1; i0 <= ent->Angles()->Length(); i0++ ) {
65     Standard_Real Var0 = ent->Angles()->Value(i0);
66     SW.Send (Var0);
67   }
68   SW.CloseSub();
69 }
70
71 //=======================================================================
72 //function : Share
73 //purpose  : 
74 //=======================================================================
75
76 void RWStepBasic_RWEulerAngles::Share (const Handle(StepBasic_EulerAngles) &ent,
77                                        Interface_EntityIterator& iter) const
78 {
79
80   // Own fields of EulerAngles
81 }