0031668: Visualization - WebGL sample doesn't work on Emscripten 1.39
[occt.git] / src / RWStepShape / RWStepShape_RWOpenShell.cxx
1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
2 //
3 // This file is part of Open CASCADE Technology software library.
4 //
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
10 //
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
13
14
15 #include <Interface_Check.hxx>
16 #include <Interface_EntityIterator.hxx>
17 #include <RWStepShape_RWOpenShell.hxx>
18 #include <StepData_StepReaderData.hxx>
19 #include <StepData_StepWriter.hxx>
20 #include <StepShape_Face.hxx>
21 #include <StepShape_HArray1OfFace.hxx>
22 #include <StepShape_OpenShell.hxx>
23
24 RWStepShape_RWOpenShell::RWStepShape_RWOpenShell () {}
25
26 void RWStepShape_RWOpenShell::ReadStep
27         (const Handle(StepData_StepReaderData)& data,
28          const Standard_Integer num,
29          Handle(Interface_Check)& ach,
30          const Handle(StepShape_OpenShell)& ent) const
31 {
32
33
34         // --- Number of Parameter Control ---
35
36         if (!data->CheckNbParams(num,2,ach,"open_shell")) return;
37
38         // --- inherited field : name ---
39
40         Handle(TCollection_HAsciiString) aName;
41         //szv#4:S4163:12Mar99 `Standard_Boolean stat1 =` not needed
42         data->ReadString (num,1,"name",ach,aName);
43
44         // --- inherited field : cfsFaces ---
45
46         Handle(StepShape_HArray1OfFace) aCfsFaces;
47         Handle(StepShape_Face) anent2;
48         Standard_Integer nsub2;
49         if (data->ReadSubList (num,2,"cfs_faces",ach,nsub2)) {
50           Standard_Integer nb2 = data->NbParams(nsub2);
51           aCfsFaces = new StepShape_HArray1OfFace (1, nb2);
52           for (Standard_Integer i2 = 1; i2 <= nb2; i2 ++) {
53             //szv#4:S4163:12Mar99 `Standard_Boolean stat2 =` not needed
54             if (data->ReadEntity (nsub2, i2,"face", ach, STANDARD_TYPE(StepShape_Face), anent2))
55               aCfsFaces->SetValue(i2, anent2);
56           }
57         }
58
59         //--- Initialisation of the read entity ---
60
61
62         ent->Init(aName, aCfsFaces);
63 }
64
65
66 void RWStepShape_RWOpenShell::WriteStep
67         (StepData_StepWriter& SW,
68          const Handle(StepShape_OpenShell)& ent) const
69 {
70
71         // --- inherited field name ---
72
73         SW.Send(ent->Name());
74
75         // --- inherited field cfsFaces ---
76
77         SW.OpenSub();
78         for (Standard_Integer i2 = 1;  i2 <= ent->NbCfsFaces();  i2 ++) {
79           SW.Send(ent->CfsFacesValue(i2));
80         }
81         SW.CloseSub();
82 }
83
84
85 void RWStepShape_RWOpenShell::Share(const Handle(StepShape_OpenShell)& ent, Interface_EntityIterator& iter) const
86 {
87
88         Standard_Integer nbElem1 = ent->NbCfsFaces();
89         for (Standard_Integer is1=1; is1<=nbElem1; is1 ++) {
90           iter.GetOneItem(ent->CfsFacesValue(is1));
91         }
92
93 }
94