0031501: Foundation Classes, Message_Printer - remove theToPutEndl argument -- prepar...
[occt.git] / src / IGESDimen / IGESDimen_ToolSection.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_Pnt.hxx>
20 #include <gp_XY.hxx>
21 #include <IGESData_DirChecker.hxx>
22 #include <IGESData_Dump.hxx>
23 #include <IGESData_IGESDumper.hxx>
24 #include <IGESData_IGESReaderData.hxx>
25 #include <IGESData_IGESWriter.hxx>
26 #include <IGESData_LineFontEntity.hxx>
27 #include <IGESData_ParamCursor.hxx>
28 #include <IGESData_ParamReader.hxx>
29 #include <IGESDimen_Section.hxx>
30 #include <IGESDimen_ToolSection.hxx>
31 #include <Interface_Check.hxx>
32 #include <Interface_CopyTool.hxx>
33 #include <Interface_EntityIterator.hxx>
34 #include <Interface_Macros.hxx>
35 #include <Interface_ShareTool.hxx>
36 #include <Message_Messenger.hxx>
37 #include <Standard_DomainError.hxx>
38 #include <TColgp_HArray1OfXY.hxx>
39
40 IGESDimen_ToolSection::IGESDimen_ToolSection ()    {  }
41
42
43 void  IGESDimen_ToolSection::ReadOwnParams
44   (const Handle(IGESDimen_Section)& ent,
45    const Handle(IGESData_IGESReaderData)& /* IR */, IGESData_ParamReader& PR) const
46
47   //Standard_Boolean st; //szv#4:S4163:12Mar99 moved down
48
49   Standard_Integer datatype;
50   Standard_Real zDisplacement; 
51   Standard_Integer nbval;
52   Handle(TColgp_HArray1OfXY) dataPoints;
53
54   PR.ReadInteger(PR.Current(), "Interpretation Flag", datatype); //szv#4:S4163:12Mar99 `st=` not needed
55
56   Standard_Boolean st = PR.ReadInteger(PR.Current(), "Number of data points", nbval);
57   if (st && nbval > 0)
58     dataPoints = new TColgp_HArray1OfXY(1, nbval);
59   else  PR.AddFail("Number of data points: Not Positive");
60
61   PR.ReadReal(PR.Current(), "Common Z Displacement", zDisplacement); //szv#4:S4163:12Mar99 `st=` not needed
62
63   if (! dataPoints.IsNull())
64     for (Standard_Integer i = 1; i <= nbval; i++)
65       {
66         gp_XY tempXY;
67         PR.ReadXY(PR.CurrentList(1, 2), "Data Points", tempXY); //szv#4:S4163:12Mar99 `st=` not needed
68         dataPoints->SetValue(i, tempXY);
69       }
70
71   DirChecker(ent).CheckTypeAndForm(PR.CCheck(),ent);
72   ent->Init(datatype, zDisplacement, dataPoints);
73 }
74
75 void  IGESDimen_ToolSection::WriteOwnParams
76   (const Handle(IGESDimen_Section)& ent, IGESData_IGESWriter& IW) const 
77
78   Standard_Integer upper = ent->NbPoints();
79   IW.Send(ent->Datatype());
80   IW.Send(upper);
81   IW.Send(ent->ZDisplacement());
82   for (Standard_Integer i = 1; i <= upper; i++)
83     {
84       IW.Send((ent->Point(i)).X());
85       IW.Send((ent->Point(i)).Y());
86     }
87 }
88
89 void  IGESDimen_ToolSection::OwnShared
90   (const Handle(IGESDimen_Section)& /* ent */, Interface_EntityIterator& /* iter */) const
91 {
92 }
93
94 void  IGESDimen_ToolSection::OwnCopy
95   (const Handle(IGESDimen_Section)& another,
96    const Handle(IGESDimen_Section)& ent, Interface_CopyTool& /* TC */) const
97 {
98   Standard_Integer datatype = another->Datatype();
99   Standard_Integer nbval = another->NbPoints();
100   Standard_Real zDisplacement = another->ZDisplacement();
101
102   Handle(TColgp_HArray1OfXY) dataPoints = new TColgp_HArray1OfXY(1, nbval);
103
104   for (Standard_Integer i = 1; i <= nbval; i++)
105     {
106       gp_Pnt tempPnt = (another->Point(i));
107       gp_XY tempPnt2d(tempPnt.X(), tempPnt.Y());
108       dataPoints->SetValue(i, tempPnt2d);
109     }
110   ent->Init(datatype, zDisplacement, dataPoints);
111   ent->SetFormNumber (another->FormNumber());
112 }
113
114 Standard_Boolean  IGESDimen_ToolSection::OwnCorrect
115   (const Handle(IGESDimen_Section)& ent) const
116 {
117   Standard_Boolean res = (ent->RankLineFont() != 1);
118   if (res) {
119     Handle(IGESData_LineFontEntity) nulfont;
120     ent->InitLineFont(nulfont,1);
121   }
122   if (ent->Datatype() == 1) return res;
123 //  Forcer DataType = 1 -> reconstruire
124   Standard_Integer nb = ent->NbPoints();
125   if (nb == 0) return Standard_False;  // rien pu faire (est-ce possible ?)
126   Handle(TColgp_HArray1OfXY) pts = new TColgp_HArray1OfXY(1,nb);
127   for (Standard_Integer i = 1; i <= nb; i ++)
128     pts->SetValue(i,gp_XY (ent->Point(i).X(),ent->Point(i).Y()) );
129   ent->Init (1,ent->ZDisplacement(),pts);
130   return Standard_True;
131 }
132
133 IGESData_DirChecker  IGESDimen_ToolSection::DirChecker
134   (const Handle(IGESDimen_Section)& /* ent */) const 
135
136   IGESData_DirChecker DC (106, 31, 38);
137   DC.Structure(IGESData_DefVoid);
138   DC.LineFont(IGESData_DefValue);
139   DC.LineWeight(IGESData_DefValue);
140   DC.Color(IGESData_DefAny);
141   DC.UseFlagRequired(1);
142   DC.HierarchyStatusIgnored();
143   return DC;
144 }
145
146 void  IGESDimen_ToolSection::OwnCheck
147   (const Handle(IGESDimen_Section)& ent,
148    const Interface_ShareTool& , Handle(Interface_Check)& ach) const 
149 {
150   if (ent->RankLineFont() != 1)
151     ach->AddFail("Line Font Pattern != 1");
152   if (ent->Datatype() != 1)
153     ach->AddFail("Interpretation Flag != 1");
154   if (ent->NbPoints()%2 != 0)
155     ach->AddFail("Number of data points is not even");
156 }
157
158 void  IGESDimen_ToolSection::OwnDump
159   (const Handle(IGESDimen_Section)& ent, const IGESData_IGESDumper& /* dumper */,
160    Standard_OStream& S, const Standard_Integer level) const 
161
162   S << "IGESDimen_Section\n"
163     << "Data Type   : "           << ent->Datatype() << "  "
164     << "Number of Data Points : " << ent->NbPoints()  << "  "
165     << "Common Z displacement : " << ent->ZDisplacement() << "\n"
166     << "Data Points : "; 
167   IGESData_DumpListXYLZ(S,level,1, ent->NbPoints(),ent->Point,
168                         ent->Location(), ent->ZDisplacement());
169   S << std::endl;
170 }