src/HYDROData/HYDROData_Entity.cxx

   1 // Copyright (C) 2014-2015  EDF-R&D
   2 // This library is free software; you can redistribute it and/or
   3 // modify it under the terms of the GNU Lesser General Public
   4 // License as published by the Free Software Foundation; either
   5 // version 2.1 of the License, or (at your option) any later version.
   6 //
   7 // This library is distributed in the hope that it will be useful,
   8 // but WITHOUT ANY WARRANTY; without even the implied warranty of
   9 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  10 // Lesser General Public License for more details.
  11 //
  12 // You should have received a copy of the GNU Lesser General Public
  13 // License along with this library; if not, write to the Free Software
  14 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  15 //
  16 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  17 //
  18
  19 #include <HYDROData_Entity.h>
  20 #include <HYDROData_Document.h>
  21 #include <HYDROData_Iterator.h>
  22 #include <HYDROData_Tool.h>
  23 #include <Standard_GUID.hxx>
  24 #include <TDataStd_Name.hxx>
  25 #include <TDataStd_ByteArray.hxx>
  26 #include <TDataStd_UAttribute.hxx>
  27 #include <TDataStd_AsciiString.hxx>
  28 #include <TDataStd_Integer.hxx>
  29 #include <TDataStd_IntegerArray.hxx>
  30 #include <TDataStd_ReferenceList.hxx>
  31 #include <TDataStd_Real.hxx>
  32 #include <TDF_CopyLabel.hxx>
  33 #include <TDF_ListIteratorOfLabelList.hxx>
  34 #include <TNaming_Builder.hxx>
  35 #include <TNaming_NamedShape.hxx>
  36 #include <TopoDS_Shape.hxx>
  37 #include <QColor>
  38 #include <QRegExp>
  39 #include <QStringList>
  40 #include <QVariant>
  41
  42 #define _DEVDEBUG_
  43 #include "HYDRO_trace.hxx"
  44
  45 HYDROData_SequenceOfObjects::HYDROData_SequenceOfObjects()
  46   : NCollection_Sequence<Handle(HYDROData_Entity)>()
  47 {
  48 }
  49
  50 HYDROData_SequenceOfObjects::HYDROData_SequenceOfObjects( const HYDROData_SequenceOfObjects& theSequence )
  51   : NCollection_Sequence<Handle(HYDROData_Entity)>( theSequence )
  52 {
  53 }
  54
  55 HYDROData_SequenceOfObjects::HYDROData_SequenceOfObjects( const NCollection_Sequence<Handle(HYDROData_Entity)>& theSequence )
  56   : NCollection_Sequence<Handle(HYDROData_Entity)>( theSequence )
  57 {
  58 }
  59
  60 IMPLEMENT_STANDARD_RTTIEXT(HYDROData_Entity,MMgt_TShared)
  61
  62 // is equal function for unique object mapping
  63 bool IsEqual(const Handle(HYDROData_Entity)& theObj1, const Handle(HYDROData_Entity)& theObj2)
  64 {
  65   if ( !theObj1.IsNull() && !theObj2.IsNull() )
  66     return theObj1->Label() == theObj2->Label();
  67   return false;
  68 }
  69
  70 QString HYDROData_Entity::GetName() const
  71 {
  72   Handle(TDataStd_Name) aName;
  73   if (myLab.FindAttribute(TDataStd_Name::GetID(), aName)) {
  74     TCollection_AsciiString aStr(aName->Get());
  75     return QString(aStr.ToCString());
  76   }
  77   return QString();
  78 }
  79
  80 QString HYDROData_Entity::GetType() const
  81 {
  82   return Type( GetKind() );
  83 }
  84
  85 QString HYDROData_Entity::Type( ObjectKind theKind )
  86 {
  87   switch( theKind )
  88   {
  89   case KIND_UNKNOWN:
  90     return "Unknown";
  91   case KIND_IMAGE:
  92     return "Image";
  93   case KIND_POLYLINE:
  94     return "Polyline";
  95   case KIND_BATHYMETRY:
  96     return "Bathymetry";
  97   case KIND_ALTITUDE:
  98     return "Altitude";
  99   case KIND_IMMERSIBLE_ZONE:
 100     return "Immersible_zone";
 101   case KIND_RIVER:
 102     return "River";
 103   case KIND_STREAM:
 104     return "Stream";
 105   case KIND_CONFLUENCE:
 106     return "Confluence";
 107   case KIND_CHANNEL:
 108     return "Channel";
 109   case KIND_OBSTACLE:
 110     return "Obstacle";
 111   case KIND_DIGUE:
 112     return "Digue";
 113   case KIND_PROFILE:
 114     return "Profile";
 115   case KIND_PROFILEUZ:
 116     return "Profile_UZ";
 117   case KIND_POLYLINEXY:
 118     return "Polyline_XY";
 119   case KIND_CALCULATION:
 120     return "Calculation_case";
 121   case KIND_ZONE:
 122     return "Zone";
 123   case KIND_REGION:
 124     return "Region";
 125   case KIND_VISUAL_STATE:
 126     return "Visual_state";
 127   case KIND_ARTIFICIAL_OBJECT:
 128     return "Artificial_object";
 129   case KIND_NATURAL_OBJECT:
 130     return "Natural_object";
 131   case KIND_DUMMY_3D:
 132     return "Dummy_3d";
 133   case KIND_SHAPES_GROUP:
 134     return "Shapes_group";
 135   case KIND_SPLIT_GROUP:
 136     return "Split_group";
 137   case KIND_STREAM_ALTITUDE:
 138     return "Stream_altitude";
 139   case KIND_OBSTACLE_ALTITUDE:
 140     return "Obstacle_altitude";
 141   case KIND_STRICKLER_TABLE:
 142     return "Strickler_table";
 143   case KIND_LAND_COVER_OBSOLETE:
 144     return "Land_cover";
 145   case KIND_CHANNEL_ALTITUDE:
 146     return "Channel_altitude";
 147   case KIND_LAND_COVER_MAP:
 148     return "Land_cover_map";
 149   case KIND_DTM:
 150     return "DTM";
 151   case KIND_LISM:
 152     return "LISM";
 153   case KIND_BC_POLYGON:
 154     return "Boundary_Polygon";
 155   }
 156   return "";
 157 }
 158
 159 QString HYDROData_Entity::GetObjPyName() const
 160 {
 161   QString aName = GetName();
 162   aName.replace(QRegExp("[\\W]"), "_");
 163
 164   if( aName[0].isDigit() )
 165     aName = GetType() + "_" + aName;
 166
 167   return aName;
 168 }
 169
 170 QString HYDROData_Entity::GetDefaultName() const
 171 {
 172   QString aName;
 173
 174   TDF_Label aLabel = myLab.FindChild(DataTag_DefaultName, false);
 175   if (!aLabel.IsNull())
 176     {
 177       Handle(TDataStd_AsciiString) anAsciiStr;
 178       if (aLabel.FindAttribute(TDataStd_AsciiString::GetID(), anAsciiStr))
 179         aName = QString(anAsciiStr->Get().ToCString());
 180     }
 181   else
 182     aName = GetName();
 183
 184   return aName;
 185
 186 }
 187
 188 void HYDROData_Entity::SetName(const QString& theName, bool isDefault)
 189 {
 190   Handle(TDataStd_Name) A = TDataStd_Name::Set(myLab, TCollection_ExtendedString(theName.toLatin1().constData()));
 191   A->SetID(TDataStd_Name::GetID());
 192   if (isDefault)
 193   {
 194     TDF_Label aDefaultNameLabel = myLab.FindChild( DataTag_DefaultName, true );
 195     if ( aDefaultNameLabel.IsNull() )
 196       return;
 197     Handle(TDataStd_AsciiString) theDefaultName;
 198
 199     if ( !aDefaultNameLabel.FindAttribute( TDataStd_AsciiString::GetID(), theDefaultName ))
 200     {
 201       TCollection_AsciiString aName = theName.toStdString().c_str();
 202       theDefaultName = TDataStd_AsciiString::Set(myLab.FindChild( DataTag_DefaultName), aName );
 203       theDefaultName->SetID( TDataStd_AsciiString::GetID() );
 204     }
 205   }
 206 }
 207
 208 QStringList HYDROData_Entity::DumpToPython( const QString& thePyScriptPath,
 209                                             MapOfTreatedObjects& theTreatedObjects ) const
 210 {
 211   QStringList anEmptyList;
 212   return anEmptyList;
 213 }
 214
 215 void HYDROData_Entity::Update()
 216 {
 217   ClearChanged();
 218 }
 219
 220 void HYDROData_Entity::UpdateLocalCS( double theDx, double theDy )
 221 {
 222   //On the base level no actions are necessary
 223 }
 224
 225 bool HYDROData_Entity::IsHas2dPrs() const
 226 {
 227   return false;
 228 }
 229
 230 void HYDROData_Entity::Show()
 231 {
 232   if ( !IsHas2dPrs() )
 233     return;
 234
 235   Handle(HYDROData_Document) aDocument = HYDROData_Document::Document( myLab );
 236   if ( aDocument.IsNull() )
 237     return;
 238
 239   aDocument->Show( this );
 240 }
 241
 242 QVariant HYDROData_Entity::GetDataVariant()
 243 {
 244   return QVariant();
 245 }
 246
 247 void HYDROData_Entity::ClearChanged()
 248 {
 249   Handle(TDataStd_Integer) A = TDataStd_Integer::Set( myLab.FindChild( DataTag_GeomChange ), 0 );
 250   A->SetID(TDataStd_Integer::GetID());
 251 }
 252
 253 int HYDROData_Entity::GetGeomChangeFlag() const
 254 {
 255   int aGeomChangeFlag = 0;
 256   Handle(TDataStd_Integer) aGeomChangeAttr;
 257   TDF_Label aGeomChangeLab = myLab.FindChild( DataTag_GeomChange );
 258   aGeomChangeLab.FindAttribute( TDataStd_Integer::GetID(), aGeomChangeAttr );
 259   if ( !aGeomChangeAttr.IsNull() )
 260     aGeomChangeFlag = aGeomChangeAttr->Get();
 261   return aGeomChangeFlag;
 262 }
 263
 264 void HYDROData_Entity::Changed( Geometry theChangedGeometry )
 265 {
 266   Handle(HYDROData_Document) aDocument = HYDROData_Document::Document( myLab );
 267   if( aDocument.IsNull() )
 268     return;
 269
 270   int aGeomChangeFlag = 0;
 271   Handle(TDataStd_Integer) aGeomChangeAttr;
 272   TDF_Label aGeomChangeLab = myLab.FindChild( DataTag_GeomChange );
 273   aGeomChangeLab.FindAttribute( TDataStd_Integer::GetID(), aGeomChangeAttr );
 274   if ( !aGeomChangeAttr.IsNull() )
 275     aGeomChangeFlag = aGeomChangeAttr->Get();
 276
 277   int aBitsToChange = ( myGeom & theChangedGeometry );
 278   if( aBitsToChange == 0 )
 279     return;
 280
 281   aGeomChangeFlag = ( aGeomChangeFlag | aBitsToChange );
 282   Handle(TDataStd_Integer) anAttr = TDataStd_Integer::Set( aGeomChangeLab, aGeomChangeFlag );
 283   anAttr->SetID( TDataStd_Integer::GetID() );
 284
 285   HYDROData_Iterator anIter( aDocument );
 286   for ( ; anIter.More(); anIter.Next() )
 287   {
 288     Handle(HYDROData_Entity) anObject = anIter.Current();
 289     if( anObject.IsNull() )
 290       continue;
 291     HYDROData_SequenceOfObjects aRefSeq = anObject->GetAllReferenceObjects();
 292     for ( int i = 1, n = aRefSeq.Length(); i <= n; ++i )
 293     {
 294       Handle(HYDROData_Entity) aRefObject = aRefSeq.Value( i );
 295       if( aRefObject->Label()==myLab )
 296         anObject->Changed( theChangedGeometry );
 297     }
 298   }
 299 }
 300
 301 bool HYDROData_Entity::IsMustBeUpdated( Geometry theGeom ) const
 302 {
 303   return ( ( GetGeomChangeFlag() & theGeom ) != 0 );
 304 }
 305
 306 bool HYDROData_Entity::CanBeUpdated() const
 307 {
 308   return true;
 309 }
 310
 311 bool HYDROData_Entity::IsRemoved() const
 312 {
 313   return !myLab.HasAttribute();
 314 }
 315
 316 void HYDROData_Entity::Remove()
 317 {
 318   return myLab.ForgetAllAttributes( true );
 319 }
 320
 321 bool HYDROData_Entity::CanRemove()
 322 {
 323   return true;
 324 }
 325
 326 HYDROData_Entity::HYDROData_Entity( Geometry theGeom )
 327   : myGeom( theGeom )
 328 {
 329 }
 330
 331 HYDROData_Entity::~HYDROData_Entity()
 332 {
 333 }
 334
 335 void HYDROData_Entity::CopyTo( const Handle(HYDROData_Entity)& theDestination,
 336                                bool isGenerateNewName ) const
 337 {
 338   Handle(HYDROData_Document) aDocument = HYDROData_Document::Document( myLab );
 339   if ( aDocument.IsNull() ) {
 340     return;
 341   }
 342
 343   TDF_CopyLabel aCopy(myLab, theDestination->Label());
 344   aCopy.Perform();
 345
 346   if( isGenerateNewName )
 347   {
 348     // generate a new unique name for the clone object:
 349     // case 1: Image_1 -> Image_2
 350     // case 2: ImageObj -> ImageObj_1
 351     QString aName = theDestination->GetName();
 352     QString aPrefix = aName;
 353     if( aName.contains( '_' ) ) { // case 1
 354       QString aSuffix = aName.section( '_', -1 );
 355       bool anIsInteger = false;
 356       aSuffix.toInt( &anIsInteger );
 357       if( anIsInteger )
 358         aPrefix = aName.section( '_', 0, -2 );
 359     } else { // case 2
 360       aPrefix = aName;
 361     }
 362
 363     aName = HYDROData_Tool::GenerateObjectName( aDocument, aPrefix );
 364     theDestination->SetName( aName );
 365   }
 366 }
 367
 368 Handle(HYDROData_Entity) HYDROData_Entity::GetFatherObject() const
 369 {
 370   Handle(HYDROData_Entity) aFather;
 371
 372   if ( !myLab.IsNull() )
 373   {
 374     TDF_Label aFatherLabel = myLab.Father();
 375
 376     while ( aFather.IsNull() && !aFatherLabel.IsNull() && !aFatherLabel.IsRoot() )
 377     {
 378       aFather = HYDROData_Iterator::Object( aFatherLabel );
 379       aFatherLabel = aFatherLabel.Father();
 380     }
 381   }
 382
 383   return aFather;
 384 }
 385
 386 HYDROData_SequenceOfObjects HYDROData_Entity::GetAllReferenceObjects() const
 387 {
 388   return HYDROData_SequenceOfObjects();
 389 }
 390
 391 bool HYDROData_Entity::GetZLevel( Standard_Integer& theLevel ) const
 392 {
 393   theLevel = -1;
 394
 395   TDF_Label aLabel = myLab.FindChild( DataTag_ZLevel, false );
 396   if ( !aLabel.IsNull() )
 397   {
 398     Handle(TDataStd_Integer) anIntVal;
 399     if ( aLabel.FindAttribute( TDataStd_Integer::GetID(), anIntVal ) )
 400     {
 401       theLevel = anIntVal->Get();
 402       return true;
 403     }
 404   }
 405
 406   return false;
 407 }
 408
 409 void HYDROData_Entity::SetZLevel( const Standard_Integer& theLevel )
 410 {
 411   Handle(TDataStd_Integer) A = TDataStd_Integer::Set( myLab.FindChild( DataTag_ZLevel ), theLevel );
 412   A->SetID(TDataStd_Integer::GetID());
 413 }
 414
 415 void HYDROData_Entity::RemoveZLevel()
 416 {
 417   TDF_Label aLabel = myLab.FindChild( DataTag_ZLevel, false );
 418   if ( !aLabel.IsNull() )
 419     aLabel.ForgetAllAttributes();
 420 }
 421
 422 void HYDROData_Entity::SetLabel( const TDF_Label& theLabel )
 423 {
 424   myLab = theLabel;
 425 }
 426
 427 void HYDROData_Entity::SaveByteArray( const int   theTag,
 428                                       const char* theData,
 429                                       const int   theLen )
 430 {
 431   TDF_Label aLab = theTag == 0 ? myLab : myLab.FindChild(theTag);
 432   // array is empty, remove the attribute
 433   if (theLen <= 0) {
 434     aLab.ForgetAttribute(TDataStd_ByteArray::GetID());
 435     return;
 436   }
 437   // store data of image in byte array
 438   Handle(TDataStd_ByteArray) aData;
 439   if (!aLab.FindAttribute(TDataStd_ByteArray::GetID(), aData)) {
 440     aData = TDataStd_ByteArray::Set(aLab, 1, theLen);
 441     aData->SetID( TDataStd_ByteArray::GetID() );
 442   }
 443   Standard_Byte* Byte0 = &(aData->InternalArray()->ChangeArray1().ChangeFirst());
 444   memcpy(Byte0, theData, theLen * sizeof (char));
 445   // copy bytes one by one
 446   if (aData->Length() != theLen) {
 447     Handle(TColStd_HArray1OfByte) aNewData = new TColStd_HArray1OfByte(1, theLen);
 448     for(int a = 0; a < theLen; a++)
 449       aNewData->SetValue(a + 1, theData[a]);
 450     aData->ChangeArray(aNewData);
 451   }
 452   else
 453   {
 454   //  for(int a = 0; a < theLen; a++)
 455   //    aData->SetValue(a + 1, theData[a]);
 456   }
 457 }
 458
 459 const char* HYDROData_Entity::ByteArray(const int theTag, int& theLen) const
 460 {
 461   TDF_Label aLab = theTag == 0 ? myLab : myLab.FindChild(theTag);
 462   Handle(TDataStd_ByteArray) aData;
 463   if (!aLab.FindAttribute(TDataStd_ByteArray::GetID(), aData))
 464     return NULL; // return empty image if there is no array
 465   theLen = aData->Length();
 466   if (theLen)
 467     return (const char*)(&(aData->InternalArray()->ChangeArray1().ChangeValue(1)));
 468   return NULL;
 469 }
 470
 471 int HYDROData_Entity::NbReferenceObjects( const int theTag ) const
 472 {
 473   Handle(TDataStd_ReferenceList) aRefs = getReferenceList( theTag, false );
 474   return aRefs.IsNull() ? 0 : aRefs->Extent();
 475 }
 476
 477 bool HYDROData_Entity::HasReference( const Handle(HYDROData_Entity)& theObj,
 478                                      const int                      theTag ) const
 479 {
 480   if ( theObj.IsNull() )
 481     return false;
 482
 483   Handle(TDataStd_ReferenceList) aRefs = getReferenceList( theTag, false );
 484   if ( aRefs.IsNull() || aRefs->IsEmpty() )
 485     return false;
 486
 487   TDF_ListIteratorOfLabelList aListIt( aRefs->List() );
 488   for ( ; aListIt.More(); aListIt.Next() )
 489   {
 490     const TDF_Label& aRefLabel = aListIt.Value();
 491     if  ( theObj->Label() == aRefLabel )
 492       return true;
 493   }
 494
 495   return false;
 496 }
 497
 498 void HYDROData_Entity::AddReferenceObject( const Handle(HYDROData_Entity)& theObj,
 499                                            const int                      theTag )
 500 {
 501   if ( theObj.IsNull() )
 502     return;
 503
 504   Handle(TDataStd_ReferenceList) aRefs = getReferenceList( theTag, true );
 505   aRefs->Append( theObj->Label() );
 506   aRefs->SetID(TDataStd_ReferenceList::GetID());
 507 }
 508
 509 void HYDROData_Entity::SetReferenceObject( const Handle(HYDROData_Entity)& theObj,
 510                                            const int                      theTag,
 511                                            const int                      theIndex )
 512 {
 513   if ( theObj.IsNull() )
 514   {
 515     RemoveReferenceObject( theTag, theIndex );
 516     return;
 517   }
 518
 519   Handle(TDataStd_ReferenceList) aRefs = getReferenceList( theTag, true );
 520
 521   if ( theIndex >= aRefs->Extent() )
 522   {
 523     aRefs->Append( theObj->Label() );
 524   }
 525   else if ( theIndex < 0 )
 526   {
 527     aRefs->Prepend( theObj->Label() );
 528   }
 529   else
 530   {
 531     RemoveReferenceObject( theTag, theIndex );
 532
 533     Handle(HYDROData_Entity) aBeforeObj = GetReferenceObject( theTag, theIndex );
 534
 535     aRefs = getReferenceList( theTag, true ); // because reference list can be removed
 536     if ( !aBeforeObj.IsNull() )
 537       aRefs->InsertBefore( theObj->Label(), aBeforeObj->Label() );
 538     else
 539       aRefs->Append( theObj->Label() );
 540   }
 541 }
 542
 543 void HYDROData_Entity::InsertReferenceObject( const Handle(HYDROData_Entity)& theObj,
 544                                               const int                      theTag,
 545                                               const int                      theBeforeIndex )
 546 {
 547   if ( theObj.IsNull() )
 548     return;
 549
 550   Handle(TDataStd_ReferenceList) aRefs = getReferenceList( theTag, true );
 551
 552   if ( theBeforeIndex >= aRefs->Extent() )
 553   {
 554     aRefs->Append( theObj->Label() );
 555   }
 556   else if ( theBeforeIndex < 0 )
 557   {
 558     aRefs->Prepend( theObj->Label() );
 559   }
 560   else
 561   {
 562     Handle(HYDROData_Entity) aBeforeObj = GetReferenceObject( theTag, theBeforeIndex );
 563     if ( !aBeforeObj.IsNull() )
 564       aRefs->InsertBefore( theObj->Label(), aBeforeObj->Label() );
 565     else
 566       aRefs->Append( theObj->Label() );
 567   }
 568 }
 569
 570 void HYDROData_Entity::SetReferenceObjects( const HYDROData_SequenceOfObjects& theObjects,
 571                                             const int                          theTag )
 572 {
 573   ClearReferenceObjects( theTag );
 574   if ( theObjects.IsEmpty() )
 575     return;
 576
 577   HYDROData_SequenceOfObjects::Iterator anIter( theObjects );
 578   for ( ; anIter.More(); anIter.Next() )
 579     AddReferenceObject( anIter.Value(), theTag );
 580 }
 581
 582 Handle(HYDROData_Entity) HYDROData_Entity::GetReferenceObject( const int theTag,
 583                                                                const int theIndex ) const
 584 {
 585   //DEBTRACE("GetReferenceObject " << theTag << " " << theIndex);
 586   Handle(HYDROData_Entity) aRes;
 587
 588   Handle(TDataStd_ReferenceList) aRefs = getReferenceList( theTag, false );
 589   if ( aRefs.IsNull() || theIndex < 0 || theIndex >= aRefs->Extent() )
 590     return aRes;
 591
 592   TDF_ListIteratorOfLabelList anIter( aRefs->List() );
 593   for ( int anIndex = 0; anIndex != theIndex && anIter.More(); anIter.Next(), ++anIndex );
 594
 595   const TDF_Label& aRefLabel = anIter.Value();
 596   aRes = HYDROData_Iterator::Object( aRefLabel );
 597
 598   return aRes;
 599 }
 600
 601 HYDROData_SequenceOfObjects HYDROData_Entity::GetReferenceObjects( const int theTag ) const
 602 {
 603   HYDROData_SequenceOfObjects aRes;
 604
 605   Handle(TDataStd_ReferenceList) aRefs = getReferenceList( theTag, false );
 606   if ( aRefs.IsNull() )
 607     return aRes;
 608
 609   TDF_ListIteratorOfLabelList anIter( aRefs->List() );
 610   for ( ; anIter.More(); anIter.Next() )
 611   {
 612     const TDF_Label& aRefLabel = anIter.Value();
 613
 614     Handle(HYDROData_Entity) aRefObject = HYDROData_Iterator::Object( aRefLabel );
 615     if ( aRefObject.IsNull() )
 616       continue;
 617
 618     aRes.Append( aRefObject );
 619   }
 620
 621   return aRes;
 622 }
 623
 624 void HYDROData_Entity::RemoveReferenceObject( const TDF_Label& theRefLabel,
 625                                               const int        theTag )
 626 {
 627   Handle(TDataStd_ReferenceList) aRefs = getReferenceList( theTag, false );
 628   if ( aRefs.IsNull() )
 629     return;
 630
 631   if ( aRefs->Extent() == 1 )
 632   {
 633     // remove all if only one
 634     ClearReferenceObjects( theTag );
 635     return;
 636   }
 637
 638   aRefs->Remove( theRefLabel );
 639 }
 640
 641 void HYDROData_Entity::RemoveReferenceObject( const int theTag,
 642                                               const int theIndex )
 643 {
 644   Handle(TDataStd_ReferenceList) aRefs = getReferenceList( theTag, false );
 645   if ( aRefs.IsNull() )
 646     return;
 647
 648   if ( aRefs->Extent() == 1 && theIndex == 0 )
 649   {
 650     // remove all if only one
 651     ClearReferenceObjects( theTag );
 652     return;
 653   }
 654
 655   int anIndex = 0;
 656   TDF_ListIteratorOfLabelList anIter( aRefs->List() );
 657   for ( ; anIndex != theIndex && anIter.More(); anIter.Next(), ++anIndex );
 658
 659   if ( anIndex != theIndex || !anIter.More() )
 660     return;
 661
 662   const TDF_Label& aRefLabel = anIter.Value();
 663   aRefs->Remove( aRefLabel );
 664 }
 665
 666 void HYDROData_Entity::ClearReferenceObjects( const int theTag )
 667 {
 668   TDF_Label aSetLabel = theTag == 0 ? myLab : myLab.FindChild( theTag );
 669   aSetLabel.ForgetAttribute( TDataStd_ReferenceList::GetID() );
 670 }
 671
 672 Handle(TDataStd_ReferenceList) HYDROData_Entity::getReferenceList( const int theTag,
 673                                                                    const bool theIsCreate ) const
 674 {
 675   //DEBTRACE("getReferenceList " << theTag << " " << theIsCreate);
 676   TDF_Label aLabel = theTag == 0 ? myLab : myLab.FindChild( theTag );
 677
 678   Handle(TDataStd_ReferenceList) aRefs;
 679   if ( !aLabel.FindAttribute( TDataStd_ReferenceList::GetID(), aRefs ) && theIsCreate )
 680   {
 681     aRefs = TDataStd_ReferenceList::Set( aLabel );
 682     aRefs->SetID(TDataStd_ReferenceList::GetID());
 683   }
 684   return aRefs;
 685 }
 686
 687 void HYDROData_Entity::SetColor( const QColor& theColor,
 688                                  const int     theTag )
 689 {
 690   TDF_Label aLabel = theTag == 0 ? myLab : myLab.FindChild( theTag );
 691
 692   Handle(TDataStd_IntegerArray) aColorArray;
 693   if ( !aLabel.FindAttribute( TDataStd_IntegerArray::GetID(), aColorArray ) )
 694   {
 695     aColorArray = TDataStd_IntegerArray::Set( aLabel, 1, 4 );
 696     aColorArray->SetID(TDataStd_IntegerArray::GetID());
 697   }
 698
 699   aColorArray->SetValue( 1, theColor.red()   );
 700   aColorArray->SetValue( 2, theColor.green() );
 701   aColorArray->SetValue( 3, theColor.blue()  );
 702   aColorArray->SetValue( 4, theColor.alpha() );
 703 }
 704
 705 QColor HYDROData_Entity::GetColor( const QColor& theDefColor,
 706                                    const int     theTag ) const
 707 {
 708   QColor aResColor = theDefColor;
 709
 710   TDF_Label aLabel = theTag == 0 ? myLab : myLab.FindChild( theTag );
 711
 712   Handle(TDataStd_IntegerArray) aColorArray;
 713   if ( aLabel.FindAttribute( TDataStd_IntegerArray::GetID(), aColorArray ) )
 714   {
 715     aResColor.setRed(   aColorArray->Value( 1 ) );
 716     aResColor.setGreen( aColorArray->Value( 2 ) );
 717     aResColor.setBlue(  aColorArray->Value( 3 ) );
 718     aResColor.setAlpha( aColorArray->Value( 4 ) );
 719   }
 720
 721   return aResColor;
 722 }
 723
 724 bool HYDROData_Entity::GetColor( QColor& theOutColor,
 725                                  const int     theTag ) const
 726 {
 727   TDF_Label aLabel = theTag == 0 ? myLab : myLab.FindChild( theTag );
 728
 729   Handle(TDataStd_IntegerArray) aColorArray;
 730   if ( aLabel.FindAttribute( TDataStd_IntegerArray::GetID(), aColorArray ) )
 731   {
 732     theOutColor.setRed(   aColorArray->Value( 1 ) );
 733     theOutColor.setGreen( aColorArray->Value( 2 ) );
 734     theOutColor.setBlue(  aColorArray->Value( 3 ) );
 735     theOutColor.setAlpha( aColorArray->Value( 4 ) );
 736     return true;
 737   }
 738
 739   return false;
 740 }
 741
 742
 743 QStringList HYDROData_Entity::dumpObjectCreation( MapOfTreatedObjects& theTreatedObjects ) const
 744 {
 745   QStringList aResList;
 746
 747   Handle(HYDROData_Document) aDocument = HYDROData_Document::Document( myLab );
 748   if ( aDocument.IsNull() )
 749     return aResList;
 750
 751   QString aDocName = aDocument->GetDocPyName();
 752   QString aName = GetObjPyName();
 753
 754   aResList << QString( "%1 = %2.CreateObject( %3 )" )
 755               .arg( aName ).arg( aDocName ).arg( getPyTypeID() );
 756   aResList << QString( "%1.SetName( \"%2\" )" )
 757               .arg( aName ).arg( GetName() );
 758   aResList << QString( "" );
 759
 760   if ( IsHas2dPrs() )
 761   {
 762     // Dump object z-level in viewer
 763     Standard_Integer anObjZLevel = -1;
 764     if ( GetZLevel( anObjZLevel ) )
 765     {
 766       aResList << QString( "%1.SetZLevel( %2 )" )
 767                   .arg( aName ).arg( anObjZLevel );
 768       aResList << QString( "" );
 769     }
 770   }
 771
 772   return aResList;
 773 }
 774
 775 QString HYDROData_Entity::getPyTypeID() const
 776 {
 777   //DEBTRACE("HYDROData_Entity::getPyTypeID " << GetKind());
 778   switch( GetKind() )
 779   {
 780     case KIND_IMAGE:             return "KIND_IMAGE";
 781     case KIND_POLYLINE:          return "KIND_POLYLINE";
 782     case KIND_BATHYMETRY:        return "KIND_BATHYMETRY";
 783     case KIND_ALTITUDE:          return "KIND_ALTITUDE";
 784     case KIND_IMMERSIBLE_ZONE:   return "KIND_IMMERSIBLE_ZONE";
 785     case KIND_RIVER:             return "KIND_RIVER";
 786     case KIND_STREAM:            return "KIND_STREAM";
 787     case KIND_CONFLUENCE:        return "KIND_CONFLUENCE";
 788     case KIND_CHANNEL:           return "KIND_CHANNEL";
 789     case KIND_OBSTACLE:          return "KIND_OBSTACLE";
 790     case KIND_DIGUE:             return "KIND_DIGUE";
 791     case KIND_PROFILE:           return "KIND_PROFILE";
 792     case KIND_PROFILEUZ:         return "KIND_PROFILEUZ";
 793     case KIND_POLYLINEXY:        return "KIND_POLYLINEXY";
 794     case KIND_CALCULATION:       return "KIND_CALCULATION";
 795     case KIND_ZONE:              return "KIND_ZONE";
 796     case KIND_REGION:            return "KIND_REGION";
 797     case KIND_VISUAL_STATE:      return "KIND_VISUAL_STATE";
 798     case KIND_ARTIFICIAL_OBJECT: return "KIND_ARTIFICIAL_OBJECT";
 799     case KIND_NATURAL_OBJECT:    return "KIND_NATURAL_OBJECT";
 800     case KIND_DUMMY_3D:          return "KIND_DUMMY_3D";
 801     case KIND_SHAPES_GROUP:      return "KIND_SHAPES_GROUP";
 802     case KIND_SPLIT_GROUP:       return "KIND_SPLIT_GROUP";
 803     case KIND_STREAM_ALTITUDE:   return "KIND_STREAM_ALTITUDE";
 804     case KIND_OBSTACLE_ALTITUDE: return "KIND_OBSTACLE_ALTITUDE";
 805     case KIND_STRICKLER_TABLE:   return "KIND_STRICKLER_TABLE";
 806     case KIND_LAND_COVER_OBSOLETE: return "";
 807     case KIND_CHANNEL_ALTITUDE:  return "KIND_CHANNEL_ALTITUDE";
 808     case KIND_LAND_COVER_MAP:    return "KIND_LAND_COVER_MAP";
 809     case KIND_BC_POLYGON:        return "KIND_BC_POLYGON";
 810     default:                     return "KIND_UNKNOWN"; ///! Unrecognized object
 811   }
 812 }
 813
 814 void HYDROData_Entity::setPythonReferenceObject( const QString&                  thePyScriptPath,
 815                                                  MapOfTreatedObjects&            theTreatedObjects,
 816                                                  QStringList&                    theScript,
 817                                                  const Handle(HYDROData_Entity)& theRefObject,
 818                                                  const QString&                  theMethod ) const
 819 {
 820   if ( !checkObjectPythonDefinition( thePyScriptPath, theTreatedObjects, theScript, theRefObject ) )
 821     return;
 822
 823   QString aRefObjName = theRefObject->GetObjPyName();
 824
 825   QString anObjName = GetObjPyName();
 826   theScript << QString( "%1.%2( %3 )" )
 827                .arg( anObjName ).arg( theMethod ).arg( aRefObjName );
 828 }
 829
 830 bool HYDROData_Entity::checkObjectPythonDefinition( const QString&                  thePyScriptPath,
 831                                                     MapOfTreatedObjects&            theTreatedObjects,
 832                                                     QStringList&                    theScript,
 833                                                     const Handle(HYDROData_Entity)& theRefObject ) const
 834 {
 835   if ( theRefObject.IsNull() )
 836     return false;
 837
 838   QString aRefObjName = theRefObject->GetName();
 839   if ( aRefObjName.isEmpty() )
 840     return false;
 841
 842   if ( theTreatedObjects.contains( aRefObjName ) )
 843     return true;
 844
 845   // The definition of reference object must be dumped before this
 846   QStringList aRefObjDump = theRefObject->DumpToPython( thePyScriptPath, theTreatedObjects );
 847   if ( aRefObjDump.isEmpty() )
 848     return false;
 849
 850   QStringList aTmpList = theScript;
 851   theScript = aRefObjDump;
 852
 853   theScript << QString( "" );
 854   theScript << aTmpList;
 855
 856   theTreatedObjects.insert( aRefObjName, theRefObject );
 857
 858   return true;
 859 }
 860
 861 void HYDROData_Entity::setPythonObjectColor( QStringList&         theScript,
 862                                              const QColor&        theColor,
 863                                              const QColor&        theDefaultColor,
 864                                              const QString&       theMethod ) const
 865 {
 866   if ( theColor == theDefaultColor )
 867     return; //Do not set the color for object if it like default
 868
 869   QString anObjName = GetObjPyName();
 870   theScript << QString( "%1.%2( QColor( %3, %4, %5, %6 ) )" )
 871               .arg( anObjName ).arg( theMethod )
 872               .arg( theColor.red()  ).arg( theColor.green() )
 873               .arg( theColor.blue() ).arg( theColor.alpha() );
 874 }
 875
 876 void HYDROData_Entity::findPythonReferenceObject( QStringList& theScript,
 877                                                   QString      defName) const
 878 {
 879   Handle(HYDROData_Document) aDocument = HYDROData_Document::Document( myLab );
 880   if ( aDocument.IsNull() )
 881     return;
 882
 883   if (defName.isEmpty())
 884     theScript << QString( "%1 = %2.FindObjectByName( \"%3\" )" ).arg( GetObjPyName() )
 885                                                                 .arg( aDocument->GetDocPyName() )
 886                                                                 .arg( GetDefaultName() );
 887   else
 888     theScript << QString( "%1 = %2.FindObjectByName( \"%3\" )" ).arg( GetObjPyName() )
 889                                                                 .arg( aDocument->GetDocPyName() )
 890                                                                 .arg( defName );
 891 }
 892
 893 void HYDROData_Entity::SetNameInDumpPython(QStringList&  theScript,
 894                                            QString       theName) const
 895 {
 896   Handle(HYDROData_Document) aDocument = HYDROData_Document::Document( myLab );
 897   if ( aDocument.IsNull() )
 898     return;
 899
 900   if (theName.isEmpty())
 901       theScript << QString( "%1.SetName( \"%2\" )" ).arg( GetObjPyName() )
 902                                                     .arg( GetName() );
 903   else
 904     theScript << QString( "%1.SetName( \"%2\" )" ).arg( GetObjPyName() )
 905                                                   .arg( theName );
 906 }
 907
 908 void HYDROData_Entity::SetShape( int theTag, const TopoDS_Shape& theShape )
 909 {
 910   TNaming_Builder aBuilder( myLab.FindChild( theTag ) );
 911   aBuilder.Generated( theShape );
 912   aBuilder.NamedShape()->SetID(TNaming_NamedShape::GetID());
 913 }
 914
 915 TopoDS_Shape HYDROData_Entity::GetShape( int theTag ) const
 916 {
 917   TDF_Label aShapeLabel = myLab.FindChild( theTag, false );
 918   if ( !aShapeLabel.IsNull() )
 919   {
 920     Handle(TNaming_NamedShape) aNamedShape;
 921     if ( aShapeLabel.FindAttribute( TNaming_NamedShape::GetID(), aNamedShape ) )
 922       return aNamedShape->Get();
 923   }
 924   return TopoDS_Shape();
 925 }
 926
 927 void HYDROData_Entity::SetDouble( int theTag, double theValue )
 928 {
 929   Handle(TDataStd_Real) anAttr;
 930   TDF_Label aLabel = myLab.FindChild( theTag );
 931   if( !aLabel.FindAttribute( TDataStd_Real::GetID(), anAttr ) )
 932   {
 933     anAttr = new TDataStd_Real();
 934     anAttr->SetID(TDataStd_Real::GetID());
 935     aLabel.AddAttribute( anAttr );
 936   }
 937   anAttr->Set( theValue );
 938 }
 939
 940 double HYDROData_Entity::GetDouble( int theTag, double theDefValue ) const
 941 {
 942   Handle(TDataStd_Real) anAttr;
 943   TDF_Label aLabel = myLab.FindChild( theTag );
 944   if( !aLabel.FindAttribute( TDataStd_Real::GetID(), anAttr ) )
 945     return theDefValue;
 946
 947   return anAttr->Get();
 948 }
 949
 950 void HYDROData_Entity::SetInteger( int theTag, int theValue )
 951 {
 952   Handle(TDataStd_Integer) anAttr;
 953   TDF_Label aLabel = myLab.FindChild( theTag );
 954   if( !aLabel.FindAttribute( TDataStd_Integer::GetID(), anAttr ) )
 955   {
 956     anAttr = new TDataStd_Integer();
 957     anAttr->SetID(TDataStd_Integer::GetID());
 958     aLabel.AddAttribute(anAttr);
 959   }
 960   anAttr->Set( theValue );
 961 }
 962
 963 int HYDROData_Entity::GetInteger( int theTag, int theDefValue ) const
 964 {
 965   Handle(TDataStd_Integer) anAttr;
 966   TDF_Label aLabel = myLab.FindChild( theTag );
 967   if( !aLabel.FindAttribute( TDataStd_Integer::GetID(), anAttr ) )
 968     return theDefValue;
 969
 970   return anAttr->Get();
 971 }
 972
 973 bool HYDROData_Entity::CompareLabels(const Handle(HYDROData_Entity)& theOtherObj)
 974 {
 975   if ( !theOtherObj.IsNull() )
 976     return this->Label() == theOtherObj->Label();
 977   return false;
 978 }
 979