src/STEPCAFControl/STEPCAFControl_Writer.cxx

   1 // Created on: 2000-08-15
   2 // Created by: Andrey BETENEV
   3 // Copyright (c) 2000-2012 OPEN CASCADE SAS
   4 //
   5 // The content of this file is subject to the Open CASCADE Technology Public
   6 // License Version 6.5 (the "License"). You may not use the content of this file
   7 // except in compliance with the License. Please obtain a copy of the License
   8 // at http://www.opencascade.org and read it completely before using this file.
   9 //
  10 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  11 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  12 //
  13 // The Original Code and all software distributed under the License is
  14 // distributed on an "AS IS" basis, without warranty of any kind, and the
  15 // Initial Developer hereby disclaims all such warranties, including without
  16 // limitation, any warranties of merchantability, fitness for a particular
  17 // purpose or non-infringement. Please see the License for the specific terms
  18 // and conditions governing the rights and limitations under the License.
  19
  20 // CURRENT LIMITATIONS:
  21 // when val props and names assigned to instance of
  22 // component in assembly, it is in fact supposed that only one CDSR corresponds
  23 // to such shape. This can be wrong and should be handled more carefully
  24 // (analysis of SDRs which the CDSR links should be done)
  25 // Names and validation props are supported for top-level shapes only
  26
  27 #include <STEPCAFControl_Writer.ixx>
  28 #include <STEPControl_StepModelType.hxx>
  29 #include <XCAFDoc_ShapeTool.hxx>
  30 #include <TDF_LabelSequence.hxx>
  31 #include <TopoDS_Shape.hxx>
  32 #include <XCAFPrs_DataMapOfShapeStyle.hxx>
  33 #include <XCAFPrs.hxx>
  34 #include <XCAFPrs_DataMapOfStyleShape.hxx>
  35 #include <XCAFPrs_Style.hxx>
  36 #include <XCAFPrs_DataMapIteratorOfDataMapOfStyleShape.hxx>
  37 #include <TopTools_SequenceOfShape.hxx>
  38 #include <TopoDS_Iterator.hxx>
  39 #include <STEPConstruct_Styles.hxx>
  40 #include <XCAFDoc_ColorTool.hxx>
  41 #include <STEPConstruct.hxx>
  42 #include <TopTools_MapOfShape.hxx>
  43 #include <XSControl_TransferWriter.hxx>
  44 #include <TDataStd_Name.hxx>
  45 #include <StepShape_ShapeDefinitionRepresentation.hxx>
  46 #include <TransferBRep_ShapeMapper.hxx>
  47 #include <TransferBRep.hxx>
  48 #include <StepRepr_PropertyDefinition.hxx>
  49 #include <StepBasic_ProductDefinition.hxx>
  50 #include <StepBasic_Product.hxx>
  51 #include <TCollection_HAsciiString.hxx>
  52 #include <TCollection_AsciiString.hxx>
  53 #include <Transfer_FinderProcess.hxx>
  54 #include <StepBasic_ProductDefinitionFormation.hxx>
  55 #include <XCAFDoc_DocumentTool.hxx>
  56 #include <TDF_Label.hxx>
  57 #include <STEPCAFControl_Controller.hxx>
  58 #include <STEPCAFControl_IteratorOfDictionaryOfExternFile.hxx>
  59 #include <STEPConstruct_ExternRefs.hxx>
  60 #include <Interface_Static.hxx>
  61 #include <TopoDS_Compound.hxx>
  62 #include <BRep_Builder.hxx>
  63 #include <Transfer_ActorOfFinderProcess.hxx>
  64 #include <STEPCAFControl_ActorWrite.hxx>
  65 #include <STEPConstruct_ValidationProps.hxx>
  66 #include <XCAFDoc_Area.hxx>
  67 #include <XCAFDoc_Volume.hxx>
  68 #include <XCAFDoc_Centroid.hxx>
  69 #include <StepShape_ContextDependentShapeRepresentation.hxx>
  70 #include <StepRepr_ProductDefinitionShape.hxx>
  71 #include <StepBasic_ProductDefinitionRelationship.hxx>
  72 #include <XCAFDoc_GraphNode.hxx>
  73 #include <XCAFDoc_LayerTool.hxx>
  74 #include <StepVisual_PresentationLayerAssignment.hxx>
  75 #include <XCAFDoc.hxx>
  76 #include <StepVisual_HArray1OfLayeredItem.hxx>
  77 #include <TColStd_HSequenceOfTransient.hxx>
  78 #include <TDF_Tool.hxx>
  79 #include <Message_Messenger.hxx>
  80
  81 #include <Transfer_Binder.hxx>
  82 #include <Transfer_TransientListBinder.hxx>
  83 #include <StepVisual_InvisibleItem.hxx>
  84 #include <TDataStd_UAttribute.hxx>
  85 #include <StepVisual_Invisibility.hxx>
  86 #include <StepVisual_HArray1OfInvisibleItem.hxx>
  87 #include <HeaderSection_FileSchema.hxx>
  88 #include <StepData_StepModel.hxx>
  89 #include <StepAP214_Protocol.hxx>
  90 #include <OSD_Path.hxx>
  91 #include <XSControl_WorkSession.hxx>
  92 #include <StepRepr_HArray1OfRepresentationItem.hxx>
  93 #include <MoniTool_DataMapIteratorOfDataMapOfShapeTransient.hxx>
  94 #include <StepRepr_Representation.hxx>
  95 #include <StepVisual_MechanicalDesignGeometricPresentationRepresentation.hxx>
  96 #include <Quantity_TypeOfColor.hxx>
  97 #include <StepVisual_HArray1OfPresentationStyleAssignment.hxx>
  98 #include <StepVisual_PresentationStyleAssignment.hxx>
  99 #include <StepVisual_StyledItem.hxx>
 100 #include <StepVisual_PresentationStyleByContext.hxx>
 101 #include <StepVisual_HArray1OfPresentationStyleSelect.hxx>
 102 #include <TDF_AttributeSequence.hxx>
 103 #include <TColStd_MapOfTransient.hxx>
 104 // #include <TColStd_IndexedDataMapOfTransientTransient.hxx>
 105 #include <StepRepr_NextAssemblyUsageOccurrence.hxx>
 106 #include <Interface_EntityIterator.hxx>
 107 #include <StepRepr_SpecifiedHigherUsageOccurrence.hxx>
 108
 109 // added by skl 15.01.2004 for D&GT writing
 110 #include <XCAFDoc_DimTolTool.hxx>
 111 #include <XCAFDoc_DimTol.hxx>
 112 #include <XCAFDoc_Datum.hxx>
 113 #include <STEPConstruct_DataMapOfAsciiStringTransient.hxx>
 114 #include <STEPConstruct_DataMapOfPointTransient.hxx>
 115 #include <StepBasic_MeasureValueMember.hxx>
 116 #include <StepBasic_SiUnitAndLengthUnit.hxx>
 117 #include <StepGeom_GeometricRepresentationContextAndGlobalUnitAssignedContext.hxx>
 118 #include <StepGeom_GeomRepContextAndGlobUnitAssCtxAndGlobUncertaintyAssCtx.hxx>
 119 #include <StepBasic_LengthMeasureWithUnit.hxx>
 120 #include <StepShape_EdgeCurve.hxx>
 121 #include <StepShape_AdvancedFace.hxx>
 122 #include <StepShape_OrientedEdge.hxx>
 123 #include <StepShape_EdgeLoop.hxx>
 124 #include <StepShape_FaceBound.hxx>
 125 #include <StepShape_ConnectedFaceSet.hxx>
 126 #include <StepShape_ShapeRepresentation.hxx>
 127 #include <StepShape_DimensionalSize.hxx>
 128 #include <StepShape_ShapeDimensionRepresentation.hxx>
 129 #include <StepShape_DimensionalCharacteristicRepresentation.hxx>
 130 #include <StepRepr_ShapeAspect.hxx>
 131 #include <StepRepr_ShapeAspectRelationship.hxx>
 132 #include <StepRepr_ReprItemAndLengthMeasureWithUnit.hxx>
 133 //#include <StepRepr_CompoundItemDefinition.hxx>
 134 //#include <StepRepr_CompoundItemDefinitionMember.hxx>
 135 #include <StepRepr_ValueRange.hxx>
 136 #include <StepData_Logical.hxx>
 137 #include <StepDimTol_DatumFeature.hxx>
 138 #include <StepDimTol_Datum.hxx>
 139 #include <StepDimTol_DatumReference.hxx>
 140 #include <StepDimTol_HArray1OfDatumReference.hxx>
 141 #include <StepDimTol_GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol.hxx>
 142 #include <StepDimTol_ModifiedGeometricTolerance.hxx>
 143 #include <StepDimTol_GeometricToleranceWithDatumReference.hxx>
 144 #include <StepDimTol_AngularityTolerance.hxx>
 145 #include <StepDimTol_CircularRunoutTolerance.hxx>
 146 #include <StepDimTol_CoaxialityTolerance.hxx>
 147 #include <StepDimTol_ConcentricityTolerance.hxx>
 148 #include <StepDimTol_ParallelismTolerance.hxx>
 149 #include <StepDimTol_PerpendicularityTolerance.hxx>
 150 #include <StepDimTol_SymmetryTolerance.hxx>
 151 #include <StepDimTol_TotalRunoutTolerance.hxx>
 152 #include <StepDimTol_CylindricityTolerance.hxx>
 153 #include <StepDimTol_FlatnessTolerance.hxx>
 154 #include <StepDimTol_LineProfileTolerance.hxx>
 155 #include <StepDimTol_PositionTolerance.hxx>
 156 #include <StepDimTol_RoundnessTolerance.hxx>
 157 #include <StepDimTol_StraightnessTolerance.hxx>
 158 #include <StepDimTol_SurfaceProfileTolerance.hxx>
 159 #include <TColStd_HArray1OfReal.hxx>
 160 #include <TColStd_HArray1OfTransient.hxx>
 161
 162 // added by skl 12.02.2004 for writing materials
 163 #include <XCAFDoc_MaterialTool.hxx>
 164 #include <XCAFDoc_Material.hxx>
 165 #include <TDataStd_TreeNode.hxx>
 166 #include <StepRepr_DescriptiveRepresentationItem.hxx>
 167 #include <StepBasic_SiUnitAndMassUnit.hxx>
 168 #include <StepBasic_DerivedUnitElement.hxx>
 169 #include <StepBasic_HArray1OfDerivedUnitElement.hxx>
 170 #include <StepBasic_DerivedUnit.hxx>
 171 #include <StepRepr_MeasureRepresentationItem.hxx>
 172 #include <StepBasic_ProductDefinition.hxx>
 173
 174 //=======================================================================
 175 //function : GetLabelName
 176 //purpose  : auxilary function: take name of label and append it to str
 177 //=======================================================================
 178 static Standard_Boolean GetLabelName (const TDF_Label &L, Handle(TCollection_HAsciiString) &str)
 179 {
 180   Handle(TDataStd_Name) N;
 181   if ( ! L.FindAttribute ( TDataStd_Name::GetID(), N ) ) return Standard_False;
 182   TCollection_ExtendedString name = N->Get();
 183   if ( name.Length() <=0 ) return Standard_False;
 184
 185   // set name, converting it to Ascii and removing spaces
 186   TCollection_AsciiString buf ( name, '?' );
 187   buf.LeftAdjust();
 188   buf.RightAdjust();
 189   buf.ChangeAll(' ','_');
 190   str->AssignCat ( buf.ToCString() );
 191   return Standard_True;
 192 }
 193
 194
 195 //=======================================================================
 196 //function : STEPCAFControl_Writer
 197 //purpose  :
 198 //=======================================================================
 199
 200 STEPCAFControl_Writer::STEPCAFControl_Writer () :
 201        myColorMode( Standard_True ),
 202        myNameMode ( Standard_True ),
 203        myLayerMode( Standard_True ),
 204        myPropsMode( Standard_True ),
 205        mySHUOMode ( Standard_True ),
 206        myDGTMode  ( Standard_True ),
 207        myMatMode  ( Standard_True )
 208 {
 209   STEPCAFControl_Controller::Init();
 210   Handle(XSControl_WorkSession) WS = new XSControl_WorkSession;
 211   Init ( WS );
 212 }
 213
 214
 215 //=======================================================================
 216 //function : STEPCAFControl_Writer
 217 //purpose  :
 218 //=======================================================================
 219
 220 STEPCAFControl_Writer::STEPCAFControl_Writer (const Handle(XSControl_WorkSession)& WS,
 221                                               const Standard_Boolean scratch)
 222 {
 223   STEPCAFControl_Controller::Init();
 224   Init ( WS, scratch );
 225   myColorMode = Standard_True;
 226   myNameMode = Standard_True;
 227   myLayerMode = Standard_True;
 228   myPropsMode = Standard_True;
 229   mySHUOMode = Standard_True;
 230 }
 231
 232
 233 //=======================================================================
 234 //function : Init
 235 //purpose  :
 236 //=======================================================================
 237
 238 void STEPCAFControl_Writer::Init (const Handle(XSControl_WorkSession)& WS,
 239                                   const Standard_Boolean scratch)
 240 {
 241   WS->SelectNorm ( "STEP" );
 242   myWriter.SetWS (WS,scratch);
 243   myFiles = new STEPCAFControl_DictionaryOfExternFile;
 244   myLabEF.Clear();
 245   myLabels.Clear();
 246 }
 247
 248
 249 //=======================================================================
 250 //function : Write
 251 //purpose  :
 252 //=======================================================================
 253
 254 IFSelect_ReturnStatus STEPCAFControl_Writer::Write (const Standard_CString filename)
 255 {
 256   IFSelect_ReturnStatus status = myWriter.Write ( filename );
 257
 258   // get directory name of the main file
 259   OSD_Path mainfile ( filename );
 260   mainfile.SetName ( "" );
 261   mainfile.SetExtension ( "" );
 262   TCollection_AsciiString dpath;
 263   mainfile.SystemName ( dpath );
 264
 265   STEPCAFControl_IteratorOfDictionaryOfExternFile it ( myFiles );
 266   for ( ; it.More(); it.Next() ) {
 267     Handle(STEPCAFControl_ExternFile) EF = it.Value();
 268     if ( EF->GetWriteStatus() != IFSelect_RetVoid ) continue;
 269
 270     // construct extern file name
 271     TCollection_AsciiString fname = OSD_Path::AbsolutePath ( dpath, EF->GetName()->String() );
 272     if ( fname.Length() <= 0 ) fname = EF->GetName()->String();
 273 #ifdef DEB
 274     cout << "Writing external file: " << fname.ToCString() << endl;
 275 #endif
 276
 277     EF->SetWriteStatus ( EF->GetWS()->SendAll ( fname.ToCString() ) );
 278   }
 279
 280   return status;
 281 }
 282
 283
 284 //=======================================================================
 285 //function : Transfer
 286 //purpose  :
 287 //=======================================================================
 288
 289 Standard_Boolean STEPCAFControl_Writer::Transfer (const Handle(TDocStd_Document) &doc,
 290                                                   const STEPControl_StepModelType mode,
 291                                                   const Standard_CString multi)
 292 {
 293   Handle(XCAFDoc_ShapeTool) STool = XCAFDoc_DocumentTool::ShapeTool( doc->Main() );
 294   if ( STool.IsNull() ) return Standard_False;
 295
 296   TDF_LabelSequence labels;
 297   STool->GetFreeShapes ( labels );
 298   return Transfer ( myWriter, labels, mode, multi );
 299 }
 300
 301
 302 //=======================================================================
 303 //function : Transfer
 304 //purpose  :
 305 //=======================================================================
 306
 307 Standard_Boolean STEPCAFControl_Writer::Transfer (const TDF_Label &L,
 308                                                   const STEPControl_StepModelType mode,
 309                                                   const Standard_CString multi)
 310 {
 311   TDF_LabelSequence labels;
 312   labels.Append ( L );
 313   return Transfer ( myWriter, labels, mode, multi );
 314 }
 315
 316
 317 //=======================================================================
 318 //function : Perform
 319 //purpose  :
 320 //=======================================================================
 321
 322 Standard_Boolean STEPCAFControl_Writer::Perform (const Handle(TDocStd_Document) &doc,
 323                                                  const Standard_CString filename)
 324 {
 325   if ( ! Transfer ( doc ) ) return Standard_False;
 326   return Write ( filename ) == IFSelect_RetDone;
 327 }
 328
 329
 330 //=======================================================================
 331 //function : Perform
 332 //purpose  :
 333 //=======================================================================
 334
 335 Standard_Boolean STEPCAFControl_Writer::Perform (const Handle(TDocStd_Document) &doc,
 336                                                  const TCollection_AsciiString &filename)
 337 {
 338   if ( ! Transfer ( doc ) ) return Standard_False;
 339   return Write ( filename.ToCString() ) == IFSelect_RetDone;
 340 }
 341
 342
 343 //=======================================================================
 344 //function : ExternFiles
 345 //purpose  :
 346 //=======================================================================
 347
 348 const Handle(STEPCAFControl_DictionaryOfExternFile) &STEPCAFControl_Writer::ExternFiles () const
 349 {
 350   return myFiles;
 351 }
 352
 353
 354 //=======================================================================
 355 //function : ExternFile
 356 //purpose  :
 357 //=======================================================================
 358
 359 Standard_Boolean STEPCAFControl_Writer::ExternFile (const TDF_Label &L,
 360                                                     Handle(STEPCAFControl_ExternFile) &ef) const
 361 {
 362   ef.Nullify();
 363   if ( ! myLabEF.IsBound ( L ) ) return Standard_False;
 364   ef = myLabEF.Find ( L );
 365   return Standard_True;
 366 }
 367
 368
 369 //=======================================================================
 370 //function : ExternFile
 371 //purpose  :
 372 //=======================================================================
 373
 374 Standard_Boolean STEPCAFControl_Writer::ExternFile (const Standard_CString name,
 375                                                     Handle(STEPCAFControl_ExternFile) &ef) const
 376 {
 377   ef.Nullify();
 378   if ( ! myFiles.IsNull() || ! myFiles->HasItem ( name ) )
 379     return Standard_False;
 380   ef = myFiles->Item ( name );
 381   return Standard_True;
 382 }
 383
 384
 385 //=======================================================================
 386 //function : Writer
 387 //purpose  :
 388 //=======================================================================
 389
 390 STEPControl_Writer &STEPCAFControl_Writer::ChangeWriter ()
 391 {
 392   return myWriter;
 393 }
 394
 395
 396 //=======================================================================
 397 //function : Writer
 398 //purpose  :
 399 //=======================================================================
 400
 401 const STEPControl_Writer &STEPCAFControl_Writer::Writer () const
 402 {
 403   return myWriter;
 404 }
 405
 406
 407 //=======================================================================
 408 //function : Transfer
 409 //purpose  :
 410 //=======================================================================
 411
 412 Standard_Boolean STEPCAFControl_Writer::Transfer (STEPControl_Writer &writer,
 413                                                   const TDF_LabelSequence &labels,
 414                                                   const STEPControl_StepModelType mode,
 415                                                   const Standard_CString multi,
 416                                                   const Standard_Boolean isExternFile)
 417 {
 418   if ( labels.Length() <=0 ) return Standard_False;
 419
 420   Handle(STEPCAFControl_ActorWrite) Actor =
 421     Handle(STEPCAFControl_ActorWrite)::DownCast ( writer.WS()->NormAdaptor()->ActorWrite() );
 422
 423   // translate free top-level shapes of the DECAF document
 424 #ifdef DEB // includes Transfer_ActorOfFinderProcess
 425 //  cout << "Actor is " << writer.WS()->NormAdaptor()->ActorWrite()->DynamicType()->Name() << endl;
 426 #endif
 427   Standard_Integer ap = Interface_Static::IVal ("write.step.schema");
 428   TDF_LabelSequence sublabels;
 429   for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
 430     TDF_Label L = labels.Value(i);
 431     TopoDS_Shape dummy;
 432     if ( myLabels.IsBound ( L ) ) continue; // already processed
 433
 434     TopoDS_Shape shape = XCAFDoc_ShapeTool::GetShape ( L );
 435     if ( shape.IsNull() ) continue;
 436
 437     // write shape either as a whole, or as multifile (with extern refs)
 438     if ( ! multi /* || ! XCAFDoc_ShapeTool::IsAssembly ( L ) */ ) {
 439       Actor->SetStdMode ( Standard_False );
 440
 441       // fill sequence of (sub) shapes for which attributes should be written
 442       // and set actor to handle assemblies in a proper way
 443       TDF_LabelSequence comp;
 444       XCAFDoc_ShapeTool::GetComponents ( L, comp, Standard_True );
 445       for ( Standard_Integer k=1; k <= comp.Length(); k++ ) {
 446         TDF_Label ref;
 447         if ( ! XCAFDoc_ShapeTool::GetReferredShape ( comp(k), ref ) ) continue;
 448         if ( ! myLabels.IsBound ( ref ) ) {
 449           TopoDS_Shape refS = XCAFDoc_ShapeTool::GetShape ( ref );
 450           myLabels.Bind ( ref, refS );
 451           sublabels.Append ( ref );
 452           if ( XCAFDoc_ShapeTool::IsAssembly ( ref ) )
 453             Actor->RegisterAssembly ( refS );
 454         }
 455       }
 456       myLabels.Bind ( L, shape );
 457       sublabels.Append ( L );
 458       if ( XCAFDoc_ShapeTool::IsAssembly ( L ) )
 459         Actor->RegisterAssembly ( shape );
 460
 461       writer.Transfer(shape,mode,Standard_False);
 462       Actor->SetStdMode ( Standard_True ); // restore default behaviour
 463     }
 464     else {
 465       // translate final solids
 466       TopoDS_Shape Sass = TransferExternFiles ( L, mode, sublabels, multi );
 467
 468       // translate main assembly structure
 469 /*
 470       if ( ap == 3 ) { // if AP203, switch to AP214
 471         Interface_Static::SetCVal ("write.step.schema", "AP214DIS");
 472         Handle(StepData_StepModel) model =
 473           Handle(StepData_StepModel)::DownCast ( writer.WS()->Model() );
 474         if ( model->HasHeaderEntity(STANDARD_TYPE(HeaderSection_FileSchema)) ) {
 475           Handle(HeaderSection_FileSchema) fs =
 476             Handle(HeaderSection_FileSchema)::DownCast ( model->HeaderEntity(STANDARD_TYPE(HeaderSection_FileSchema)) );
 477           Handle(TCollection_HAsciiString) str = fs->SchemaIdentifiersValue ( 1 );
 478           Handle(TCollection_HAsciiString) ap214 = new TCollection_HAsciiString ( "AUTOMOTIVE_DESIGN" );
 479           if ( str->Search ( ap214 ) <0 ) {
 480             str->Clear();
 481             str->AssignCat ( ap214 );
 482           }
 483         }
 484       }
 485 */
 486       Standard_Integer assemblymode = Interface_Static::IVal ("write.step.assembly");
 487       Interface_Static::SetCVal ("write.step.assembly", "On");
 488       writer.Transfer ( Sass, STEPControl_AsIs );
 489       Interface_Static::SetIVal ("write.step.assembly", assemblymode);
 490       Interface_Static::SetIVal ("write.step.schema", ap);
 491     }
 492   }
 493
 494   writer.WS()->ComputeGraph(Standard_True );// added by skl 03.11.2003 since we use
 495                                             // writer.Transfer() wihtout compute graph
 496
 497   // write names
 498   if ( GetNameMode() )
 499     WriteNames ( writer.WS(), sublabels );
 500
 501   if ( !multi ) {
 502     // write colors
 503     if ( GetColorMode() )
 504       WriteColors ( writer.WS(), sublabels );
 505
 506     // write layers
 507     if ( GetLayerMode() )
 508       WriteLayers ( writer.WS(), sublabels );
 509
 510     // write SHUO entities
 511     if ( GetSHUOMode() && !isExternFile )
 512       // do not store SHUO for extern reference for the moment
 513       WriteSHUOs (  writer.WS(), sublabels );
 514
 515     // write G&DTs
 516     if(GetDimTolMode())
 517       WriteDGTs(writer.WS(),sublabels);
 518
 519     // write Materials
 520     if(GetMaterialMode())
 521       WriteMaterials(writer.WS(),sublabels);
 522
 523     // register all MDGPRs in model
 524     MoniTool_DataMapIteratorOfDataMapOfShapeTransient anItr(myMapCompMDGPR);
 525     for (; anItr.More(); anItr.Next()) {
 526       Handle(Interface_InterfaceModel) Model = writer.WS()->Model();
 527       Model->AddWithRefs( anItr.Value() );
 528     }
 529   }
 530
 531   if ( multi ) { // external refs
 532     WriteExternRefs ( writer.WS(), sublabels );
 533   }
 534
 535   // write validation props
 536 //  if ( multi && ap ==3 ) {
 537 //      Interface_Static::SetCVal ("write.step.schema", "AP214DIS");
 538 //  }
 539   if ( GetPropsMode() )
 540     WriteValProps ( writer.WS(), sublabels, multi );
 541
 542   Interface_Static::SetIVal ("write.step.schema", ap);
 543
 544   // refresh graph
 545   writer.WS()->ComputeGraph ( Standard_True );
 546
 547   return Standard_True;
 548 }
 549
 550
 551 //=======================================================================
 552 //function : TransferExternFiles
 553 //purpose  :
 554 //=======================================================================
 555
 556 TopoDS_Shape STEPCAFControl_Writer::TransferExternFiles (const TDF_Label &L,
 557                                                          const STEPControl_StepModelType mode,
 558                                                          TDF_LabelSequence &labels,
 559                                                          const Standard_CString prefix)
 560 {
 561   // if label already translated, just return the shape
 562   if ( myLabels.IsBound ( L ) ) {
 563     return myLabels.Find ( L );
 564   }
 565
 566   TopoDS_Compound C;
 567   BRep_Builder B;
 568   B.MakeCompound ( C );
 569   labels.Append ( L );
 570
 571   // if not assembly, write to separate file
 572   if ( ! XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
 573
 574     // prepare for transfer
 575     Handle(XSControl_WorkSession) newWS = new XSControl_WorkSession;
 576     newWS->SelectNorm ( "STEP" );
 577     STEPControl_Writer sw ( newWS, Standard_True );
 578     TDF_LabelSequence Lseq;
 579     Lseq.Append ( L );
 580
 581     // construct the name for extern file
 582     Handle(TCollection_HAsciiString) basename = new TCollection_HAsciiString;
 583     if ( prefix && prefix[0] ) basename->AssignCat ( prefix );
 584     GetLabelName ( L, basename );
 585     Handle(TCollection_HAsciiString) name = new TCollection_HAsciiString ( basename );
 586     name->AssignCat ( ".stp" );
 587     if ( myFiles->HasItem ( name->ToCString() ) ) { // avoid confusions
 588       for ( Standard_Integer k=1; k < 32000; k++ ) {
 589         name = new TCollection_HAsciiString ( basename );
 590         name->AssignCat ( "_" );
 591         name->AssignCat ( TCollection_AsciiString ( k ).ToCString() );
 592         name->AssignCat ( ".stp" );
 593         if ( ! myFiles->HasItem ( name->ToCString() ) ) break;
 594       }
 595     }
 596
 597     // translate and record extern file
 598     Handle(STEPCAFControl_ExternFile) EF = new STEPCAFControl_ExternFile;
 599     EF->SetWS ( newWS );
 600     EF->SetName ( name );
 601     EF->SetLabel ( L );
 602     Standard_Integer assemblymode = Interface_Static::IVal ("write.step.assembly");
 603     Interface_Static::SetCVal ("write.step.assembly", "Off");
 604     const Standard_CString multi = 0;
 605     EF->SetTransferStatus ( Transfer ( sw, Lseq, mode, multi, Standard_True ) );
 606     Interface_Static::SetIVal ("write.step.assembly", assemblymode);
 607     myLabEF.Bind ( L, EF );
 608     myFiles->SetItem ( name->ToCString(), EF );
 609
 610     // return empty compound as replacement for the shape
 611     myLabels.Bind ( L, C );
 612     return C;
 613   }
 614
 615   // else iterate on components add create structure of empty compounds
 616   // representing the assembly
 617   TDF_LabelSequence comp;
 618   XCAFDoc_ShapeTool::GetComponents ( L, comp, Standard_False );
 619   for ( Standard_Integer k=1; k <= comp.Length(); k++ ) {
 620     TDF_Label lab = comp(k);
 621     TDF_Label ref;
 622     if ( ! XCAFDoc_ShapeTool::GetReferredShape ( lab, ref ) ) continue;
 623     TopoDS_Shape Scomp = TransferExternFiles ( ref, mode, labels, prefix );
 624     Scomp.Location ( XCAFDoc_ShapeTool::GetLocation ( lab ) );
 625     B.Add ( C, Scomp );
 626   }
 627   myLabels.Bind ( L, C );
 628   return C;
 629 }
 630
 631
 632 //=======================================================================
 633 //function : WriteExternRefs
 634 //purpose  :
 635 //=======================================================================
 636
 637 Standard_Boolean STEPCAFControl_Writer::WriteExternRefs (const Handle(XSControl_WorkSession) &WS,
 638                                                          const TDF_LabelSequence &labels) const
 639 {
 640   if ( labels.Length() <=0 ) return Standard_False;
 641
 642   Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
 643   Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
 644   STEPConstruct_ExternRefs EFTool ( WS );
 645   Standard_Integer schema = Interface_Static::IVal("write.step.schema");
 646   for ( Standard_Integer k=1; k <= labels.Length(); k++ ) {
 647     TDF_Label lab = labels(k);
 648     if ( XCAFDoc_ShapeTool::IsAssembly ( lab ) ) continue; // skip assemblies
 649
 650     // get extern file
 651     Handle(STEPCAFControl_ExternFile) EF;
 652     if ( ! ExternFile ( lab, EF ) ) continue; // should never be
 653
 654     // find SDR
 655     if ( ! myLabels.IsBound ( lab ) ) continue; // not recorded as translated, skip
 656     TopoDS_Shape S = myLabels.Find ( lab );
 657
 658     Handle(StepShape_ShapeDefinitionRepresentation) SDR;
 659     Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, S );
 660     if ( ! FP->FindTypedTransient ( mapper, STANDARD_TYPE(StepShape_ShapeDefinitionRepresentation), SDR ) ) {
 661 #ifdef DEB
 662       cout << "Warning: Cannot find SDR for " << S.TShape()->DynamicType()->Name() << endl;
 663 #endif
 664       continue;
 665     }
 666
 667     // add extern ref
 668     const Standard_CString format = (const Standard_CString) ( schema == 3 ? "STEP AP203" : "STEP AP214" );
 669     // try to get PD from SDR
 670     StepRepr_RepresentedDefinition RD = SDR->Definition();
 671     Handle(StepRepr_PropertyDefinition) aPropDef = RD.PropertyDefinition();
 672     if (aPropDef.IsNull()) {
 673 #ifdef DEB
 674       cout << "Warning: STEPCAFControl_Writer::WriteExternRefs StepRepr_PropertyDefinition is null for " << S.TShape()->DynamicType()->Name() << endl;
 675 #endif
 676       continue;
 677     }
 678     StepRepr_CharacterizedDefinition CharDef = aPropDef->Definition();
 679     Handle(StepBasic_ProductDefinition) PD = CharDef.ProductDefinition();
 680     if (PD.IsNull()) {
 681 #ifdef DEB
 682       cout << "Warning: STEPCAFControl_Writer::WriteExternRefs StepBasic_ProductDefinition is null for " << S.TShape()->DynamicType()->Name() << endl;
 683 #endif
 684       continue;
 685     }
 686     EFTool.AddExternRef ( EF->GetName()->ToCString(), PD, format );
 687   }
 688   EFTool.WriteExternRefs(schema);
 689   return Standard_True;
 690 }
 691
 692
 693 //=======================================================================
 694 //function : FindEntities
 695 //purpose  : auxilary
 696 //=======================================================================
 697 static Standard_Integer FindEntities (const Handle(Transfer_FinderProcess) &FP,
 698                                       const TopoDS_Shape &S,
 699                                       TopLoc_Location &L,
 700                                       TColStd_SequenceOfTransient &seqRI)
 701 {
 702   Handle(StepRepr_RepresentationItem) item = STEPConstruct::FindEntity ( FP, S, L );
 703
 704   if ( ! item.IsNull() ) {
 705     seqRI.Append ( item );
 706     return 1;
 707   }
 708
 709   // may be S was splited during shape processing
 710   Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, S );
 711   Handle(Transfer_Binder) bnd = FP->Find ( mapper );
 712   if ( bnd.IsNull() ) return 0;
 713
 714   Handle(Transfer_TransientListBinder) TransientListBinder =
 715     //Handle(Transfer_TransientListBinder)::DownCast( bnd->Next(Standard_True) );
 716     Handle(Transfer_TransientListBinder)::DownCast( bnd );
 717   Standard_Integer nres=0;
 718   if ( TransientListBinder.IsNull() && S.ShapeType() == TopAbs_COMPOUND)
 719   {
 720     for ( TopoDS_Iterator it(S); it.More(); it.Next() ) {
 721       Handle(StepRepr_RepresentationItem) item = STEPConstruct::FindEntity ( FP, it.Value(), L );
 722       if ( item.IsNull() ) continue;
 723       nres++;
 724       seqRI.Append ( item );
 725     }
 726   }
 727   else
 728   {
 729     const Standard_Integer nb = TransientListBinder->NbTransients();
 730     for (Standard_Integer i=1; i<=nb; i++) {
 731       Handle(Standard_Transient) t = TransientListBinder->Transient(i);
 732       item = Handle(StepRepr_RepresentationItem)::DownCast(t);
 733       if ( item.IsNull() ) continue;
 734       nres++;
 735       seqRI.Append ( item );
 736     }
 737   }
 738 /*  works but is obsolete: another approach
 739   if (i<=nb) {
 740     TopoDS_Shape comp = TransferBRep::ShapeResult(bnd);
 741     if ( ! comp.IsNull() && comp.ShapeType() < S.ShapeType() ) {
 742       for ( TopoDS_Iterator it(comp); it.More(); it.Next() ) {
 743         MakeSTEPStyles(Styles, it.Value(), settings, STEPstyle,
 744                        Map, ( hasOwn ? &style : 0 ) );
 745       }
 746     }
 747   }
 748 */
 749   return nres;
 750 }
 751
 752
 753 //=======================================================================
 754 //function : getStyledItem
 755 //purpose  : auxilary
 756 //=======================================================================
 757 static Standard_Boolean getStyledItem(const TopoDS_Shape& S,
 758                                       const Handle(XCAFDoc_ShapeTool)& STool,
 759                                       const STEPConstruct_Styles &Styles,
 760                                       Handle(StepVisual_StyledItem) &resSelItem,
 761                                       const MoniTool_DataMapOfShapeTransient& myMapCompMDGPR)
 762 {
 763   TDF_Label aTopShL = STool->FindShape(S, Standard_False);
 764   TopoDS_Shape aTopLevSh = STool->GetShape( aTopShL );
 765   Standard_Boolean found = Standard_False;
 766   if ( !aTopLevSh.IsNull() &&  myMapCompMDGPR.IsBound( aTopLevSh ) ) {
 767     Handle(StepVisual_PresentationRepresentation) aMDGPR =
 768       Handle(StepVisual_PresentationRepresentation)::DownCast( myMapCompMDGPR.Find( aTopLevSh ) );
 769     Handle(StepRepr_HArray1OfRepresentationItem) anSelItmHArr = aMDGPR->Items();
 770     // search for PSA of Monifold solid
 771     if ( !anSelItmHArr.IsNull() )
 772     {
 773       for (Standard_Integer si = 1; si <= anSelItmHArr->Length(); si++) {
 774         Handle(StepVisual_StyledItem) aSelItm =
 775           Handle(StepVisual_StyledItem)::DownCast(anSelItmHArr->Value(si));
 776
 777         if ( aSelItm.IsNull() )
 778           continue;
 779
 780         // check that it is a stiled item for monifold solid brep
 781         TopLoc_Location Loc;
 782         TColStd_SequenceOfTransient aNewseqRI;
 783         FindEntities ( Styles.FinderProcess(), aTopLevSh, Loc, aNewseqRI );
 784         if ( aNewseqRI.Length() > 0 )
 785         {
 786
 787           Handle(StepRepr_RepresentationItem) anItem = aSelItm->Item();
 788           Standard_Boolean isSameMonSolBR = Standard_False;
 789           for (Standard_Integer mi = 1; mi <= aNewseqRI.Length(); mi++) {
 790             if ( !anItem.IsNull() && anItem == aNewseqRI.Value( mi ) ) {
 791               isSameMonSolBR = Standard_True;
 792               break;
 793             }
 794           }
 795           if (!isSameMonSolBR)
 796             continue;
 797         }
 798
 799
 800         for (Standard_Integer jsi = 1; jsi <= aSelItm->NbStyles() && !found; jsi++) {
 801           Handle(StepVisual_PresentationStyleAssignment) aFatherPSA =
 802             Handle(StepVisual_PresentationStyleAssignment)::DownCast(aSelItm->StylesValue(jsi));
 803           // check for PSA for top-level (not Presentation style by contex for NAUO)
 804           if (aFatherPSA.IsNull() || aFatherPSA->IsKind(STANDARD_TYPE(StepVisual_PresentationStyleByContext)))
 805             continue;
 806           resSelItem = aSelItm;
 807           found = Standard_True;
 808         }
 809       }
 810     }
 811   }
 812   return found;
 813 }
 814
 815
 816 //=======================================================================
 817 //function : setDefaultInstanceColor
 818 //purpose  : auxilary
 819 //=======================================================================
 820 static Standard_Boolean setDefaultInstanceColor (const Handle(StepVisual_StyledItem) &aSelItm,
 821                                                  Handle(StepVisual_PresentationStyleAssignment)& PSA)
 822 {
 823    Standard_Boolean found = Standard_False;
 824   for (Standard_Integer jsi = 1; jsi <= aSelItm->NbStyles() && !found; jsi++) {
 825     Handle(StepVisual_PresentationStyleAssignment) aFatherPSA =
 826     Handle(StepVisual_PresentationStyleAssignment)::DownCast(aSelItm->StylesValue(jsi));
 827   // check for PSA for top-level (not Presentation style by contex for NAUO)
 828   if (aFatherPSA.IsNull() || aFatherPSA->IsKind(STANDARD_TYPE(StepVisual_PresentationStyleByContext)))
 829     return Standard_False;
 830
 831   // get style select from father PSA
 832   if (aFatherPSA->NbStyles() > 0) {
 833     Handle(StepVisual_HArray1OfPresentationStyleSelect) aFatherStyles =
 834       new StepVisual_HArray1OfPresentationStyleSelect(1, aFatherPSA->NbStyles());
 835     for (Standard_Integer k = 1; k <= aFatherPSA->NbStyles(); k++) {
 836       StepVisual_PresentationStyleSelect PSS;
 837       StepVisual_PresentationStyleSelect olDPSS = aFatherPSA->StylesValue(k);
 838       if (!olDPSS.PointStyle().IsNull())
 839         PSS.SetValue (olDPSS.PointStyle());
 840       else if (!olDPSS.CurveStyle().IsNull())
 841         PSS.SetValue (olDPSS.CurveStyle());
 842       else if (!olDPSS.SurfaceStyleUsage().IsNull())
 843         PSS.SetValue (olDPSS.SurfaceStyleUsage());
 844       else {
 845         found = Standard_False;
 846         break;
 847       }
 848       //aFatherStyles->SetValue( k, PSS );
 849       aFatherStyles->SetValue( k, olDPSS );
 850       found = Standard_True;
 851     }
 852             // init PSA of NAUO
 853     if (found) {
 854       PSA->Init( aFatherStyles );
 855     }
 856   }
 857
 858   }
 859   return found;
 860 }
 861
 862
 863 //=======================================================================
 864 //function : MakeSTEPStyles
 865 //purpose  : auxilary
 866 //=======================================================================
 867 static void MakeSTEPStyles (STEPConstruct_Styles &Styles,
 868                             const TopoDS_Shape &S,
 869                             const XCAFPrs_DataMapOfShapeStyle &settings,
 870                             Handle(StepVisual_StyledItem) &override,
 871                             TopTools_MapOfShape &Map,
 872                             const MoniTool_DataMapOfShapeTransient& myMapCompMDGPR,
 873                             STEPConstruct_DataMapOfAsciiStringTransient &DPDCs,
 874                             STEPConstruct_DataMapOfPointTransient &ColRGBs,
 875                             const Handle(XCAFDoc_ColorTool)& CTool,
 876                             const XCAFPrs_Style *inherit = 0,
 877                             const Standard_Boolean isComponent = Standard_False)
 878 {
 879   // skip already processed shapes
 880   if ( ! Map.Add ( S ) ) return;
 881
 882   // check if shape has its own style (r inherits from ancestor)
 883   XCAFPrs_Style style;
 884   if ( inherit ) style = *inherit;
 885   if ( settings.IsBound(S) ) {
 886     XCAFPrs_Style own = settings.Find(S);
 887     if ( !own.IsVisible() ) style.SetVisibility ( Standard_False );
 888     if ( own.IsSetColorCurv() ) style.SetColorCurv ( own.GetColorCurv() );
 889     if ( own.IsSetColorSurf() ) style.SetColorSurf ( own.GetColorSurf() );
 890   }
 891
 892   // translate colors to STEP
 893   Handle(StepVisual_Colour) surfColor, curvColor;
 894   if ( style.IsSetColorSurf() )
 895     surfColor = Styles.EncodeColor(style.GetColorSurf(),DPDCs,ColRGBs);
 896   if ( style.IsSetColorCurv() )
 897     curvColor = Styles.EncodeColor(style.GetColorCurv(),DPDCs,ColRGBs);
 898
 899   Standard_Boolean hasOwn = ( ! surfColor.IsNull() ||
 900                               ! curvColor.IsNull() ||
 901                               ! style.IsVisible() );
 902
 903   // find target item and assign style to it
 904   Handle(StepVisual_StyledItem) STEPstyle = override;
 905   if ( hasOwn ) {
 906     if ( S.ShapeType() != TopAbs_COMPOUND || isComponent ) { // skip compounds, let subshapes inherit its colors
 907       TopLoc_Location L;
 908       TColStd_SequenceOfTransient seqRI;
 909       Standard_Integer nb = FindEntities ( Styles.FinderProcess(), S, L, seqRI );
 910 #ifdef DEB
 911       if ( nb <=0 ) cout << "Warning: Cannot find RI for " << S.TShape()->DynamicType()->Name() << endl;
 912 #endif
 913       //Get overridden style gka 10.06.03
 914       if ( isComponent && nb)
 915         getStyledItem(S, CTool->ShapeTool(), Styles, override,myMapCompMDGPR);
 916
 917
 918       for ( Standard_Integer i=1; i <= nb; i++ ) {
 919         Handle(StepRepr_RepresentationItem) item =
 920           Handle(StepRepr_RepresentationItem)::DownCast(seqRI(i));
 921         Handle(StepVisual_PresentationStyleAssignment) PSA;
 922         if ( style.IsVisible() || !surfColor.IsNull() || !curvColor.IsNull() ) {
 923           PSA = Styles.MakeColorPSA ( item, surfColor, curvColor, isComponent );
 924         }
 925         else {
 926           // default white color
 927           surfColor = Styles.EncodeColor(Quantity_Color(1,1,1,Quantity_TOC_RGB),DPDCs,ColRGBs);
 928           PSA = Styles.MakeColorPSA ( item, surfColor, curvColor, isComponent );
 929           if ( isComponent )
 930             setDefaultInstanceColor( override, PSA);
 931
 932         } // end of component case
 933
 934         STEPstyle = Styles.AddStyle ( item, PSA, override );
 935         hasOwn = Standard_False;
 936       }
 937     }
 938   }
 939
 940   // iterate on subshapes (except vertices :)
 941   if ( S.ShapeType() == TopAbs_EDGE ) return;
 942   if ( !isComponent ) // PTV 10.02.2003
 943     for ( TopoDS_Iterator it(S); it.More(); it.Next() ) {
 944       MakeSTEPStyles ( Styles, it.Value(), settings, STEPstyle,
 945                       Map, myMapCompMDGPR, DPDCs, ColRGBs, CTool,
 946                       ( hasOwn ? &style : 0 ) );
 947     }
 948 }
 949
 950 /*
 951 static Standard_Boolean getFatherColor (const TDF_Label& L,
 952                                         const Handle(XCAFDoc_ColorTool)& CTool,
 953                                         XCAFPrs_Style& style)
 954 {
 955   Standard_Boolean done = Standard_False;
 956   TopoDS_Shape aSh = CTool->ShapeTool()->GetShape( L );
 957   TDF_Label aFL = CTool->ShapeTool()->FindShape( aSh );
 958   if (aFL.IsNull() || aFL == L)
 959     return done;
 960   Quantity_Color C;
 961   if ( CTool->GetColor ( aFL, XCAFDoc_ColorGen, C ) ) {
 962     style.SetColorCurv ( C );
 963     style.SetColorSurf ( C );
 964     done = Standard_True;
 965   }
 966   if ( CTool->GetColor ( aFL, XCAFDoc_ColorSurf, C ) ) {
 967     style.SetColorSurf ( C );
 968     done = Standard_True;
 969   }
 970   if ( CTool->GetColor ( aFL, XCAFDoc_ColorCurv, C ) ) {
 971     style.SetColorCurv ( C );
 972     done = Standard_True;
 973   }
 974
 975   return done;
 976 }
 977 */
 978
 979
 980 //=======================================================================
 981 //function : WriteColors
 982 //purpose  :
 983 //=======================================================================
 984
 985 Standard_Boolean STEPCAFControl_Writer::WriteColors (const Handle(XSControl_WorkSession) &WS,
 986                                                      const TDF_LabelSequence &labels)
 987 {
 988   if ( labels.Length() <=0 ) return Standard_False;
 989
 990   // Iterate on shapes in the document
 991   Handle(XCAFDoc_ColorTool) CTool = XCAFDoc_DocumentTool::ColorTool( labels(1) );
 992   if ( CTool.IsNull() ) return Standard_False;
 993
 994   STEPConstruct_Styles Styles ( WS );
 995   STEPConstruct_DataMapOfAsciiStringTransient DPDCs;
 996   STEPConstruct_DataMapOfPointTransient ColRGBs;
 997   for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
 998     TDF_Label L = labels.Value(i);
 999
1000     Handle(XCAFDoc_ShapeTool) aSTool = XCAFDoc_DocumentTool::ShapeTool( labels(1) );
1001     // Skip assemblies: colors assigned to assemblies and their instances
1002     // are not supported (it is not clear how to encode that in STEP)
1003     if ( XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
1004 #ifdef DEB
1005       cout << "Warning: Cannot write color  for Assembly" << endl;
1006       cout << "Info: Check for colors assigned to components in assembly" << endl;
1007 #endif
1008       // PTV 22.01.2003 Write color for instances.
1009       TDF_LabelSequence compLabels;
1010       if ( aSTool.IsNull() )
1011         continue;
1012       if (!aSTool->GetComponents(L, compLabels))
1013         continue;
1014       WriteColors(WS, compLabels);
1015       continue;
1016     }
1017     Styles.ClearStyles();
1018
1019     // get a target shape and try to find corresponding context
1020     // (all the colors set under that label will be put into that context)
1021     TopoDS_Shape S;
1022     if ( ! XCAFDoc_ShapeTool::GetShape ( L, S ) ) continue;
1023     Standard_Boolean isComponent = aSTool->IsComponent( L );
1024     TopoDS_Shape aTopSh = S;
1025     Handle(StepRepr_RepresentationContext) Context = Styles.FindContext ( S );
1026     if ( isComponent ) {
1027       TDF_Label aTopShL = aSTool->FindShape(S, Standard_False);
1028       if (aTopShL.IsNull())
1029         continue;
1030       aTopSh = aSTool->GetShape( aTopShL );
1031       Context = Styles.FindContext ( aTopSh );
1032     }
1033     if ( Context.IsNull() )
1034         continue;
1035
1036     // collect settings set on that label
1037     XCAFPrs_DataMapOfShapeStyle settings;
1038     TDF_LabelSequence seq;
1039     seq.Append ( L );
1040     XCAFDoc_ShapeTool::GetSubShapes ( L, seq );
1041     Standard_Boolean isVisible = Standard_True;
1042     for ( Standard_Integer j = 1; j <= seq.Length(); j++ ) {
1043       TDF_Label lab = seq.Value(j);
1044       XCAFPrs_Style style;
1045       Quantity_Color C;
1046       if ( isComponent && lab == L ) {
1047         // check for invisible status of object on label
1048         if ( !CTool->IsVisible( lab ) ) {
1049           isVisible = Standard_False;
1050           style.SetVisibility( Standard_False );
1051         }
1052       }
1053       if ( CTool->GetColor ( lab, XCAFDoc_ColorGen, C ) ) {
1054         style.SetColorCurv ( C );
1055         style.SetColorSurf ( C );
1056       }
1057       if ( CTool->GetColor ( lab, XCAFDoc_ColorSurf, C ) )
1058         style.SetColorSurf ( C );
1059       if ( CTool->GetColor ( lab, XCAFDoc_ColorCurv, C ) )
1060         style.SetColorCurv ( C );
1061
1062       // commented, cause we are need to take reference from
1063 //       if ( isComponent && lab == L && !isVisible)
1064 //         if ( !style.IsSetColorSurf() && !style.IsSetColorCurv() ) {
1065 //           getFatherColor ( L, CTool, style);
1066 //         }
1067       if ( ! style.IsSetColorCurv() && ! style.IsSetColorSurf() && isVisible ) continue;
1068
1069       TopoDS_Shape sub = XCAFDoc_ShapeTool::GetShape ( lab );
1070       settings.Bind ( sub, style );
1071     }
1072
1073     if ( settings.Extent() <=0 ) continue;
1074
1075     // iterate on subshapes and create STEP styles
1076     Handle(StepVisual_StyledItem) override;
1077     TopTools_MapOfShape Map;
1078
1079     MakeSTEPStyles(Styles,S,settings,override,Map,myMapCompMDGPR,DPDCs,ColRGBs,CTool,0,isComponent);
1080
1081     // create MDGPR and record it in model
1082     Handle(StepVisual_MechanicalDesignGeometricPresentationRepresentation) aMDGPR;
1083
1084     if (!isComponent) {
1085       if ( myMapCompMDGPR.IsBound( aTopSh )) {
1086 #ifdef DEB
1087         cerr << "Error: Current Top-Level shape have MDGPR already " << endl;
1088 #endif
1089       }
1090       Styles.CreateMDGPR ( Context, aMDGPR );
1091       if (!aMDGPR.IsNull())
1092         myMapCompMDGPR.Bind( aTopSh, aMDGPR );
1093     }
1094     else {
1095       // create SDR and add to model.
1096       Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
1097       Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
1098       Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, S );
1099       Handle(StepShape_ContextDependentShapeRepresentation) CDSR;
1100       if ( FP->FindTypedTransient(mapper,
1101                                   STANDARD_TYPE(StepShape_ContextDependentShapeRepresentation),
1102                                   CDSR) ) {
1103         // create SDR for NAUO
1104         Handle(StepRepr_ProductDefinitionShape) nullPDS; // important to be NULL
1105         Styles.CreateNAUOSRD( Context, CDSR, nullPDS );
1106
1107         // search for MDGPR of the component top-level shape
1108         if ( myMapCompMDGPR.IsBound( aTopSh )) {
1109           aMDGPR = Handle(StepVisual_MechanicalDesignGeometricPresentationRepresentation)::DownCast( myMapCompMDGPR.Find( aTopSh ) );
1110         } else {
1111           aMDGPR = new StepVisual_MechanicalDesignGeometricPresentationRepresentation;
1112           Handle(TCollection_HAsciiString) ReprName = new TCollection_HAsciiString ( "" );
1113           aMDGPR->SetName( ReprName );
1114           aMDGPR->SetContextOfItems( Context );
1115           myMapCompMDGPR.Bind ( aTopSh, aMDGPR );
1116         }
1117         Handle(StepRepr_HArray1OfRepresentationItem) oldItems = aMDGPR->Items();
1118         Standard_Integer oldLengthlen = 0;
1119         if (!oldItems.IsNull())
1120           oldLengthlen = oldItems->Length();
1121         const Standard_Integer nbIt = oldLengthlen + Styles.NbStyles();
1122         if(!nbIt)
1123           continue;
1124         Handle(StepRepr_HArray1OfRepresentationItem) newItems =
1125           new StepRepr_HArray1OfRepresentationItem(1, nbIt);
1126         Standard_Integer si;
1127         Standard_Integer el = 1;
1128         for ( si=1; si <= oldLengthlen; si++ )
1129           newItems->SetValue( el++, oldItems->Value( si ) );
1130         for ( si=1; si <= Styles.NbStyles(); si++ ) {
1131           newItems->SetValue( el++, Handle(StepRepr_RepresentationItem)::DownCast(Styles.Style(si)));
1132 //           WP->Model()->AddWithRefs ( Handle(StepRepr_RepresentationItem)::DownCast (Styles.Style(si)));
1133         }
1134         if ( !isVisible ) {
1135           // create invisibility item and refer for stiledItem
1136           Handle(StepVisual_Invisibility) Invsblt = new StepVisual_Invisibility();
1137           Handle(StepVisual_HArray1OfInvisibleItem) HInvsblItm =
1138             new StepVisual_HArray1OfInvisibleItem (1,Styles.NbStyles());
1139           // put all style item into the harray
1140           for ( si=1; si <= Styles.NbStyles(); si++ ) {
1141             Handle(StepRepr_RepresentationItem) styledItm =
1142               Handle(StepRepr_RepresentationItem)::DownCast(Styles.Style(si));
1143             StepVisual_InvisibleItem anInvItem;
1144             anInvItem.SetValue( styledItm );
1145             HInvsblItm->SetValue( si, anInvItem );
1146           }
1147           // set the invisibility of items
1148           Invsblt->Init( HInvsblItm );
1149           WS->Model()->AddWithRefs( Invsblt );
1150         }
1151
1152         if (newItems->Length() > 0)
1153           aMDGPR->SetItems( newItems );
1154       } //end of work with CDSR
1155     }
1156   }
1157
1158   return Standard_True;
1159 }
1160
1161
1162 //=======================================================================
1163 //function : WriteNames
1164 //purpose  :
1165 //=======================================================================
1166
1167 Standard_Boolean STEPCAFControl_Writer::WriteNames (const Handle(XSControl_WorkSession) &WS,
1168                                                     const TDF_LabelSequence &labels) const
1169 {
1170   if ( labels.Length() <=0 ) return Standard_False;
1171
1172   // get working data
1173   Handle(Interface_InterfaceModel) Model = WS->Model();
1174   Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
1175   Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
1176 //  Handle(XCAFDoc_ShapeTool) STool = XCAFDoc_DocumentTool::ShapeTool( labels(1) );
1177 //  if ( STool.IsNull() ) return Standard_False;
1178
1179   // Iterate on requested shapes
1180   for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
1181     TDF_Label L = labels.Value(i);
1182
1183     // get name
1184     Handle(TCollection_HAsciiString) hName = new TCollection_HAsciiString;
1185     if ( ! GetLabelName (L, hName) ) continue;
1186 //    Handle(TDataStd_Name) N;
1187 //    if ( ! L.FindAttribute ( TDataStd_Name::GetID(), N ) ) continue;
1188 //    TCollection_ExtendedString name = N->Get();
1189 //    if ( name.Length() <=0 ) continue;
1190
1191     // find target STEP entity for the current shape
1192 //    TopoDS_Shape S;
1193 //    if ( ! XCAFDoc_ShapeTool::GetShape ( L, S ) ) continue;
1194     if ( ! myLabels.IsBound ( L ) ) continue; // not recorded as translated, skip
1195     TopoDS_Shape S = myLabels.Find ( L );
1196
1197     Handle(StepShape_ShapeDefinitionRepresentation) SDR;
1198     Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, S );
1199     if ( ! FP->FindTypedTransient ( mapper, STANDARD_TYPE(StepShape_ShapeDefinitionRepresentation), SDR ) ) {
1200 #ifdef DEB
1201       cout << "Warning: Cannot find SDR for " << S.TShape()->DynamicType()->Name() << endl;
1202 #endif
1203       continue;
1204     }
1205
1206     // set the name to the PRODUCT
1207     Handle(StepRepr_PropertyDefinition) PropD = SDR->Definition().PropertyDefinition();
1208     if ( PropD.IsNull() ) continue;
1209     Handle(StepBasic_ProductDefinition) PD = PropD->Definition().ProductDefinition();
1210     if ( PD.IsNull() ) continue;
1211     Handle(StepBasic_Product) Prod = PD->Formation()->OfProduct();
1212
1213     Prod->SetId ( hName );
1214     Prod->SetName ( hName );
1215
1216     // write names for components of assemblies
1217     if ( XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
1218       TDF_LabelSequence seq;
1219       XCAFDoc_ShapeTool::GetComponents ( L, seq );
1220       for (Standard_Integer k=1; k <= seq.Length(); k++) {
1221         TDF_Label lab = seq(k);
1222
1223         // get shape with correct location
1224         TDF_Label Lref;
1225         if ( ! XCAFDoc_ShapeTool::GetReferredShape ( lab, Lref ) ||
1226              ! myLabels.IsBound ( Lref ) ) continue;
1227         S = myLabels.Find ( Lref );
1228         S.Move ( XCAFDoc_ShapeTool::GetLocation ( lab ) );
1229
1230         hName = new TCollection_HAsciiString;
1231         if ( ! GetLabelName (lab, hName) ) continue;
1232
1233         // find the target CDSR corresponding to a shape
1234         mapper = TransferBRep::ShapeMapper ( FP, S );
1235         Handle(Transfer_Binder) binder = FP->Find ( mapper );
1236         Handle(StepShape_ContextDependentShapeRepresentation) CDSR;
1237         if ( ! FP->FindTypedTransient (mapper,STANDARD_TYPE(StepShape_ContextDependentShapeRepresentation), CDSR) )
1238           continue;
1239         Handle(StepRepr_ProductDefinitionShape) PDS = CDSR->RepresentedProductRelation();
1240         Handle(StepBasic_ProductDefinitionRelationship) NAUO = PDS->Definition().ProductDefinitionRelationship();
1241         if ( ! NAUO.IsNull() ) NAUO->SetName ( hName );
1242       }
1243     }
1244   }
1245
1246   return Standard_True;
1247 }
1248
1249
1250 //=======================================================================
1251 //function : WritePropsForLabel
1252 //purpose  :
1253 //=======================================================================
1254 static Standard_Boolean WritePropsForLabel(const Handle(XSControl_WorkSession) &WS,
1255                                            const Handle(XCAFDoc_ShapeTool) &aSTool,
1256                                            const STEPCAFControl_DataMapOfLabelShape &myLabels,
1257                                            const TDF_Label &L,
1258                                            const Standard_CString multi)
1259 {
1260   if(L.IsNull()) return Standard_False;
1261
1262   STEPConstruct_ValidationProps Props ( WS );
1263
1264   TopoDS_Shape S = aSTool->GetShape(L);
1265   if(S.IsNull()) return Standard_False;
1266
1267   if ( ! multi || XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
1268     // write area
1269     Handle(XCAFDoc_Area) A;
1270     L.FindAttribute ( XCAFDoc_Area::GetID(), A );
1271     if ( ! A.IsNull() ) {
1272       Props.AddArea ( S, A->Get() );
1273     }
1274     // write volume
1275     Handle(XCAFDoc_Volume) V;
1276     L.FindAttribute ( XCAFDoc_Volume::GetID(), V );
1277     if ( ! V.IsNull() ) {
1278       Props.AddVolume ( S, V->Get() );
1279     }
1280   }
1281   // write centroid
1282   Handle(XCAFDoc_Centroid) C;
1283   L.FindAttribute ( XCAFDoc_Centroid::GetID(), C );
1284   if ( ! C.IsNull() ) {
1285     Props.AddCentroid ( S, C->Get() );
1286   }
1287
1288   if( XCAFDoc_ShapeTool::IsCompound(L) || XCAFDoc_ShapeTool::IsAssembly(L) ) {
1289     if(L.HasChild()) {
1290       for(Standard_Integer ich=1; ich<=L.NbChildren(); ich++) {
1291         WritePropsForLabel(WS,aSTool,myLabels,L.FindChild(ich),multi);
1292       }
1293     }
1294   }
1295
1296   return Standard_True;
1297 }
1298
1299
1300 //=======================================================================
1301 //function : WriteValProps
1302 //purpose  :
1303 //=======================================================================
1304
1305 Standard_Boolean STEPCAFControl_Writer::WriteValProps (const Handle(XSControl_WorkSession) &WS,
1306                                                        const TDF_LabelSequence &labels,
1307                                                        const Standard_CString multi) const
1308 {
1309   if ( labels.Length() <=0 ) return Standard_False;
1310
1311   // get working data
1312 //  STEPConstruct_ValidationProps Props ( WS );
1313   Handle(XCAFDoc_ShapeTool) aSTool = XCAFDoc_DocumentTool::ShapeTool( labels(1) );
1314
1315   // Iterate on requested shapes
1316   for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
1317     TDF_Label L = labels.Value(i);
1318
1319     WritePropsForLabel(WS,aSTool,myLabels,L,multi);
1320 /*
1321     // find target STEP entity for the current shape
1322     if ( ! myLabels.IsBound ( L ) ) continue; // not recorded as translated, skip
1323     TopoDS_Shape S = myLabels.Find ( L );
1324
1325     // write area and volume (except for components in multifile mode)
1326     if ( ! multi || XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
1327       Handle(XCAFDoc_Area) A;
1328       L.FindAttribute ( XCAFDoc_Area::GetID(), A );
1329       if ( ! A.IsNull() ) Props.AddArea ( S, A->Get() );
1330
1331       Handle(XCAFDoc_Volume) V;
1332       L.FindAttribute ( XCAFDoc_Volume::GetID(), V );
1333       if ( ! V.IsNull() ) Props.AddVolume ( S, V->Get() );
1334     }
1335
1336     // write centroid
1337     Handle(XCAFDoc_Centroid) C;
1338     L.FindAttribute ( XCAFDoc_Centroid::GetID(), C );
1339     if ( ! C.IsNull() ) Props.AddCentroid ( S, C->Get() );
1340
1341     // write centroid for components of assemblies
1342     if ( XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
1343       TDF_LabelSequence seq;
1344       XCAFDoc_ShapeTool::GetComponents ( L, seq );
1345       for (Standard_Integer k=1; k <= seq.Length(); k++) {
1346         TDF_Label lab = seq(k);
1347
1348         // get shape with correct location
1349         TDF_Label Lref;
1350         if ( ! XCAFDoc_ShapeTool::GetReferredShape ( lab, Lref ) ||
1351              ! myLabels.IsBound ( Lref ) ) continue;
1352         TopLoc_Location Loc = XCAFDoc_ShapeTool::GetLocation ( lab );
1353         S = myLabels.Find ( Lref );
1354         S.Move ( Loc );
1355
1356         C.Nullify();
1357         lab.FindAttribute ( XCAFDoc_Centroid::GetID(), C );
1358         // if centroid is not assigned to an instance,
1359         // use (shifted) centroid of original shape
1360         gp_Pnt center;
1361         if ( C.IsNull() ) {
1362           Lref.FindAttribute ( XCAFDoc_Centroid::GetID(), C );
1363           if ( C.IsNull() ) continue;
1364           center = C->Get().Transformed ( Loc.Transformation() );
1365         }
1366         else center = C->Get();
1367
1368         Props.AddCentroid ( S, center, Standard_True );
1369       }
1370     }
1371 */
1372   }
1373
1374   return Standard_True;
1375 }
1376
1377
1378 //=======================================================================
1379 //function : WriteLayers
1380 //purpose  :
1381 //=======================================================================
1382
1383 Standard_Boolean STEPCAFControl_Writer::WriteLayers (const Handle(XSControl_WorkSession) &WS,
1384                                                      const TDF_LabelSequence  &labels ) const
1385 {
1386
1387   if ( labels.Length() <=0 ) return Standard_False;
1388
1389   // get working data
1390   Handle(Interface_InterfaceModel) Model = WS->Model();
1391   Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
1392   Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
1393   Handle(XCAFDoc_LayerTool) LTool = XCAFDoc_DocumentTool::LayerTool( labels(1) );
1394   if (LTool.IsNull() ) return Standard_False;
1395
1396   TDF_LabelSequence LayerLS;
1397   LTool->GetLayerLabels(LayerLS);
1398   if ( LayerLS.Length() <=0 ) return Standard_False;
1399
1400   // Iterate on requested layers and for each layer take set of shapes.
1401   for ( Standard_Integer i=1; i <= LayerLS.Length(); i++ ) {
1402     TDF_Label L = LayerLS.Value(i);
1403
1404     // get labels of shapes in that layer
1405     TDF_LabelSequence ShapeLs;
1406     LTool->GetShapesOfLayer(L, ShapeLs);
1407     if ( ShapeLs.Length() <=0 ) continue;
1408
1409     // name of layer: if not set, is considered as being empty
1410     Handle(TCollection_HAsciiString) hName = new TCollection_HAsciiString;
1411     GetLabelName ( L, hName );
1412
1413     // Find target STEP entity for each shape and add to StepVisual_PresentationLayerAssignment items.
1414     TColStd_SequenceOfTransient seqRI;
1415     for ( Standard_Integer j=1; j <= ShapeLs.Length(); j++) {
1416       TDF_Label shLabel = ShapeLs.Value(j);
1417       if ( shLabel.IsNull() ) continue;
1418
1419       // there is no way to assign layer to instance in STEP
1420       if ( XCAFDoc_ShapeTool::IsAssembly ( shLabel ) ||
1421            XCAFDoc_ShapeTool::IsReference ( shLabel ) )
1422         continue;
1423
1424       // check that the shape is one of (uub)labels written during current transfer
1425       Standard_Integer k = 1;
1426       for ( ; k <= labels.Length(); k++ )
1427         if ( shLabel.IsDescendant ( labels(k) ) ) break;
1428       if ( k > labels.Length() ) continue;
1429
1430       // get target STEP entity
1431       TopoDS_Shape oneShape = XCAFDoc_ShapeTool::GetShape(shLabel);
1432
1433       TopLoc_Location Loc;
1434       Standard_Integer nb =
1435         FindEntities ( FP, oneShape, Loc, seqRI );
1436       if ( nb <=0 )
1437         FP->Messenger() << "Warning: Cannot find RI for " << oneShape.TShape()->DynamicType()->Name() << endl;
1438     }
1439     if ( seqRI.Length() <= 0 ) continue;
1440
1441     // analyze visibility
1442     Handle(StepVisual_PresentationLayerAssignment) StepLayerAs = new StepVisual_PresentationLayerAssignment;
1443     Handle(TCollection_HAsciiString) descr;
1444     Handle(TDataStd_UAttribute) aUAttr;
1445     Standard_Boolean isLinv = Standard_False;
1446     if (L.FindAttribute(XCAFDoc::InvisibleGUID(), aUAttr)) {
1447       descr = new TCollection_HAsciiString ("invisible");
1448 #ifdef DEB
1449       FP->Messenger() << "\tLayer \"" << hName->String().ToCString() << "\" is invisible"<<endl;
1450 #endif
1451       isLinv = Standard_True;
1452     }
1453     else descr = new TCollection_HAsciiString ("visible");
1454
1455     // create layer entity
1456     Handle(StepVisual_HArray1OfLayeredItem) HArrayOfLItem =
1457       new StepVisual_HArray1OfLayeredItem ( 1, seqRI.Length() );
1458     for (Standard_Integer i1 = 1; i1<=seqRI.Length(); i1++) {
1459       StepVisual_LayeredItem LI;
1460       LI.SetValue ( seqRI.Value(i1) );
1461       HArrayOfLItem->SetValue( i1, LI );
1462     }
1463     StepLayerAs->Init(hName, descr, HArrayOfLItem);
1464     Model->AddWithRefs( StepLayerAs );
1465     // PTV 23.01.2003 add the invisibility AFTER adding layer into the model.
1466     // add the invisibility for the layer
1467     if (isLinv) {
1468       // Invisibility Item for containig invisible layers.
1469       Handle(StepVisual_HArray1OfInvisibleItem) HInvsblItm = new StepVisual_HArray1OfInvisibleItem (1,1);
1470       StepVisual_InvisibleItem InvIt;
1471       InvIt.SetValue( StepLayerAs );
1472       HInvsblItm->SetValue( 1, InvIt);
1473
1474       Handle(StepVisual_Invisibility) Invsblt = new StepVisual_Invisibility();
1475       Invsblt->Init( HInvsblItm );
1476       Model->AddWithRefs( Invsblt );
1477     }
1478   }
1479   return Standard_True;
1480 }
1481
1482
1483 //=======================================================================
1484 //function : getSHUOstyle
1485 //purpose  : auxilary
1486 //=======================================================================
1487 static Standard_Boolean getSHUOstyle(const TDF_Label& aSHUOlab,
1488                                      const Handle(XCAFDoc_ColorTool)& CTool,
1489                                      XCAFPrs_Style& SHUOstyle)
1490 {
1491   Quantity_Color C;
1492   if (!CTool->IsVisible( aSHUOlab ) )
1493     SHUOstyle.SetVisibility(Standard_False);
1494   else {
1495     if ( CTool->GetColor ( aSHUOlab, XCAFDoc_ColorGen, C ) ) {
1496       SHUOstyle.SetColorCurv ( C );
1497       SHUOstyle.SetColorSurf ( C );
1498     }
1499     if ( CTool->GetColor ( aSHUOlab, XCAFDoc_ColorSurf, C ) )
1500       SHUOstyle.SetColorSurf ( C );
1501     if ( CTool->GetColor ( aSHUOlab, XCAFDoc_ColorCurv, C ) )
1502       SHUOstyle.SetColorCurv ( C );
1503   }
1504   if ( !SHUOstyle.IsSetColorCurv() &&
1505       !SHUOstyle.IsSetColorSurf() &&
1506       SHUOstyle.IsVisible() )
1507     return Standard_False;
1508   return Standard_True;
1509 }
1510
1511
1512 //=======================================================================
1513 //function : getProDefinitionOfNAUO
1514 //purpose  : auxilary
1515 //=======================================================================
1516 static Standard_Boolean getProDefinitionOfNAUO(const Handle(XSControl_WorkSession)& WS,
1517                                                const TopoDS_Shape& theShape,
1518                                                Handle(StepBasic_ProductDefinition)& PD,
1519                                                Handle(StepRepr_NextAssemblyUsageOccurrence)& NAUO,
1520                                                Standard_Boolean IsRelating)
1521 {
1522   if ( theShape.IsNull() )
1523     return Standard_False;
1524   // get CDSR
1525   Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
1526   Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
1527   Handle(StepShape_ContextDependentShapeRepresentation) CDSR;
1528   Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, theShape );
1529   if (!FP->FindTypedTransient(mapper,
1530                               STANDARD_TYPE(StepShape_ContextDependentShapeRepresentation),
1531                               CDSR))
1532     return Standard_False;
1533   // get PDS of NAUO
1534   Handle(StepRepr_ProductDefinitionShape) PDS = CDSR->RepresentedProductRelation();
1535   if (PDS.IsNull())
1536     return Standard_False;
1537   // get the NAUO entity
1538   Interface_Graph aGraph = WS->HGraph()->Graph();
1539   Interface_EntityIterator subs = aGraph.Shareds(PDS);
1540   for ( subs.Start(); subs.More(); subs.Next() ) {
1541     if (!subs.Value()->IsKind(STANDARD_TYPE(StepRepr_NextAssemblyUsageOccurrence)))
1542       continue;
1543     NAUO = Handle(StepRepr_NextAssemblyUsageOccurrence)::DownCast(subs.Value());
1544     break;
1545   }
1546   if ( NAUO.IsNull() )
1547     return Standard_False;
1548   // get Relatinf or Related product definition
1549   if ( !IsRelating )
1550     PD = NAUO->RelatedProductDefinition();
1551   else
1552     PD = NAUO->RelatingProductDefinition();
1553   if ( PD.IsNull() )
1554     return Standard_False;
1555   return Standard_True;
1556 }
1557
1558
1559 //=======================================================================
1560 //function : writeSHUO
1561 //purpose  : auxilary
1562 //=======================================================================
1563 static Standard_Boolean writeSHUO (const Handle(XCAFDoc_GraphNode)& theSHUO,
1564                                    const Handle(XCAFDoc_ShapeTool)& theSTool,
1565                                    const Handle(XSControl_WorkSession)& WS,
1566                                    Handle(StepRepr_SpecifiedHigherUsageOccurrence)& theTopSHUO,
1567                                    TopoDS_Shape& NAUOShape,
1568                                    Handle(StepBasic_ProductDefinition)& theRelatingPD,
1569                                    Standard_Boolean& isDeepest)
1570 {
1571   // set the ProductDefinitionRelationship descriptin information as empty strings.
1572   Handle(TCollection_HAsciiString) EmptyString = new TCollection_HAsciiString("");
1573
1574   TDF_LabelSequence aNextUsageLabs;
1575   theSTool->GetSHUONextUsage( theSHUO->Label(), aNextUsageLabs );
1576   Handle(XCAFDoc_GraphNode) NuSHUO;
1577   if ( theTopSHUO.IsNull() ) {
1578     // the top SHUO
1579     if (aNextUsageLabs.Length() < 1)
1580       return Standard_False;
1581     theSTool->GetSHUO( aNextUsageLabs.Value(1), NuSHUO );
1582     if (NuSHUO.IsNull())
1583       return Standard_False;
1584     // get relating product definition
1585     TopoDS_Shape aTopCompShape = theSTool->GetShape( theSHUO->Label().Father() );
1586     Handle(StepRepr_NextAssemblyUsageOccurrence) UUNAUO;
1587     if (!getProDefinitionOfNAUO( WS, aTopCompShape,
1588                                  theRelatingPD, UUNAUO, Standard_True ))
1589       return Standard_False;
1590     // get related product definition
1591     TopoDS_Shape aNUShape = theSTool->GetShape( NuSHUO->Label().Father() );
1592     Handle(StepBasic_ProductDefinition) aRelatedPD;
1593     Handle(StepRepr_NextAssemblyUsageOccurrence) NUNAUO;
1594     if (!getProDefinitionOfNAUO( WS, aNUShape,
1595                                  aRelatedPD, NUNAUO, Standard_False ))
1596       return Standard_False;
1597
1598     theTopSHUO = new StepRepr_SpecifiedHigherUsageOccurrence;
1599     // create deepest shuo EmptyString
1600     theTopSHUO->Init(/*id*/EmptyString, /*name*/EmptyString,
1601                      /*no description*/Standard_False,/*description*/EmptyString,
1602                      theRelatingPD, aRelatedPD,
1603                      /*no ACURefDesignator*/Standard_False,/*ACURefDesignator*/EmptyString,
1604                      /*upper_usage*/UUNAUO, /*next_usage*/NUNAUO);
1605     // write the other SHUO.
1606     if(!writeSHUO( NuSHUO, theSTool, WS, theTopSHUO, NAUOShape, theRelatingPD, isDeepest )) {
1607       theTopSHUO.Nullify();
1608       return Standard_False;
1609     }
1610
1611     return Standard_True;
1612   }
1613 //   Handle(XCAFDoc_GraphNode) NuSHUO;
1614   if ( aNextUsageLabs.Length() > 0) {
1615     // store SHUO recursive
1616 #ifdef DEB
1617     if ( aNextUsageLabs.Length() > 1 )
1618       cout << "Warning: store only one next_usage of current SHUO"  << endl;
1619 #endif
1620     theSTool->GetSHUO( aNextUsageLabs.Value(1), NuSHUO );
1621     Handle(StepRepr_SpecifiedHigherUsageOccurrence) aNUEntSHUO =
1622       new StepRepr_SpecifiedHigherUsageOccurrence;
1623     if (!writeSHUO( NuSHUO, theSTool, WS, aNUEntSHUO, NAUOShape, theRelatingPD, isDeepest ))
1624       return Standard_False;
1625
1626     // store the deepest SHUO to the dociment
1627     TopoDS_Shape aNUSh, aUUSh;
1628     aNUSh = theSTool->GetShape( NuSHUO->Label().Father() );
1629     aUUSh = theSTool->GetShape( theSHUO->Label().Father() );
1630     // get relating PD with upper_usage and related PD with next_usage
1631     Handle(StepBasic_ProductDefinition) nullPD;// no need to use,case have shared <theRelatingPD>
1632     Handle(StepBasic_ProductDefinition) aRelatedPD;
1633     Handle(StepRepr_NextAssemblyUsageOccurrence) UUNAUO, NUNAUO;
1634     if (!getProDefinitionOfNAUO( WS, aUUSh, nullPD, UUNAUO, Standard_True ) ||
1635         !getProDefinitionOfNAUO( WS, aNUSh, aRelatedPD, NUNAUO, Standard_False )) {
1636 #ifdef DEB
1637       cout << "Warning: cannot get related or relating PD" << endl;
1638 #endif
1639       return Standard_False;
1640     }
1641     aNUEntSHUO->Init(/*id*/EmptyString, /*name*/EmptyString,
1642                      /*no description*/Standard_False,/*description*/EmptyString,
1643                      theRelatingPD, aRelatedPD,
1644                      /*no ACURefDesignator*/Standard_False,/*ACURefDesignator*/EmptyString,
1645                      /*upper_usage*/theTopSHUO, /*next_usage*/NUNAUO);
1646     if ( isDeepest ) {
1647       isDeepest = Standard_False;
1648     }
1649     WS->Model()->AddWithRefs ( aNUEntSHUO );
1650     return Standard_True;
1651   } // end of recurse storing
1652
1653   // get shape
1654   TDF_Label aShapeL = theSHUO->Label().Father();
1655   NAUOShape = theSTool->GetShape( aShapeL );
1656   // return to the deepest level from SHUO shape level
1657   // it is because SHUO is attribute on deep level and shape level.
1658   isDeepest = Standard_True;
1659   return Standard_True;
1660 }
1661
1662
1663 //=======================================================================
1664 //function : createSHUOStyledItem
1665 //purpose  : auxilary
1666 //=======================================================================
1667 static Standard_Boolean createSHUOStyledItem (const XCAFPrs_Style& style,
1668                                               const Handle(StepRepr_ProductDefinitionShape)& PDS,
1669                                               const Handle(XSControl_WorkSession) &WS,
1670                                               const TopoDS_Shape& Sh,
1671                                               const Handle(XCAFDoc_ShapeTool)& STool,
1672                                               MoniTool_DataMapOfShapeTransient& myMapCompMDGPR)
1673 {
1674   // create styled item for the indicated SHUO and store to the model
1675   STEPConstruct_Styles Styles( WS );
1676   // translate colors to STEP
1677   Handle(StepVisual_Colour) surfColor, curvColor;
1678   if ( style.IsSetColorSurf() )
1679     surfColor = Styles.EncodeColor ( style.GetColorSurf() );
1680   if ( style.IsSetColorCurv() )
1681     curvColor = Styles.EncodeColor ( style.GetColorCurv() );
1682   Standard_Boolean isComponent = Standard_True;// cause need to get PSBC
1683   Handle(StepRepr_RepresentationItem) item;
1684   // set default color for invisible SHUO.
1685   Standard_Boolean isSetDefaultColor = Standard_False;
1686   if (surfColor.IsNull() && curvColor.IsNull() && !style.IsVisible() ) {
1687     surfColor = Styles.EncodeColor ( Quantity_Color( 1, 1, 1, Quantity_TOC_RGB ) );
1688     isSetDefaultColor = Standard_True;
1689   }
1690   Handle(StepVisual_PresentationStyleAssignment) PSA =
1691     Styles.MakeColorPSA ( item, surfColor, curvColor, isComponent );
1692   Handle(StepVisual_StyledItem) override; //null styled item
1693
1694   // find the repr item of the shape
1695   Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
1696   Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
1697   Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, Sh );
1698   Handle(StepShape_ContextDependentShapeRepresentation) CDSR;
1699   FP->FindTypedTransient(mapper,
1700                          STANDARD_TYPE(StepShape_ContextDependentShapeRepresentation),
1701                          CDSR);
1702   if ( CDSR.IsNull() )
1703     return Standard_False;
1704   // find context
1705   Handle(StepRepr_RepresentationContext) Context = Styles.FindContext( Sh );
1706   TopoDS_Shape aTopSh = Sh;
1707   if (Context.IsNull()) {
1708     TDF_Label aTopShL = STool->FindShape(Sh, Standard_False);
1709     if (aTopShL.IsNull())
1710       return Standard_False;
1711     aTopSh = STool->GetShape( aTopShL );
1712     Context = Styles.FindContext ( aTopSh );
1713   }
1714   if (Context.IsNull())
1715     return Standard_False;
1716   // get representation item of the shape
1717   TopLoc_Location L;
1718   TColStd_SequenceOfTransient seqRI;
1719   FindEntities ( FP, Sh, L, seqRI );
1720 #ifdef DEB
1721   if ( seqRI.Length() <=0 )
1722     FP->Messenger() << "Warning: Cannot find RI for " << Sh.TShape()->DynamicType()->Name() << endl;
1723 #endif
1724   item = Handle(StepRepr_RepresentationItem)::DownCast(seqRI(1));
1725   //get overridden styled item
1726   getStyledItem(Sh,STool, Styles, override,myMapCompMDGPR);
1727
1728   // get STEP STYLED ITEM
1729   Handle(StepVisual_StyledItem) STEPstyle = Styles.AddStyle ( item, PSA, override );
1730   // create SR, SDR and all necessary references between them and ST, PDS, PSBC, GRC
1731   Styles.CreateNAUOSRD( Context, CDSR, PDS );
1732
1733   // add step styled item of SHUO to the model
1734   // do it by additing styled item to the MDGPR
1735   if ( !aTopSh.IsNull() &&  !myMapCompMDGPR.IsBound( aTopSh ) ) {
1736     // create MDGPR and record it in model
1737 #ifdef DEB
1738     cout << "Warning: " << __FILE__ << ": Create new MDGPR for SHUO instance"  << endl;
1739 #endif
1740     Handle(StepVisual_MechanicalDesignGeometricPresentationRepresentation) aMDGPR;
1741     Styles.CreateMDGPR ( Context, aMDGPR );
1742     if (!aMDGPR.IsNull())
1743       myMapCompMDGPR.Bind( aTopSh, aMDGPR );
1744   }
1745   else if ( !aTopSh.IsNull() &&  myMapCompMDGPR.IsBound( aTopSh ) ) {
1746     // get MDGPR of the top-level shape
1747     Handle(StepVisual_PresentationRepresentation) aMDGPR =
1748       Handle(StepVisual_PresentationRepresentation)::DownCast( myMapCompMDGPR.Find( aTopSh ) );
1749     // get old styled items to not lose it
1750     Handle(StepRepr_HArray1OfRepresentationItem) oldItems = aMDGPR->Items();
1751     Standard_Integer oldLengthlen = 0;
1752     if (!oldItems.IsNull())
1753       oldLengthlen = oldItems->Length();
1754     // create new array of styled items by an olds and new one
1755     Handle(StepRepr_HArray1OfRepresentationItem) newItems =
1756       new StepRepr_HArray1OfRepresentationItem(1, oldLengthlen + 1);
1757     Standard_Integer si;
1758     Standard_Integer el = 1;
1759     for ( si=1; si <= oldLengthlen; si++ )
1760       newItems->SetValue( el++, oldItems->Value( si ) );
1761     newItems->SetValue( el++, Handle(StepRepr_RepresentationItem)::DownCast(STEPstyle) );
1762     // init MDGPR be new array of styled items
1763     if (newItems->Length() > 0)
1764       aMDGPR->SetItems( newItems );
1765   }
1766   else {
1767     WS->Model()->AddWithRefs ( STEPstyle ); // add as root to the model, but it is not good
1768 #ifdef DEB
1769     cout << "Warning: " << __FILE__ << ": adds styled item of SHUO as root, casue cannot find MDGPR" << endl;
1770 #endif
1771   }
1772   // create invisibility item for the styled item
1773   if ( !style.IsVisible() ) {
1774     if (isSetDefaultColor) {
1775       // try to set default color from top-level shape
1776
1777       setDefaultInstanceColor(override, PSA);
1778     }
1779     // create invisibility item and refer for stiledItem
1780     Handle(StepVisual_Invisibility) Invsblt = new StepVisual_Invisibility();
1781     Handle(StepVisual_HArray1OfInvisibleItem) HInvsblItm =
1782       new StepVisual_HArray1OfInvisibleItem (1,1);
1783     // put all style item into the harray
1784     StepVisual_InvisibleItem anInvItem;
1785     anInvItem.SetValue( STEPstyle );
1786     HInvsblItm->SetValue( 1, anInvItem );
1787     Invsblt->Init( HInvsblItm );
1788     WS->Model()->AddWithRefs( Invsblt );
1789   }
1790
1791   return Standard_True;
1792 }
1793
1794
1795 //=======================================================================
1796 //function : WriteSHUOs
1797 //purpose  :
1798 //=======================================================================
1799
1800 Standard_Boolean STEPCAFControl_Writer::WriteSHUOs (const Handle(XSControl_WorkSession) &WS,
1801                                                     const TDF_LabelSequence  &labels )
1802 {
1803   if ( labels.Length() <=0 ) return Standard_False;
1804
1805   // get working data
1806   Handle(Interface_InterfaceModel) Model = WS->Model();
1807   Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
1808   Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
1809   Handle(XCAFDoc_ColorTool) CTool = XCAFDoc_DocumentTool::ColorTool( labels(1) );
1810   if (CTool.IsNull() )
1811     return Standard_False;
1812   // map of transfered SHUO
1813   TColStd_MapOfTransient aMapOfMainSHUO;
1814 //   TColStd_IndexedDataMapOfTransientTransient aIndxMapOfSHUOEnt;
1815   // Iterate on requested shapes
1816   for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
1817     TDF_Label L = labels.Value(i);
1818     if ( ! myLabels.IsBound ( L ) ) continue; // not recorded as translated, skip
1819 //     TopoDS_Shape S = myLabels.Find ( L );
1820     if ( XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
1821       TDF_LabelSequence seq;
1822       XCAFDoc_ShapeTool::GetComponents ( L, seq );
1823       // iterates on components of assembly
1824       for (Standard_Integer k=1; k <= seq.Length(); k++) {
1825         TDF_Label lab = seq(k);
1826         TDF_AttributeSequence anAttrSeq;
1827         CTool->ShapeTool()->GetAllComponentSHUO( lab, anAttrSeq );
1828         // work with SHUO
1829         for (Standard_Integer j = 1; j <= anAttrSeq.Length(); j++) {
1830           Handle(XCAFDoc_GraphNode) aSHUO =
1831             Handle(XCAFDoc_GraphNode)::DownCast(anAttrSeq.Value( j ));
1832           // take label of SHUO
1833           TDF_Label aSHUOlab = aSHUO->Label();
1834           TDF_LabelSequence aUpLabels;
1835           // check is it SHUO of upper_usage
1836           CTool->ShapeTool()->GetSHUOUpperUsage( aSHUOlab, aUpLabels );
1837           if ( aUpLabels.Length() > 0 )
1838             continue; // transfer only main SHUO
1839           if ( aMapOfMainSHUO.Contains( aSHUO ) )
1840             continue; // do not try to transfer SHUO twice
1841           aMapOfMainSHUO.Add( aSHUO );
1842           // check if it is styled SHUO
1843           XCAFPrs_Style SHUOstyle;
1844           if ( !getSHUOstyle ( aSHUOlab, CTool, SHUOstyle ) ) {
1845 #ifdef DEB
1846             cout << "Warning: " << __FILE__ << ": do not store SHUO without any style to the STEP model" << endl;
1847 #endif
1848             continue;
1849           }
1850           // write SHUO to the model amd then add structure type.
1851           TopoDS_Shape NAUOShape; // shape of the deepest NAUO in the SHUO structure
1852           Standard_Boolean isDeepest = Standard_False;
1853           Handle(StepRepr_SpecifiedHigherUsageOccurrence) anEntOfSHUO;
1854           Handle(StepBasic_ProductDefinition) aRelatingPD;
1855           // create the top SHUO and all other.
1856           writeSHUO( aSHUO, CTool->ShapeTool(), WS, anEntOfSHUO, NAUOShape, aRelatingPD, isDeepest );
1857           if ( anEntOfSHUO.IsNull() || NAUOShape.IsNull() ) {
1858 #ifdef DEB
1859             cout << "Warning: " << __FILE__ << ": Cannot store SHUO" << endl;
1860 #endif
1861             continue;
1862           }
1863           // create new Product Definition Shape for TOP SHUO
1864 #ifdef DEB
1865             cout << "Info: " << __FILE__ << ": Create NEW PDS for current SHUO " << endl;
1866 #endif
1867           Handle(StepRepr_ProductDefinitionShape) PDS = new StepRepr_ProductDefinitionShape;
1868           Handle(TCollection_HAsciiString) aPDSname = new TCollection_HAsciiString("SHUO");
1869           Handle(TCollection_HAsciiString) descrStr = new TCollection_HAsciiString("");
1870           StepRepr_CharacterizedDefinition aCharDef;
1871           aCharDef.SetValue( anEntOfSHUO );
1872           PDS->Init( aPDSname, Standard_False, descrStr, aCharDef );
1873
1874           // create styled item for SHUO and add to the model
1875           createSHUOStyledItem ( SHUOstyle, PDS, WS, NAUOShape, CTool->ShapeTool(), myMapCompMDGPR );
1876
1877         } // end work with SHUO
1878       } // end of an assembly components
1879     } // end of IsAssembly case
1880     // nothing to do if it is not assembly
1881     continue;
1882   } // end of iterates on indicated labels
1883   return Standard_True;
1884 }
1885
1886
1887 //=======================================================================
1888 //function : FindPDSforDGT
1889 //purpose  : auxilary: find PDS for AdvancedFace or EdgeCurve for creation
1890 //                     needed ShapeAspect in D&GT structure
1891 //=======================================================================
1892 static Standard_Boolean FindPDSforDGT(const Interface_Graph &aGraph,
1893                                       const Handle(Standard_Transient) &ent,
1894                                       Handle(StepRepr_ProductDefinitionShape) &PDS,
1895                                       Handle(StepRepr_RepresentationContext) &RC,
1896                                       Handle(StepShape_AdvancedFace) &AF,
1897                                       Handle(StepShape_EdgeCurve) &EC)
1898 {
1899   if( !ent->IsKind(STANDARD_TYPE(StepShape_EdgeCurve)) &&
1900       !ent->IsKind(STANDARD_TYPE(StepShape_AdvancedFace)) )
1901     return Standard_False;
1902
1903   AF = Handle(StepShape_AdvancedFace)::DownCast(ent);
1904   if( ent->IsKind(STANDARD_TYPE(StepShape_EdgeCurve)) ) {
1905     EC = Handle(StepShape_EdgeCurve)::DownCast(ent);
1906     Interface_EntityIterator subs = aGraph.Sharings(EC);
1907     for(subs.Start(); subs.More() && AF.IsNull(); subs.Next()) {
1908       Handle(StepShape_OrientedEdge) OE = Handle(StepShape_OrientedEdge)::DownCast(subs.Value());
1909       if(OE.IsNull()) continue;
1910       Interface_EntityIterator subs1 = aGraph.Sharings(OE);
1911       for(subs1.Start(); subs1.More() && AF.IsNull(); subs1.Next()) {
1912         Handle(StepShape_EdgeLoop) EL = Handle(StepShape_EdgeLoop)::DownCast(subs1.Value());
1913         if(EL.IsNull()) continue;
1914         Interface_EntityIterator subs2 = aGraph.Sharings(EL);
1915         for(subs2.Start(); subs2.More() && AF.IsNull(); subs2.Next()) {
1916           Handle(StepShape_FaceBound) FB = Handle(StepShape_FaceBound)::DownCast(subs2.Value());
1917           if(FB.IsNull()) continue;
1918           Interface_EntityIterator subs3 = aGraph.Sharings(FB);
1919           for(subs3.Start(); subs3.More() && AF.IsNull(); subs3.Next()) {
1920             AF = Handle(StepShape_AdvancedFace)::DownCast(subs3.Value());
1921           }
1922         }
1923       }
1924     }
1925   }
1926   if(AF.IsNull()) return Standard_False;
1927
1928   Interface_EntityIterator subs = aGraph.Sharings(AF);
1929   for(subs.Start(); subs.More() && PDS.IsNull(); subs.Next()) {
1930     Handle(StepShape_ConnectedFaceSet) CFS =
1931       Handle(StepShape_ConnectedFaceSet)::DownCast(subs.Value());
1932     if(CFS.IsNull()) continue;
1933     Interface_EntityIterator subs1 = aGraph.Sharings(CFS);
1934     for(subs1.Start(); subs1.More() && PDS.IsNull(); subs1.Next()) {
1935       Handle(StepRepr_RepresentationItem) RI =
1936         Handle(StepRepr_RepresentationItem)::DownCast(subs1.Value());
1937       if(RI.IsNull()) continue;
1938       Interface_EntityIterator subs2 = aGraph.Sharings(RI);
1939       for(subs2.Start(); subs2.More() && PDS.IsNull(); subs2.Next()) {
1940         Handle(StepShape_ShapeRepresentation) SR =
1941           Handle(StepShape_ShapeRepresentation)::DownCast(subs2.Value());
1942         if(SR.IsNull()) continue;
1943         RC = SR->ContextOfItems();
1944         Interface_EntityIterator subs3 = aGraph.Sharings(SR);
1945         for(subs3.Start(); subs3.More() && PDS.IsNull(); subs3.Next()) {
1946           Handle(StepShape_ShapeDefinitionRepresentation) SDR =
1947             Handle(StepShape_ShapeDefinitionRepresentation)::DownCast(subs3.Value());
1948           if(SDR.IsNull()) continue;
1949           Handle(StepRepr_PropertyDefinition) PropD = SDR->Definition().PropertyDefinition();
1950           if(PropD.IsNull()) continue;
1951           PDS = Handle(StepRepr_ProductDefinitionShape)::DownCast(PropD);
1952         }
1953       }
1954     }
1955   }
1956
1957   return Standard_True;
1958 }
1959
1960
1961 //=======================================================================
1962 //function : WriteDGTs
1963 //purpose  :
1964 //=======================================================================
1965
1966 Standard_Boolean STEPCAFControl_Writer::WriteDGTs (const Handle(XSControl_WorkSession) &WS,
1967                                                    const TDF_LabelSequence  &labels ) const
1968 {
1969
1970   if ( labels.Length() <=0 ) return Standard_False;
1971
1972   // get working data
1973   Handle(Interface_InterfaceModel) Model = WS->Model();
1974   Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
1975   Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
1976   Interface_Graph aGraph = WS->HGraph()->Graph();
1977   Handle(XCAFDoc_DimTolTool) DGTTool = XCAFDoc_DocumentTool::DimTolTool( labels(1) );
1978   if(DGTTool.IsNull() ) return Standard_False;
1979
1980   TDF_LabelSequence DGTLabels;
1981   STEPConstruct_DataMapOfAsciiStringTransient DatumMap;
1982
1983   // write Datums
1984   DGTTool->GetDatumLabels(DGTLabels);
1985   if(DGTLabels.Length()<=0) return Standard_False;
1986   Standard_Integer i;
1987   for(i=1; i<=DGTLabels.Length(); i++) {
1988     TDF_Label DatumL = DGTLabels.Value(i);
1989     TDF_Label ShapeL;
1990     if(!DGTTool->GetRefShapeLabel(DatumL,ShapeL)) continue;
1991     // find target shape
1992     TopoDS_Shape aShape = XCAFDoc_ShapeTool::GetShape(ShapeL);
1993     TopLoc_Location Loc;
1994     TColStd_SequenceOfTransient seqRI;
1995     FindEntities( FP, aShape, Loc, seqRI );
1996     if ( seqRI.Length() <= 0 ) {
1997       FP->Messenger() << "Warning: Cannot find RI for "<<aShape.TShape()->DynamicType()->Name()<<endl;
1998       continue;
1999     }
2000     Handle(StepRepr_ProductDefinitionShape) PDS;
2001     Handle(StepRepr_RepresentationContext) RC;
2002     Handle(Standard_Transient) ent = seqRI.Value(1);
2003     Handle(StepShape_AdvancedFace) AF;
2004     Handle(StepShape_EdgeCurve) EC;
2005     FindPDSforDGT(aGraph,ent,PDS,RC,AF,EC);
2006     if(PDS.IsNull()) continue;
2007     //cout<<"Model->Number(PDS)="<<Model->Number(PDS)<<endl;
2008     Handle(XCAFDoc_Datum) DatumAttr;
2009     if(!DatumL.FindAttribute(XCAFDoc_Datum::GetID(),DatumAttr)) continue;
2010     Handle(TCollection_HAsciiString) aName = DatumAttr->GetName();
2011     Handle(TCollection_HAsciiString) aDescription = DatumAttr->GetDescription();
2012     Handle(TCollection_HAsciiString) anIdentification = DatumAttr->GetIdentification();
2013     Handle(StepDimTol_DatumFeature) DF = new StepDimTol_DatumFeature;
2014     Handle(StepDimTol_Datum) aDatum = new StepDimTol_Datum;
2015     DF->Init(aName, new TCollection_HAsciiString, PDS, StepData_LTrue);
2016     Model->AddWithRefs(DF);
2017     aDatum->Init(aName, new TCollection_HAsciiString, PDS, StepData_LFalse, anIdentification);
2018     Model->AddWithRefs(aDatum);
2019     Handle(StepRepr_ShapeAspectRelationship) SAR = new StepRepr_ShapeAspectRelationship;
2020     SAR->SetName(aName);
2021     SAR->SetRelatingShapeAspect(DF);
2022     SAR->SetRelatedShapeAspect(aDatum);
2023     Model->AddWithRefs(SAR);
2024     // write chain for DatumFeature
2025     StepRepr_CharacterizedDefinition CD;
2026     CD.SetValue(DF);
2027     Handle(StepRepr_PropertyDefinition) PropD = new StepRepr_PropertyDefinition;
2028     PropD->Init(aName,Standard_True,aDescription,CD);
2029     Model->AddWithRefs(PropD);
2030     StepRepr_RepresentedDefinition RD;
2031     RD.SetValue(PropD);
2032     Handle(StepShape_ShapeRepresentation) SR = new StepShape_ShapeRepresentation;
2033     Handle(StepRepr_HArray1OfRepresentationItem) HARI =
2034       new StepRepr_HArray1OfRepresentationItem(1,1);
2035     HARI->SetValue(1,AF);
2036     SR->Init(aName,HARI,RC);
2037     Handle(StepShape_ShapeDefinitionRepresentation) SDR = new StepShape_ShapeDefinitionRepresentation;
2038     SDR->Init(RD,SR);
2039     Model->AddWithRefs(SDR);
2040     // write chain for Datum
2041     StepRepr_CharacterizedDefinition CD1;
2042     CD1.SetValue(aDatum);
2043     Handle(StepRepr_PropertyDefinition) PropD1 = new StepRepr_PropertyDefinition;
2044     PropD1->Init(aName,Standard_True,aDescription,CD1);
2045     Model->AddWithRefs(PropD1);
2046     StepRepr_RepresentedDefinition RD1;
2047     RD1.SetValue(PropD1);
2048     Handle(StepShape_ShapeRepresentation) SR1 = new StepShape_ShapeRepresentation;
2049     Handle(StepRepr_HArray1OfRepresentationItem) HARI1 =
2050       new StepRepr_HArray1OfRepresentationItem(1,1);
2051     HARI1->SetValue(1,AF->FaceGeometry());
2052     SR1->Init(aName,HARI1,RC);
2053     Model->AddWithRefs(SR1);
2054     Handle(StepShape_ShapeDefinitionRepresentation) SDR1 = new StepShape_ShapeDefinitionRepresentation;
2055     SDR1->Init(RD1,SR1);
2056     Model->AddWithRefs(SDR1);
2057     // add created Datum into Map
2058     TCollection_AsciiString stmp(aName->ToCString());
2059     stmp.AssignCat(aDescription->ToCString());
2060     stmp.AssignCat(anIdentification->ToCString());
2061     DatumMap.Bind(stmp,aDatum);
2062   }
2063
2064   // write Tolerances and Dimensions
2065   DGTLabels.Clear();
2066   DGTTool->GetDimTolLabels(DGTLabels);
2067   if(DGTLabels.Length()<=0) return Standard_False;
2068   for(i=1; i<=DGTLabels.Length(); i++) {
2069     TDF_Label DimTolL = DGTLabels.Value(i);
2070     TDF_Label ShapeL;
2071     if(!DGTTool->GetRefShapeLabel(DimTolL,ShapeL)) continue;
2072     // find target shape
2073     TopoDS_Shape aShape = XCAFDoc_ShapeTool::GetShape(ShapeL);
2074     TopLoc_Location Loc;
2075     TColStd_SequenceOfTransient seqRI;
2076     FindEntities( FP, aShape, Loc, seqRI );
2077     if ( seqRI.Length() <= 0 ) {
2078       FP->Messenger() << "Warning: Cannot find RI for "<<aShape.TShape()->DynamicType()->Name()<<endl;
2079       continue;
2080     }
2081     Handle(StepRepr_ProductDefinitionShape) PDS;
2082     Handle(StepRepr_RepresentationContext) RC;
2083     Handle(Standard_Transient) ent = seqRI.Value(1);
2084     Handle(StepShape_AdvancedFace) AF;
2085     Handle(StepShape_EdgeCurve) EC;
2086     FindPDSforDGT(aGraph,ent,PDS,RC,AF,EC);
2087     if(PDS.IsNull()) continue;
2088     //cout<<"Model->Number(PDS)="<<Model->Number(PDS)<<endl;
2089
2090     Handle(XCAFDoc_DimTol) DimTolAttr;
2091     if(!DimTolL.FindAttribute(XCAFDoc_DimTol::GetID(),DimTolAttr)) continue;
2092     Standard_Integer kind = DimTolAttr->GetKind();
2093     Handle(TColStd_HArray1OfReal) aVal = DimTolAttr->GetVal();
2094     Handle(TCollection_HAsciiString) aName = DimTolAttr->GetName();
2095     Handle(TCollection_HAsciiString) aDescription = DimTolAttr->GetDescription();
2096
2097     // common part of writing D&GT entities
2098     StepRepr_CharacterizedDefinition CD;
2099     Handle(StepRepr_ShapeAspect) SA = new StepRepr_ShapeAspect;
2100     SA->Init(aName, new TCollection_HAsciiString, PDS, StepData_LTrue);
2101     Model->AddWithRefs(SA);
2102     CD.SetValue(SA);
2103     Handle(StepRepr_PropertyDefinition) PropD = new StepRepr_PropertyDefinition;
2104     PropD->Init(aName,Standard_True,aDescription,CD);
2105     Model->AddWithRefs(PropD);
2106     StepRepr_RepresentedDefinition RD;
2107     RD.SetValue(PropD);
2108     Handle(StepShape_ShapeRepresentation) SR = new StepShape_ShapeRepresentation;
2109     Handle(StepRepr_HArray1OfRepresentationItem) HARI =
2110       new StepRepr_HArray1OfRepresentationItem(1,1);
2111     if(kind<20)
2112       HARI->SetValue(1,EC);
2113     else
2114       HARI->SetValue(1,AF);
2115     SR->Init(aName,HARI,RC);
2116     Handle(StepShape_ShapeDefinitionRepresentation) SDR = new StepShape_ShapeDefinitionRepresentation;
2117     SDR->Init(RD,SR);
2118     Model->AddWithRefs(SDR);
2119     // define aUnit for creation LengthMeasureWithUnit (common for all)
2120     StepBasic_Unit aUnit;
2121     Handle(StepBasic_SiUnitAndLengthUnit) SLU;
2122     Handle(StepGeom_GeometricRepresentationContextAndGlobalUnitAssignedContext) Ctx =
2123       Handle(StepGeom_GeometricRepresentationContextAndGlobalUnitAssignedContext)::DownCast(RC);
2124     if(!Ctx.IsNull()) {
2125       for(Standard_Integer j=1; j<=Ctx->NbUnits(); j++) {
2126         if(Ctx->UnitsValue(j)->IsKind(STANDARD_TYPE(StepBasic_SiUnitAndLengthUnit))) {
2127           SLU = Handle(StepBasic_SiUnitAndLengthUnit)::DownCast(Ctx->UnitsValue(j));
2128           break;
2129         }
2130       }
2131     }
2132     if(SLU.IsNull()) {
2133       Handle(StepGeom_GeomRepContextAndGlobUnitAssCtxAndGlobUncertaintyAssCtx) Ctx1 =
2134         Handle(StepGeom_GeomRepContextAndGlobUnitAssCtxAndGlobUncertaintyAssCtx)::DownCast(RC);
2135       if(!Ctx1.IsNull()) {
2136         for(Standard_Integer j=1; j<=Ctx1->NbUnits(); j++) {
2137           if(Ctx1->UnitsValue(j)->IsKind(STANDARD_TYPE(StepBasic_SiUnitAndLengthUnit))) {
2138             SLU = Handle(StepBasic_SiUnitAndLengthUnit)::DownCast(Ctx1->UnitsValue(j));
2139             break;
2140           }
2141         }
2142       }
2143     }
2144     if(SLU.IsNull()) {
2145       SLU = new StepBasic_SiUnitAndLengthUnit;
2146     }
2147     aUnit.SetValue(SLU);
2148
2149     // specific part of writing D&GT entities
2150     if(kind<20) { //dimension
2151       Handle(StepShape_DimensionalSize) DimSize = new StepShape_DimensionalSize;
2152       DimSize->Init(SA,aDescription);
2153       Model->AddWithRefs(DimSize);
2154       if(aVal->Length()>1) {
2155         // create MeasureWithUnits
2156         Handle(StepBasic_MeasureValueMember) MVM1 = new StepBasic_MeasureValueMember;
2157         MVM1->SetName("POSITIVE_LENGTH_MEASURE");
2158         MVM1->SetReal(aVal->Value(1));
2159         Handle(StepBasic_MeasureWithUnit) MWU1 = new StepBasic_MeasureWithUnit;
2160         MWU1->Init(MVM1,aUnit);
2161         Handle(StepBasic_MeasureValueMember) MVM2 = new StepBasic_MeasureValueMember;
2162         MVM2->SetName("POSITIVE_LENGTH_MEASURE");
2163         MVM2->SetReal(aVal->Value(2));
2164         Handle(StepBasic_MeasureWithUnit) MWU2 = new StepBasic_MeasureWithUnit;
2165         MWU2->Init(MVM2,aUnit);
2166         Handle(StepRepr_RepresentationItem) RI1 = new StepRepr_RepresentationItem;
2167         RI1->Init(new TCollection_HAsciiString("lower limit"));
2168         Handle(StepRepr_RepresentationItem) RI2 = new StepRepr_RepresentationItem;
2169         RI2->Init(new TCollection_HAsciiString("upper limit"));
2170         Handle(StepRepr_ReprItemAndLengthMeasureWithUnit) RILMU1 =
2171           new StepRepr_ReprItemAndLengthMeasureWithUnit;
2172         RILMU1->Init(MWU1,RI1);
2173         Handle(StepRepr_ReprItemAndLengthMeasureWithUnit) RILMU2 =
2174           new StepRepr_ReprItemAndLengthMeasureWithUnit;
2175         RILMU2->Init(MWU2,RI2);
2176         Model->AddWithRefs(RILMU1);
2177         Model->AddWithRefs(RILMU2);
2178         //Handle(StepRepr_CompoundItemDefinitionMember) CIDM =
2179         //  new StepRepr_CompoundItemDefinitionMember;
2180         //Handle(TColStd_HArray1OfTransient) ArrTr = new TColStd_HArray1OfTransient(1,2);
2181         //ArrTr->SetValue(1,RILMU1);
2182         //ArrTr->SetValue(2,RILMU2);
2183         //CIDM->SetArrTransient(ArrTr);
2184         //CIDM->SetName("SET_REPRESENTATION_ITEM");
2185         //StepRepr_CompoundItemDefinition CID;
2186         //CID.SetValue(CIDM);
2187         Handle(StepRepr_HArray1OfRepresentationItem) HARIVR =
2188           new StepRepr_HArray1OfRepresentationItem(1,2);
2189         HARIVR->SetValue(1,RILMU1);
2190         HARIVR->SetValue(2,RILMU2);
2191         Handle(StepRepr_ValueRange) VR = new StepRepr_ValueRange;
2192         //VR->Init(aName,CID);
2193         VR->Init(aName,HARIVR);
2194         Model->AddEntity(VR);
2195         Handle(StepShape_ShapeDimensionRepresentation) SDimR =
2196           new StepShape_ShapeDimensionRepresentation;
2197         Handle(StepRepr_HArray1OfRepresentationItem) HARI =
2198           new StepRepr_HArray1OfRepresentationItem(1,1);
2199         HARI->SetValue(1,VR);
2200         SDimR->Init(aName,HARI,RC);
2201         Model->AddWithRefs(SDimR);
2202         Handle(StepShape_DimensionalCharacteristicRepresentation) DimCharR =
2203           new StepShape_DimensionalCharacteristicRepresentation;
2204         StepShape_DimensionalCharacteristic DimChar;
2205         DimChar.SetValue(DimSize);
2206         DimCharR->Init(DimChar,SDimR);
2207         Model->AddEntity(DimCharR);
2208       }
2209     }
2210     else if(kind<50) { //tolerance
2211       if(kind<35) { // tolerance with datum system
2212         TDF_LabelSequence DatumLabels;
2213         DGTTool->GetDatumTolerLabels(DimTolL,DatumLabels);
2214         Standard_Integer NbDR = DatumLabels.Length();
2215         Handle(StepDimTol_HArray1OfDatumReference) HADR = new StepDimTol_HArray1OfDatumReference(1,NbDR);
2216         for(Standard_Integer j=1; j<=NbDR; j++) {
2217           Handle(XCAFDoc_Datum) DatumAttr;
2218           TDF_Label DatumL = DatumLabels.Value(j);
2219           if(!DatumL.FindAttribute(XCAFDoc_Datum::GetID(),DatumAttr)) continue;
2220           Handle(TCollection_HAsciiString) aNameD = DatumAttr->GetName();
2221           Handle(TCollection_HAsciiString) aDescriptionD = DatumAttr->GetDescription();
2222           Handle(TCollection_HAsciiString) anIdentificationD = DatumAttr->GetIdentification();
2223           TCollection_AsciiString stmp(aNameD->ToCString());
2224           stmp.AssignCat(aDescriptionD->ToCString());
2225           stmp.AssignCat(anIdentificationD->ToCString());
2226           if(DatumMap.IsBound(stmp)) {
2227             Handle(StepDimTol_Datum) aDatum =
2228               Handle(StepDimTol_Datum)::DownCast(DatumMap.Find(stmp));
2229             Handle(StepDimTol_DatumReference) DR = new StepDimTol_DatumReference;
2230             DR->Init(j,aDatum);
2231             Model->AddWithRefs(DR);
2232             HADR->SetValue(j,DR);
2233           }
2234         }
2235         // create LengthMeasureWithUnit
2236         Handle(StepBasic_MeasureValueMember) MVM = new StepBasic_MeasureValueMember;
2237         MVM->SetName("LENGTH_MEASURE");
2238         MVM->SetReal(aVal->Value(1));
2239         Handle(StepBasic_LengthMeasureWithUnit) LMWU = new StepBasic_LengthMeasureWithUnit;
2240         LMWU->Init(MVM,aUnit);
2241         // create tolerance by it's type
2242         if(kind<24) {
2243           Handle(StepDimTol_GeometricToleranceWithDatumReference) GTWDR =
2244             new StepDimTol_GeometricToleranceWithDatumReference;
2245           GTWDR->SetDatumSystem(HADR);
2246           Handle(StepDimTol_ModifiedGeometricTolerance) MGT =
2247             new StepDimTol_ModifiedGeometricTolerance;
2248           if(kind==21) MGT->SetModifier(StepDimTol_MaximumMaterialCondition);
2249           else if(kind==22) MGT->SetModifier(StepDimTol_LeastMaterialCondition);
2250           else if(kind==23) MGT->SetModifier(StepDimTol_RegardlessOfFeatureSize);
2251           Handle(StepDimTol_GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol) GTComplex =
2252             new StepDimTol_GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol;
2253           GTComplex->Init(aName,aDescription,LMWU,SA,GTWDR,MGT);
2254           Model->AddWithRefs(GTComplex);
2255         }
2256         else if(kind==24) {
2257           Handle(StepDimTol_AngularityTolerance) aToler =
2258             new StepDimTol_AngularityTolerance;
2259           aToler->Init(aName,aDescription,LMWU,SA,HADR);
2260           Model->AddWithRefs(aToler);
2261         }
2262         else if(kind==25) {
2263           Handle(StepDimTol_CircularRunoutTolerance) aToler =
2264             new StepDimTol_CircularRunoutTolerance;
2265           aToler->Init(aName,aDescription,LMWU,SA,HADR);
2266           Model->AddWithRefs(aToler);
2267         }
2268         else if(kind==26) {
2269           Handle(StepDimTol_CoaxialityTolerance) aToler =
2270             new StepDimTol_CoaxialityTolerance;
2271           aToler->Init(aName,aDescription,LMWU,SA,HADR);
2272           Model->AddWithRefs(aToler);
2273         }
2274         else if(kind==27) {
2275           Handle(StepDimTol_ConcentricityTolerance) aToler =
2276             new StepDimTol_ConcentricityTolerance;
2277           aToler->Init(aName,aDescription,LMWU,SA,HADR);
2278           Model->AddWithRefs(aToler);
2279         }
2280         else if(kind==28) {
2281           Handle(StepDimTol_ParallelismTolerance) aToler =
2282             new StepDimTol_ParallelismTolerance;
2283           aToler->Init(aName,aDescription,LMWU,SA,HADR);
2284           Model->AddWithRefs(aToler);
2285         }
2286         else if(kind==29) {
2287           Handle(StepDimTol_PerpendicularityTolerance) aToler =
2288             new StepDimTol_PerpendicularityTolerance;
2289           aToler->Init(aName,aDescription,LMWU,SA,HADR);
2290           Model->AddWithRefs(aToler);
2291         }
2292         else if(kind==30) {
2293           Handle(StepDimTol_SymmetryTolerance) aToler =
2294             new StepDimTol_SymmetryTolerance;
2295           aToler->Init(aName,aDescription,LMWU,SA,HADR);
2296           Model->AddWithRefs(aToler);
2297         }
2298         else if(kind==31) {
2299           Handle(StepDimTol_TotalRunoutTolerance) aToler =
2300             new StepDimTol_TotalRunoutTolerance;
2301           aToler->Init(aName,aDescription,LMWU,SA,HADR);
2302           Model->AddWithRefs(aToler);
2303         }
2304       }
2305     }
2306   }
2307
2308   return Standard_True;
2309 }
2310
2311
2312 //=======================================================================
2313 //function : FindPDSforRI
2314 //purpose  : auxilary:
2315 //=======================================================================
2316 static Standard_Boolean FindPDSforRI(const Interface_Graph &aGraph,
2317                                      const Handle(Standard_Transient) &ent,
2318                                      Handle(StepRepr_ProductDefinitionShape) &PDS,
2319                                      Handle(StepRepr_RepresentationContext) &RC)
2320 {
2321   if(!ent->IsKind(STANDARD_TYPE(StepRepr_RepresentationItem))) return Standard_False;
2322   Interface_EntityIterator subs = aGraph.Sharings(ent);
2323   for(subs.Start(); subs.More() && PDS.IsNull(); subs.Next()) {
2324     Handle(StepShape_ShapeRepresentation) SR =
2325       Handle(StepShape_ShapeRepresentation)::DownCast(subs.Value());
2326     if(SR.IsNull()) continue;
2327     RC = SR->ContextOfItems();
2328     Interface_EntityIterator subs1 = aGraph.Sharings(SR);
2329     for(subs1.Start(); subs1.More() && PDS.IsNull(); subs1.Next()) {
2330       Handle(StepShape_ShapeDefinitionRepresentation) SDR =
2331         Handle(StepShape_ShapeDefinitionRepresentation)::DownCast(subs1.Value());
2332       if(SDR.IsNull()) continue;
2333       Handle(StepRepr_PropertyDefinition) PropD = SDR->Definition().PropertyDefinition();
2334       if(PropD.IsNull()) continue;
2335       PDS = Handle(StepRepr_ProductDefinitionShape)::DownCast(PropD);
2336     }
2337   }
2338   return Standard_True;
2339 }
2340
2341
2342 //=======================================================================
2343 //function : WriteMaterials
2344 //purpose  :
2345 //=======================================================================
2346
2347 Standard_Boolean STEPCAFControl_Writer::WriteMaterials (const Handle(XSControl_WorkSession) &WS,
2348                                                         const TDF_LabelSequence  &labels ) const
2349 {
2350
2351   if ( labels.Length() <=0 ) return Standard_False;
2352
2353   // get working data
2354   Handle(Interface_InterfaceModel) Model = WS->Model();
2355   Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
2356   Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
2357   Interface_Graph aGraph = WS->HGraph()->Graph();
2358   Handle(XCAFDoc_ShapeTool) ShTool = XCAFDoc_DocumentTool::ShapeTool( labels(1) );
2359   if(ShTool.IsNull() ) return Standard_False;
2360   Handle(XCAFDoc_MaterialTool) MatTool = XCAFDoc_DocumentTool::MaterialTool( labels(1) );
2361   if(MatTool.IsNull() ) return Standard_False;
2362
2363   STEPConstruct_DataMapOfAsciiStringTransient MapDRI,MapMRI;
2364   TDF_LabelSequence TopLabels;
2365   ShTool->GetShapes(TopLabels);
2366   for(Standard_Integer i=1; i<=TopLabels.Length(); i++) {
2367     TDF_Label ShL = TopLabels.Value(i);
2368     Handle(TDataStd_TreeNode) Node;
2369     if( ShL.FindAttribute(XCAFDoc::MaterialRefGUID(),Node) && Node->HasFather() ) {
2370       // find PDS for current shape
2371       TopoDS_Shape aShape = XCAFDoc_ShapeTool::GetShape(ShL);
2372       TopLoc_Location Loc;
2373       TColStd_SequenceOfTransient seqRI;
2374       FindEntities( FP, aShape, Loc, seqRI );
2375       if(seqRI.Length()<=0) continue;
2376       Handle(StepRepr_ProductDefinitionShape) PDS;
2377       Handle(StepRepr_RepresentationContext) RC;
2378       Handle(Standard_Transient) ent = seqRI.Value(1);
2379       FindPDSforRI(aGraph,ent,PDS,RC);
2380       if(PDS.IsNull()) continue;
2381       Handle(StepBasic_ProductDefinition) aProdDef =
2382         PDS->Definition().ProductDefinition();
2383       if(aProdDef.IsNull())
2384         continue;
2385       // write material entities
2386       TDF_Label MatL = Node->Father()->Label();
2387       Handle(TCollection_HAsciiString) aName;
2388       Handle(TCollection_HAsciiString) aDescription;
2389       Standard_Real aDensity;
2390       Handle(TCollection_HAsciiString) aDensName;
2391       Handle(TCollection_HAsciiString) aDensValType;
2392       Handle(StepRepr_Representation) RepDRI = new StepRepr_Representation;
2393       Handle(StepRepr_Representation) RepMRI = new StepRepr_Representation;
2394       if(MatTool->GetMaterial(MatL,aName,aDescription,aDensity,aDensName,aDensValType)) {
2395         if(aName->Length()==0) continue;
2396         TCollection_AsciiString aKey(aName->ToCString());
2397         if(MapDRI.IsBound(aKey)) {
2398           RepDRI = Handle(StepRepr_Representation)::DownCast(MapDRI.Find(aKey));
2399           if(MapMRI.IsBound(aKey)) {
2400             RepMRI = Handle(StepRepr_Representation)::DownCast(MapMRI.Find(aKey));
2401           }
2402         }
2403         else {
2404           // write DRI
2405           Handle(StepRepr_DescriptiveRepresentationItem) DRI = new StepRepr_DescriptiveRepresentationItem;
2406           DRI->Init(aName,aDescription);
2407           Handle(StepRepr_HArray1OfRepresentationItem) HARI = new StepRepr_HArray1OfRepresentationItem(1,1);
2408           HARI->SetValue(1,DRI);
2409           RepDRI->Init(new TCollection_HAsciiString("material name"),HARI,RC);
2410           Model->AddWithRefs(RepDRI);
2411           // write MRI
2412           if(aDensity>0) {
2413             // mass
2414             Handle(StepBasic_SiUnitAndMassUnit) SMU = new StepBasic_SiUnitAndMassUnit;
2415             SMU->SetName(StepBasic_sunGram);
2416             Handle(StepBasic_DerivedUnitElement) DUE1 = new StepBasic_DerivedUnitElement;
2417             DUE1->Init(SMU,3.0);
2418             // length
2419             Handle(StepBasic_SiUnitAndLengthUnit) SLU = new StepBasic_SiUnitAndLengthUnit;
2420             SLU->Init(Standard_True,StepBasic_spCenti,StepBasic_sunMetre);
2421             Handle(StepBasic_DerivedUnitElement) DUE2 = new StepBasic_DerivedUnitElement;
2422             DUE2->Init(SLU,2.0);
2423             // other
2424             Handle(StepBasic_HArray1OfDerivedUnitElement) HADUE = new StepBasic_HArray1OfDerivedUnitElement(1,2);
2425             HADUE->SetValue(1,DUE1);
2426             HADUE->SetValue(2,DUE2);
2427             Handle(StepBasic_DerivedUnit) DU = new StepBasic_DerivedUnit;
2428             DU->Init(HADUE);
2429             Model->AddWithRefs(DU);
2430             StepBasic_Unit aUnit;
2431             aUnit.SetValue(DU);
2432             Handle(StepBasic_MeasureValueMember) MVM = new StepBasic_MeasureValueMember;
2433             MVM->SetName(aDensValType->ToCString());
2434             MVM->SetReal(aDensity);
2435             Handle(StepRepr_MeasureRepresentationItem) MRI = new StepRepr_MeasureRepresentationItem;
2436             MRI->Init(aDensName,MVM,aUnit);
2437             HARI = new StepRepr_HArray1OfRepresentationItem(1,1);
2438             HARI->SetValue(1,MRI);
2439             RepMRI->Init(new TCollection_HAsciiString("density"),HARI,RC);
2440             Model->AddWithRefs(RepMRI);
2441           }
2442           //WriteNewMaterial(Model,aName,aDescription,aDensity,aDensName,aDensValType,RC,RepDRI,RepMRI);
2443           MapDRI.Bind(aKey,RepDRI);
2444           if(!RepMRI.IsNull()) MapMRI.Bind(aKey,RepMRI);
2445         }
2446       }
2447       // write chain PDS---(DRI,MRI)
2448       StepRepr_CharacterizedDefinition CD1;
2449       CD1.SetValue(aProdDef);
2450       Handle(StepRepr_PropertyDefinition) PropD1 = new StepRepr_PropertyDefinition;
2451       PropD1->Init(new TCollection_HAsciiString("material property"),Standard_True,
2452                    new TCollection_HAsciiString("material name"),CD1);
2453       Model->AddWithRefs(PropD1);
2454       StepRepr_RepresentedDefinition RD1;
2455       RD1.SetValue(PropD1);
2456       Handle(StepRepr_PropertyDefinitionRepresentation) PDR1 =
2457         new StepRepr_PropertyDefinitionRepresentation;
2458       PDR1->Init(RD1,RepDRI);
2459       Model->AddWithRefs(PDR1);
2460       StepRepr_CharacterizedDefinition CD2;
2461       CD2.SetValue(aProdDef);
2462       Handle(StepRepr_PropertyDefinition) PropD2 = new StepRepr_PropertyDefinition;
2463       PropD2->Init(new TCollection_HAsciiString("material property"),Standard_True,
2464                    new TCollection_HAsciiString("density"),CD2);
2465       Model->AddWithRefs(PropD2);
2466       StepRepr_RepresentedDefinition RD2;
2467       RD2.SetValue(PropD2);
2468       Handle(StepRepr_PropertyDefinitionRepresentation) PDR2 =
2469         new StepRepr_PropertyDefinitionRepresentation;
2470       PDR2->Init(RD2,RepMRI);
2471       Model->AddWithRefs(PDR2);
2472     }
2473   }
2474
2475   return Standard_True;
2476 }
2477
2478
2479 //=======================================================================
2480 //function : SetColorMode
2481 //purpose  :
2482 //=======================================================================
2483
2484 void STEPCAFControl_Writer::SetColorMode (const Standard_Boolean colormode)
2485 {
2486   myColorMode = colormode;
2487 }
2488
2489
2490 //=======================================================================
2491 //function : GetColorMode
2492 //purpose  :
2493 //=======================================================================
2494
2495 Standard_Boolean STEPCAFControl_Writer::GetColorMode () const
2496 {
2497   return myColorMode;
2498 }
2499
2500
2501 //=======================================================================
2502 //function : SetNameMode
2503 //purpose  :
2504 //=======================================================================
2505
2506 void STEPCAFControl_Writer::SetNameMode (const Standard_Boolean namemode)
2507 {
2508   myNameMode = namemode;
2509 }
2510
2511
2512 //=======================================================================
2513 //function : GetNameMode
2514 //purpose  :
2515 //=======================================================================
2516
2517 Standard_Boolean STEPCAFControl_Writer::GetNameMode () const
2518 {
2519   return myNameMode;
2520 }
2521
2522
2523 //=======================================================================
2524 //function : SetLayerMode
2525 //purpose  :
2526 //=======================================================================
2527
2528 void STEPCAFControl_Writer::SetLayerMode (const Standard_Boolean layermode)
2529 {
2530   myLayerMode = layermode;
2531 }
2532
2533
2534 //=======================================================================
2535 //function : GetLayerMode
2536 //purpose  :
2537 //=======================================================================
2538
2539 Standard_Boolean STEPCAFControl_Writer::GetLayerMode () const
2540 {
2541   return myLayerMode;
2542 }
2543
2544
2545 //=======================================================================
2546 //function : SetPropsMode
2547 //purpose  :
2548 //=======================================================================
2549
2550 void STEPCAFControl_Writer::SetPropsMode (const Standard_Boolean propsmode)
2551 {
2552   myPropsMode = propsmode;
2553 }
2554
2555
2556 //=======================================================================
2557 //function : GetPropsMode
2558 //purpose  :
2559 //=======================================================================
2560
2561 Standard_Boolean STEPCAFControl_Writer::GetPropsMode () const
2562 {
2563   return myPropsMode;
2564 }
2565
2566
2567 //=======================================================================
2568 //function : SetSHUOMode
2569 //purpose  :
2570 //=======================================================================
2571
2572 void STEPCAFControl_Writer::SetSHUOMode (const Standard_Boolean mode)
2573 {
2574   mySHUOMode = mode;
2575 }
2576
2577
2578 //=======================================================================
2579 //function : GetSHUOMode
2580 //purpose  :
2581 //=======================================================================
2582
2583 Standard_Boolean STEPCAFControl_Writer::GetSHUOMode () const
2584 {
2585   return mySHUOMode;
2586 }
2587
2588
2589 //=======================================================================
2590 //function : SetDimTolMode
2591 //purpose  :
2592 //=======================================================================
2593
2594 void STEPCAFControl_Writer::SetDimTolMode(const Standard_Boolean dimtolmode)
2595 {
2596   myDGTMode = dimtolmode;
2597 }
2598
2599
2600 //=======================================================================
2601 //function : GetDimTolMode
2602 //purpose  :
2603 //=======================================================================
2604
2605 Standard_Boolean STEPCAFControl_Writer::GetDimTolMode() const
2606 {
2607   return myDGTMode;
2608 }
2609
2610
2611 //=======================================================================
2612 //function : SetMaterialMode
2613 //purpose  :
2614 //=======================================================================
2615
2616 void STEPCAFControl_Writer::SetMaterialMode(const Standard_Boolean matmode)
2617 {
2618   myMatMode = matmode;
2619 }
2620
2621
2622 //=======================================================================
2623 //function : GetMaterialMode
2624 //purpose  :
2625 //=======================================================================
2626
2627 Standard_Boolean STEPCAFControl_Writer::GetMaterialMode() const
2628 {
2629   return myMatMode;
2630 }