src/GEOM_I_Superv/GEOM_Superv_i.cc

   1 // Copyright (C) 2005  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   2 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   3 //
   4 // This library is free software; you can redistribute it and/or
   5 // modify it under the terms of the GNU Lesser General Public
   6 // License as published by the Free Software Foundation; either
   7 // version 2.1 of the License.
   8 //
   9 // This library is distributed in the hope that it will be useful
  10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 // Lesser General Public License for more details.
  13 //
  14 // You should have received a copy of the GNU Lesser General Public
  15 // License along with this library; if not, write to the Free Software
  16 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  17 //
  18 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  19 //
  20
  21 #include "GEOM_Superv_i.hh"
  22 #include "SALOME_LifeCycleCORBA.hxx"
  23
  24 #include CORBA_SERVER_HEADER(SALOME_Session)
  25 #include "SALOMEDSClient_ClientFactory.hxx"
  26
  27 #define isNewStudy(a,b) (a > 0 && a != b)
  28
  29 using namespace std;
  30 //=============================================================================
  31 //  constructor:
  32 //=============================================================================
  33 GEOM_Superv_i::GEOM_Superv_i(CORBA::ORB_ptr orb,
  34                              PortableServer::POA_ptr poa,
  35                              PortableServer::ObjectId * contId,
  36                              const char *instanceName,
  37                              const char *interfaceName) :
  38   Engines_Component_i(orb, poa, contId, instanceName, interfaceName)
  39 {
  40   MESSAGE("GEOM_Superv_i::GEOM_Superv_i");
  41
  42   _thisObj = this ;
  43   _id = _poa->activate_object(_thisObj);
  44   name_service = new SALOME_NamingService(_orb);
  45   //get RootPOA (the default)
  46   //myPOA = PortableServer::RefCountServantBase::_default_POA();
  47   CORBA::Object_var anObj = _orb->resolve_initial_references("RootPOA");
  48   myPOA = PortableServer::POA::_narrow(anObj);
  49
  50   setGeomEngine();
  51
  52   myStudyID = -1;
  53   myLastStudyID = -1;
  54
  55   myBasicOp = GEOM::GEOM_IBasicOperations::_nil();
  56   my3DPrimOp = GEOM::GEOM_I3DPrimOperations::_nil();
  57   myBoolOp = GEOM::GEOM_IBooleanOperations::_nil();
  58   myInsOp = GEOM::GEOM_IInsertOperations::_nil();
  59   myTransfOp = GEOM::GEOM_ITransformOperations::_nil();
  60   myShapesOp = GEOM::GEOM_IShapesOperations::_nil();
  61   myBlocksOp = GEOM::GEOM_IBlocksOperations::_nil();
  62   myCurvesOp = GEOM::GEOM_ICurvesOperations::_nil();
  63   myLocalOp = GEOM::GEOM_ILocalOperations::_nil();
  64   myGroupOp = GEOM::GEOM_IGroupOperations::_nil();
  65 }
  66
  67 //=============================================================================
  68 //  destructor
  69 //=============================================================================
  70 GEOM_Superv_i::~GEOM_Superv_i()
  71 {
  72   MESSAGE("GEOM_Superv_i::~GEOM_Superv_i");
  73   if (!CORBA::is_nil(myBasicOp))
  74     myBasicOp->Destroy();
  75   if (!CORBA::is_nil(myBoolOp))
  76     myBoolOp->Destroy();
  77   if (!CORBA::is_nil(my3DPrimOp))
  78     my3DPrimOp->Destroy();
  79   delete name_service;
  80 }
  81
  82 //============================================================================
  83 // function : register()
  84 // purpose  : register 'name' in 'name_service'
  85 //============================================================================
  86 void GEOM_Superv_i::register_name(char * name)
  87 {
  88   GEOM::GEOM_Superv_var g = _this();
  89   name_service->Register(g, name);
  90 }
  91
  92 //=============================================================================
  93 //  setGEOMEngine:
  94 //=============================================================================
  95 void GEOM_Superv_i::setGeomEngine()
  96 {
  97   if ( !CORBA::is_nil(myGeomEngine) )
  98     return;
  99
 100   // get GEOM_Gen engine
 101   Engines::Container_var cont=GetContainerRef();
 102   CORBA::String_var container_name=cont->name();
 103   std::string shortName=container_name.in();
 104   shortName=shortName.substr(12); // substract "/Containers/"
 105   SALOME_LifeCycleCORBA* lcc = new SALOME_LifeCycleCORBA( name_service );
 106   Engines::Component_var comp = lcc->FindOrLoad_Component( shortName.c_str(), "GEOM" );
 107   delete lcc;
 108
 109   myGeomEngine = GEOM::GEOM_Gen::_narrow(comp);
 110 }
 111
 112 //=============================================================================
 113 //  SetStudyID:
 114 //=============================================================================
 115 void GEOM_Superv_i::SetStudyID( CORBA::Long theId )
 116 {
 117   // mkr : PAL10770 -->
 118   myLastStudyID = myStudyID;
 119
 120   CORBA::Object_ptr anObject = name_service->Resolve("/Kernel/Session");
 121   if ( !CORBA::is_nil(anObject) ) {
 122     SALOME::Session_var aSession = SALOME::Session::_narrow(anObject);
 123     if ( !CORBA::is_nil(aSession) ) {
 124       int aStudyID = aSession->GetActiveStudyId();
 125       if ( theId != aStudyID && aStudyID > 0) { // mkr : IPAL12128
 126         MESSAGE("Warning : given study ID theId="<<theId<<" is wrong and will be replaced by the value "<<aStudyID);
 127         myStudyID = aStudyID;
 128       }
 129       else
 130         myStudyID = theId; // mkr : IPAL12128
 131     }
 132   }
 133
 134   if ( isNewStudy(myLastStudyID,myStudyID) ) {
 135     if (CORBA::is_nil(myGeomEngine)) setGeomEngine();
 136     string anEngine = _orb->object_to_string( myGeomEngine );
 137
 138     CORBA::Object_var anObj = name_service->Resolve("/myStudyManager");
 139     if ( !CORBA::is_nil(anObj) ) {
 140       SALOMEDS::StudyManager_var aStudyManager = SALOMEDS::StudyManager::_narrow(anObj);
 141       if ( !CORBA::is_nil(aStudyManager) ) {
 142         _PTR(Study) aDSStudy = ClientFactory::Study(aStudyManager->GetStudyByID(myStudyID));
 143         if ( aDSStudy ) {
 144           _PTR(SComponent) aSCO = aDSStudy->FindComponent(myGeomEngine->ComponentDataType());
 145           if ( aSCO ) {
 146             _PTR(StudyBuilder) aBuilder = aDSStudy->NewBuilder();
 147             if ( aBuilder ) aBuilder->LoadWith( aSCO, anEngine );
 148           }
 149         }
 150       }
 151     }
 152   }
 153   // mkr : PAL10770 <--
 154 }
 155
 156 //=============================================================================
 157 //  CreateListOfGO:
 158 //=============================================================================
 159 GEOM::GEOM_List_ptr GEOM_Superv_i::CreateListOfGO()
 160 {
 161   MESSAGE("GEOM_Superv_i::CreateListOfGO()");
 162   GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>();
 163   return aListPtr->_this();
 164 }
 165
 166 //=============================================================================
 167 //  AddItemToListOfGO:
 168 //=============================================================================
 169 void GEOM_Superv_i::AddItemToListOfGO(GEOM::GEOM_List_ptr& theList,
 170                                       GEOM::GEOM_Object_ptr    theObject)
 171 {
 172   MESSAGE("GEOM_Superv_i::AddItemToListOfGO(...)");
 173   if (GEOM_List_i<GEOM::ListOfGO>* aList =
 174       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theList, myPOA).in())) {
 175     aList->AddObject(theObject);
 176     MESSAGE(" NewLength = "<<aList->GetList().length());
 177   }
 178 }
 179
 180 //=============================================================================
 181 //  CreateListOfLong:
 182 //=============================================================================
 183 GEOM::GEOM_List_ptr GEOM_Superv_i::CreateListOfLong()
 184 {
 185   MESSAGE("GEOM_Superv_i::CreateListOfLong()");
 186   GEOM_List_i<GEOM::ListOfLong>* aListPtr = new GEOM_List_i<GEOM::ListOfLong>();
 187   return aListPtr->_this();
 188 }
 189
 190 //=============================================================================
 191 //  AddItemToListOfLong:
 192 //=============================================================================
 193 void GEOM_Superv_i::AddItemToListOfLong(GEOM::GEOM_List_ptr& theList,
 194                                         CORBA::Long theObject)
 195 {
 196   MESSAGE("GEOM_Superv_i::AddItemToListOfLong(...)");
 197   if (GEOM_List_i<GEOM::ListOfLong>* aList =
 198       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theList, myPOA).in())) {
 199     aList->AddObject(theObject);
 200     MESSAGE(" NewLength = "<<aList->GetList().length());
 201   }
 202 }
 203
 204 //=============================================================================
 205 //  CreateListOfDouble:
 206 //=============================================================================
 207 GEOM::GEOM_List_ptr GEOM_Superv_i::CreateListOfDouble()
 208 {
 209   MESSAGE("GEOM_Superv_i::CreateListOfDouble()");
 210   GEOM_List_i<GEOM::ListOfDouble>* aListPtr = new GEOM_List_i<GEOM::ListOfDouble>();
 211   return aListPtr->_this();
 212 }
 213
 214 //=============================================================================
 215 //  AddItemToListOfDouble:
 216 //=============================================================================
 217 void GEOM_Superv_i::AddItemToListOfDouble(GEOM::GEOM_List_ptr& theList,
 218                                           CORBA::Double theObject)
 219 {
 220   MESSAGE("GEOM_Superv_i::AddItemToListOfDouble(...)");
 221   if (GEOM_List_i<GEOM::ListOfDouble>* aList =
 222       dynamic_cast<GEOM_List_i<GEOM::ListOfDouble>*>(GetServant(theList, myPOA).in())) {
 223     aList->AddObject(theObject);
 224     MESSAGE(" NewLength = "<<aList->GetList().length());
 225   }
 226 }
 227
 228 //=============================================================================
 229 //  getBasicOp:
 230 //=============================================================================
 231 void GEOM_Superv_i::getBasicOp()
 232 {
 233   if (CORBA::is_nil(myGeomEngine))
 234     setGeomEngine();
 235   // get GEOM_IBasicOperations interface
 236   if (CORBA::is_nil(myBasicOp) || isNewStudy(myLastStudyID,myStudyID))
 237     myBasicOp = myGeomEngine->GetIBasicOperations(myStudyID);
 238 }
 239
 240 //=============================================================================
 241 //  get3DPrimOp:
 242 //=============================================================================
 243 void GEOM_Superv_i::get3DPrimOp()
 244 {
 245   if (CORBA::is_nil(myGeomEngine))
 246     setGeomEngine();
 247   // get GEOM_I3DPrimOperations interface
 248   if (CORBA::is_nil(my3DPrimOp) || isNewStudy(myLastStudyID,myStudyID))
 249     my3DPrimOp = myGeomEngine->GetI3DPrimOperations(myStudyID);
 250 }
 251
 252 //=============================================================================
 253 //  getBoolOp:
 254 //=============================================================================
 255 void GEOM_Superv_i::getBoolOp()
 256 {
 257   if (CORBA::is_nil(myGeomEngine))
 258     setGeomEngine();
 259   // get GEOM_IBooleanOperations interface
 260   if (CORBA::is_nil(myBoolOp) || isNewStudy(myLastStudyID,myStudyID))
 261     myBoolOp = myGeomEngine->GetIBooleanOperations(myStudyID);
 262 }
 263
 264 //=============================================================================
 265 //  getInsOp:
 266 //=============================================================================
 267 void GEOM_Superv_i::getInsOp()
 268 {
 269   if (CORBA::is_nil(myGeomEngine))
 270     setGeomEngine();
 271   // get GEOM_IInsertOperations interface
 272   if (CORBA::is_nil(myInsOp) || isNewStudy(myLastStudyID,myStudyID))
 273     myInsOp = myGeomEngine->GetIInsertOperations(myStudyID);
 274 }
 275
 276 //=============================================================================
 277 //  getTransfOp:
 278 //=============================================================================
 279 void GEOM_Superv_i::getTransfOp()
 280 {
 281   if (CORBA::is_nil(myGeomEngine))
 282     setGeomEngine();
 283   // get GEOM_ITransformOperations interface
 284   if (CORBA::is_nil(myTransfOp) || isNewStudy(myLastStudyID,myStudyID))
 285     myTransfOp = myGeomEngine->GetITransformOperations(myStudyID);
 286 }
 287
 288 //=============================================================================
 289 //  getShapesOp:
 290 //=============================================================================
 291 void GEOM_Superv_i::getShapesOp()
 292 {
 293   if (CORBA::is_nil(myGeomEngine))
 294     setGeomEngine();
 295   // get GEOM_IShapesOperations interface
 296   if (CORBA::is_nil(myShapesOp) || isNewStudy(myLastStudyID,myStudyID))
 297     myShapesOp = myGeomEngine->GetIShapesOperations(myStudyID);
 298 }
 299
 300 //=============================================================================
 301 //  getBlocksOp:
 302 //=============================================================================
 303 void GEOM_Superv_i::getBlocksOp()
 304 {
 305   if (CORBA::is_nil(myGeomEngine))
 306     setGeomEngine();
 307   // get GEOM_IBlocksOperations interface
 308   if (CORBA::is_nil(myBlocksOp) || isNewStudy(myLastStudyID,myStudyID))
 309     myBlocksOp = myGeomEngine->GetIBlocksOperations(myStudyID);
 310 }
 311
 312 //=============================================================================
 313 //  getCurvesOp:
 314 //=============================================================================
 315 void GEOM_Superv_i::getCurvesOp()
 316 {
 317   if (CORBA::is_nil(myGeomEngine))
 318     setGeomEngine();
 319   // get GEOM_ICurvesOperations interface
 320   if (CORBA::is_nil(myCurvesOp) || isNewStudy(myLastStudyID,myStudyID))
 321     myCurvesOp = myGeomEngine->GetICurvesOperations(myStudyID);
 322 }
 323
 324 //=============================================================================
 325 //  getLocalOp:
 326 //=============================================================================
 327 void GEOM_Superv_i::getLocalOp()
 328 {
 329   if (CORBA::is_nil(myGeomEngine))
 330     setGeomEngine();
 331   // get GEOM_ILocalOperations interface
 332   if (CORBA::is_nil(myLocalOp) || isNewStudy(myLastStudyID,myStudyID))
 333     myLocalOp = myGeomEngine->GetILocalOperations(myStudyID);
 334 }
 335
 336 //=============================================================================
 337 //  getGroupOp:
 338 //=============================================================================
 339 void GEOM_Superv_i::getGroupOp()
 340 {
 341   if (CORBA::is_nil(myGeomEngine))
 342     setGeomEngine();
 343   // get GEOM_IGroupOperations interface
 344   if (CORBA::is_nil(myGroupOp) || isNewStudy(myLastStudyID,myStudyID))
 345     myGroupOp = myGeomEngine->GetIGroupOperations(myStudyID);
 346 }
 347
 348 //=============================================================================
 349 //  GetServant:
 350 //=============================================================================
 351 PortableServer::ServantBase_var GEOM_Superv_i::GetServant(CORBA::Object_ptr       theObject,
 352                                                           PortableServer::POA_ptr thePOA)
 353 {
 354   if(CORBA::is_nil(theObject))  return NULL;
 355   PortableServer::Servant aServant = thePOA->reference_to_servant(theObject);
 356   return aServant;
 357 }
 358
 359 //============================================================================
 360 // function : Save()
 361 // purpose  : save OCAF/Geom document
 362 //============================================================================
 363 SALOMEDS::TMPFile* GEOM_Superv_i::Save(SALOMEDS::SComponent_ptr theComponent,
 364                                        const char* theURL,
 365                                        CORBA::Boolean isMultiFile)
 366 {
 367   SALOMEDS::TMPFile_var aStreamFile;
 368   return aStreamFile._retn();
 369 }
 370
 371 //============================================================================
 372 // function : SaveASCII()
 373 // purpose  :
 374 //============================================================================
 375 SALOMEDS::TMPFile* GEOM_Superv_i::SaveASCII(SALOMEDS::SComponent_ptr theComponent,
 376                                             const char* theURL,
 377                                             CORBA::Boolean isMultiFile)
 378 {
 379   SALOMEDS::TMPFile_var aStreamFile;
 380   return aStreamFile._retn();
 381 }
 382
 383 //============================================================================
 384 // function : Load()
 385 // purpose  :
 386 //============================================================================
 387 CORBA::Boolean GEOM_Superv_i::Load(SALOMEDS::SComponent_ptr theComponent,
 388                                    const SALOMEDS::TMPFile& theStream,
 389                                    const char* theURL,
 390                                    CORBA::Boolean isMultiFile)
 391 {
 392   return false;
 393 }
 394
 395 //============================================================================
 396 // function : LoadASCII()
 397 // purpose  :
 398 //============================================================================
 399 CORBA::Boolean GEOM_Superv_i::LoadASCII(SALOMEDS::SComponent_ptr theComponent,
 400                                         const SALOMEDS::TMPFile& theStream,
 401                                         const char* theURL,
 402                                         CORBA::Boolean isMultiFile)
 403 {
 404   return false;
 405 }
 406
 407 //============================================================================
 408 // function : Close()
 409 // purpose  :
 410 //============================================================================
 411 void GEOM_Superv_i::Close(SALOMEDS::SComponent_ptr theComponent)
 412 {
 413 }
 414
 415 //============================================================================
 416 // function : ComponentDataType()
 417 // purpose  :
 418 //============================================================================
 419 char* GEOM_Superv_i::ComponentDataType()
 420 {
 421   return 0;
 422 }
 423
 424 //============================================================================
 425 // function : IORToLocalPersistentID()
 426 // purpose  :
 427 //============================================================================
 428 char* GEOM_Superv_i::IORToLocalPersistentID(SALOMEDS::SObject_ptr theSObject,
 429                                             const char* IORString,
 430                                             CORBA::Boolean isMultiFile,
 431                                             CORBA::Boolean isASCII)
 432 {
 433   return 0;
 434 }
 435
 436 //============================================================================
 437 // function : LocalPersistentIDToIOR()
 438 // purpose  : Create/Load CORBA object from a persistent ref (an entry)
 439 //          : Used when a study is loaded
 440 //          : The IOR (IORName) of object created is returned
 441 //============================================================================
 442 char* GEOM_Superv_i::LocalPersistentIDToIOR(SALOMEDS::SObject_ptr theSObject,
 443                                             const char* aLocalPersistentID,
 444                                             CORBA::Boolean isMultiFile,
 445                                             CORBA::Boolean isASCII)
 446 {
 447   return 0;
 448 }
 449
 450 //============================================================================
 451 // function : CanPublishInStudy
 452 // purpose  :
 453 //============================================================================
 454 CORBA::Boolean GEOM_Superv_i::CanPublishInStudy(CORBA::Object_ptr theIOR)
 455 {
 456   if (CORBA::is_nil(myGeomEngine))
 457     setGeomEngine();
 458   return myGeomEngine->CanPublishInStudy(theIOR);
 459 }
 460
 461 //============================================================================
 462 // function : PublishInStudy
 463 // purpose  :
 464 //============================================================================
 465 SALOMEDS::SObject_ptr GEOM_Superv_i::PublishInStudy(SALOMEDS::Study_ptr theStudy,
 466                                                     SALOMEDS::SObject_ptr theSObject,
 467                                                     CORBA::Object_ptr theObject,
 468                                                     const char* theName) throw (SALOME::SALOME_Exception)
 469 {
 470   if (CORBA::is_nil(myGeomEngine))
 471     setGeomEngine();
 472   return myGeomEngine->PublishInStudy(theStudy, theSObject, theObject, theName);
 473 }
 474
 475 //============================================================================
 476 // function : CanCopy()
 477 // purpose  :
 478 //============================================================================
 479 CORBA::Boolean GEOM_Superv_i::CanCopy(SALOMEDS::SObject_ptr theObject)
 480 {
 481   return false;
 482 }
 483
 484 //============================================================================
 485 // function : CopyFrom()
 486 // purpose  :
 487 //============================================================================
 488 SALOMEDS::TMPFile* GEOM_Superv_i::CopyFrom(SALOMEDS::SObject_ptr theObject, CORBA::Long& theObjectID)
 489 {
 490   SALOMEDS::TMPFile_var aStreamFile;
 491   return aStreamFile._retn();
 492 }
 493
 494 //============================================================================
 495 // function : CanPaste()
 496 // purpose  :
 497 //============================================================================
 498 CORBA::Boolean GEOM_Superv_i::CanPaste(const char* theComponentName, CORBA::Long theObjectID)
 499 {
 500   return false;
 501 }
 502
 503 //============================================================================
 504 // function : PasteInto()
 505 // purpose  :
 506 //============================================================================
 507 SALOMEDS::SObject_ptr GEOM_Superv_i::PasteInto(const SALOMEDS::TMPFile& theStream,
 508                                                CORBA::Long theObjectID,
 509                                                SALOMEDS::SObject_ptr theObject)
 510 {
 511   SALOMEDS::SObject_var aNewSO;
 512   return aNewSO._retn();
 513 }
 514
 515 //================= Primitives Construction : BasicOperations =================
 516 //=============================================================================
 517 //  MakePointXYZ:
 518 //=============================================================================
 519 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePointXYZ(CORBA::Double theX,
 520                                                   CORBA::Double theY,
 521                                                   CORBA::Double theZ)
 522 {
 523   beginService( " GEOM_Superv_i::MakePointXYZ" );
 524   MESSAGE("GEOM_Superv_i::MakePointXYZ");
 525   getBasicOp();
 526   // make vertex and return
 527   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakePointXYZ(theX, theY, theZ);
 528   endService( " GEOM_Superv_i::MakePointXYZ" );
 529   return anObj;
 530 }
 531
 532 //=============================================================================
 533 //  MakePointWithReference:
 534 //=============================================================================
 535 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePointWithReference (GEOM::GEOM_Object_ptr theReference,
 536                                                              CORBA::Double theX,
 537                                                              CORBA::Double theY,
 538                                                              CORBA::Double theZ)
 539 {
 540   beginService( " GEOM_Superv_i::MakePointWithReference" );
 541   MESSAGE("GEOM_Superv_i::MakePointWithReference");
 542   getBasicOp();
 543   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakePointWithReference(theReference, theX, theY, theZ);
 544   endService( " GEOM_Superv_i::MakePointWithReference" );
 545   return anObj;
 546 }
 547
 548 //=============================================================================
 549 //  MakePointOnCurve:
 550 //=============================================================================
 551 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePointOnCurve (GEOM::GEOM_Object_ptr theRefCurve,
 552                                                        CORBA::Double theParameter)
 553 {
 554   beginService( " GEOM_Superv_i::MakePointOnCurve" );
 555   MESSAGE("GEOM_Superv_i::MakePointOnCurve");
 556   getBasicOp();
 557   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakePointOnCurve(theRefCurve, theParameter);
 558   endService( " GEOM_Superv_i::MakePointOnCurve" );
 559   return anObj;
 560 }
 561
 562 //=============================================================================
 563 //  MakePointOnLinesIntersection:
 564 //=============================================================================
 565 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePointOnLinesIntersection (GEOM::GEOM_Object_ptr theRefLine1,
 566                                                                    GEOM::GEOM_Object_ptr theRefLine2)
 567 {
 568   beginService( " GEOM_Superv_i::MakePointOnLinesIntersection" );
 569   MESSAGE("GEOM_Superv_i::MakePointOnLinesIntersection");
 570   getBasicOp();
 571   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakePointOnLinesIntersection(theRefLine1, theRefLine2);
 572   endService( " GEOM_Superv_i::MakePointOnLinesIntersection" );
 573   return anObj;
 574 }
 575
 576 //=============================================================================
 577 //  MakeTangentOnCurve:
 578 //=============================================================================
 579 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeTangentOnCurve (GEOM::GEOM_Object_ptr theRefCurve,
 580                                                          CORBA::Double theParameter)
 581 {
 582   beginService( " GEOM_Superv_i::MakeTangentOnCurve" );
 583   MESSAGE("GEOM_Superv_i::MakeTangentOnCurve");
 584   getBasicOp();
 585   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakeTangentOnCurve(theRefCurve, theParameter);
 586   endService( " GEOM_Superv_i::MakeTangentOnCurve" );
 587   return anObj;
 588 }
 589
 590 //=============================================================================
 591 //  MakeVectorDXDYDZ:
 592 //=============================================================================
 593 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeVectorDXDYDZ (CORBA::Double theDX,
 594                                                        CORBA::Double theDY,
 595                                                        CORBA::Double theDZ)
 596 {
 597   beginService( " GEOM_Superv_i::MakeVectorDXDYDZ" );
 598   MESSAGE("GEOM_Superv_i::MakeVectorDXDYDZ");
 599   getBasicOp();
 600   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakeVectorDXDYDZ(theDX, theDY, theDZ);
 601   endService( " GEOM_Superv_i::MakeVectorDXDYDZ" );
 602   return anObj;
 603 }
 604
 605 //=============================================================================
 606 //  MakeVectorTwoPnt:
 607 //=============================================================================
 608 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeVectorTwoPnt (GEOM::GEOM_Object_ptr thePnt1,
 609                                                        GEOM::GEOM_Object_ptr thePnt2)
 610 {
 611   beginService( " GEOM_Superv_i::MakeVectorTwoPnt" );
 612   MESSAGE("GEOM_Superv_i::MakeVector");
 613   getBasicOp();
 614   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakeVectorTwoPnt(thePnt1, thePnt2);
 615   endService( " GEOM_Superv_i::MakeVectorTwoPnt" );
 616   return anObj;
 617 }
 618
 619 //=============================================================================
 620 //  MakeLineTwoPnt:
 621 //=============================================================================
 622 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeLineTwoPnt (GEOM::GEOM_Object_ptr thePnt1,
 623                                                      GEOM::GEOM_Object_ptr thePnt2)
 624 {
 625   beginService( " GEOM_Superv_i::MakeLineTwoPnt");
 626   MESSAGE("GEOM_Superv_i::MakeLineTwoPnt");
 627   getBasicOp();
 628   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakeLineTwoPnt(thePnt1, thePnt2);
 629   endService( " GEOM_Superv_i::MakeLineTwoPnt");
 630   return anObj;
 631 }
 632
 633 //=============================================================================
 634 //  MakeLineTwoFaces:
 635 //=============================================================================
 636 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeLineTwoFaces (GEOM::GEOM_Object_ptr theFace1,
 637                                                        GEOM::GEOM_Object_ptr theFace2)
 638 {
 639   beginService( " GEOM_Superv_i::MakeLineTwoFaces");
 640   MESSAGE("GEOM_Superv_i::MakeLineTwoFaces");
 641   getBasicOp();
 642   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakeLineTwoFaces(theFace1, theFace2);
 643   endService( " GEOM_Superv_i::MakeLineTwoFaces");
 644   return anObj;
 645 }
 646
 647 //=============================================================================
 648 //  MakePlaneThreePnt:
 649 //=============================================================================
 650 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePlaneThreePnt (GEOM::GEOM_Object_ptr thePnt1,
 651                                                         GEOM::GEOM_Object_ptr thePnt2,
 652                                                         GEOM::GEOM_Object_ptr thePnt3,
 653                                                         CORBA::Double theTrimSize)
 654 {
 655   beginService( " GEOM_Superv_i::MakePlaneThreePnt");
 656   MESSAGE("GEOM_Superv_i::MakePlaneThreePnt");
 657   getBasicOp();
 658   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakePlaneThreePnt(thePnt1, thePnt2, thePnt3, theTrimSize);
 659   endService( " GEOM_Superv_i::MakePlaneThreePnt");
 660   return anObj;
 661 }
 662
 663 //=============================================================================
 664 //  MakePlanePntVec:
 665 //=============================================================================
 666 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePlanePntVec (GEOM::GEOM_Object_ptr thePnt,
 667                                                       GEOM::GEOM_Object_ptr theVec,
 668                                                       CORBA::Double theTrimSize)
 669 {
 670   beginService( " GEOM_Superv_i::MakePlanePntVec" );
 671   MESSAGE("GEOM_Superv_i::MakePlanePntVec");
 672   getBasicOp();
 673   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakePlanePntVec(thePnt, theVec, theTrimSize);
 674   endService( " GEOM_Superv_i::MakePlanePntVec" );
 675   return anObj;
 676 }
 677
 678 //=============================================================================
 679 //  MakePlaneFace:
 680 //=============================================================================
 681 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePlaneFace (GEOM::GEOM_Object_ptr theFace,
 682                                                     CORBA::Double theTrimSize)
 683 {
 684   beginService( " GEOM_Superv_i::MakePlaneFace" );
 685   MESSAGE("GEOM_Superv_i::MakePlaneFace");
 686   getBasicOp();
 687   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakePlaneFace(theFace, theTrimSize);
 688   endService( " GEOM_Superv_i::MakePlaneFace" );
 689   return anObj;
 690 }
 691
 692 //=============================================================================
 693 //  MakeMarker:
 694 //=============================================================================
 695 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeMarker
 696 (CORBA::Double theOX , CORBA::Double theOY , CORBA::Double theOZ,
 697  CORBA::Double theXDX, CORBA::Double theXDY, CORBA::Double theXDZ,
 698  CORBA::Double theYDX, CORBA::Double theYDY, CORBA::Double theYDZ)
 699 {
 700   beginService( " GEOM_Superv_i::MakeMarker" );
 701   MESSAGE("GEOM_Superv_i::MakeMarker");
 702   getBasicOp();
 703   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakeMarker(theOX, theOY, theOZ, theXDX, theXDY, theXDZ, theYDX, theYDY, theYDZ);
 704   endService( " GEOM_Superv_i::MakeMarker" );
 705   return anObj;
 706 }
 707
 708 //=============================================================================
 709 //  MakeTangentPlaneOnFace:
 710 //=============================================================================
 711 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeTangentPlaneOnFace (GEOM::GEOM_Object_ptr theFace,
 712                                                  CORBA::Double theParameterU,
 713                                                  CORBA::Double theParameterV,
 714                                                  CORBA::Double theTrimSize)
 715 {
 716   beginService( " GEOM_Superv_i::MakeTangentPlaneOnFace" );
 717   MESSAGE("GEOM_Superv_i::MakeTangentPlaneOnFace");
 718   getBasicOp();
 719   GEOM::GEOM_Object_ptr anObj = myBasicOp->MakeTangentPlaneOnFace(theFace, theParameterU,theParameterV,theTrimSize);
 720   endService( " GEOM_Superv_i::MakeTangentPlaneOnFace" );
 721   return anObj;
 722 }
 723
 724 //================= Primitives Construction : 3DPrimOperations ================
 725 //=============================================================================
 726 //  MakeBox:
 727 //=============================================================================
 728 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeBox (CORBA::Double theX1,
 729                                               CORBA::Double theY1,
 730                                               CORBA::Double theZ1,
 731                                               CORBA::Double theX2,
 732                                               CORBA::Double theY2,
 733                                               CORBA::Double theZ2)
 734 {
 735   beginService( " GEOM_Superv_i::MakeBox" );
 736   MESSAGE("GEOM_Superv_i::MakeBox");
 737   getBasicOp();
 738   get3DPrimOp();
 739   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeBoxTwoPnt(myBasicOp->MakePointXYZ(theX1, theY1, theZ1),
 740                                                           myBasicOp->MakePointXYZ(theX2, theY2, theZ2));
 741   endService( " GEOM_Superv_i::MakeBox" );
 742   return anObj;
 743 }
 744
 745 //=============================================================================
 746 //  MakeBoxDXDYDZ:
 747 //=============================================================================
 748 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeBoxDXDYDZ (CORBA::Double theDX,
 749                                                     CORBA::Double theDY,
 750                                                     CORBA::Double theDZ)
 751 {
 752   beginService( " GEOM_Superv_i::MakeBoxDXDYDZ" );
 753   MESSAGE("GEOM_Superv_i::MakeBoxDXDYDZ");
 754   get3DPrimOp();
 755   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeBoxDXDYDZ(theDX, theDY, theDZ);
 756   endService( " GEOM_Superv_i::MakeBoxDXDYDZ" );
 757   return anObj;
 758 }
 759
 760 //=============================================================================
 761 //  MakeBoxTwoPnt:
 762 //=============================================================================
 763 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeBoxTwoPnt (GEOM::GEOM_Object_ptr thePnt1,
 764                                                     GEOM::GEOM_Object_ptr thePnt2)
 765 {
 766   beginService( " GEOM_Superv_i::MakeBoxTwoPnt" );
 767   MESSAGE("GEOM_Superv_i::MakeBoxTwoPnt");
 768   get3DPrimOp();
 769   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeBoxTwoPnt(thePnt1, thePnt2);
 770   endService( " GEOM_Superv_i::MakeBoxTwoPnt" );
 771   return anObj;
 772 }
 773
 774 //=============================================================================
 775 //  MakeFaceHW:
 776 //=============================================================================
 777 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFaceHW (CORBA::Double theH,
 778                                                  CORBA::Double theW,
 779                                                  CORBA::Short  theOrientation)
 780 {
 781   beginService( " GEOM_Superv_i::MakeFaceHW" );
 782   MESSAGE("GEOM_Superv_i::MakeFaceHW");
 783   get3DPrimOp();
 784   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeFaceHW(theH, theW, theOrientation);
 785   endService( " GEOM_Superv_i::MakeFaceHW" );
 786   return anObj;
 787 }
 788
 789 //=============================================================================
 790 //  MakeFaceObjHW:
 791 //=============================================================================
 792 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFaceObjHW (GEOM::GEOM_Object_ptr theObj,
 793                                                     CORBA::Double theH,
 794                                                     CORBA::Double theW)
 795 {
 796   beginService( " GEOM_Superv_i::MakeFaceObjHW" );
 797   MESSAGE("GEOM_Superv_i::MakeFaceObjHW");
 798   get3DPrimOp();
 799   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeFaceObjHW(theObj, theH, theW);
 800   endService( " GEOM_Superv_i::MakeFaceObjHW" );
 801   return anObj;
 802 }
 803
 804 //=============================================================================
 805 //  MakeDiskPntVecR:
 806 //=============================================================================
 807 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeDiskPntVecR (GEOM::GEOM_Object_ptr theCenter,
 808                                                       GEOM::GEOM_Object_ptr theVector,
 809                                                       CORBA::Double theR)
 810 {
 811   beginService( " GEOM_Superv_i::MakeDiskPntVecR" );
 812   MESSAGE("GEOM_Superv_i::MakeDiskPntVecR");
 813   get3DPrimOp();
 814   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeDiskPntVecR(theCenter, theVector, theR);
 815   endService( " GEOM_Superv_i::MakeDiskPntVecR" );
 816   return anObj;
 817 }
 818
 819 //=============================================================================
 820 //  MakeDiskThreePnt:
 821 //=============================================================================
 822 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeDiskThreePnt (GEOM::GEOM_Object_ptr thePnt1,
 823                                                        GEOM::GEOM_Object_ptr thePnt2,
 824                                                        GEOM::GEOM_Object_ptr thePnt3)
 825 {
 826   beginService( " GEOM_Superv_i::MakeDiskThreePnt" );
 827   MESSAGE("GEOM_Superv_i::MakeDiskThreePnt");
 828   get3DPrimOp();
 829   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeDiskThreePnt(thePnt1, thePnt2, thePnt3);
 830   endService( " GEOM_Superv_i::MakeDiskThreePnt" );
 831   return anObj;
 832 }
 833
 834 //=============================================================================
 835 //  MakeDiskR:
 836 //=============================================================================
 837 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeDiskR (CORBA::Double theR,
 838                                                 CORBA::Short  theOrientation)
 839 {
 840   beginService( " GEOM_Superv_i::MakeDiskR" );
 841   MESSAGE("GEOM_Superv_i::MakeDiskR");
 842   get3DPrimOp();
 843   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeDiskR(theR, theOrientation);
 844   endService( " GEOM_Superv_i::MakeDiskR" );
 845   return anObj;
 846 }
 847
 848 //=============================================================================
 849 //  MakeCylinderPntVecRH:
 850 //=============================================================================
 851 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCylinderPntVecRH (GEOM::GEOM_Object_ptr thePnt,
 852                                                            GEOM::GEOM_Object_ptr theAxis,
 853                                                            CORBA::Double theRadius,
 854                                                            CORBA::Double theHeight)
 855 {
 856   beginService( " GEOM_Superv_i::MakeCylinderPntVecRH" );
 857   MESSAGE("GEOM_Superv_i::MakeCylinderPntVecRH");
 858   get3DPrimOp();
 859   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeCylinderPntVecRH(thePnt, theAxis, theRadius, theHeight);
 860   endService( " GEOM_Superv_i::MakeCylinderPntVecRH" );
 861   return anObj;
 862 }
 863
 864 //=============================================================================
 865 //  MakeCylinderRH:
 866 //=============================================================================
 867 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCylinderRH (CORBA::Double theR,
 868                                                      CORBA::Double theH)
 869 {
 870   beginService( " GEOM_Superv_i::MakeCylinderRH" );
 871   MESSAGE("GEOM_Superv_i::MakeCylinderRH");
 872   get3DPrimOp();
 873   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeCylinderRH(theR, theH);
 874   endService( " GEOM_Superv_i::MakeCylinderRH" );
 875   return anObj;
 876 }
 877
 878 //=============================================================================
 879 //  MakeSphere:
 880 //=============================================================================
 881 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSphere  (CORBA::Double theX,
 882                                                   CORBA::Double theY,
 883                                                   CORBA::Double theZ,
 884                                                   CORBA::Double theRadius)
 885 {
 886   beginService( " GEOM_Superv_i::MakeSphepe" );
 887   MESSAGE("GEOM_Superv_i::MakeSphepe");
 888   getBasicOp();
 889   get3DPrimOp();
 890   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeSpherePntR(myBasicOp->MakePointXYZ(theX, theY, theZ), theRadius);
 891   endService( " GEOM_Superv_i::MakeSphepe" );
 892   return anObj;
 893 }
 894
 895 //=============================================================================
 896 //  MakeSphereR:
 897 //=============================================================================
 898 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSphereR (CORBA::Double theR)
 899 {
 900   beginService( " GEOM_Superv_i::MakeSphereR" );
 901   MESSAGE("GEOM_Superv_i::MakeSphereR");
 902   get3DPrimOp();
 903   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeSphereR(theR);
 904   endService( " GEOM_Superv_i::MakeSphereR" );
 905   return anObj;
 906 }
 907
 908 //=============================================================================
 909 //  MakeSpherePntR:
 910 //=============================================================================
 911 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSpherePntR (GEOM::GEOM_Object_ptr thePnt,
 912                                                      CORBA::Double theR)
 913 {
 914   beginService( " GEOM_Superv_i::MakeSpherePntR" );
 915   MESSAGE("GEOM_Superv_i::MakeSpherePntR");
 916   get3DPrimOp();
 917   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeSpherePntR(thePnt, theR);
 918   endService( " GEOM_Superv_i::MakeSpherePntR" );
 919   return anObj;
 920 }
 921
 922 //=============================================================================
 923 //  MakeTorusPntVecRR:
 924 //=============================================================================
 925 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeTorusPntVecRR (GEOM::GEOM_Object_ptr thePnt,
 926                                                         GEOM::GEOM_Object_ptr theVec,
 927                                                         CORBA::Double theRMajor,
 928                                                         CORBA::Double theRMinor)
 929 {
 930   beginService( " GEOM_Superv_i::MakeTorusPntVecRR" );
 931   MESSAGE("GEOM_Superv_i::MakeTorusPntVecRR");
 932   get3DPrimOp();
 933   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeTorusPntVecRR(thePnt, theVec, theRMajor, theRMinor);
 934   endService( " GEOM_Superv_i::MakeTorusPntVecRR" );
 935   return anObj;
 936 }
 937
 938 //=============================================================================
 939 //  MakeTorusRR:
 940 //=============================================================================
 941 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeTorusRR (CORBA::Double theRMajor,
 942                                                   CORBA::Double theRMinor)
 943 {
 944   beginService( " GEOM_Superv_i::MakeTorusRR" );
 945   MESSAGE("GEOM_Superv_i::MakeTorusRR");
 946   get3DPrimOp();
 947   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeTorusRR(theRMajor, theRMinor);
 948   endService( " GEOM_Superv_i::MakeTorusRR" );
 949   return anObj;
 950 }
 951
 952 //=============================================================================
 953 //  MakeConePntVecR1R2H:
 954 //=============================================================================
 955 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeConePntVecR1R2H (GEOM::GEOM_Object_ptr thePnt,
 956                                                           GEOM::GEOM_Object_ptr theAxis,
 957                                                           CORBA::Double theR1,
 958                                                           CORBA::Double theR2,
 959                                                           CORBA::Double theHeight)
 960 {
 961   beginService( " GEOM_Superv_i::MakeConePntVecR1R2H" );
 962   MESSAGE("GEOM_Superv_i::MakeConePntVecR1R2H");
 963   get3DPrimOp();
 964   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeConePntVecR1R2H(thePnt, theAxis, theR1, theR2, theHeight);
 965   endService( " GEOM_Superv_i::MakeConePntVecR1R2H" );
 966   return anObj;
 967 }
 968
 969 //=============================================================================
 970 //  MakeConeR1R2H:
 971 //=============================================================================
 972 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeConeR1R2H (CORBA::Double theR1,
 973                                                     CORBA::Double theR2,
 974                                                     CORBA::Double theHeight)
 975 {
 976   beginService( " GEOM_Superv_i::MakeConeR1R2H" );
 977   MESSAGE("GEOM_Superv_i::MakeConeR1R2H");
 978   get3DPrimOp();
 979   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeConeR1R2H(theR1, theR2, theHeight);
 980   endService( " GEOM_Superv_i::MakeConeR1R2H" );
 981   return anObj;
 982 }
 983
 984 //=============================================================================
 985 //  MakePrismVecH:
 986 //=============================================================================
 987 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePrismVecH (GEOM::GEOM_Object_ptr theBase,
 988                                                     GEOM::GEOM_Object_ptr theVec,
 989                                                     CORBA::Double         theH)
 990 {
 991   beginService( " GEOM_Superv_i::MakePrismVecH" );
 992   MESSAGE("GEOM_Superv_i::MakePrismVecH");
 993   get3DPrimOp();
 994   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakePrismVecH(theBase, theVec, theH);
 995   endService( " GEOM_Superv_i::MakePrismVecH" );
 996   return anObj;
 997 }
 998
 999 //=============================================================================
1000 //  MakePrismVecH2Ways:
1001 //=============================================================================
1002 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePrismVecH2Ways (GEOM::GEOM_Object_ptr theBase,
1003                                                          GEOM::GEOM_Object_ptr theVec,
1004                                                          CORBA::Double         theH)
1005 {
1006   beginService( " GEOM_Superv_i::MakePrismVecH2Ways" );
1007   MESSAGE("GEOM_Superv_i::MakePrismVecH2Ways");
1008   get3DPrimOp();
1009   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakePrismVecH2Ways(theBase, theVec, theH);
1010   endService( " GEOM_Superv_i::MakePrismVecH2Ways" );
1011   return anObj;
1012 }
1013
1014 //=============================================================================
1015 //  MakePrismTwoPnt:
1016 //=============================================================================
1017 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePrismTwoPnt (GEOM::GEOM_Object_ptr theBase,
1018                                                       GEOM::GEOM_Object_ptr thePoint1,
1019                                                       GEOM::GEOM_Object_ptr thePoint2)
1020 {
1021   beginService( " GEOM_Superv_i::MakePrismTwoPnt" );
1022   MESSAGE("GEOM_Superv_i::MakePrismTwoPnt");
1023   get3DPrimOp();
1024   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakePrismTwoPnt(theBase, thePoint1, thePoint2);
1025   endService( " GEOM_Superv_i::MakePrismTwoPnt" );
1026   return anObj;
1027 }
1028
1029 //=============================================================================
1030 //  MakePrismTwoPnt2Ways:
1031 //=============================================================================
1032 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePrismTwoPnt2Ways (GEOM::GEOM_Object_ptr theBase,
1033                                                            GEOM::GEOM_Object_ptr thePoint1,
1034                                                            GEOM::GEOM_Object_ptr thePoint2)
1035 {
1036   beginService( " GEOM_Superv_i::MakePrismTwoPnt2Ways" );
1037   MESSAGE("GEOM_Superv_i::MakePrismTwoPnt2Ways");
1038   get3DPrimOp();
1039   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakePrismTwoPnt2Ways(theBase, thePoint1, thePoint2);
1040   endService( " GEOM_Superv_i::MakePrismTwoPnt2Ways" );
1041   return anObj;
1042 }
1043
1044 //=============================================================================
1045 //  MakePrismDXDYDZ:
1046 //=============================================================================
1047 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePrismDXDYDZ (GEOM::GEOM_Object_ptr theBase,
1048                       CORBA::Double theDX, CORBA::Double theDY, CORBA::Double theDZ)
1049 {
1050   beginService( " GEOM_Superv_i::MakePrismDXDYDZ" );
1051   MESSAGE("GEOM_Superv_i::MakePrismDXDYDZ");
1052   get3DPrimOp();
1053   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakePrismDXDYDZ(theBase, theDX, theDY, theDZ);
1054   endService( " GEOM_Superv_i::MakePrismDXDYDZ" );
1055   return anObj;
1056 }
1057
1058 //=============================================================================
1059 //  MakePrismDXDYDZ:
1060 //=============================================================================
1061 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePrismDXDYDZ2Ways (GEOM::GEOM_Object_ptr theBase,
1062                       CORBA::Double theDX, CORBA::Double theDY, CORBA::Double theDZ)
1063 {
1064   beginService( " GEOM_Superv_i::MakePrismDXDYDZ2Ways" );
1065   MESSAGE("GEOM_Superv_i::MakePrismDXDYDZ2Ways");
1066   get3DPrimOp();
1067   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakePrismDXDYDZ2Ways(theBase, theDX, theDY, theDZ);
1068   endService( " GEOM_Superv_i::MakePrismDXDYDZ2Ways" );
1069   return anObj;
1070 }
1071
1072 //=============================================================================
1073 //  MakePipe:
1074 //=============================================================================
1075 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePipe (GEOM::GEOM_Object_ptr theBase,
1076                                                GEOM::GEOM_Object_ptr thePath)
1077 {
1078   beginService( " GEOM_Superv_i::MakePipe" );
1079   MESSAGE("GEOM_Superv_i::MakePipe");
1080   get3DPrimOp();
1081   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakePipe(theBase, thePath);
1082   endService( " GEOM_Superv_i::MakePipe" );
1083   return anObj;
1084 }
1085
1086 //=============================================================================
1087 //  MakeRevolutionAxisAngle:
1088 //=============================================================================
1089 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeRevolutionAxisAngle (GEOM::GEOM_Object_ptr theBase,
1090                                                               GEOM::GEOM_Object_ptr theAxis,
1091                                                               CORBA::Double theAngle)
1092 {
1093   beginService( " GEOM_Superv_i::MakeRevolutionAxisAngle" );
1094   MESSAGE("GEOM_Superv_i::MakeRevolutionAxisAngle");
1095   get3DPrimOp();
1096   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeRevolutionAxisAngle(theBase, theAxis, theAngle);
1097   endService( " GEOM_Superv_i::MakeRevolutionAxisAngle" );
1098   return anObj;
1099 }
1100
1101 //=============================================================================
1102 //  MakeRevolutionAxisAngle:
1103 //=============================================================================
1104 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeRevolutionAxisAngle2Ways (GEOM::GEOM_Object_ptr theBase,
1105                                                                    GEOM::GEOM_Object_ptr theAxis,
1106                                                                    CORBA::Double theAngle)
1107 {
1108   beginService( " GEOM_Superv_i::MakeRevolutionAxisAngle2Ways" );
1109   MESSAGE("GEOM_Superv_i::MakeRevolutionAxisAngle2Ways");
1110   get3DPrimOp();
1111   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeRevolutionAxisAngle2Ways(theBase, theAxis, theAngle);
1112   endService( " GEOM_Superv_i::MakeRevolutionAxisAngle2Ways" );
1113   return anObj;
1114 }
1115
1116 //=============================================================================
1117 //  MakeFilling:
1118 //=============================================================================
1119 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilling (GEOM::GEOM_Object_ptr theShape,
1120                                                   CORBA::Long theMinDeg, CORBA::Long theMaxDeg,
1121                                                   CORBA::Double theTol2D, CORBA::Double theTol3D,
1122                                                   CORBA::Long theNbIter, CORBA::Boolean theApprox)
1123 {
1124   beginService( " GEOM_Superv_i::MakeFilling" );
1125   MESSAGE("GEOM_Superv_i::MakeFilling");
1126   get3DPrimOp();
1127   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeFilling(theShape, theMinDeg, theMaxDeg, theTol2D, theTol3D, theNbIter, theApprox);
1128   endService( " GEOM_Superv_i::MakeFilling" );
1129   return anObj;
1130 }
1131
1132 //============================= BooleanOperations =============================
1133 //=============================================================================
1134 //  MakeBoolean:
1135 //=============================================================================
1136 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeBoolean (GEOM::GEOM_Object_ptr theShape1,
1137                                                   GEOM::GEOM_Object_ptr theShape2,
1138                                                   CORBA::Long theOperation)
1139 {
1140   beginService( " GEOM_Superv_i::MakeBoolean" );
1141   // theOperation indicates the operation to be done:
1142   // 1 - Common, 2 - Cut, 3 - Fuse, 4 - Section
1143   MESSAGE("GEOM_Superv_i::MakeBoolean");
1144   getBoolOp();
1145   GEOM::GEOM_Object_ptr anObj = myBoolOp->MakeBoolean(theShape1, theShape2, theOperation);
1146   endService( " GEOM_Superv_i::MakeBoolean" );
1147   return anObj;
1148 }
1149
1150 //=============================================================================
1151 //  MakeThruSections:
1152 //=============================================================================
1153 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeThruSections(const GEOM::ListOfGO& theSeqSections,
1154                                          CORBA::Boolean theModeSolid,
1155                                          CORBA::Double thePreci,
1156                                          CORBA::Boolean theRuled)
1157 {
1158   beginService( " GEOM_Superv_i::MakeThruSections" );
1159   MESSAGE("GEOM_Superv_i::MakeThruSections");
1160   get3DPrimOp();
1161   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeThruSections(theSeqSections, theModeSolid,thePreci,theRuled);
1162   endService( " GEOM_Superv_i::MakeThruSections" );
1163   return anObj;
1164 }
1165
1166 //=============================================================================
1167 //  MakePipe:
1168 //=============================================================================
1169 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePipeWithDifferentSections
1170                      (const GEOM::ListOfGO& theBases,
1171                       const GEOM::ListOfGO& theLocations,
1172                       GEOM::GEOM_Object_ptr thePath,
1173                       CORBA::Boolean theWithContact,
1174                       CORBA::Boolean theWithCorrections)
1175 {
1176   beginService( " GEOM_Superv_i::MakePipeWithDifferentSections" );
1177   MESSAGE("GEOM_Superv_i::MakePipeWithDifferentSections");
1178   get3DPrimOp();
1179   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakePipeWithDifferentSections(theBases,theLocations, thePath,theWithContact,theWithCorrections);
1180   endService( " GEOM_Superv_i::MakePipeWithDifferentSections" );
1181   return anObj;
1182 }
1183
1184
1185 //=============================================================================
1186 //  MakePipe:
1187 //=============================================================================
1188 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePipeWithShellSections
1189                    (const GEOM::ListOfGO& theBases,
1190                     const GEOM::ListOfGO& theSubBases,
1191                     const GEOM::ListOfGO& theLocations,
1192                     GEOM::GEOM_Object_ptr thePath,
1193                     CORBA::Boolean theWithContact,
1194                     CORBA::Boolean theWithCorrections)
1195 {
1196   beginService( " GEOM_Superv_i::MakePipeWithShellSections" );
1197   MESSAGE("GEOM_Superv_i::MakePipeWithShellSections");
1198   get3DPrimOp();
1199   GEOM::GEOM_Object_ptr anObj =
1200     my3DPrimOp->MakePipeWithShellSections(theBases, theSubBases,
1201                                           theLocations, thePath,
1202                                           theWithContact, theWithCorrections);
1203   endService( " GEOM_Superv_i::MakePipeWithShellSections" );
1204   return anObj;
1205 }
1206
1207
1208 //=============================================================================
1209 //  MakePipe:
1210 //=============================================================================
1211 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePipeShellsWithoutPath
1212                    (const GEOM::ListOfGO& theBases,
1213                     const GEOM::ListOfGO& theLocations)
1214 {
1215   beginService( " GEOM_Superv_i::MakePipeShellsWithoutPath" );
1216   MESSAGE("GEOM_Superv_i::MakePipeShellsWithoutPath");
1217   get3DPrimOp();
1218   GEOM::GEOM_Object_ptr anObj =
1219     my3DPrimOp->MakePipeShellsWithoutPath(theBases,theLocations);
1220   endService( " GEOM_Superv_i::MakePipeShellsWithoutPath" );
1221   return anObj;
1222 }
1223
1224
1225 //=============================================================================
1226 //  MakeFuse:
1227 //=============================================================================
1228 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFuse (GEOM::GEOM_Object_ptr theShape1,
1229                                                GEOM::GEOM_Object_ptr theShape2)
1230 {
1231   beginService( " GEOM_Superv_i::MakeFuse" );
1232   MESSAGE("GEOM_Superv_i::MakeFuse");
1233   getBoolOp();
1234   GEOM::GEOM_Object_ptr anObj = myBoolOp->MakeBoolean(theShape1, theShape2, 3);
1235   endService( " GEOM_Superv_i::MakeFuse" );
1236   return anObj;
1237 }
1238
1239 //=============================================================================
1240 //  MakePartition:
1241 //=============================================================================
1242 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePartition (GEOM::GEOM_List_ptr   theShapes,
1243                                                     GEOM::GEOM_List_ptr   theTools,
1244                                                     GEOM::GEOM_List_ptr   theKeepInside,
1245                                                     GEOM::GEOM_List_ptr   theRemoveInside,
1246                                                     CORBA::Short      theLimit,
1247                                                     CORBA::Boolean    theRemoveWebs,
1248                                                     GEOM::GEOM_List_ptr theMaterials,
1249                                                     CORBA::Short theKeepNonlimitShapes)
1250 {
1251   beginService( " GEOM_Superv_i::MakePartition" );
1252   MESSAGE("GEOM_Superv_i::MakePartition");
1253   GEOM_List_i<GEOM::ListOfGO>* aListImplS =
1254     dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theShapes, myPOA).in());
1255   GEOM_List_i<GEOM::ListOfGO>* aListImplT =
1256     dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theTools, myPOA).in());
1257   GEOM_List_i<GEOM::ListOfGO>* aListImplKI =
1258     dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theKeepInside, myPOA).in());
1259   GEOM_List_i<GEOM::ListOfGO>* aListImplRI =
1260     dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theRemoveInside, myPOA).in());
1261   GEOM_List_i<GEOM::ListOfLong>* aListImplM =
1262     dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theMaterials, myPOA).in());
1263   if (aListImplS && aListImplT && aListImplKI && aListImplRI && aListImplM) {
1264     getBoolOp();
1265     GEOM::GEOM_Object_ptr anObj =
1266       myBoolOp->MakePartition(aListImplS->GetList(), aListImplT->GetList(),
1267                               aListImplKI->GetList(), aListImplRI->GetList(),
1268                               theLimit, theRemoveWebs, aListImplM->GetList(),
1269                               theKeepNonlimitShapes);
1270     endService( " GEOM_Superv_i::MakePartition" );
1271     return anObj;
1272   }
1273   endService( " GEOM_Superv_i::MakePartition" );
1274   return NULL;
1275 }
1276
1277 //=============================================================================
1278 //  MakeHalfPartition:
1279 //=============================================================================
1280 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeHalfPartition (GEOM::GEOM_Object_ptr theShape,
1281                                                         GEOM::GEOM_Object_ptr thePlane)
1282 {
1283   beginService( " GEOM_Superv_i::MakeHalfPartition" );
1284   MESSAGE("GEOM_Superv_i::MakeHalfPartition");
1285   getBoolOp();
1286   GEOM::GEOM_Object_ptr anObj = myBoolOp->MakeHalfPartition(theShape, thePlane);
1287   endService( " GEOM_Superv_i::MakeHalfPartition" );
1288   return anObj;
1289 }
1290
1291 //============================== InsertOperations =============================
1292 //=============================================================================
1293 //  MakeCopy:
1294 //=============================================================================
1295 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCopy (GEOM::GEOM_Object_ptr theOriginal)
1296 {
1297   beginService( " GEOM_Superv_i::MakeCopy" );
1298   MESSAGE("GEOM_Superv_i::MakeCopy");
1299   getInsOp();
1300   GEOM::GEOM_Object_ptr anObj = myInsOp->MakeCopy(theOriginal);
1301   endService( " GEOM_Superv_i::MakeCopy" );
1302   return anObj;
1303 }
1304
1305 //=============================================================================
1306 //  Export:
1307 //=============================================================================
1308 void GEOM_Superv_i::Export (GEOM::GEOM_Object_ptr theObject,
1309                             const char*           theFileName,
1310                             const char*           theFormatName)
1311 {
1312   beginService( " GEOM_Superv_i::Export" );
1313   MESSAGE("GEOM_Superv_i::Export");
1314   getInsOp();
1315   myInsOp->Export(theObject, theFileName, theFormatName);
1316   endService( " GEOM_Superv_i::Export" );
1317 }
1318
1319 //=============================================================================
1320 //  Import:
1321 //=============================================================================
1322 GEOM::GEOM_Object_ptr GEOM_Superv_i::Import (const char* theFileName,
1323                                              const char* theFormatName)
1324 {
1325   beginService( " GEOM_Superv_i::Import" );
1326   MESSAGE("GEOM_Superv_i::Import");
1327   getInsOp();
1328   GEOM::GEOM_Object_ptr anObj = myInsOp->Import(theFileName, theFormatName);
1329   endService( " GEOM_Superv_i::Import" );
1330   return anObj;
1331 }
1332
1333 //=============================================================================
1334 //  ImportTranslators:
1335 //=============================================================================
1336 void GEOM_Superv_i::ImportTranslators (GEOM::string_array_out theFormats,
1337                                        GEOM::string_array_out thePatterns)
1338 {
1339   beginService( " GEOM_Superv_i::ImportTranslators" );
1340   MESSAGE("GEOM_Superv_i::ImportTranslators");
1341   getInsOp();
1342   myInsOp->ImportTranslators(theFormats, thePatterns);
1343   endService( " GEOM_Superv_i::ImportTranslators" );
1344 }
1345
1346 //=============================================================================
1347 //  ExportTranslators:
1348 //=============================================================================
1349 void GEOM_Superv_i::ExportTranslators (GEOM::string_array_out theFormats,
1350                                        GEOM::string_array_out thePatterns)
1351 {
1352   beginService( " GEOM_Superv_i::ExportTranslators" );
1353   MESSAGE("GEOM_Superv_i::ExportTranslators");
1354   getInsOp();
1355   myInsOp->ExportTranslators(theFormats, thePatterns);
1356   endService( " GEOM_Superv_i::ExportTranslators" );
1357 }
1358
1359 //============================= TransformOperations ===========================
1360 //=============================================================================
1361 //  TranslateTwoPoints:
1362 //=============================================================================
1363 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateTwoPoints (GEOM::GEOM_Object_ptr theObject,
1364                                                          GEOM::GEOM_Object_ptr thePoint1,
1365                                                          GEOM::GEOM_Object_ptr thePoint2)
1366 {
1367   beginService( " GEOM_Superv_i::TranslateTwoPoints" );
1368   MESSAGE("GEOM_Superv_i::TranslateTwoPoints");
1369   getTransfOp();
1370   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateTwoPoints(theObject, thePoint1, thePoint2);
1371   endService( " GEOM_Superv_i::TranslateTwoPoints" );
1372   return anObj;
1373 }
1374
1375 //=============================================================================
1376 //  TranslateTwoPointsCopy:
1377 //=============================================================================
1378 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateTwoPointsCopy (GEOM::GEOM_Object_ptr theObject,
1379                                                              GEOM::GEOM_Object_ptr thePoint1,
1380                                                              GEOM::GEOM_Object_ptr thePoint2)
1381 {
1382   beginService( " GEOM_Superv_i::TranslateTwoPointsCopy" );
1383   MESSAGE("GEOM_Superv_i::TranslateTwoPointsCopy");
1384   getTransfOp();
1385   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateTwoPointsCopy(theObject, thePoint1, thePoint2);
1386   endService( " GEOM_Superv_i::TranslateTwoPointsCopy" );
1387   return anObj;
1388 }
1389
1390 //=============================================================================
1391 //  TranslateDXDYDZ:
1392 //=============================================================================
1393 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateDXDYDZ (GEOM::GEOM_Object_ptr theObject,
1394                                                       CORBA::Double theDX,
1395                                                       CORBA::Double theDY,
1396                                                       CORBA::Double theDZ)
1397 {
1398   beginService( " GEOM_Superv_i::TranslateDXDYDZ" );
1399   MESSAGE("GEOM_Superv_i::TranslateDXDYDZ");
1400   getTransfOp();
1401   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateDXDYDZ(theObject, theDX, theDY, theDZ);
1402   endService( " GEOM_Superv_i::TranslateDXDYDZ" );
1403   return anObj;
1404 }
1405
1406 //=============================================================================
1407 //  TranslateDXDYDZCopy:
1408 //=============================================================================
1409 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateDXDYDZCopy (GEOM::GEOM_Object_ptr theObject,
1410                                                           CORBA::Double theDX,
1411                                                           CORBA::Double theDY,
1412                                                           CORBA::Double theDZ)
1413 {
1414   beginService( " GEOM_Superv_i::TranslateDXDYDZCopy" );
1415   MESSAGE("GEOM_Superv_i::TranslateDXDYDZCopy");
1416   getTransfOp();
1417   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateDXDYDZCopy(theObject, theDX, theDY, theDZ);
1418   endService( " GEOM_Superv_i::TranslateDXDYDZCopy" );
1419   return anObj;
1420 }
1421
1422 //=============================================================================
1423 //  TranslateVector:
1424 //=============================================================================
1425 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateVector (GEOM::GEOM_Object_ptr theObject,
1426                                                       GEOM::GEOM_Object_ptr theVector)
1427 {
1428   beginService( " GEOM_Superv_i::TranslateVector" );
1429   MESSAGE("GEOM_Superv_i::TranslateVector");
1430   getTransfOp();
1431   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateVector(theObject, theVector);
1432   endService( " GEOM_Superv_i::TranslateVector" );
1433   return anObj;
1434 }
1435
1436 //=============================================================================
1437 //  TranslateVectorCopy:
1438 //=============================================================================
1439 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateVectorCopy (GEOM::GEOM_Object_ptr theObject,
1440                                                           GEOM::GEOM_Object_ptr theVector)
1441 {
1442   beginService( " GEOM_Superv_i::TranslateVectorCopy" );
1443   MESSAGE("GEOM_Superv_i::TranslateVectorCopy");
1444   getTransfOp();
1445   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateVectorCopy(theObject, theVector);
1446   endService( " GEOM_Superv_i::TranslateVectorCopy" );
1447   return anObj;
1448 }
1449
1450 //=============================================================================
1451 //  TranslateVectorDistance:
1452 //=============================================================================
1453 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateVectorDistance (GEOM::GEOM_Object_ptr theObject,
1454                                                               GEOM::GEOM_Object_ptr theVector,
1455                                                               CORBA::Double theDistance,
1456                                                               CORBA::Boolean theCopy)
1457 {
1458   beginService( " GEOM_Superv_i::TranslateVectorDistance" );
1459   MESSAGE("GEOM_Superv_i::TranslateVectorDistance");
1460   getTransfOp();
1461   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateVectorDistance(theObject,
1462                                                                     theVector, theDistance, theCopy);
1463   endService( " GEOM_Superv_i::TranslateVectorDistance" );
1464   return anObj;
1465 }
1466
1467 //=============================================================================
1468 //  MultiTranslate1D:
1469 //=============================================================================
1470 GEOM::GEOM_Object_ptr GEOM_Superv_i::MultiTranslate1D (GEOM::GEOM_Object_ptr theObject,
1471                                                        GEOM::GEOM_Object_ptr theVector,
1472                                                        CORBA::Double theStep,
1473                                                        CORBA::Long theNbTimes)
1474 {
1475   beginService( " GEOM_Superv_i::MultiTranslate1D" );
1476   MESSAGE("GEOM_Superv_i::MultiTranslate1D");
1477   getTransfOp();
1478   GEOM::GEOM_Object_ptr anObj = myTransfOp->MultiTranslate1D(theObject, theVector, theStep, theNbTimes);
1479   endService( " GEOM_Superv_i::MultiTranslate1D" );
1480   return anObj;
1481 }
1482
1483 //=============================================================================
1484 //  MultiTranslate2D:
1485 //=============================================================================
1486 GEOM::GEOM_Object_ptr GEOM_Superv_i::MultiTranslate2D (GEOM::GEOM_Object_ptr theObject,
1487                                                        GEOM::GEOM_Object_ptr theVector1,
1488                                                        CORBA::Double theStep1,
1489                                                        CORBA::Long theNbTimes1,
1490                                                        GEOM::GEOM_Object_ptr theVector2,
1491                                                        CORBA::Double theStep2,
1492                                                        CORBA::Long theNbTimes2)
1493 {
1494   beginService( " GEOM_Superv_i::MultiTranslate2D" );
1495   MESSAGE("GEOM_Superv_i::MultiTranslate2D");
1496   getTransfOp();
1497   GEOM::GEOM_Object_ptr anObj = myTransfOp->MultiTranslate2D(theObject, theVector1, theStep1, theNbTimes1,
1498                                                              theVector2, theStep2, theNbTimes2);
1499   endService( " GEOM_Superv_i::MultiTranslate2D" );
1500   return anObj;
1501 }
1502
1503 //=============================================================================
1504 //  Rotate:
1505 //=============================================================================
1506 GEOM::GEOM_Object_ptr GEOM_Superv_i::Rotate (GEOM::GEOM_Object_ptr theObject,
1507                                              GEOM::GEOM_Object_ptr theAxis,
1508                                              CORBA::Double theAngle)
1509 {
1510   beginService( " GEOM_Superv_i::Rotate" );
1511   MESSAGE("GEOM_Superv_i::Rotate");
1512   getTransfOp();
1513   GEOM::GEOM_Object_ptr anObj = myTransfOp->Rotate(theObject, theAxis, theAngle);
1514   endService( " GEOM_Superv_i::Rotate" );
1515   return anObj;
1516 }
1517
1518 //=============================================================================
1519 //  RotateCopy:
1520 //=============================================================================
1521 GEOM::GEOM_Object_ptr GEOM_Superv_i::RotateCopy (GEOM::GEOM_Object_ptr theObject,
1522                                                  GEOM::GEOM_Object_ptr theAxis,
1523                                                  CORBA::Double theAngle)
1524 {
1525   beginService( " GEOM_Superv_i::RotateCopy" );
1526   MESSAGE("GEOM_Superv_i::RotateCopy");
1527   getTransfOp();
1528   GEOM::GEOM_Object_ptr anObj = myTransfOp->RotateCopy(theObject, theAxis, theAngle);
1529   endService( " GEOM_Superv_i::RotateCopy" );
1530   return anObj;
1531 }
1532 //=============================================================================
1533 //  RotateThreePoints:
1534 //=============================================================================
1535 GEOM::GEOM_Object_ptr GEOM_Superv_i::RotateThreePoints (GEOM::GEOM_Object_ptr theObject,
1536                                                         GEOM::GEOM_Object_ptr theCentPoint,
1537                                                         GEOM::GEOM_Object_ptr thePoint1,
1538                                                         GEOM::GEOM_Object_ptr thePoint2)
1539 {
1540   beginService( " GEOM_Superv_i::RotateThreePoints" );
1541   MESSAGE("GEOM_Superv_i::RotateThreePoints");
1542   getTransfOp();
1543   GEOM::GEOM_Object_ptr anObj = myTransfOp->RotateThreePoints(theObject, theCentPoint, thePoint1, thePoint2);
1544   endService( " GEOM_Superv_i::RotateThreePoints" );
1545   return anObj;
1546 }
1547
1548 //=============================================================================
1549 //  RotateThreePointsCopy:
1550 //=============================================================================
1551 GEOM::GEOM_Object_ptr GEOM_Superv_i::RotateThreePointsCopy (GEOM::GEOM_Object_ptr theObject,
1552                                                             GEOM::GEOM_Object_ptr theCentPoint,
1553                                                             GEOM::GEOM_Object_ptr thePoint1,
1554                                                             GEOM::GEOM_Object_ptr thePoint2)
1555 {
1556   beginService( " GEOM_Superv_i::RotateThreePointsCopy" );
1557   MESSAGE("GEOM_Superv_i::RotateThreePointsCopy");
1558   getTransfOp();
1559   GEOM::GEOM_Object_ptr anObj = myTransfOp->RotateThreePointsCopy(theObject, theCentPoint, thePoint1, thePoint2);
1560   endService( " GEOM_Superv_i::RotateThreePointsCopy" );
1561   return anObj;
1562 }
1563
1564 //=============================================================================
1565 //  MultiRotate1D:
1566 //=============================================================================
1567 GEOM::GEOM_Object_ptr GEOM_Superv_i::MultiRotate1D (GEOM::GEOM_Object_ptr theObject,
1568                                                     GEOM::GEOM_Object_ptr theAxis,
1569                                                     CORBA::Long theNbTimes)
1570 {
1571   beginService( " GEOM_Superv_i::MultiRotate1D" );
1572   MESSAGE("GEOM_Superv_i::MultiRotate1D");
1573   getTransfOp();
1574   GEOM::GEOM_Object_ptr anObj = myTransfOp->MultiRotate1D(theObject, theAxis, theNbTimes);
1575   endService( " GEOM_Superv_i::MultiRotate1D" );
1576   return anObj;
1577 }
1578
1579 //=============================================================================
1580 //  MultiRotate2D:
1581 //=============================================================================
1582 GEOM::GEOM_Object_ptr GEOM_Superv_i::MultiRotate2D (GEOM::GEOM_Object_ptr theObject,
1583                                                     GEOM::GEOM_Object_ptr theAxis,
1584                                                     CORBA::Double theAngle,
1585                                                     CORBA::Long theNbTimes1,
1586                                                     CORBA::Double theStep,
1587                                                     CORBA::Long theNbTimes2)
1588 {
1589   beginService( " GEOM_Superv_i::MultiRotate2D" );
1590   MESSAGE("GEOM_Superv_i::MultiRotate2D");
1591   getTransfOp();
1592   GEOM::GEOM_Object_ptr anObj = myTransfOp->MultiRotate2D(theObject, theAxis, theAngle, theNbTimes1, theStep, theNbTimes2);
1593   endService( " GEOM_Superv_i::MultiRotate2D" );
1594   return anObj;
1595 }
1596
1597 //=============================================================================
1598 //  MirrorPlane:
1599 //=============================================================================
1600 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorPlane (GEOM::GEOM_Object_ptr theObject,
1601                                                   GEOM::GEOM_Object_ptr thePlane)
1602 {
1603   beginService( " GEOM_Superv_i::MirrorPlane" );
1604   MESSAGE("GEOM_Superv_i::MirrorPlane");
1605   getTransfOp();
1606   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorPlane(theObject, thePlane);
1607   endService( " GEOM_Superv_i::MirrorPlane" );
1608   return anObj;
1609 }
1610
1611 //=============================================================================
1612 //  MirrorPlaneCopy:
1613 //=============================================================================
1614 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorPlaneCopy (GEOM::GEOM_Object_ptr theObject,
1615                                                       GEOM::GEOM_Object_ptr thePlane)
1616 {
1617   beginService( " GEOM_Superv_i::MirrorPlaneCopy" );
1618   MESSAGE("GEOM_Superv_i::MirrorPlaneCopy");
1619   getTransfOp();
1620   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorPlaneCopy(theObject, thePlane);
1621   endService( " GEOM_Superv_i::MirrorPlaneCopy" );
1622   return anObj;
1623 }
1624
1625 //=============================================================================
1626 //  MirrorAxis:
1627 //=============================================================================
1628 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorAxis (GEOM::GEOM_Object_ptr theObject,
1629                                                  GEOM::GEOM_Object_ptr theAxis)
1630 {
1631   beginService( " GEOM_Superv_i::MirrorAxis" );
1632   MESSAGE("GEOM_Superv_i::MirrorAxis");
1633   getTransfOp();
1634   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorAxis(theObject, theAxis);
1635   endService( " GEOM_Superv_i::MirrorAxis" );
1636   return anObj;
1637 }
1638
1639 //=============================================================================
1640 //  MirrorAxisCopy:
1641 //=============================================================================
1642 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorAxisCopy (GEOM::GEOM_Object_ptr theObject,
1643                                                      GEOM::GEOM_Object_ptr theAxis)
1644 {
1645   beginService( " GEOM_Superv_i::MirrorAxisCopy" );
1646   MESSAGE("GEOM_Superv_i::MirrorAxisCopy");
1647   getTransfOp();
1648   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorAxisCopy(theObject, theAxis);
1649   endService( " GEOM_Superv_i::MirrorAxisCopy" );
1650   return anObj;
1651 }
1652
1653 //=============================================================================
1654 //  MirrorPoint:
1655 //=============================================================================
1656 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorPoint (GEOM::GEOM_Object_ptr theObject,
1657                                                   GEOM::GEOM_Object_ptr thePoint)
1658 {
1659   beginService( " GEOM_Superv_i::MirrorPoint" );
1660   MESSAGE("GEOM_Superv_i::MirrorPoint");
1661   getTransfOp();
1662   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorPoint(theObject, thePoint);
1663   endService( " GEOM_Superv_i::MirrorPoint" );
1664   return anObj;
1665 }
1666
1667 //=============================================================================
1668 //  MirrorPointCopy:
1669 //=============================================================================
1670 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorPointCopy (GEOM::GEOM_Object_ptr theObject,
1671                                                       GEOM::GEOM_Object_ptr thePoint)
1672 {
1673   beginService( " GEOM_Superv_i::MirrorPoint" );
1674   MESSAGE("GEOM_Superv_i::MirrorPointCopy");
1675   getTransfOp();
1676   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorPointCopy(theObject, thePoint);
1677   endService( " GEOM_Superv_i::MirrorPoint" );
1678   return anObj;
1679 }
1680
1681 //=============================================================================
1682 //  OffsetShape:
1683 //=============================================================================
1684 GEOM::GEOM_Object_ptr GEOM_Superv_i::OffsetShape (GEOM::GEOM_Object_ptr theObject,
1685                                                   CORBA::Double theOffset)
1686 {
1687   beginService( " GEOM_Superv_i::OffsetShape" );
1688   MESSAGE("GEOM_Superv_i::OffsetShape");
1689   getTransfOp();
1690   GEOM::GEOM_Object_ptr anObj = myTransfOp->OffsetShape(theObject, theOffset);
1691   endService( " GEOM_Superv_i::OffsetShape" );
1692   return anObj;
1693 }
1694
1695 //=============================================================================
1696 //  OffsetShapeCopy:
1697 //=============================================================================
1698 GEOM::GEOM_Object_ptr GEOM_Superv_i::OffsetShapeCopy (GEOM::GEOM_Object_ptr theObject,
1699                                                       CORBA::Double theOffset)
1700 {
1701   beginService( " GEOM_Superv_i::OffsetShapeCopy" );
1702   MESSAGE("GEOM_Superv_i::OffsetShapeCopy");
1703   getTransfOp();
1704   GEOM::GEOM_Object_ptr anObj = myTransfOp->OffsetShapeCopy(theObject, theOffset);
1705   endService( " GEOM_Superv_i::OffsetShapeCopy" );
1706   return anObj;
1707 }
1708
1709 //=============================================================================
1710 //  ScaleShape:
1711 //=============================================================================
1712 GEOM::GEOM_Object_ptr GEOM_Superv_i::ScaleShape (GEOM::GEOM_Object_ptr theObject,
1713                                                  GEOM::GEOM_Object_ptr thePoint,
1714                                                  CORBA::Double theFactor)
1715 {
1716   beginService( " GEOM_Superv_i::ScaleShape" );
1717   MESSAGE("GEOM_Superv_i::ScaleShape");
1718   getTransfOp();
1719   GEOM::GEOM_Object_ptr anObj = myTransfOp->ScaleShape(theObject, thePoint, theFactor);
1720   endService( " GEOM_Superv_i::ScaleShape" );
1721   return anObj;
1722 }
1723
1724 //=============================================================================
1725 //  ScaleShapeCopy:
1726 //=============================================================================
1727 GEOM::GEOM_Object_ptr GEOM_Superv_i::ScaleShapeCopy (GEOM::GEOM_Object_ptr theObject,
1728                                                      GEOM::GEOM_Object_ptr thePoint,
1729                                                      CORBA::Double theFactor)
1730 {
1731   beginService( " GEOM_Superv_i::ScaleShapeCopy" );
1732   MESSAGE("GEOM_Superv_i::ScaleShapeCopy");
1733   getTransfOp();
1734   GEOM::GEOM_Object_ptr anObj = myTransfOp->ScaleShapeCopy(theObject, thePoint, theFactor);
1735   endService( " GEOM_Superv_i::ScaleShapeCopy" );
1736   return anObj;
1737 }
1738
1739 //=============================================================================
1740 //  ScaleShapeAlongAxes:
1741 //=============================================================================
1742 GEOM::GEOM_Object_ptr GEOM_Superv_i::ScaleShapeAlongAxes (GEOM::GEOM_Object_ptr theObject,
1743                                                           GEOM::GEOM_Object_ptr thePoint,
1744                                                           CORBA::Double theFactorX,
1745                                                           CORBA::Double theFactorY,
1746                                                           CORBA::Double theFactorZ)
1747 {
1748   beginService( " GEOM_Superv_i::ScaleShapeAlongAxes" );
1749   MESSAGE("GEOM_Superv_i::ScaleShapeAlongAxes");
1750   getTransfOp();
1751   GEOM::GEOM_Object_ptr anObj = myTransfOp->ScaleShapeAlongAxes
1752     (theObject, thePoint, theFactorX, theFactorY, theFactorZ);
1753   endService( " GEOM_Superv_i::ScaleShapeAlongAxes" );
1754   return anObj;
1755 }
1756
1757 //=============================================================================
1758 //  ScaleShapeAlongAxesCopy:
1759 //=============================================================================
1760 GEOM::GEOM_Object_ptr GEOM_Superv_i::ScaleShapeAlongAxesCopy (GEOM::GEOM_Object_ptr theObject,
1761                                                               GEOM::GEOM_Object_ptr thePoint,
1762                                                               CORBA::Double theFactorX,
1763                                                               CORBA::Double theFactorY,
1764                                                               CORBA::Double theFactorZ)
1765 {
1766   beginService( " GEOM_Superv_i::ScaleShapeAlongAxesCopy" );
1767   MESSAGE("GEOM_Superv_i::ScaleShapeAlongAxesCopy");
1768   getTransfOp();
1769   GEOM::GEOM_Object_ptr anObj = myTransfOp->ScaleShapeAlongAxesCopy
1770     (theObject, thePoint, theFactorX, theFactorY, theFactorZ);
1771   endService( " GEOM_Superv_i::ScaleShapeAlongAxesCopy" );
1772   return anObj;
1773 }
1774
1775 //=============================================================================
1776 //  PositionShape:
1777 //=============================================================================
1778 GEOM::GEOM_Object_ptr GEOM_Superv_i::PositionShape (GEOM::GEOM_Object_ptr theObject,
1779                                                     GEOM::GEOM_Object_ptr theStartLCS,
1780                                                     GEOM::GEOM_Object_ptr theEndLCS)
1781 {
1782   beginService( " GEOM_Superv_i::PositionShape" );
1783   MESSAGE("GEOM_Superv_i::PositionShape");
1784   getTransfOp();
1785   GEOM::GEOM_Object_ptr anObj = myTransfOp->PositionShape(theObject, theStartLCS, theEndLCS);
1786   endService( " GEOM_Superv_i::PositionShape" );
1787   return anObj;
1788 }
1789
1790 //=============================================================================
1791 //  PositionShapeCopy:
1792 //=============================================================================
1793 GEOM::GEOM_Object_ptr GEOM_Superv_i::PositionShapeCopy (GEOM::GEOM_Object_ptr theObject,
1794                                                         GEOM::GEOM_Object_ptr theStartLCS,
1795                                                         GEOM::GEOM_Object_ptr theEndLCS)
1796 {
1797   beginService( " GEOM_Superv_i::PositionShapeCopy" );
1798   MESSAGE("GEOM_Superv_i::PositionShapeCopy");
1799   getTransfOp();
1800   GEOM::GEOM_Object_ptr anObj = myTransfOp->PositionShapeCopy(theObject, theStartLCS, theEndLCS);
1801   endService( " GEOM_Superv_i::PositionShapeCopy" );
1802   return anObj;
1803 }
1804
1805 //=============================== ShapesOperations ============================
1806 //=============================================================================
1807 //  Make:
1808 //=============================================================================
1809 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeEdge (GEOM::GEOM_Object_ptr thePnt1,
1810                                                GEOM::GEOM_Object_ptr thePnt2)
1811 {
1812   beginService( " GEOM_Superv_i::MakeEdge" );
1813   MESSAGE("GEOM_Superv_i::MakeEdge");
1814   getShapesOp();
1815   GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeEdge(thePnt1, thePnt2);
1816   endService( " GEOM_Superv_i::MakeEdge" );
1817   return anObj;
1818 }
1819
1820 //=============================================================================
1821 //  MakeWire:
1822 //=============================================================================
1823 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeWire (GEOM::GEOM_List_ptr theEdgesAndWires)
1824 {
1825   beginService( " GEOM_Superv_i::MakeWire" );
1826   MESSAGE("GEOM_Superv_i::MakeWire");
1827   if (GEOM_List_i<GEOM::ListOfGO>* aListImplEW =
1828       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theEdgesAndWires, myPOA).in())) {
1829     getShapesOp();
1830     GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeWire(aListImplEW->GetList());
1831     endService( " GEOM_Superv_i::MakeWire" );
1832     return anObj;
1833   }
1834   endService( " GEOM_Superv_i::MakeWire" );
1835   return NULL;
1836 }
1837
1838 //=============================================================================
1839 //  MakeFace:
1840 //=============================================================================
1841 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFace (GEOM::GEOM_Object_ptr theWire,
1842                                                CORBA::Boolean isPlanarWanted)
1843 {
1844   beginService( " GEOM_Superv_i::MakeFace" );
1845   MESSAGE("GEOM_Superv_i::MakeFace");
1846   getShapesOp();
1847   GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeFace(theWire, isPlanarWanted);
1848   endService( " GEOM_Superv_i::MakeFace" );
1849   return anObj;
1850 }
1851
1852 //=============================================================================
1853 //  MakeFaceWires:
1854 //=============================================================================
1855 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFaceWires (GEOM::GEOM_List_ptr theWires,
1856                                                     CORBA::Boolean isPlanarWanted)
1857 {
1858   beginService( " GEOM_Superv_i::MakeFaceWires" );
1859   MESSAGE("GEOM_Superv_i::MakeFaceWires");
1860   if (GEOM_List_i<GEOM::ListOfGO>* aListImplW =
1861       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theWires, myPOA).in())) {
1862     getShapesOp();
1863     GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeFaceWires(aListImplW->GetList(), isPlanarWanted);
1864     endService( " GEOM_Superv_i::MakeFaceWires" );
1865     return anObj;
1866   }
1867   endService( " GEOM_Superv_i::MakeFaceWires" );
1868   return NULL;
1869 }
1870
1871 //=============================================================================
1872 //  MakeShell:
1873 //=============================================================================
1874 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeShell (GEOM::GEOM_List_ptr theFacesAndShells)
1875 {
1876   beginService( " GEOM_Superv_i::MakeShell" );
1877   MESSAGE("GEOM_Superv_i::MakeShell");
1878   if (GEOM_List_i<GEOM::ListOfGO>* aListImplFS =
1879       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theFacesAndShells, myPOA).in())) {
1880     getShapesOp();
1881     GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeShell(aListImplFS->GetList());
1882     endService( " GEOM_Superv_i::MakeShell" );
1883     return anObj;
1884   }
1885   endService( " GEOM_Superv_i::MakeShell" );
1886   return NULL;
1887 }
1888
1889 //=============================================================================
1890 //  MakeSolidShell:
1891 //=============================================================================
1892 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSolidShell (GEOM::GEOM_Object_ptr theShell)
1893 {
1894   beginService( " GEOM_Superv_i::MakeSolidShell" );
1895   MESSAGE("GEOM_Superv_i::MakeSolidShell");
1896   getShapesOp();
1897   GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeSolidShell(theShell);
1898   endService( " GEOM_Superv_i::MakeSolidShell" );
1899   return anObj;
1900 }
1901
1902 //=============================================================================
1903 //  MakeSolidShells:
1904 //=============================================================================
1905 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSolidShells (GEOM::GEOM_List_ptr theShells)
1906 {
1907   beginService( " GEOM_Superv_i::MakeSolidShells" );
1908   MESSAGE("GEOM_Superv_i::MakeSolidShells");
1909   if (GEOM_List_i<GEOM::ListOfGO>* aListImplS =
1910       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theShells, myPOA).in())) {
1911     getShapesOp();
1912     GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeSolidShells(aListImplS->GetList());
1913     endService( " GEOM_Superv_i::MakeSolidShells" );
1914     return anObj;
1915   }
1916   endService( " GEOM_Superv_i::MakeSolidShells" );
1917   return NULL;
1918 }
1919
1920 //=============================================================================
1921 //  MakeCompound:
1922 //=============================================================================
1923 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCompound (GEOM::GEOM_List_ptr theShapes)
1924 {
1925   beginService( " GEOM_Superv_i::MakeCompound" );
1926   MESSAGE("GEOM_Superv_i::MakeCompound");
1927   if (GEOM_List_i<GEOM::ListOfGO>* aListImpl =
1928       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theShapes, myPOA).in())) {
1929     getShapesOp();
1930     GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeCompound(aListImpl->GetList());
1931     endService( " GEOM_Superv_i::MakeCompound" );
1932     return anObj;
1933   }
1934   endService( " GEOM_Superv_i::MakeCompound" );
1935   return NULL;
1936 }
1937
1938 //=============================================================================
1939 //  MakeGlueFaces:
1940 //=============================================================================
1941 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeGlueFaces (GEOM::GEOM_Object_ptr theShape,
1942                                                     CORBA::Double   theTolerance,
1943                                                     CORBA::Boolean doKeepNonSolids)
1944 {
1945   beginService( " GEOM_Superv_i::MakeGlueFaces" );
1946   MESSAGE("GEOM_Superv_i::MakeGlueFaces");
1947   getShapesOp();
1948   GEOM::GEOM_Object_ptr anObj =
1949     myShapesOp->MakeGlueFaces(theShape, theTolerance, doKeepNonSolids);
1950   endService( " GEOM_Superv_i::MakeGlueFaces" );
1951   return anObj;
1952 }
1953
1954 //=============================================================================
1955 //  GetGlueFaces:
1956 //=============================================================================
1957 GEOM::GEOM_List_ptr GEOM_Superv_i::GetGlueFaces (GEOM::GEOM_Object_ptr theShape,
1958                                                  CORBA::Double theTolerance)
1959 {
1960   beginService( " GEOM_Superv_i::GetGlueFaces" );
1961   MESSAGE("GEOM_Superv_i::GetGlueFaces");
1962   getShapesOp();
1963   GEOM::ListOfGO* aList = myShapesOp->GetGlueFaces(theShape, theTolerance);
1964   GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aList));
1965   MESSAGE(" List of "<<aListPtr->GetList().length()<<" element(s)");
1966   endService( " GEOM_Superv_i::GetGlueFaces" );
1967   return aListPtr->_this();
1968 }
1969
1970 //=============================================================================
1971 //  MakeGlueFacesByList:
1972 //=============================================================================
1973 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeGlueFacesByList (GEOM::GEOM_Object_ptr theShape,
1974                                                           CORBA::Double theTolerance,
1975                                                           const GEOM::ListOfGO& theFaces,
1976                                                           CORBA::Boolean doKeepNonSolids)
1977 {
1978   beginService( " GEOM_Superv_i::MakeGlueFacesByList" );
1979   MESSAGE("GEOM_Superv_i::MakeGlueFacesByList");
1980   getShapesOp();
1981   GEOM::GEOM_Object_ptr anObj =
1982     myShapesOp->MakeGlueFacesByList(theShape, theTolerance, theFaces, doKeepNonSolids);
1983   endService( " GEOM_Superv_i::MakeGlueFacesByList" );
1984   return anObj;
1985 }
1986
1987 //=============================================================================
1988 //  MakeExplode:
1989 //=============================================================================
1990 GEOM::GEOM_List_ptr GEOM_Superv_i::MakeExplode (GEOM::GEOM_Object_ptr theShape,
1991                                                     CORBA::Long theShapeType,
1992                                                     CORBA::Boolean isSorted)
1993 {
1994   beginService( " GEOM_Superv_i::MakeExplode" );
1995   MESSAGE("GEOM_Superv_i::MakeExplode");
1996   getShapesOp();
1997
1998   GEOM::ListOfGO* aList = myShapesOp->MakeExplode(theShape, theShapeType, isSorted);
1999   GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aList));
2000   MESSAGE(" List of "<<aListPtr->GetList().length()<<" element(s)");
2001   endService( " GEOM_Superv_i::MakeExplode" );
2002   return aListPtr->_this();
2003 }
2004
2005 //=============================================================================
2006 //  NumberOfFaces:
2007 //=============================================================================
2008 CORBA::Long GEOM_Superv_i::NumberOfFaces (GEOM::GEOM_Object_ptr theShape)
2009 {
2010   beginService( " GEOM_Superv_i::NumberOfFaces" );
2011   MESSAGE("GEOM_Superv_i::NumberOfFaces");
2012   getShapesOp();
2013   CORBA::Long aRes = myShapesOp->NumberOfFaces(theShape);
2014   endService( " GEOM_Superv_i::NumberOfFaces" );
2015   return aRes;
2016 }
2017
2018 //=============================================================================
2019 //  NumberOfEdges:
2020 //=============================================================================
2021 CORBA::Long GEOM_Superv_i::NumberOfEdges (GEOM::GEOM_Object_ptr theShape)
2022 {
2023   beginService( " GEOM_Superv_i::NumberOfEdges" );
2024   MESSAGE("GEOM_Superv_i::NumberOfEdges");
2025   getShapesOp();
2026   CORBA::Long aRes = myShapesOp->NumberOfEdges(theShape);
2027   endService( " GEOM_Superv_i::NumberOfEdges" );
2028   return aRes;
2029 }
2030
2031
2032 //=============================================================================
2033 //  ChangeOrientation:
2034 //=============================================================================
2035 GEOM::GEOM_Object_ptr GEOM_Superv_i::ChangeOrientation (GEOM::GEOM_Object_ptr theShape)
2036 {
2037   beginService( " GEOM_Superv_i::ChangeOrientation" );
2038   MESSAGE("GEOM_Superv_i::ChangeOrientation");
2039   getShapesOp();
2040   GEOM::GEOM_Object_ptr anObj = myShapesOp->ChangeOrientation(theShape);
2041   endService( " GEOM_Superv_i::ChangeOrientation" );
2042   return anObj;
2043 }
2044
2045
2046 //=============================================================================
2047 //  GetShapesOnShape:
2048 //=============================================================================
2049 GEOM::GEOM_List_ptr GEOM_Superv_i::GetShapesOnShape
2050                                           (GEOM::GEOM_Object_ptr theCheckShape,
2051                                            GEOM::GEOM_Object_ptr theShape,
2052                                            CORBA::Short theShapeType,
2053                                            GEOM::shape_state theState)
2054 {
2055   beginService( " GEOM_Superv_i::GetShapesOnShape" );
2056   MESSAGE("GEOM_Superv_i::GetShapesOnShape");
2057   getShapesOp();
2058   GEOM::ListOfGO* aList =
2059     myShapesOp->GetShapesOnShape(theCheckShape, theShape, theShapeType, theState);
2060   GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aList));
2061   MESSAGE(" List of "<<aListPtr->GetList().length()<<" element(s)");
2062   endService( " GEOM_Superv_i::GetShapesOnShape" );
2063   return aListPtr->_this();
2064 }
2065
2066
2067 //=============================================================================
2068 //  GetShapesOnShapeAsCompound:
2069 //=============================================================================
2070 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetShapesOnShapeAsCompound
2071                                           (GEOM::GEOM_Object_ptr theCheckShape,
2072                                            GEOM::GEOM_Object_ptr theShape,
2073                                            CORBA::Short theShapeType,
2074                                            GEOM::shape_state theState)
2075 {
2076   beginService( " GEOM_Superv_i::GetShapesOnShapeAsCompound" );
2077   MESSAGE("GEOM_Superv_i::GetShapesOnShapeAsCompound");
2078   getShapesOp();
2079   GEOM::GEOM_Object_ptr anObj =
2080     myShapesOp->GetShapesOnShapeAsCompound(theCheckShape, theShape, theShapeType, theState);
2081   endService( " GEOM_Superv_i::GetShapesOnShapeAsCompound" );
2082   return anObj;
2083 }
2084
2085
2086 //=============================== BlocksOperations ============================
2087 //=============================================================================
2088 //  MakeQuad4Vertices:
2089 //=============================================================================
2090 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeQuad4Vertices (GEOM::GEOM_Object_ptr thePnt1,
2091                                                         GEOM::GEOM_Object_ptr thePnt2,
2092                                                         GEOM::GEOM_Object_ptr thePnt3,
2093                                                         GEOM::GEOM_Object_ptr thePnt4)
2094 {
2095   beginService( " GEOM_Superv_i::MakeQuad4Vertices" );
2096   MESSAGE("GEOM_Superv_i::MakeQuad4Vertices");
2097   getBlocksOp();
2098   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeQuad4Vertices(thePnt1, thePnt2, thePnt3, thePnt4);
2099   endService( " GEOM_Superv_i::MakeQuad4Vertices" );
2100   return anObj;
2101 }
2102
2103 //=============================================================================
2104 //  MakeQuad:
2105 //=============================================================================
2106 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeQuad (GEOM::GEOM_Object_ptr theEdge1,
2107                                                GEOM::GEOM_Object_ptr theEdge2,
2108                                                GEOM::GEOM_Object_ptr theEdge3,
2109                                                GEOM::GEOM_Object_ptr theEdge4)
2110 {
2111   beginService( " GEOM_Superv_i::MakeQuad" );
2112   MESSAGE("GEOM_Superv_i::MakeQuad");
2113   getBlocksOp();
2114   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeQuad(theEdge1, theEdge2, theEdge3, theEdge4);
2115   endService( " GEOM_Superv_i::MakeQuad" );
2116   return anObj;
2117 }
2118
2119 //=============================================================================
2120 //  MakeQuad2Edges:
2121 //=============================================================================
2122 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeQuad2Edges (GEOM::GEOM_Object_ptr theEdge1,
2123                                                      GEOM::GEOM_Object_ptr theEdge2)
2124 {
2125   beginService( " GEOM_Superv_i::MakeQuad2Edges" );
2126   MESSAGE("GEOM_Superv_i::MakeQuad2Edges");
2127   getBlocksOp();
2128   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeQuad2Edges(theEdge1, theEdge2);
2129   endService( " GEOM_Superv_i::MakeQuad2Edges" );
2130   return anObj;
2131 }
2132
2133 //=============================================================================
2134 //  MakeHexa:
2135 //=============================================================================
2136 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeHexa (GEOM::GEOM_Object_ptr theFace1,
2137                                                GEOM::GEOM_Object_ptr theFace2,
2138                                                GEOM::GEOM_Object_ptr theFace3,
2139                                                GEOM::GEOM_Object_ptr theFace4,
2140                                                GEOM::GEOM_Object_ptr theFace5,
2141                                                GEOM::GEOM_Object_ptr theFace6)
2142 {
2143   beginService( " GEOM_Superv_i::MakeHexa" );
2144   MESSAGE("GEOM_Superv_i::MakeHexa");
2145   getBlocksOp();
2146   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeHexa(theFace1, theFace2, theFace3, theFace4, theFace5, theFace6);
2147   endService( " GEOM_Superv_i::MakeHexa" );
2148   return anObj;
2149 }
2150
2151 //=============================================================================
2152 //  MakeHexa2Faces:
2153 //=============================================================================
2154 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeHexa2Faces (GEOM::GEOM_Object_ptr theFace1,
2155                                                      GEOM::GEOM_Object_ptr theFace2)
2156 {
2157   beginService( " GEOM_Superv_i::MakeHexa2Faces" );
2158   MESSAGE("GEOM_Superv_i::MakeHexa2Faces");
2159   getBlocksOp();
2160   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeHexa2Faces(theFace1, theFace2);
2161   endService( " GEOM_Superv_i::MakeHexa2Faces" );
2162   return anObj;
2163 }
2164
2165 //=============================================================================
2166 //  GetPoint:
2167 //=============================================================================
2168 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetPoint (GEOM::GEOM_Object_ptr theShape,
2169                                                CORBA::Double   theX,
2170                                                CORBA::Double   theY,
2171                                                CORBA::Double   theZ,
2172                                                CORBA::Double   theEpsilon)
2173 {
2174   beginService( " GEOM_Superv_i::GetPoint" );
2175   MESSAGE("GEOM_Superv_i::GetPoint");
2176   getBlocksOp();
2177   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetPoint(theShape, theX, theY, theZ, theEpsilon);
2178   endService( " GEOM_Superv_i::GetPoint" );
2179   return anObj;
2180 }
2181
2182 //=============================================================================
2183 //  GetEdge:
2184 //=============================================================================
2185 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetEdge (GEOM::GEOM_Object_ptr theShape,
2186                                               GEOM::GEOM_Object_ptr thePoint1,
2187                                               GEOM::GEOM_Object_ptr thePoint2)
2188 {
2189   beginService( " GEOM_Superv_i::GetEdge" );
2190   MESSAGE("GEOM_Superv_i::GetEdge");
2191   getBlocksOp();
2192   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetEdge(theShape, thePoint1, thePoint2);
2193   endService( " GEOM_Superv_i::GetEdge" );
2194   return anObj;
2195 }
2196
2197 //=============================================================================
2198 //  GetEdgeNearPoint:
2199 //=============================================================================
2200 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetEdgeNearPoint (GEOM::GEOM_Object_ptr theShape,
2201                                                        GEOM::GEOM_Object_ptr thePoint)
2202 {
2203   beginService( " GEOM_Superv_i::GetEdgeNearPoint" );
2204   MESSAGE("GEOM_Superv_i::GetEdgeNearPoint");
2205   getBlocksOp();
2206   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetEdgeNearPoint(theShape, thePoint);
2207   endService( " GEOM_Superv_i::GetEdgeNearPoint" );
2208   return anObj;
2209 }
2210
2211 //=============================================================================
2212 //  GetFaceByPoints:
2213 //=============================================================================
2214 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetFaceByPoints (GEOM::GEOM_Object_ptr theShape,
2215                                                       GEOM::GEOM_Object_ptr thePoint1,
2216                                                       GEOM::GEOM_Object_ptr thePoint2,
2217                                                       GEOM::GEOM_Object_ptr thePoint3,
2218                                                       GEOM::GEOM_Object_ptr thePoint4)
2219 {
2220   beginService( " GEOM_Superv_i::GetFaceByPoints" );
2221   MESSAGE("GEOM_Superv_i::GetFaceByPoints");
2222   getBlocksOp();
2223   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetFaceByPoints(theShape, thePoint1, thePoint2, thePoint3, thePoint4);
2224   endService( " GEOM_Superv_i::GetFaceByPoints" );
2225   return anObj;
2226 }
2227
2228 //=============================================================================
2229 //  GetFaceByEdges:
2230 //=============================================================================
2231 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetFaceByEdges (GEOM::GEOM_Object_ptr theShape,
2232                                                      GEOM::GEOM_Object_ptr theEdge1,
2233                                                      GEOM::GEOM_Object_ptr theEdge2)
2234 {
2235   beginService( " GEOM_Superv_i::GetFaceByEdges" );
2236   MESSAGE("GEOM_Superv_i::GetFaceByEdges");
2237   getBlocksOp();
2238   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetFaceByEdges(theShape, theEdge1, theEdge2);
2239   endService( " GEOM_Superv_i::GetFaceByEdges" );
2240   return anObj;
2241 }
2242
2243 //=============================================================================
2244 //  GetOppositeFace:
2245 //=============================================================================
2246 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetOppositeFace (GEOM::GEOM_Object_ptr theBlock,
2247                                                       GEOM::GEOM_Object_ptr theFace)
2248 {
2249   beginService( " GEOM_Superv_i::GetOppositeFace" );
2250   MESSAGE("GEOM_Superv_i::GetOppositeFace");
2251   getBlocksOp();
2252   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetOppositeFace(theBlock, theFace);
2253   endService( " GEOM_Superv_i::GetOppositeFace" );
2254   return anObj;
2255 }
2256
2257 //=============================================================================
2258 //  GetFaceNearPoint:
2259 //=============================================================================
2260 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetFaceNearPoint (GEOM::GEOM_Object_ptr theShape,
2261                                                        GEOM::GEOM_Object_ptr thePoint)
2262 {
2263   beginService( " GEOM_Superv_i::GetFaceNearPoint" );
2264   MESSAGE("GEOM_Superv_i::GetFaceNearPoint");
2265   getBlocksOp();
2266   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetFaceNearPoint(theShape, thePoint);
2267   endService( " GEOM_Superv_i::GetFaceNearPoint" );
2268   return anObj;
2269 }
2270
2271 //=============================================================================
2272 //  GetFaceByNormale:
2273 //=============================================================================
2274 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetFaceByNormale (GEOM::GEOM_Object_ptr theBlock,
2275                                                        GEOM::GEOM_Object_ptr theVector)
2276 {
2277   beginService( " GEOM_Superv_i::GetFaceByNormale" );
2278   MESSAGE("GEOM_Superv_i::GetFaceByNormale");
2279   getBlocksOp();
2280   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetFaceByNormale(theBlock, theVector);
2281   endService( " GEOM_Superv_i::GetFaceByNormale" );
2282   return anObj;
2283 }
2284
2285 //=============================================================================
2286 //  IsCompoundOfBlocks:
2287 //=============================================================================
2288 CORBA::Boolean GEOM_Superv_i::IsCompoundOfBlocks (GEOM::GEOM_Object_ptr theCompound,
2289                                                   CORBA::Long     theMinNbFaces,
2290                                                   CORBA::Long     theMaxNbFaces,
2291                                                   CORBA::Long&          theNbBlocks)
2292 {
2293   beginService( " GEOM_Superv_i::IsCompoundOfBlocks" );
2294   MESSAGE("GEOM_Superv_i::IsCompoundOfBlocks");
2295   getBlocksOp();
2296   CORBA::Boolean aRes = myBlocksOp->IsCompoundOfBlocks(theCompound, theMinNbFaces, theMaxNbFaces, theNbBlocks);
2297   endService( " GEOM_Superv_i::IsCompoundOfBlocks" );
2298   return aRes;
2299 }
2300
2301 //=============================================================================
2302 //  CheckCompoundOfBlocks:
2303 //=============================================================================
2304 CORBA::Boolean GEOM_Superv_i::CheckCompoundOfBlocks
2305 (GEOM::GEOM_Object_ptr theCompound,
2306  GEOM::GEOM_IBlocksOperations::BCErrors_out theErrors)
2307 {
2308   beginService( " GEOM_Superv_i::CheckCompoundOfBlocks" );
2309   MESSAGE("GEOM_Superv_i::CheckCompoundOfBlocks");
2310   getBlocksOp();
2311   CORBA::Boolean aRes = myBlocksOp->CheckCompoundOfBlocks(theCompound, theErrors);
2312   endService( " GEOM_Superv_i::CheckCompoundOfBlocks" );
2313   return aRes;
2314 }
2315
2316 //=============================================================================
2317 //  PrintBCErrors:
2318 //=============================================================================
2319 char* GEOM_Superv_i::PrintBCErrors (GEOM::GEOM_Object_ptr theCompound,
2320                                     const GEOM::GEOM_IBlocksOperations::BCErrors& theErrors)
2321 {
2322   beginService( " GEOM_Superv_i::PrintBCErrors" );
2323   MESSAGE("GEOM_Superv_i::PrintBCErrors");
2324   getBlocksOp();
2325   char* anErrors = myBlocksOp->PrintBCErrors(theCompound, theErrors);
2326   endService( " GEOM_Superv_i::PrintBCErrors" );
2327   return anErrors;
2328 }
2329
2330 //=============================================================================
2331 //  ExplodeCompoundOfBlocks:
2332 //=============================================================================
2333 GEOM::GEOM_List_ptr GEOM_Superv_i::ExplodeCompoundOfBlocks (GEOM::GEOM_Object_ptr theCompound,
2334                                                                 CORBA::Long     theMinNbFaces,
2335                                                                 CORBA::Long     theMaxNbFaces)
2336 {
2337   beginService( " GEOM_Superv_i::ExplodeCompoundOfBlocks" );
2338   MESSAGE("GEOM_Superv_i::ExplodeCompoundOfBlocks");
2339   getBlocksOp();
2340   GEOM::ListOfGO* aBlocks = myBlocksOp->ExplodeCompoundOfBlocks(theCompound, theMinNbFaces, theMaxNbFaces);
2341   GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aBlocks));
2342   endService( " GEOM_Superv_i::ExplodeCompoundOfBlocks" );
2343   return aListPtr->_this();
2344 }
2345
2346 //=============================================================================
2347 //  GetBlockNearPoint:
2348 //=============================================================================
2349 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetBlockNearPoint (GEOM::GEOM_Object_ptr theCompound,
2350                                                         GEOM::GEOM_Object_ptr thePoint)
2351 {
2352   beginService( " GEOM_Superv_i::GetBlockNearPoint" );
2353   MESSAGE("GEOM_Superv_i::GetBlockNearPoint");
2354   getBlocksOp();
2355   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetBlockNearPoint(theCompound, thePoint);
2356   endService( " GEOM_Superv_i::GetBlockNearPoint" );
2357   return anObj;
2358 }
2359
2360 //=============================================================================
2361 //  GetBlockByParts:
2362 //=============================================================================
2363 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetBlockByParts (GEOM::GEOM_Object_ptr theCompound,
2364                                                       GEOM::GEOM_List_ptr theParts)
2365 {
2366   beginService( " GEOM_Superv_i::GetBlockByParts" );
2367   MESSAGE("GEOM_Superv_i::GetBlockByParts");
2368   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
2369       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theParts, myPOA).in())) {
2370     getBlocksOp();
2371     GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetBlockByParts(theCompound, aListImplP->GetList());
2372     endService( " GEOM_Superv_i::GetBlockByParts" );
2373     return anObj;
2374   }
2375   endService( " GEOM_Superv_i::GetBlockByParts" );
2376   return NULL;
2377 }
2378
2379 //=============================================================================
2380 //  GetBlocksByParts:
2381 //=============================================================================
2382 GEOM::GEOM_List_ptr GEOM_Superv_i::GetBlocksByParts (GEOM::GEOM_Object_ptr theCompound,
2383                                                          GEOM::GEOM_List_ptr theParts)
2384 {
2385   beginService( " GEOM_Superv_i::GetBlocksByParts" );
2386   MESSAGE("GEOM_Superv_i::GetBlocksByParts");
2387   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
2388       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theParts, myPOA).in())) {
2389     getBlocksOp();
2390
2391     GEOM::ListOfGO* aBlocks = myBlocksOp->GetBlocksByParts(theCompound, aListImplP->GetList());
2392     GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aBlocks));
2393     endService( " GEOM_Superv_i::GetBlocksByParts" );
2394     return aListPtr->_this();
2395   }
2396   endService( " GEOM_Superv_i::GetBlocksByParts" );
2397   return NULL;
2398 }
2399
2400 //=============================================================================
2401 //  MakeMultiTransformation1D:
2402 //=============================================================================
2403 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeMultiTransformation1D (GEOM::GEOM_Object_ptr theBlock,
2404                                                                 CORBA::Long     theDirFace1,
2405                                                                 CORBA::Long     theDirFace2,
2406                                                                 CORBA::Long     theNbTimes)
2407 {
2408   beginService( " GEOM_Superv_i::MakeMultiTransformation1D" );
2409   MESSAGE("GEOM_Superv_i::MakeMultiTransformation1D");
2410   getBlocksOp();
2411   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeMultiTransformation1D(theBlock, theDirFace1, theDirFace2, theNbTimes);
2412   endService( " GEOM_Superv_i::MakeMultiTransformation1D" );
2413   return anObj;
2414 }
2415
2416 //=============================================================================
2417 //  MakeMultiTransformation2D:
2418 //=============================================================================
2419 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeMultiTransformation2D
2420 (GEOM::GEOM_Object_ptr theBlock,
2421  CORBA::Long     theDirFace1U,
2422  CORBA::Long     theDirFace2U,
2423  CORBA::Long     theNbTimesU,
2424  CORBA::Long     theDirFace1V,
2425  CORBA::Long     theDirFace2V,
2426  CORBA::Long     theNbTimesV)
2427 {
2428   beginService( " GEOM_Superv_i::MakeMultiTransformation2D" );
2429   MESSAGE("GEOM_Superv_i::MakeMultiTransformation2D");
2430   getBlocksOp();
2431   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeMultiTransformation2D(theBlock,
2432                                                                       theDirFace1U, theDirFace2U, theNbTimesU,
2433                                                                       theDirFace1V, theDirFace2V, theNbTimesV);
2434   endService( " GEOM_Superv_i::MakeMultiTransformation2D" );
2435   return anObj;
2436 }
2437
2438 //=============================== CurvesOperations ============================
2439 //=============================================================================
2440 //  MakeCirclePntVecR:
2441 //=============================================================================
2442 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCirclePntVecR (GEOM::GEOM_Object_ptr theCenter,
2443                                                         GEOM::GEOM_Object_ptr theVector,
2444                                                         CORBA::Double theR)
2445 {
2446   beginService( " GEOM_Superv_i::MakeCirclePntVecR" );
2447   MESSAGE("GEOM_Superv_i::MakeCirclePntVecR");
2448   getCurvesOp();
2449   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeCirclePntVecR(theCenter, theVector, theR);
2450   endService( " GEOM_Superv_i::MakeCirclePntVecR" );
2451   return anObj;
2452 }
2453
2454 //=============================================================================
2455 //  MakeCircleThreePnt:
2456 //=============================================================================
2457 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCircleThreePnt (GEOM::GEOM_Object_ptr thePnt1,
2458                                                          GEOM::GEOM_Object_ptr thePnt2,
2459                                                          GEOM::GEOM_Object_ptr thePnt3)
2460 {
2461   beginService( " GEOM_Superv_i::MakeCircleThreePnt" );
2462   MESSAGE("GEOM_Superv_i::MakeCircleThreePnt");
2463   getCurvesOp();
2464   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeCircleThreePnt(thePnt1, thePnt2, thePnt3);
2465   endService( " GEOM_Superv_i::MakeCircleThreePnt" );
2466   return anObj;
2467 }
2468 //=============================================================================
2469 //  MakeCircleCenter2Pnt:
2470 //=============================================================================
2471 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCircleCenter2Pnt (GEOM::GEOM_Object_ptr thePnt1,
2472                                                            GEOM::GEOM_Object_ptr thePnt2,
2473                                                            GEOM::GEOM_Object_ptr thePnt3)
2474 {
2475   beginService( " GEOM_Superv_i::MakeCircleCenter2Pnt" );
2476   MESSAGE("GEOM_Superv_i::MakeCircleCenter2Pnt");
2477   getCurvesOp();
2478   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeCircleCenter2Pnt(thePnt1, thePnt2, thePnt3);
2479   endService( " GEOM_Superv_i::MakeCircleCenter2Pnt" );
2480   return anObj;
2481 }
2482
2483 //=============================================================================
2484 //  MakeEllipse:
2485 //=============================================================================
2486 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeEllipse (GEOM::GEOM_Object_ptr theCenter,
2487                                                   GEOM::GEOM_Object_ptr theVector,
2488                                                   CORBA::Double theRMajor,
2489                                                   CORBA::Double theRMinor)
2490 {
2491   beginService( " GEOM_Superv_i::MakeEllipse" );
2492   MESSAGE("GEOM_Superv_i::MakeEllipse");
2493   getCurvesOp();
2494   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeEllipse(theCenter, theVector, theRMajor, theRMinor);
2495   endService( " GEOM_Superv_i::MakeEllipse" );
2496   return anObj;
2497 }
2498
2499 //=============================================================================
2500 //  MakeArc:
2501 //=============================================================================
2502 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeArc (GEOM::GEOM_Object_ptr thePnt1,
2503                                               GEOM::GEOM_Object_ptr thePnt2,
2504                                               GEOM::GEOM_Object_ptr thePnt3)
2505 {
2506   beginService( " GEOM_Superv_i::MakeArc" );
2507   MESSAGE("GEOM_Superv_i::MakeArc");
2508   getCurvesOp();
2509   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeArc(thePnt1, thePnt2, thePnt3);
2510   endService( " GEOM_Superv_i::MakeArc" );
2511   return anObj;
2512 }
2513
2514 //=============================================================================
2515 //  MakeArcCenter:
2516 //=============================================================================
2517 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeArcCenter (GEOM::GEOM_Object_ptr theCenter,
2518                                                     GEOM::GEOM_Object_ptr thePnt1,
2519                                                     GEOM::GEOM_Object_ptr thePnt2,
2520                                                     CORBA::Boolean theSense)
2521 {
2522   beginService( " GEOM_Superv_i::MakeArcCenter" );
2523   MESSAGE("GEOM_Superv_i::MakeArcCenter");
2524   getCurvesOp();
2525   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeArcCenter(theCenter, thePnt1, thePnt2,theSense);
2526   endService( " GEOM_Superv_i::MakeArcCenter" );
2527   return anObj;
2528 }
2529
2530 //=============================================================================
2531 //  MakePolyline:
2532 //=============================================================================
2533 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePolyline (GEOM::GEOM_List_ptr thePoints)
2534 {
2535   beginService( " GEOM_Superv_i::MakePolyline" );
2536   MESSAGE("GEOM_Superv_i::MakePolyline");
2537   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
2538       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(thePoints, myPOA).in())) {
2539     getCurvesOp();
2540     GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakePolyline(aListImplP->GetList());
2541     endService( " GEOM_Superv_i::MakePolyline" );
2542     return anObj;
2543   }
2544   endService( " GEOM_Superv_i::MakePolyline" );
2545   return NULL;
2546 }
2547
2548 //=============================================================================
2549 //  MakeSplineBezier:
2550 //=============================================================================
2551 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSplineBezier (GEOM::GEOM_List_ptr thePoints)
2552 {
2553   beginService( " GEOM_Superv_i::MakeSplineBezier" );
2554   MESSAGE("GEOM_Superv_i::MakeSplineBezier");
2555   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
2556       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(thePoints, myPOA).in())) {
2557     getCurvesOp();
2558     GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeSplineBezier(aListImplP->GetList());
2559     endService( " GEOM_Superv_i::MakeSplineBezier" );
2560     return anObj;
2561   }
2562   endService( " GEOM_Superv_i::MakeSplineBezier" );
2563   return NULL;
2564 }
2565
2566 //=============================================================================
2567 //  MakeSplineInterpolation:
2568 //=============================================================================
2569 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSplineInterpolation (GEOM::GEOM_List_ptr thePoints)
2570 {
2571   beginService( " GEOM_Superv_i::MakeSplineInterpolation" );
2572   MESSAGE("GEOM_Superv_i::MakeSplineInterpolation");
2573   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
2574       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(thePoints, myPOA).in())) {
2575     getCurvesOp();
2576     GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeSplineInterpolation(aListImplP->GetList());
2577     endService( " GEOM_Superv_i::MakeSplineInterpolation" );
2578     return anObj;
2579   }
2580   endService( " GEOM_Superv_i::MakeSplineInterpolation" );
2581   return NULL;
2582 }
2583
2584 //=============================================================================
2585 //  MakeSketcher:
2586 //=============================================================================
2587 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSketcher (const char* theCommand,
2588                                                    GEOM::GEOM_List_ptr theWorkingPlane)
2589 {
2590   beginService( " GEOM_Superv_i::MakeSketcher" );
2591   MESSAGE("GEOM_Superv_i::MakeSketcher");
2592   if (GEOM_List_i<GEOM::ListOfDouble>* aListImplWP =
2593       dynamic_cast<GEOM_List_i<GEOM::ListOfDouble>*>(GetServant(theWorkingPlane, myPOA).in())) {
2594     getCurvesOp();
2595     GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeSketcher(theCommand, aListImplWP->GetList());
2596     endService( " GEOM_Superv_i::MakeSketcher" );
2597     return anObj;
2598   }
2599   endService( " GEOM_Superv_i::MakeSketcher" );
2600   return NULL;
2601 }
2602
2603 //=============================== LocalOperations =============================
2604 //=============================================================================
2605 //  MakeFilletAll:
2606 //=============================================================================
2607 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilletAll (GEOM::GEOM_Object_ptr theShape,
2608                                                     CORBA::Double theR)
2609 {
2610   beginService( " GEOM_Superv_i::MakeFilletAll" );
2611   MESSAGE("GEOM_Superv_i::MakeFilletAllMakeSketcher");
2612   getLocalOp();
2613   GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFilletAll(theShape, theR);
2614   endService( " GEOM_Superv_i::MakeFilletAll" );
2615   return anObj;
2616 }
2617
2618 //=============================================================================
2619 //  MakeFilletEdges:
2620 //=============================================================================
2621 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilletEdges (GEOM::GEOM_Object_ptr theShape,
2622                                                       CORBA::Double theR,
2623                                                       GEOM::GEOM_List_ptr theEdges)
2624 {
2625   beginService( " GEOM_Superv_i::MakeFilletEdges" );
2626   MESSAGE("GEOM_Superv_i::MakeFilletEdges");
2627   if (GEOM_List_i<GEOM::ListOfLong>* aListImplE =
2628       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theEdges, myPOA).in())) {
2629     getLocalOp();
2630     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFilletEdges(theShape, theR, aListImplE->GetList());
2631     endService( " GEOM_Superv_i::MakeFilletEdges" );
2632     return anObj;
2633   }
2634   endService( " GEOM_Superv_i::MakeFilletEdges" );
2635   return NULL;
2636 }
2637
2638 //=============================================================================
2639 //  MakeFilletEdges R1 R2:
2640 //=============================================================================
2641 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilletEdgesR1R2 (GEOM::GEOM_Object_ptr theShape,
2642                                                           CORBA::Double theR1,
2643                                                           CORBA::Double theR2,
2644                                                           GEOM::GEOM_List_ptr theEdges)
2645 {
2646   beginService( " GEOM_Superv_i::MakeFilletEdgesR1R2" );
2647   MESSAGE("GEOM_Superv_i::MakeFilletEdgesR1R2");
2648   if (GEOM_List_i<GEOM::ListOfLong>* aListImplE =
2649       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theEdges, myPOA).in())) {
2650     getLocalOp();
2651     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFilletEdgesR1R2(theShape, theR1,
2652                                                                  theR2, aListImplE->GetList());
2653     endService( " GEOM_Superv_i::MakeFilletEdgesR1R2" );
2654     return anObj;
2655   }
2656   endService( " GEOM_Superv_i::MakeFilletEdgesR1R2" );
2657   return NULL;
2658 }
2659
2660 //=============================================================================
2661 //  MakeFilletFaces:
2662 //=============================================================================
2663 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilletFaces (GEOM::GEOM_Object_ptr theShape,
2664                                                       CORBA::Double theR,
2665                                                       GEOM::GEOM_List_ptr theFaces)
2666 {
2667   beginService( " GEOM_Superv_i::MakeFilletFaces" );
2668   MESSAGE("GEOM_Superv_i::MakeFilletFaces");
2669   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
2670       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theFaces, myPOA).in())) {
2671     getLocalOp();
2672     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFilletFaces(theShape, theR, aListImplF->GetList());
2673     endService( " GEOM_Superv_i::MakeFilletFaces" );
2674     return anObj;
2675   }
2676   endService( " GEOM_Superv_i::MakeFilletFaces" );
2677   return NULL;
2678 }
2679
2680 //=============================================================================
2681 //  MakeFilletFaces R1 R2:
2682 //=============================================================================
2683 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilletFacesR1R2 (GEOM::GEOM_Object_ptr theShape,
2684                                                           CORBA::Double theR1,
2685                                                           CORBA::Double theR2,
2686                                                           GEOM::GEOM_List_ptr theFaces)
2687 {
2688   beginService( " GEOM_Superv_i::MakeFilletFacesR1R2" );
2689   MESSAGE("GEOM_Superv_i::MakeFilletFacesR1R2");
2690   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
2691       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theFaces, myPOA).in())) {
2692     getLocalOp();
2693     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFilletFacesR1R2(theShape, theR1, theR2,
2694                                                                  aListImplF->GetList());
2695     endService( " GEOM_Superv_i::MakeFilletFacesR1R2" );
2696     return anObj;
2697   }
2698   endService( " GEOM_Superv_i::MakeFilletFacesR1R2" );
2699   return NULL;
2700 }
2701
2702 //=============================================================================
2703 //  MakeChamferAll:
2704 //=============================================================================
2705 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferAll (GEOM::GEOM_Object_ptr theShape, CORBA::Double theD)
2706 {
2707   beginService( " GEOM_Superv_i::MakeChamferAll" );
2708   MESSAGE("GEOM_Superv_i::MakeChamferAll");
2709   getLocalOp();
2710   GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferAll(theShape, theD);
2711   endService( " GEOM_Superv_i::MakeChamferAll" );
2712   return anObj;
2713 }
2714
2715 //=============================================================================
2716 //  MakeChamferEdge:
2717 //=============================================================================
2718 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferEdge (GEOM::GEOM_Object_ptr theShape,
2719                                                       CORBA::Double theD1, CORBA::Double theD2,
2720                                                       CORBA::Long theFace1, CORBA::Long theFace2)
2721 {
2722   beginService( " GEOM_Superv_i::MakeChamferEdge" );
2723   MESSAGE("GEOM_Superv_i::MakeChamferEdge");
2724   getLocalOp();
2725   GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferEdge(theShape, theD1, theD2, theFace1, theFace2);
2726   endService( " GEOM_Superv_i::MakeChamferEdge" );
2727   return anObj;
2728 }
2729
2730 //=============================================================================
2731 //  MakeChamferEdgeAD:
2732 //=============================================================================
2733 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferEdgeAD (GEOM::GEOM_Object_ptr theShape,
2734                                                         CORBA::Double theD, CORBA::Double theAngle,
2735                                                         CORBA::Long theFace1, CORBA::Long theFace2)
2736 {
2737   beginService( " GEOM_Superv_i::MakeChamferEdgeAD" );
2738   MESSAGE("GEOM_Superv_i::MakeChamferEdgeAD");
2739   getLocalOp();
2740   GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferEdgeAD(theShape, theD, theAngle, theFace1, theFace2);
2741   endService( " GEOM_Superv_i::MakeChamferEdgeAD" );
2742   return anObj;
2743 }
2744
2745 //=============================================================================
2746 //  MakeChamferFaces:
2747 //=============================================================================
2748 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferFaces (GEOM::GEOM_Object_ptr theShape,
2749                                                        CORBA::Double theD1, CORBA::Double theD2,
2750                                                        GEOM::GEOM_List_ptr theFaces)
2751 {
2752   beginService( " GEOM_Superv_i::MakeChamferFaces" );
2753   MESSAGE("GEOM_Superv_i::MakeChamferFaces");
2754   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
2755       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theFaces, myPOA).in())) {
2756     getLocalOp();
2757     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferFaces(theShape, theD1, theD2, aListImplF->GetList());
2758     endService( " GEOM_Superv_i::MakeChamferFaces" );
2759     return anObj;
2760   }
2761   endService( " GEOM_Superv_i::MakeChamferFaces" );
2762   return NULL;
2763 }
2764
2765 //=============================================================================
2766 //  MakeChamferFacesAD:
2767 //=============================================================================
2768 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferFacesAD (GEOM::GEOM_Object_ptr theShape,
2769                                                          CORBA::Double theD, CORBA::Double theAngle,
2770                                                          GEOM::GEOM_List_ptr theFaces)
2771 {
2772   beginService( " GEOM_Superv_i::MakeChamferFacesAD" );
2773   MESSAGE("GEOM_Superv_i::MakeChamferFacesAD");
2774   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
2775       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theFaces, myPOA).in())) {
2776     getLocalOp();
2777     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferFacesAD(theShape, theD, theAngle, aListImplF->GetList());
2778     endService( " GEOM_Superv_i::MakeChamferFacesAD" );
2779     return anObj;
2780   }
2781   endService( " GEOM_Superv_i::MakeChamferFacesAD" );
2782   return NULL;
2783 }
2784
2785 //=============================================================================
2786 //  MakeChamferEdges:
2787 //=============================================================================
2788 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferEdges (GEOM::GEOM_Object_ptr theShape,
2789                                                        CORBA::Double theD1, CORBA::Double theD2,
2790                                                        GEOM::GEOM_List_ptr theEdges)
2791 {
2792   beginService( " GEOM_Superv_i::MakeChamferEdges" );
2793   MESSAGE("GEOM_Superv_i::MakeChamferEdges");
2794   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
2795       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theEdges, myPOA).in())) {
2796     getLocalOp();
2797     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferEdges(theShape, theD1, theD2, aListImplF->GetList());
2798     endService( " GEOM_Superv_i::MakeChamferEdges" );
2799     return anObj;
2800   }
2801   endService( " GEOM_Superv_i::MakeChamferEdges" );
2802   return NULL;
2803 }
2804
2805 //=============================================================================
2806 //  MakeChamferEdgesAD:
2807 //=============================================================================
2808 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferEdgesAD (GEOM::GEOM_Object_ptr theShape,
2809                                                          CORBA::Double theD, CORBA::Double theAngle,
2810                                                          GEOM::GEOM_List_ptr theEdges)
2811 {
2812   beginService( " GEOM_Superv_i::MakeChamferEdgesAD" );
2813   MESSAGE("GEOM_Superv_i::MakeChamferEdgesAD");
2814   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
2815       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theEdges, myPOA).in())) {
2816     getLocalOp();
2817     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferEdgesAD(theShape, theD, theAngle, aListImplF->GetList());
2818     endService( " GEOM_Superv_i::MakeChamferEdgesAD" );
2819     return anObj;
2820   }
2821   endService( " GEOM_Superv_i::MakeChamferEdgesAD" );
2822   return NULL;
2823 }
2824
2825 //=============================================================================
2826 //  MakeArchimede:
2827 //=============================================================================
2828 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeArchimede (GEOM::GEOM_Object_ptr theShape,
2829                                                     CORBA::Double theWeight,
2830                                                     CORBA::Double theWaterDensity,
2831                                                     CORBA::Double theMeshingDeflection)
2832 {
2833   beginService( " GEOM_Superv_i::MakeArchimede" );
2834   MESSAGE("GEOM_Superv_i::MakeArchimede");
2835   getLocalOp();
2836   GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeArchimede(theShape, theWeight, theWaterDensity, theMeshingDeflection);
2837   endService( " GEOM_Superv_i::MakeArchimede" );
2838   return anObj;
2839 }
2840
2841 //=============================================================================
2842 //  GetSubShapeIndexMakeFilletAll:
2843 //=============================================================================
2844 CORBA::Long GEOM_Superv_i::GetSubShapeIndex (GEOM::GEOM_Object_ptr theShape,
2845                                              GEOM::GEOM_Object_ptr theSubShape)
2846 {
2847   beginService( " GEOM_Superv_i::GetSubShapeIndex" );
2848   MESSAGE("GEOM_Superv_i::GetSubShapeIndexMakeArchimede");
2849   getLocalOp();
2850   CORBA::Long aRes = myLocalOp->GetSubShapeIndex(theShape, theSubShape);
2851   endService( " GEOM_Superv_i::GetSubShapeIndex" );
2852   return aRes;
2853 }
2854
2855 //=============================== GroupOperations =============================
2856 //=============================================================================
2857 //  CreateGroup:
2858 //=============================================================================
2859 GEOM::GEOM_Object_ptr GEOM_Superv_i::CreateGroup (GEOM::GEOM_Object_ptr theMainShape,
2860                                                   CORBA::Long theShapeType)
2861 {
2862   beginService( " GEOM_Superv_i::CreateGroup" );
2863   MESSAGE("GEOM_Superv_i::CreateGroup");
2864   getGroupOp();
2865   GEOM::GEOM_Object_ptr anObj = myGroupOp->CreateGroup(theMainShape, theShapeType);
2866   endService( " GEOM_Superv_i::CreateGroup" );
2867   return anObj;
2868 }
2869
2870 //=============================================================================
2871 //  AddObject:
2872 //=============================================================================
2873 void GEOM_Superv_i::AddObject (GEOM::GEOM_Object_ptr theGroup,
2874                                CORBA::Long theSubShapeId)
2875 {
2876   beginService( " GEOM_Superv_i::AddObject" );
2877   MESSAGE("GEOM_Superv_i::AddObject");
2878   getGroupOp();
2879   myGroupOp->AddObject(theGroup, theSubShapeId);
2880   endService( " GEOM_Superv_i::AddObject" );
2881 }
2882
2883 //=============================================================================
2884 //  RemoveObject:
2885 //=============================================================================
2886 void GEOM_Superv_i::RemoveObject (GEOM::GEOM_Object_ptr theGroup,
2887                                   CORBA::Long theSubShapeId)
2888 {
2889   beginService( " GEOM_Superv_i::RemoveObject" );
2890   MESSAGE("GEOM_Superv_i::RemoveObject");
2891   getGroupOp();
2892   myGroupOp->RemoveObject(theGroup, theSubShapeId);
2893   endService( " GEOM_Superv_i::RemoveObject" );
2894 }
2895
2896 //=============================================================================
2897 //  GetType:
2898 //=============================================================================
2899 CORBA::Long GEOM_Superv_i::GetType (GEOM::GEOM_Object_ptr theGroup)
2900 {
2901   beginService( " GEOM_Superv_i::GetType" );
2902   MESSAGE("GEOM_Superv_i::GetType");
2903   getGroupOp();
2904   CORBA::Long aResult = myGroupOp->GetType(theGroup);
2905   endService( " GEOM_Superv_i::GetType" );
2906   return aResult;
2907 }
2908
2909 //=============================================================================
2910 //  GetMainShape:
2911 //=============================================================================
2912 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetMainShape (GEOM::GEOM_Object_ptr theGroup)
2913 {
2914   beginService( " GEOM_Superv_i::GetMainShape" );
2915   MESSAGE("GEOM_Superv_i::GetMainShape");
2916   getGroupOp();
2917   GEOM::GEOM_Object_ptr anObj = myGroupOp->GetMainShape(theGroup);
2918   endService( " GEOM_Superv_i::GetMainShape" );
2919   return anObj;
2920 }
2921
2922 //=============================================================================
2923 //  GetObjects:
2924 //=============================================================================
2925 GEOM::GEOM_List_ptr GEOM_Superv_i::GetObjects (GEOM::GEOM_Object_ptr theGroup)
2926 {
2927   beginService( " GEOM_Superv_i::GetObjects" );
2928   MESSAGE("GEOM_Superv_i::GetObjects");
2929   getGroupOp();
2930
2931   GEOM::ListOfLong* aList = myGroupOp->GetObjects(theGroup);
2932   GEOM_List_i<GEOM::ListOfLong>* aListPtr = new GEOM_List_i<GEOM::ListOfLong>(*(aList));
2933   MESSAGE(" List of "<<aListPtr->GetList().length()<<" element(s)");
2934   endService( " GEOM_Superv_i::GetObjects" );
2935   return aListPtr->_this();
2936 }
2937
2938 //=====================================================================================
2939 // EXPORTED METHODS
2940 //=====================================================================================
2941 extern "C"
2942 {
2943   PortableServer::ObjectId * GEOM_SupervEngine_factory(CORBA::ORB_ptr orb,
2944                                                       PortableServer::POA_ptr poa,
2945                                                       PortableServer::ObjectId * contId,
2946                                                       const char *instanceName,
2947                                                       const char * interfaceName)
2948   {
2949     GEOM_Superv_i * myGEOM_Superv_i = new GEOM_Superv_i(orb, poa, contId, instanceName, interfaceName);
2950     //Don't understand the reason why this component is registered ???
2951 //    myGEOM_Superv_i->register_name("/myGEOM_Superv");
2952     return myGEOM_Superv_i->getId() ;
2953   }
2954 }