d18f1436dabaad6d99aa3c21d9226cfab585bd40
[occt.git] / src / IGESControl / IGESControl_Controller.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 //#58 rln 28.12.98 changing default values for Global Section
15 //sln 14.01.2002 OCC51 : verifying whether entry model of method ActorRead is IGESDatat_IGESModel 
16
17 #include <IFSelect_EditForm.hxx>
18 #include <IFSelect_SelectModelEntities.hxx>
19 #include <IFSelect_SelectModelRoots.hxx>
20 #include <IFSelect_SelectType.hxx>
21 #include <IFSelect_SignCounter.hxx>
22 #include <IFSelect_SignMultiple.hxx>
23 #include <IFSelect_SignType.hxx>
24 #include <IGESAppli.hxx>
25 #include <IGESBasic_SubfigureDef.hxx>
26 #include <IGESControl_ActorWrite.hxx>
27 #include <IGESControl_AlgoContainer.hxx>
28 #include <IGESControl_Controller.hxx>
29 #include <IGESData_IGESModel.hxx>
30 #include <IGESData_Protocol.hxx>
31 #include <IGESSelect_AutoCorrect.hxx>
32 #include <IGESSelect_ComputeStatus.hxx>
33 #include <IGESSelect_CounterOfLevelNumber.hxx>
34 #include <IGESSelect_EditDirPart.hxx>
35 #include <IGESSelect_EditHeader.hxx>
36 #include <IGESSelect_FloatFormat.hxx>
37 #include <IGESSelect_IGESName.hxx>
38 #include <IGESSelect_IGESTypeForm.hxx>
39 #include <IGESSelect_RemoveCurves.hxx>
40 #include <IGESSelect_SelectBasicGeom.hxx>
41 #include <IGESSelect_SelectBypassGroup.hxx>
42 #include <IGESSelect_SelectBypassSubfigure.hxx>
43 #include <IGESSelect_SelectFaces.hxx>
44 #include <IGESSelect_SelectPCurves.hxx>
45 #include <IGESSelect_SelectSubordinate.hxx>
46 #include <IGESSelect_SelectVisibleStatus.hxx>
47 #include <IGESSelect_SetGlobalParameter.hxx>
48 #include <IGESSelect_SetLabel.hxx>
49 #include <IGESSelect_SignColor.hxx>
50 #include <IGESSelect_SignLevelNumber.hxx>
51 #include <IGESSelect_SignStatus.hxx>
52 #include <IGESSelect_UpdateFileName.hxx>
53 #include <IGESSelect_WorkLibrary.hxx>
54 #include <IGESSolid.hxx>
55 #include <IGESToBRep.hxx>
56 #include <IGESToBRep_Actor.hxx>
57 #include <Interface_InterfaceModel.hxx>
58 #include <Interface_Macros.hxx>
59 #include <Interface_Static.hxx>
60 #include <Standard_Type.hxx>
61 #include <TCollection_HAsciiString.hxx>
62 #include <TopoDS_Shape.hxx>
63 #include <Transfer_ActorOfTransientProcess.hxx>
64 #include <Transfer_FinderProcess.hxx>
65 #include <XSAlgo.hxx>
66 #include <XSControl_SelectForTransfer.hxx>
67 #include <XSControl_WorkSession.hxx>
68
69 IMPLEMENT_STANDARD_RTTIEXT(IGESControl_Controller,XSControl_Controller)
70
71 //szv#4:S4163:12Mar99 never referenced
72 //static const Standard_CString thelong  = "IGES";
73 //static const Standard_CString theshort = "iges";
74 //=======================================================================
75 //function : IGESControl_Controller
76 //purpose  : 
77 //=======================================================================
78 IGESControl_Controller::IGESControl_Controller (const Standard_Boolean mod)
79 //JR/Hp
80      : XSControl_Controller ((Standard_CString ) (mod ? "FNES" : "IGES") , (Standard_CString ) (mod ? "fnes" : "iges") ) ,
81 //     : XSControl_Controller ( (mod ? "FNES" : "iges") , (mod ? "fnes" : "iges") ) ,
82        themode (mod)
83 {
84   static Standard_Boolean init = Standard_False;
85   if (!init) {
86     IGESSolid::Init();
87     IGESAppli::Init();
88     init = Standard_True;
89   }
90    AddSessionItem (new IGESSelect_RemoveCurves(Standard_True) ,"iges-remove-pcurves");
91   AddSessionItem (new IGESSelect_RemoveCurves(Standard_False),"iges-remove-curves-3d");
92   AddSessionItem (new IGESSelect_SetLabel (0,Standard_True) ,"iges-clear-label");
93   AddSessionItem (new IGESSelect_SetLabel (1,Standard_False),"iges-set-label-dnum");
94
95   AddSessionItem (new IGESSelect_AutoCorrect,"iges-auto-correct","send");
96   AddSessionItem (new IGESSelect_ComputeStatus,"iges-compute-status","send");
97   Handle(IGESSelect_FloatFormat) flf = new IGESSelect_FloatFormat;
98   flf->SetDefault (12);
99   AddSessionItem (flf,"iges-float-digits-12","send");
100
101 //   --   Sender Product Identification   --  (pas un statique ...)
102   Handle(IGESSelect_SetGlobalParameter) set3 = new IGESSelect_SetGlobalParameter(3);
103 //#58 rln Handle(TCollection_HAsciiString) pa3 = new TCollection_HAsciiString("MDTV X-STEP");
104   Handle(TCollection_HAsciiString) pa3 =
105     Interface_Static::Static("write.iges.header.product")->HStringValue();
106   set3->SetValue(pa3);
107   AddSessionItem (pa3, "iges-header-val-sender");
108   AddSessionItem (set3,"iges-header-set-sender","send");
109
110   AddSessionItem (new IGESSelect_UpdateFileName,"iges-update-file-name","send");
111
112 //   --   Receiver   --   Acces par Static, ajustable
113   Handle(IGESSelect_SetGlobalParameter) set12 = new IGESSelect_SetGlobalParameter(12);
114 //  Handle(TCollection_HAsciiString) pa12 = new TCollection_HAsciiString("Unknown");
115   Handle(TCollection_HAsciiString) pa12 =
116     Interface_Static::Static("write.iges.header.receiver")->HStringValue();
117   set12->SetValue(pa12);
118   AddSessionItem (pa12, "iges-header-val-receiver");
119   AddSessionItem (set12,"iges-header-set-receiver","send");
120
121 //   --   Auteur   --   acces par Static (demarre par whoami), ajustable
122   Handle(IGESSelect_SetGlobalParameter) set21 = new IGESSelect_SetGlobalParameter(21);
123 //  Handle(TCollection_HAsciiString) pa21 = new TCollection_HAsciiString("Unknown");
124   Handle(TCollection_HAsciiString) pa21 =
125     Interface_Static::Static("write.iges.header.author")->HStringValue();
126   set21->SetValue(pa21);
127   AddSessionItem (pa21, "iges-header-val-author");
128   AddSessionItem (set21,"iges-header-set-author","send");
129
130 //   --   Compagnie (de l auteur)   --   acces par Static, ajustable
131   Handle(IGESSelect_SetGlobalParameter) set22 = new IGESSelect_SetGlobalParameter(22);
132 //  Handle(TCollection_HAsciiString) pa22 = new TCollection_HAsciiString("MATRA-DATAVISION");
133   Handle(TCollection_HAsciiString) pa22 =
134     Interface_Static::Static("write.iges.header.company")->HStringValue();
135   set22->SetValue(pa22);
136   AddSessionItem (pa22, "iges-header-val-company");
137   AddSessionItem (set22,"iges-header-set-company","send");
138   //  -- STATICS
139
140   TraceStatic ("read.iges.bspline.approxd1.mode",5);
141   TraceStatic ("read.iges.bspline.continuity",5);
142
143   TraceStatic ("write.iges.header.receiver",2);
144   TraceStatic ("write.iges.header.author",2);
145   TraceStatic ("write.iges.header.company",2);
146   TraceStatic ("write.iges.unit",6);
147   TraceStatic ("write.iges.brep.mode",6);
148
149   theAdaptorLibrary  = new IGESSelect_WorkLibrary(themode);
150   theAdaptorProtocol = IGESSelect_WorkLibrary::DefineProtocol();
151
152   Handle(IGESToBRep_Actor) anactiges = new IGESToBRep_Actor;
153   anactiges->SetContinuity(0);
154   theAdaptorRead     = anactiges;
155
156   theAdaptorWrite    = new IGESControl_ActorWrite;
157   SetModeWrite (0,1);
158   SetModeWriteHelp (0,"Faces");
159   SetModeWriteHelp (1,"BRep");
160 }
161 void IGESControl_Controller::Customise(Handle(XSControl_WorkSession)& WS) 
162 {
163   XSControl_Controller::Customise(WS);
164  
165
166 //   ---  SELECTIONS, SIGNATURES, COMPTEURS, EDITEURS
167 //   --   BypassGroup / xst-model-roots
168   
169   
170   //DeclareAndCast(IFSelect_Selection,xma,SessionItem("xst-model-all"));
171   Handle(IFSelect_SelectModelEntities) xma;
172   Handle(Standard_Transient) xma1 = WS->NamedItem("xst-model-all");
173   if(xma1.IsNull()) xma = new  IFSelect_SelectModelEntities;
174   else {
175     xma =Handle(IFSelect_SelectModelEntities)::DownCast(xma1);
176     WS->AddNamedItem ("xst-model-all",xma);
177   }
178   
179   //DeclareAndCast(IFSelect_Selection,xmr,SessionItem("xst-model-roots"));
180    Handle(IFSelect_SelectModelRoots) xmr;
181   Handle(Standard_Transient) xmr1 = WS->NamedItem("xst-model-roots");
182   if(!xmr1.IsNull())
183     xmr = Handle(IFSelect_SelectModelRoots)::DownCast(xmr1);
184   else  {
185     xmr = new IFSelect_SelectModelRoots;
186     WS->AddNamedItem ("xst-model-roots",xmr);
187   }
188 //  DeclareAndCast(IFSelect_Selection,xtr,SessionItem("xst-transferrable-roots"));
189   Handle(XSControl_SelectForTransfer) xtr;
190   Handle(Standard_Transient) xtr1 = WS->NamedItem("xst-transferrable-roots");
191   if(!xtr1.IsNull())
192     xtr = Handle(XSControl_SelectForTransfer)::DownCast(xtr1);
193   //st1->SetInput (slr);
194   else {
195     xtr= new XSControl_SelectForTransfer;
196     xtr->SetReader (WS->TransferReader());
197     WS->AddNamedItem ("xst-transferrable-roots",xtr);
198   }
199   if (!xmr.IsNull()) {
200     Handle(IGESSelect_SelectVisibleStatus) visa = new IGESSelect_SelectVisibleStatus;
201     visa->SetInput(xmr);
202     WS->AddNamedItem ("iges-visible-roots",visa);
203     Handle(IGESSelect_SelectVisibleStatus) vist = new IGESSelect_SelectVisibleStatus;
204     vist->SetInput(xtr);
205     WS->AddNamedItem ("iges-visible-transf-roots",vist);
206     Handle(IGESSelect_SelectVisibleStatus) blka = new IGESSelect_SelectVisibleStatus;
207     blka->SetDirect (Standard_False);
208     blka->SetInput(xmr);
209     WS->AddNamedItem ("iges-blanked-roots",blka);
210     Handle(IGESSelect_SelectVisibleStatus) blkt = new IGESSelect_SelectVisibleStatus;
211     blkt->SetDirect (Standard_False);
212     blkt->SetInput(xtr);
213     WS->AddNamedItem ("iges-blanked-transf-roots",blkt);
214     Handle(IGESSelect_SelectSubordinate) indp = new IGESSelect_SelectSubordinate (0);
215     indp->SetInput (xma);
216     WS->AddNamedItem ("iges-status-independant",indp);
217
218     Handle(IGESSelect_SelectBypassGroup) sb = new IGESSelect_SelectBypassGroup;
219     sb->SetInput(xmr);
220     WS->AddNamedItem ("iges-bypass-group",sb);
221     Handle(IGESSelect_SelectBypassSubfigure) sfi = new IGESSelect_SelectBypassSubfigure;
222     sfi->SetInput(xmr);
223     WS->AddNamedItem ("iges-bypass-subfigure",sfi);
224     Handle(IGESSelect_SelectBypassGroup) sfb = new IGESSelect_SelectBypassGroup;
225     sfb->SetInput(sfi);
226     WS->AddNamedItem ("iges-bypass-group-subfigure",sfb);
227     Handle(IGESSelect_SelectBasicGeom) sc3d = new IGESSelect_SelectBasicGeom(1);
228     sc3d->SetInput(sfi);
229     WS->AddNamedItem ("iges-curves-3d",sc3d);
230     Handle(IGESSelect_SelectBasicGeom) sb3d = new IGESSelect_SelectBasicGeom(2);
231     sb3d->SetInput(sfi);
232     WS->AddNamedItem ("iges-basic-curves-3d",sb3d);
233     Handle(IGESSelect_SelectBasicGeom) sbg = new IGESSelect_SelectBasicGeom(0);
234     sbg->SetInput(sfi);
235     WS->AddNamedItem ("iges-basic-geom",sbg);
236     Handle(IGESSelect_SelectBasicGeom) srf = new IGESSelect_SelectBasicGeom(-1);
237     srf->SetInput(sfi);
238     WS->AddNamedItem ("iges-surfaces",srf);
239     Handle(IGESSelect_SelectFaces) sfa = new IGESSelect_SelectFaces;
240     sfa->SetInput(sfi);
241     WS->AddNamedItem ("iges-faces",sfa );
242     Handle(IGESSelect_SelectPCurves) spc = new IGESSelect_SelectPCurves(Standard_True);
243     spc->SetInput(sfa);
244     WS->AddNamedItem ("iges-pcurves",spc);
245
246     Handle(IFSelect_SelectType) snosub = new IFSelect_SelectType
247       (STANDARD_TYPE(IGESBasic_SubfigureDef));
248     snosub->SetDirect(Standard_False);
249     snosub->SetInput(xmr);
250     WS->AddNamedItem ("iges-no-indep-subfigure-def",snosub);
251
252     Handle(IGESSelect_IGESTypeForm) itf = new IGESSelect_IGESTypeForm(Standard_True);
253     WS->AddNamedItem ("iges-type",itf);
254
255     Handle(IGESSelect_SignStatus) sigst = new IGESSelect_SignStatus;
256     Handle(IFSelect_SignMultiple) typsta = new IFSelect_SignMultiple
257       ("IGES Type Form    Status");
258     typsta->Add (itf,15);
259     typsta->Add (sigst);
260     WS->AddNamedItem ("iges-type-status",typsta);
261
262     Handle(IFSelect_SignMultiple) typnam = new IFSelect_SignMultiple
263       ("IGES Type Form  TypeName");
264     typnam->Add (itf,4);
265     typnam->Add (new IFSelect_SignType(Standard_True));
266     WS->AddNamedItem ("iges-type-name",typnam);
267
268     Handle(IFSelect_SignCounter) itfs = new IFSelect_SignCounter
269       (itf,Standard_False,Standard_True);
270     WS->AddNamedItem ("iges-types",itfs);
271     Handle(IGESSelect_CounterOfLevelNumber) levs =
272       new IGESSelect_CounterOfLevelNumber;
273     WS->AddNamedItem ("iges-levels",levs);
274
275     Handle(IGESSelect_SignLevelNumber) slev = new IGESSelect_SignLevelNumber(Standard_False);
276     WS->AddNamedItem ("iges-level-number",slev);
277     Handle(IGESSelect_IGESName) igna = new IGESSelect_IGESName;
278     WS->AddNamedItem ("iges-name",igna);
279
280     Handle(IGESSelect_SignColor) scol1 = new IGESSelect_SignColor (1);
281     WS->AddNamedItem ("iges-color-number",scol1);
282     Handle(IGESSelect_SignColor) scol2 = new IGESSelect_SignColor (2);
283     WS->AddNamedItem ("iges-color-name",scol2);
284     Handle(IGESSelect_SignColor) scol3 = new IGESSelect_SignColor (3);
285     WS->AddNamedItem ("iges-color-rgb",scol3);
286     Handle(IGESSelect_SignColor) scol4 = new IGESSelect_SignColor (4);
287     WS->AddNamedItem ("iges-color-red",scol4);
288     Handle(IGESSelect_SignColor) scol5 = new IGESSelect_SignColor (5);
289     WS->AddNamedItem ("iges-color-green",scol5);
290     Handle(IGESSelect_SignColor) scol6 = new IGESSelect_SignColor (6);
291     WS->AddNamedItem ("iges-color-blue",scol6);
292
293     Handle(IGESSelect_EditHeader) edhead = new IGESSelect_EditHeader;
294     WS->AddNamedItem ("iges-header-edit",edhead);
295     Handle(IFSelect_EditForm) edheadf = edhead->Form(Standard_False);
296     WS->AddNamedItem ("iges-header",edheadf);
297
298     Handle(IGESSelect_EditDirPart) eddirp = new IGESSelect_EditDirPart;
299     WS->AddNamedItem ("iges-dir-part-edit",eddirp);
300     Handle(IFSelect_EditForm) eddirpf = eddirp->Form(Standard_False);
301     WS->AddNamedItem ("iges-dir-part",eddirpf);
302
303     theSignType = typnam;
304   }
305
306
307 }
308
309
310 //=======================================================================
311 //function : NewModel
312 //purpose  : 
313 //=======================================================================
314
315  Handle(Interface_InterfaceModel)  IGESControl_Controller::NewModel () const
316 {
317 //  On prend un modele qu on prepare avec les statiques enregistres
318   DeclareAndCast(IGESData_IGESModel,igm,Interface_InterfaceModel::Template("iges"));
319   IGESData_GlobalSection GS = igm->GlobalSection();
320
321   GS.SetReceiveName (Interface_Static::Static("write.iges.header.receiver")->HStringValue());
322   GS.SetUnitFlag    (Interface_Static::IVal("write.iges.unit"));
323   GS.SetUnitName    (new TCollection_HAsciiString(Interface_Static::CVal("write.iges.unit")));
324   GS.SetAuthorName  (Interface_Static::Static("write.iges.header.author")->HStringValue());
325   GS.SetCompanyName (Interface_Static::Static("write.iges.header.company")->HStringValue());
326   igm->SetGlobalSection (GS);
327   return igm;
328 }
329
330 //=======================================================================
331 //function : ActorRead
332 //purpose  : 
333 //=======================================================================
334
335  Handle(Transfer_ActorOfTransientProcess)  IGESControl_Controller::ActorRead
336   (const Handle(Interface_InterfaceModel)& model) const
337 {
338   DeclareAndCast(IGESToBRep_Actor,anactiges,theAdaptorRead);
339   if (anactiges.IsNull()) return theAdaptorRead;
340   //sln 14.01.2002 OCC51 : verifying whether entry model is IGESDatat_IGESModel,
341   // if this condition is false new model is created 
342   Handle(Interface_InterfaceModel) aModel;
343   if(model->IsKind(STANDARD_TYPE(IGESData_IGESModel)))
344     aModel = model;
345   else
346     aModel = NewModel();
347   anactiges->SetModel(GetCasted(IGESData_IGESModel,aModel));
348   anactiges->SetContinuity(Interface_Static::IVal("read.iges.bspline.continuity"));
349   return anactiges;
350 }
351
352 //  ####    TRANSFERT (ECRITURE SHAPE)    ####
353 //  modetrans : 0  <5.1 (groupe de faces),  1 BREP-5.1
354
355 //=======================================================================
356 //function : TransferWriteShape
357 //purpose  : 
358 //=======================================================================
359
360  IFSelect_ReturnStatus  IGESControl_Controller::TransferWriteShape (const TopoDS_Shape& shape,
361                                                                     const Handle(Transfer_FinderProcess)& FP,
362                                                                     const Handle(Interface_InterfaceModel)& model,
363                                                                     const Standard_Integer modetrans) const
364 {
365   return XSControl_Controller::TransferWriteShape (shape,FP,model,modetrans);
366 }
367
368 //=======================================================================
369 //function : Init
370 //purpose  : 
371 //=======================================================================
372
373  Standard_Boolean  IGESControl_Controller::Init ()
374 {
375   static Standard_Boolean inic = Standard_False;
376   if (!inic) {
377     Handle(IGESControl_Controller) ADIGES = new IGESControl_Controller(Standard_False);
378     ADIGES->AutoRecord();
379     XSAlgo::Init();
380     IGESToBRep::Init();
381     IGESToBRep::SetAlgoContainer (new IGESControl_AlgoContainer());
382     inic = Standard_True;
383   }
384   return Standard_True;
385 }