0031501: Foundation Classes, Message_Printer - remove theToPutEndl argument -- prepar...
[occt.git] / src / IGESGeom / IGESGeom_ToolCopiousData.cxx
1 // Created by: CKY / Contract Toubro-Larsen
2 // Copyright (c) 1993-1999 Matra Datavision
3 // Copyright (c) 1999-2014 OPEN CASCADE SAS
4 //
5 // This file is part of Open CASCADE Technology software library.
6 //
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
12 //
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
15
16 //--------------------------------------------------------------------
17 //--------------------------------------------------------------------
18
19 #include <gp_XY.hxx>
20 #include <IGESData_DirChecker.hxx>
21 #include <IGESData_Dump.hxx>
22 #include <IGESData_IGESDumper.hxx>
23 #include <IGESData_IGESReaderData.hxx>
24 #include <IGESData_IGESWriter.hxx>
25 #include <IGESData_ParamCursor.hxx>
26 #include <IGESData_ParamReader.hxx>
27 #include <IGESGeom_CopiousData.hxx>
28 #include <IGESGeom_ToolCopiousData.hxx>
29 #include <Interface_Check.hxx>
30 #include <Interface_CopyTool.hxx>
31 #include <Interface_EntityIterator.hxx>
32 #include <Interface_Macros.hxx>
33 #include <Interface_ShareTool.hxx>
34 #include <Message_Messenger.hxx>
35 #include <Message_Msg.hxx>
36 #include <Standard_DomainError.hxx>
37 #include <TColStd_HArray1OfReal.hxx>
38
39 // MGE 28/07/98
40 //=======================================================================
41 //function : IGESGeom_ToolCopiousData
42 //purpose  : 
43 //=======================================================================
44 IGESGeom_ToolCopiousData::IGESGeom_ToolCopiousData ()
45 {
46 }
47
48
49 //=======================================================================
50 //function : ReadOwnParams
51 //purpose  : 
52 //=======================================================================
53
54 void IGESGeom_ToolCopiousData::ReadOwnParams(const Handle(IGESGeom_CopiousData)& ent,
55                                              const Handle(IGESData_IGESReaderData)& /* IR */,
56                                              IGESData_ParamReader& PR) const
57 {
58   // MGE 28/07/98
59   // Building of messages
60
61   Standard_Integer aDataType, nbData;
62   Standard_Real aZPlane = 0;
63   Handle(TColStd_HArray1OfReal) allData;
64
65   Standard_Integer upper;
66   //Standard_Boolean st; //szv#4:S4163:12Mar99 moved down
67   Standard_Boolean data = Standard_False;
68
69   if (!PR.ReadInteger(PR.Current(), aDataType)){ //szv#4:S4163:12Mar99 `st=` not needed
70     //st = PR.ReadInteger(PR.Current(), "Data Type", aDataType);
71     Message_Msg Msg85("XSTEP_85");
72     PR.SendFail(Msg85);
73   }
74
75   Standard_Boolean st = PR.ReadInteger(PR.Current(), nbData);
76   //st = PR.ReadInteger(PR.Current(), "Number of n-tuples", nbData);
77   if (st && (nbData > 0)) data = Standard_True;
78   else {
79     Message_Msg Msg86("XSTEP_86");
80     PR.SendFail(Msg86);
81   }
82
83   if (aDataType == 1){
84     if (!PR.ReadReal(PR.Current(), aZPlane)){ //szv#4:S4163:12Mar99 `st=` not needed
85       Message_Msg Msg87("XSTEP_87");
86       PR.SendFail(Msg87);
87     }
88   //if (aDataType == 1)  st = PR.ReadReal(PR.Current(), "Z Plane", aZPlane);
89   }
90
91   if ( data )
92     {
93       if (aDataType == 1)            upper = 2*nbData;
94       else if (aDataType == 2)       upper = 3*nbData;
95       else                           upper = 6*nbData;
96
97       Message_Msg Msg88("XSTEP_88");
98       //allData = new TColStd_HArray1OfReal(1, upper) then fill it :
99       PR.ReadReals(PR.CurrentList(upper),Msg88, allData); //szv#4:S4163:12Mar99 `st=` not needed
100       //st = PR.ReadReals(PR.CurrentList(upper), "Tuples", allData);
101     }
102
103   DirChecker(ent).CheckTypeAndForm(PR.CCheck(),ent);
104   ent->Init(aDataType, aZPlane, allData);
105 }
106
107
108 //=======================================================================
109 //function : WriteOwnParams
110 //purpose  : 
111 //=======================================================================
112
113 void IGESGeom_ToolCopiousData::WriteOwnParams(const Handle(IGESGeom_CopiousData)& ent,
114                                               IGESData_IGESWriter& IW)  const
115 {
116   Standard_Integer upper = ent->NbPoints();
117   Standard_Integer dtype = ent->DataType();
118   IW.Send(dtype);
119   IW.Send(upper);
120   if (ent->DataType() == 1)
121     IW.Send(ent->ZPlane());
122   for (Standard_Integer I = 1; I <= upper; I++) {
123 // DataType = 1 : XY , 2 : XYZ , 3 : XYZ*2
124     IW.Send( ent->Data(I,1) );
125     IW.Send( ent->Data(I,2) );
126     if (dtype > 1) IW.Send( ent->Data(I,3) );
127     if (dtype <= 2) continue;
128     IW.Send( ent->Data(I,4) );
129     IW.Send( ent->Data(I,5) );
130     IW.Send( ent->Data(I,6) );
131   }
132 }
133
134
135 //=======================================================================
136 //function : OwnShared
137 //purpose  : 
138 //=======================================================================
139
140 void IGESGeom_ToolCopiousData::OwnShared(const Handle(IGESGeom_CopiousData)& /* ent */,
141                                          Interface_EntityIterator& /* iter */) const
142 {
143 }
144
145
146 //=======================================================================
147 //function : OwnCopy
148 //purpose  : 
149 //=======================================================================
150
151 void IGESGeom_ToolCopiousData::OwnCopy(const Handle(IGESGeom_CopiousData)& another,
152                                        const Handle(IGESGeom_CopiousData)& ent,
153                                        Interface_CopyTool& /* TC */) const
154 {
155   Standard_Integer upper;
156   Standard_Real    aZPlane   = 0;
157   Standard_Integer nbTuples  = another->NbPoints();
158   Standard_Integer aDataType = another->DataType();
159   Handle(TColStd_HArray1OfReal) allData;
160
161   if      (aDataType == 1)    upper = 2*nbTuples;
162   else if (aDataType == 2)    upper = 3*nbTuples;
163   else                        upper = 6*nbTuples;
164
165   allData = new TColStd_HArray1OfReal(1, upper);
166
167   if (aDataType == 1)    aZPlane = another->ZPlane();
168
169   for (Standard_Integer I = 1; I <= nbTuples; I++)  {
170
171     switch (aDataType) {
172     case 1:
173       allData->SetValue(2*I-1, another->Data(I,1));
174       allData->SetValue(2*I  , another->Data(I,2));
175       break;
176     case 2:
177       allData->SetValue(3*I-2, another->Data(I,1));
178       allData->SetValue(3*I-1, another->Data(I,2));
179       allData->SetValue(3*I  , another->Data(I,3));
180       break;
181     case 3:
182       allData->SetValue(6*I-5, another->Data(I,1));
183       allData->SetValue(6*I-4, another->Data(I,2));
184       allData->SetValue(6*I-3, another->Data(I,3));
185       allData->SetValue(6*I-2, another->Data(I,4));
186       allData->SetValue(6*I-1, another->Data(I,5));
187       allData->SetValue(6*I  , another->Data(I,6));
188       break;
189     }
190   }
191
192   ent->Init(aDataType, aZPlane, allData);
193   if (another->IsClosedPath2D()) ent->SetClosedPath2D();
194   else  ent->SetPolyline (another->IsPolyline());
195 }
196
197
198 //=======================================================================
199 //function : DirChecker
200 //purpose  : 
201 //=======================================================================
202
203 IGESData_DirChecker IGESGeom_ToolCopiousData::DirChecker
204   (const Handle(IGESGeom_CopiousData)& ent )  const
205 {
206   IGESData_DirChecker DC(106, 1, 63);
207   DC.Structure(IGESData_DefVoid);
208   if (ent->FormNumber() <= 3)
209     {
210       DC.LineFont(IGESData_DefVoid);
211       DC.LineWeight(IGESData_DefVoid);
212     }
213   else
214     {
215       DC.LineFont(IGESData_DefAny);
216       DC.LineWeight(IGESData_DefValue);
217     }
218   DC.Color(IGESData_DefAny);
219   DC.HierarchyStatusIgnored ();
220   return DC;
221 }
222
223
224 //=======================================================================
225 //function : OwnCheck
226 //purpose  : 
227 //=======================================================================
228
229 void IGESGeom_ToolCopiousData::OwnCheck(const Handle(IGESGeom_CopiousData)& ent,
230                                         const Interface_ShareTool&,
231                                         Handle(Interface_Check)& ach)  const
232 {
233   // MGE 28/07/98
234   // Building of messages
235   //======================================
236   Message_Msg Msg71("XSTEP_71");
237   //Message_Msg Msg85("XSTEP_85");
238   //======================================
239
240   Standard_Integer fn = ent->FormNumber();
241   if ( (fn > 3 && fn < 11) || (fn > 14 && fn < 63)) {
242 //    Message_Msg Msg71("XSTEP_71");
243     ach->SendFail(Msg71);
244   }
245   Standard_Integer dt = ent->DataType();
246   if (dt < 1 || dt > 3) {
247     Message_Msg Msg85("XSTEP_85");
248     ach->SendFail(Msg85);
249   }
250   if ((dt == 1 && (fn != 1 && fn != 11 && fn != 63)) ||
251       (dt == 2 && (fn != 2 && fn != 12)) || (dt == 3 && (fn != 3 && fn != 13))) {
252 //    Message_Msg Msg71("XSTEP_71");
253     ach->SendFail(Msg71);
254   }
255 }
256
257
258 //=======================================================================
259 //function : OwnDump
260 //purpose  : 
261 //=======================================================================
262
263 void IGESGeom_ToolCopiousData::OwnDump(const Handle(IGESGeom_CopiousData)& ent,
264                                        const IGESData_IGESDumper& /* dumper */,
265                                        Standard_OStream& S,
266                                        const Standard_Integer level)  const
267 {
268   Standard_Integer nbPnts = ent->NbPoints();
269   Standard_Integer dtype  = ent->DataType();
270   Standard_Integer i;
271   gp_GTrsf loca = ent->Location();
272   gp_GTrsf locv = ent->VectorLocation();
273   Standard_Boolean yatr = (level > 5 && ent->HasTransf());
274
275   S << "IGESGeom_CopiousData\n";
276
277   if (ent->IsPointSet())          S << "Point Set  ";
278   else if (ent->IsPolyline())     S << "Polyline  ";
279   else if (ent->IsClosedPath2D()) S << "Closed Path 2D  ";
280   S << "DataType " << ent->DataType() << "  "
281     << "Number of T-uples = " << nbPnts << "  ";
282   if (dtype == 1) {
283     S << "(Points 2D)  "
284       << "ZPlane = " << ent->ZPlane() << "\n";
285   }
286   else if (dtype == 2)
287     S << "(Points 3D)\n";
288   else if (dtype == 3)
289     S << "(Points 3D + Vectors 3D)\n";
290
291   if (level > 4) {
292     for (i = 1; i <= nbPnts; i ++) {
293       gp_XYZ T = ent->Point(i).XYZ();
294       if (dtype == 1)
295         S << "[" << i << "] (" << T.X() << "," << T.Y() << ")";
296       else
297         S << "[" << i << "] (" << T.X() << "," << T.Y() << "," << T.Z() << ")";
298
299       if (yatr) {
300         loca.Transforms(T);
301         S << " Transformed ("<< T.X() << "," << T.Y() << "," << T.Z() << ")";
302       }
303
304       if (dtype == 3) {
305 //      gp_XYZ P = ent->Vector(i).XYZ();
306         S << "\n   Vector (" << T.X() << "," << T.Y() << "," << T.Z() << ")";
307         if (yatr) {
308           locv.Transforms(T);
309           S << " Transformed ("<< T.X() << "," << T.Y() << "," << T.Z() << ")";
310         }
311       }
312       S << std::endl;
313     }
314   }
315   else S << " [ for content, ask level > 4 ]";
316   S << std::endl;
317 }