src/GEOM_I_Superv/GEOM_Superv_i.cc

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