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 {
1345   beginService( " GEOM_Superv_i::MakeBoolean" );
1346   // theOperation indicates the operation to be done:
1347   // 1 - Common, 2 - Cut, 3 - Fuse, 4 - Section
1348   MESSAGE("GEOM_Superv_i::MakeBoolean");
1349   getBoolOp();
1350   GEOM::GEOM_Object_ptr anObj =
1351     myBoolOp->MakeBoolean(theShape1, theShape2, theOperation, false);
1352   endService( " GEOM_Superv_i::MakeBoolean" );
1353   return anObj;
1354 }
1355
1356 //=============================================================================
1357 //  MakeThruSections:
1358 //=============================================================================
1359 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeThruSections(const GEOM::ListOfGO& theSeqSections,
1360                                          CORBA::Boolean theModeSolid,
1361                                          CORBA::Double thePreci,
1362                                          CORBA::Boolean theRuled)
1363 {
1364   beginService( " GEOM_Superv_i::MakeThruSections" );
1365   MESSAGE("GEOM_Superv_i::MakeThruSections");
1366   get3DPrimOp();
1367   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakeThruSections(theSeqSections, theModeSolid,thePreci,theRuled);
1368   endService( " GEOM_Superv_i::MakeThruSections" );
1369   return anObj;
1370 }
1371
1372 //=============================================================================
1373 //  MakePipe:
1374 //=============================================================================
1375 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePipeWithDifferentSections
1376                      (const GEOM::ListOfGO& theBases,
1377                       const GEOM::ListOfGO& theLocations,
1378                       GEOM::GEOM_Object_ptr thePath,
1379                       CORBA::Boolean theWithContact,
1380                       CORBA::Boolean theWithCorrections)
1381 {
1382   beginService( " GEOM_Superv_i::MakePipeWithDifferentSections" );
1383   MESSAGE("GEOM_Superv_i::MakePipeWithDifferentSections");
1384   get3DPrimOp();
1385   GEOM::GEOM_Object_ptr anObj = my3DPrimOp->MakePipeWithDifferentSections(theBases,theLocations, thePath,theWithContact,theWithCorrections);
1386   endService( " GEOM_Superv_i::MakePipeWithDifferentSections" );
1387   return anObj;
1388 }
1389
1390
1391 //=============================================================================
1392 //  MakePipe:
1393 //=============================================================================
1394 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePipeWithShellSections
1395                    (const GEOM::ListOfGO& theBases,
1396                     const GEOM::ListOfGO& theSubBases,
1397                     const GEOM::ListOfGO& theLocations,
1398                     GEOM::GEOM_Object_ptr thePath,
1399                     CORBA::Boolean theWithContact,
1400                     CORBA::Boolean theWithCorrections)
1401 {
1402   beginService( " GEOM_Superv_i::MakePipeWithShellSections" );
1403   MESSAGE("GEOM_Superv_i::MakePipeWithShellSections");
1404   get3DPrimOp();
1405   GEOM::GEOM_Object_ptr anObj =
1406     my3DPrimOp->MakePipeWithShellSections(theBases, theSubBases,
1407                                           theLocations, thePath,
1408                                           theWithContact, theWithCorrections);
1409   endService( " GEOM_Superv_i::MakePipeWithShellSections" );
1410   return anObj;
1411 }
1412
1413
1414 //=============================================================================
1415 //  MakePipe:
1416 //=============================================================================
1417 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePipeShellsWithoutPath
1418                    (const GEOM::ListOfGO& theBases,
1419                     const GEOM::ListOfGO& theLocations)
1420 {
1421   beginService( " GEOM_Superv_i::MakePipeShellsWithoutPath" );
1422   MESSAGE("GEOM_Superv_i::MakePipeShellsWithoutPath");
1423   get3DPrimOp();
1424   GEOM::GEOM_Object_ptr anObj =
1425     my3DPrimOp->MakePipeShellsWithoutPath(theBases,theLocations);
1426   endService( " GEOM_Superv_i::MakePipeShellsWithoutPath" );
1427   return anObj;
1428 }
1429
1430
1431 //=============================================================================
1432 //  MakePipe:
1433 //=============================================================================
1434 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePipeBiNormalAlongVector
1435                                                 (GEOM::GEOM_Object_ptr theBase,
1436                                                  GEOM::GEOM_Object_ptr thePath,
1437                                                  GEOM::GEOM_Object_ptr theVec)
1438 {
1439   beginService( " GEOM_Superv_i::MakePipeBiNormalAlongVector" );
1440   MESSAGE("GEOM_Superv_i::MakePipeBiNormalAlongVector");
1441   get3DPrimOp();
1442   GEOM::GEOM_Object_ptr anObj =
1443     my3DPrimOp->MakePipeBiNormalAlongVector(theBase, thePath, theVec);
1444   endService( " GEOM_Superv_i::MakePipeBiNormalAlongVector" );
1445   return anObj;
1446 }
1447
1448
1449 //=============================================================================
1450 //  MakeFuse:
1451 //=============================================================================
1452 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFuse
1453                                         (GEOM::GEOM_Object_ptr theShape1,
1454                                          GEOM::GEOM_Object_ptr theShape2)
1455 {
1456   beginService( " GEOM_Superv_i::MakeFuse" );
1457   MESSAGE("GEOM_Superv_i::MakeFuse");
1458   getBoolOp();
1459   GEOM::GEOM_Object_ptr anObj =
1460     myBoolOp->MakeBoolean(theShape1, theShape2, 3, false);
1461   endService( " GEOM_Superv_i::MakeFuse" );
1462   return anObj;
1463 }
1464
1465 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCommon (GEOM::GEOM_Object_ptr theShape1,
1466                                                  GEOM::GEOM_Object_ptr theShape2)
1467 {
1468   beginService( " GEOM_Superv_i::MakeCommon" );
1469   MESSAGE("GEOM_Superv_i::MakeCommon");
1470   getBoolOp();
1471   GEOM::GEOM_Object_ptr anObj =
1472     myBoolOp->MakeBoolean(theShape1, theShape2, 1, false);
1473   endService( " GEOM_Superv_i::MakeCommon" );
1474   return anObj;
1475 }
1476
1477 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCut (GEOM::GEOM_Object_ptr theShape1,
1478                                               GEOM::GEOM_Object_ptr theShape2)
1479 {
1480   beginService( " GEOM_Superv_i::MakeCut" );
1481   MESSAGE("GEOM_Superv_i::MakeCut");
1482   getBoolOp();
1483   GEOM::GEOM_Object_ptr anObj =
1484     myBoolOp->MakeBoolean(theShape1, theShape2, 2, false);
1485   endService( " GEOM_Superv_i::MakeCut" );
1486   return anObj;
1487 }
1488
1489 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSection (GEOM::GEOM_Object_ptr theShape1,
1490                                                   GEOM::GEOM_Object_ptr theShape2)
1491 {
1492   beginService( " GEOM_Superv_i::MakeCut" );
1493   MESSAGE("GEOM_Superv_i::MakeCut");
1494   getBoolOp();
1495   GEOM::GEOM_Object_ptr anObj =
1496     myBoolOp->MakeBoolean(theShape1, theShape2, 4, false);
1497   endService( " GEOM_Superv_i::MakeCut" );
1498   return anObj;
1499 }
1500
1501 //=============================================================================
1502 //  MakePartition:
1503 //=============================================================================
1504 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePartition (GEOM::GEOM_List_ptr   theShapes,
1505                                                     GEOM::GEOM_List_ptr   theTools,
1506                                                     GEOM::GEOM_List_ptr   theKeepInside,
1507                                                     GEOM::GEOM_List_ptr   theRemoveInside,
1508                                                     CORBA::Short      theLimit,
1509                                                     CORBA::Boolean    theRemoveWebs,
1510                                                     GEOM::GEOM_List_ptr theMaterials,
1511                                                     CORBA::Short theKeepNonlimitShapes)
1512 {
1513   beginService( " GEOM_Superv_i::MakePartition" );
1514   MESSAGE("GEOM_Superv_i::MakePartition");
1515   GEOM_List_i<GEOM::ListOfGO>* aListImplS =
1516     dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theShapes, myPOA).in());
1517   GEOM_List_i<GEOM::ListOfGO>* aListImplT =
1518     dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theTools, myPOA).in());
1519   GEOM_List_i<GEOM::ListOfGO>* aListImplKI =
1520     dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theKeepInside, myPOA).in());
1521   GEOM_List_i<GEOM::ListOfGO>* aListImplRI =
1522     dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theRemoveInside, myPOA).in());
1523   GEOM_List_i<GEOM::ListOfLong>* aListImplM =
1524     dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theMaterials, myPOA).in());
1525   if (aListImplS && aListImplT && aListImplKI && aListImplRI && aListImplM) {
1526     getBoolOp();
1527     GEOM::GEOM_Object_ptr anObj =
1528       myBoolOp->MakePartition(aListImplS->GetList(), aListImplT->GetList(),
1529                               aListImplKI->GetList(), aListImplRI->GetList(),
1530                               theLimit, theRemoveWebs, aListImplM->GetList(),
1531                               theKeepNonlimitShapes, false);
1532     endService( " GEOM_Superv_i::MakePartition" );
1533     return anObj;
1534   }
1535   endService( " GEOM_Superv_i::MakePartition" );
1536   return NULL;
1537 }
1538
1539 //=============================================================================
1540 //  MakeHalfPartition:
1541 //=============================================================================
1542 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeHalfPartition (GEOM::GEOM_Object_ptr theShape,
1543                                                         GEOM::GEOM_Object_ptr thePlane)
1544 {
1545   beginService( " GEOM_Superv_i::MakeHalfPartition" );
1546   MESSAGE("GEOM_Superv_i::MakeHalfPartition");
1547   getBoolOp();
1548   GEOM::GEOM_Object_ptr anObj =
1549     myBoolOp->MakeHalfPartition(theShape, thePlane, false);
1550   endService( " GEOM_Superv_i::MakeHalfPartition" );
1551   return anObj;
1552 }
1553
1554 //============================== InsertOperations =============================
1555 //=============================================================================
1556 //  MakeCopy:
1557 //=============================================================================
1558 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCopy (GEOM::GEOM_Object_ptr theOriginal)
1559 {
1560   beginService( " GEOM_Superv_i::MakeCopy" );
1561   MESSAGE("GEOM_Superv_i::MakeCopy");
1562   getInsOp();
1563   GEOM::GEOM_Object_ptr anObj = myInsOp->MakeCopy(theOriginal);
1564   endService( " GEOM_Superv_i::MakeCopy" );
1565   return anObj;
1566 }
1567
1568 //=============================================================================
1569 //  Export:
1570 //=============================================================================
1571 void GEOM_Superv_i::Export (GEOM::GEOM_Object_ptr theObject,
1572                             const char*           theFileName,
1573                             const char*           theFormatName)
1574 {
1575   beginService( " GEOM_Superv_i::Export" );
1576   MESSAGE("GEOM_Superv_i::Export");
1577   getInsOp();
1578   myInsOp->Export(theObject, theFileName, theFormatName);
1579   endService( " GEOM_Superv_i::Export" );
1580 }
1581
1582 //=============================================================================
1583 //  Import:
1584 //=============================================================================
1585 GEOM::GEOM_Object_ptr GEOM_Superv_i::ImportFile (const char* theFileName,
1586                                                  const char* theFormatName)
1587 {
1588   beginService( " GEOM_Superv_i::ImportFile" );
1589   MESSAGE("GEOM_Superv_i::ImportFile");
1590   getInsOp();
1591   GEOM::GEOM_Object_ptr anObj = myInsOp->ImportFile(theFileName, theFormatName);
1592   endService( " GEOM_Superv_i::ImportFile" );
1593   return anObj;
1594 }
1595
1596 //=============================================================================
1597 //  ImportTranslators:
1598 //=============================================================================
1599 void GEOM_Superv_i::ImportTranslators (GEOM::string_array_out theFormats,
1600                                        GEOM::string_array_out thePatterns)
1601 {
1602   beginService( " GEOM_Superv_i::ImportTranslators" );
1603   MESSAGE("GEOM_Superv_i::ImportTranslators");
1604   getInsOp();
1605   myInsOp->ImportTranslators(theFormats, thePatterns);
1606   endService( " GEOM_Superv_i::ImportTranslators" );
1607 }
1608
1609 //=============================================================================
1610 //  ExportTranslators:
1611 //=============================================================================
1612 void GEOM_Superv_i::ExportTranslators (GEOM::string_array_out theFormats,
1613                                        GEOM::string_array_out thePatterns)
1614 {
1615   beginService( " GEOM_Superv_i::ExportTranslators" );
1616   MESSAGE("GEOM_Superv_i::ExportTranslators");
1617   getInsOp();
1618   myInsOp->ExportTranslators(theFormats, thePatterns);
1619   endService( " GEOM_Superv_i::ExportTranslators" );
1620 }
1621
1622 //============================= TransformOperations ===========================
1623 //=============================================================================
1624 //  TranslateTwoPoints:
1625 //=============================================================================
1626 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateTwoPoints (GEOM::GEOM_Object_ptr theObject,
1627                                                          GEOM::GEOM_Object_ptr thePoint1,
1628                                                          GEOM::GEOM_Object_ptr thePoint2)
1629 {
1630   beginService( " GEOM_Superv_i::TranslateTwoPoints" );
1631   MESSAGE("GEOM_Superv_i::TranslateTwoPoints");
1632   getTransfOp();
1633   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateTwoPoints(theObject, thePoint1, thePoint2);
1634   endService( " GEOM_Superv_i::TranslateTwoPoints" );
1635   return anObj;
1636 }
1637
1638 //=============================================================================
1639 //  TranslateTwoPointsCopy:
1640 //=============================================================================
1641 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateTwoPointsCopy (GEOM::GEOM_Object_ptr theObject,
1642                                                              GEOM::GEOM_Object_ptr thePoint1,
1643                                                              GEOM::GEOM_Object_ptr thePoint2)
1644 {
1645   beginService( " GEOM_Superv_i::TranslateTwoPointsCopy" );
1646   MESSAGE("GEOM_Superv_i::TranslateTwoPointsCopy");
1647   getTransfOp();
1648   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateTwoPointsCopy(theObject, thePoint1, thePoint2);
1649   endService( " GEOM_Superv_i::TranslateTwoPointsCopy" );
1650   return anObj;
1651 }
1652
1653 //=============================================================================
1654 //  TranslateDXDYDZ:
1655 //=============================================================================
1656 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateDXDYDZ (GEOM::GEOM_Object_ptr theObject,
1657                                                       CORBA::Double theDX,
1658                                                       CORBA::Double theDY,
1659                                                       CORBA::Double theDZ)
1660 {
1661   beginService( " GEOM_Superv_i::TranslateDXDYDZ" );
1662   MESSAGE("GEOM_Superv_i::TranslateDXDYDZ");
1663   getTransfOp();
1664   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateDXDYDZ(theObject, theDX, theDY, theDZ);
1665   endService( " GEOM_Superv_i::TranslateDXDYDZ" );
1666   return anObj;
1667 }
1668
1669 //=============================================================================
1670 //  TranslateDXDYDZCopy:
1671 //=============================================================================
1672 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateDXDYDZCopy (GEOM::GEOM_Object_ptr theObject,
1673                                                           CORBA::Double theDX,
1674                                                           CORBA::Double theDY,
1675                                                           CORBA::Double theDZ)
1676 {
1677   beginService( " GEOM_Superv_i::TranslateDXDYDZCopy" );
1678   MESSAGE("GEOM_Superv_i::TranslateDXDYDZCopy");
1679   getTransfOp();
1680   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateDXDYDZCopy(theObject, theDX, theDY, theDZ);
1681   endService( " GEOM_Superv_i::TranslateDXDYDZCopy" );
1682   return anObj;
1683 }
1684
1685 //=============================================================================
1686 //  TranslateVector:
1687 //=============================================================================
1688 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateVector (GEOM::GEOM_Object_ptr theObject,
1689                                                       GEOM::GEOM_Object_ptr theVector)
1690 {
1691   beginService( " GEOM_Superv_i::TranslateVector" );
1692   MESSAGE("GEOM_Superv_i::TranslateVector");
1693   getTransfOp();
1694   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateVector(theObject, theVector);
1695   endService( " GEOM_Superv_i::TranslateVector" );
1696   return anObj;
1697 }
1698
1699 //=============================================================================
1700 //  TranslateVectorCopy:
1701 //=============================================================================
1702 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateVectorCopy (GEOM::GEOM_Object_ptr theObject,
1703                                                           GEOM::GEOM_Object_ptr theVector)
1704 {
1705   beginService( " GEOM_Superv_i::TranslateVectorCopy" );
1706   MESSAGE("GEOM_Superv_i::TranslateVectorCopy");
1707   getTransfOp();
1708   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateVectorCopy(theObject, theVector);
1709   endService( " GEOM_Superv_i::TranslateVectorCopy" );
1710   return anObj;
1711 }
1712
1713 //=============================================================================
1714 //  TranslateVectorDistance:
1715 //=============================================================================
1716 GEOM::GEOM_Object_ptr GEOM_Superv_i::TranslateVectorDistance (GEOM::GEOM_Object_ptr theObject,
1717                                                               GEOM::GEOM_Object_ptr theVector,
1718                                                               CORBA::Double theDistance,
1719                                                               CORBA::Boolean theCopy)
1720 {
1721   beginService( " GEOM_Superv_i::TranslateVectorDistance" );
1722   MESSAGE("GEOM_Superv_i::TranslateVectorDistance");
1723   getTransfOp();
1724   GEOM::GEOM_Object_ptr anObj = myTransfOp->TranslateVectorDistance(theObject,
1725                                                                     theVector, theDistance, theCopy);
1726   endService( " GEOM_Superv_i::TranslateVectorDistance" );
1727   return anObj;
1728 }
1729
1730 //=============================================================================
1731 //  MultiTranslate1D:
1732 //=============================================================================
1733 GEOM::GEOM_Object_ptr GEOM_Superv_i::MultiTranslate1D (GEOM::GEOM_Object_ptr theObject,
1734                                                        GEOM::GEOM_Object_ptr theVector,
1735                                                        CORBA::Double theStep,
1736                                                        CORBA::Long theNbTimes)
1737 {
1738   beginService( " GEOM_Superv_i::MultiTranslate1D" );
1739   MESSAGE("GEOM_Superv_i::MultiTranslate1D");
1740   getTransfOp();
1741   GEOM::GEOM_Object_ptr anObj = myTransfOp->MultiTranslate1D(theObject, theVector, theStep, theNbTimes);
1742   endService( " GEOM_Superv_i::MultiTranslate1D" );
1743   return anObj;
1744 }
1745
1746 //=============================================================================
1747 //  MultiTranslate2D:
1748 //=============================================================================
1749 GEOM::GEOM_Object_ptr GEOM_Superv_i::MultiTranslate2D (GEOM::GEOM_Object_ptr theObject,
1750                                                        GEOM::GEOM_Object_ptr theVector1,
1751                                                        CORBA::Double theStep1,
1752                                                        CORBA::Long theNbTimes1,
1753                                                        GEOM::GEOM_Object_ptr theVector2,
1754                                                        CORBA::Double theStep2,
1755                                                        CORBA::Long theNbTimes2)
1756 {
1757   beginService( " GEOM_Superv_i::MultiTranslate2D" );
1758   MESSAGE("GEOM_Superv_i::MultiTranslate2D");
1759   getTransfOp();
1760   GEOM::GEOM_Object_ptr anObj = myTransfOp->MultiTranslate2D(theObject, theVector1, theStep1, theNbTimes1,
1761                                                              theVector2, theStep2, theNbTimes2);
1762   endService( " GEOM_Superv_i::MultiTranslate2D" );
1763   return anObj;
1764 }
1765
1766 //=============================================================================
1767 //  Rotate:
1768 //=============================================================================
1769 GEOM::GEOM_Object_ptr GEOM_Superv_i::Rotate (GEOM::GEOM_Object_ptr theObject,
1770                                              GEOM::GEOM_Object_ptr theAxis,
1771                                              CORBA::Double theAngle)
1772 {
1773   beginService( " GEOM_Superv_i::Rotate" );
1774   MESSAGE("GEOM_Superv_i::Rotate");
1775   getTransfOp();
1776   GEOM::GEOM_Object_ptr anObj = myTransfOp->Rotate(theObject, theAxis, theAngle);
1777   endService( " GEOM_Superv_i::Rotate" );
1778   return anObj;
1779 }
1780
1781 //=============================================================================
1782 //  RotateCopy:
1783 //=============================================================================
1784 GEOM::GEOM_Object_ptr GEOM_Superv_i::RotateCopy (GEOM::GEOM_Object_ptr theObject,
1785                                                  GEOM::GEOM_Object_ptr theAxis,
1786                                                  CORBA::Double theAngle)
1787 {
1788   beginService( " GEOM_Superv_i::RotateCopy" );
1789   MESSAGE("GEOM_Superv_i::RotateCopy");
1790   getTransfOp();
1791   GEOM::GEOM_Object_ptr anObj = myTransfOp->RotateCopy(theObject, theAxis, theAngle);
1792   endService( " GEOM_Superv_i::RotateCopy" );
1793   return anObj;
1794 }
1795 //=============================================================================
1796 //  RotateThreePoints:
1797 //=============================================================================
1798 GEOM::GEOM_Object_ptr GEOM_Superv_i::RotateThreePoints (GEOM::GEOM_Object_ptr theObject,
1799                                                         GEOM::GEOM_Object_ptr theCentPoint,
1800                                                         GEOM::GEOM_Object_ptr thePoint1,
1801                                                         GEOM::GEOM_Object_ptr thePoint2)
1802 {
1803   beginService( " GEOM_Superv_i::RotateThreePoints" );
1804   MESSAGE("GEOM_Superv_i::RotateThreePoints");
1805   getTransfOp();
1806   GEOM::GEOM_Object_ptr anObj = myTransfOp->RotateThreePoints(theObject, theCentPoint, thePoint1, thePoint2);
1807   endService( " GEOM_Superv_i::RotateThreePoints" );
1808   return anObj;
1809 }
1810
1811 //=============================================================================
1812 //  RotateThreePointsCopy:
1813 //=============================================================================
1814 GEOM::GEOM_Object_ptr GEOM_Superv_i::RotateThreePointsCopy (GEOM::GEOM_Object_ptr theObject,
1815                                                             GEOM::GEOM_Object_ptr theCentPoint,
1816                                                             GEOM::GEOM_Object_ptr thePoint1,
1817                                                             GEOM::GEOM_Object_ptr thePoint2)
1818 {
1819   beginService( " GEOM_Superv_i::RotateThreePointsCopy" );
1820   MESSAGE("GEOM_Superv_i::RotateThreePointsCopy");
1821   getTransfOp();
1822   GEOM::GEOM_Object_ptr anObj = myTransfOp->RotateThreePointsCopy(theObject, theCentPoint, thePoint1, thePoint2);
1823   endService( " GEOM_Superv_i::RotateThreePointsCopy" );
1824   return anObj;
1825 }
1826
1827 //=============================================================================
1828 //  MultiRotate1D:
1829 //=============================================================================
1830 GEOM::GEOM_Object_ptr GEOM_Superv_i::MultiRotate1D (GEOM::GEOM_Object_ptr theObject,
1831                                                     GEOM::GEOM_Object_ptr theAxis,
1832                                                     CORBA::Long theNbTimes)
1833 {
1834   beginService( " GEOM_Superv_i::MultiRotate1D" );
1835   MESSAGE("GEOM_Superv_i::MultiRotate1D");
1836   getTransfOp();
1837   GEOM::GEOM_Object_ptr anObj = myTransfOp->MultiRotate1D(theObject, theAxis, theNbTimes);
1838   endService( " GEOM_Superv_i::MultiRotate1D" );
1839   return anObj;
1840 }
1841
1842 //=============================================================================
1843 //  MultiRotate2D:
1844 //=============================================================================
1845 GEOM::GEOM_Object_ptr GEOM_Superv_i::MultiRotate2D (GEOM::GEOM_Object_ptr theObject,
1846                                                     GEOM::GEOM_Object_ptr theAxis,
1847                                                     CORBA::Double theAngle,
1848                                                     CORBA::Long theNbTimes1,
1849                                                     CORBA::Double theStep,
1850                                                     CORBA::Long theNbTimes2)
1851 {
1852   beginService( " GEOM_Superv_i::MultiRotate2D" );
1853   MESSAGE("GEOM_Superv_i::MultiRotate2D");
1854   getTransfOp();
1855   GEOM::GEOM_Object_ptr anObj = myTransfOp->MultiRotate2D(theObject, theAxis, theAngle, theNbTimes1, theStep, theNbTimes2);
1856   endService( " GEOM_Superv_i::MultiRotate2D" );
1857   return anObj;
1858 }
1859
1860 //=============================================================================
1861 //  MirrorPlane:
1862 //=============================================================================
1863 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorPlane (GEOM::GEOM_Object_ptr theObject,
1864                                                   GEOM::GEOM_Object_ptr thePlane)
1865 {
1866   beginService( " GEOM_Superv_i::MirrorPlane" );
1867   MESSAGE("GEOM_Superv_i::MirrorPlane");
1868   getTransfOp();
1869   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorPlane(theObject, thePlane);
1870   endService( " GEOM_Superv_i::MirrorPlane" );
1871   return anObj;
1872 }
1873
1874 //=============================================================================
1875 //  MirrorPlaneCopy:
1876 //=============================================================================
1877 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorPlaneCopy (GEOM::GEOM_Object_ptr theObject,
1878                                                       GEOM::GEOM_Object_ptr thePlane)
1879 {
1880   beginService( " GEOM_Superv_i::MirrorPlaneCopy" );
1881   MESSAGE("GEOM_Superv_i::MirrorPlaneCopy");
1882   getTransfOp();
1883   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorPlaneCopy(theObject, thePlane);
1884   endService( " GEOM_Superv_i::MirrorPlaneCopy" );
1885   return anObj;
1886 }
1887
1888 //=============================================================================
1889 //  MirrorAxis:
1890 //=============================================================================
1891 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorAxis (GEOM::GEOM_Object_ptr theObject,
1892                                                  GEOM::GEOM_Object_ptr theAxis)
1893 {
1894   beginService( " GEOM_Superv_i::MirrorAxis" );
1895   MESSAGE("GEOM_Superv_i::MirrorAxis");
1896   getTransfOp();
1897   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorAxis(theObject, theAxis);
1898   endService( " GEOM_Superv_i::MirrorAxis" );
1899   return anObj;
1900 }
1901
1902 //=============================================================================
1903 //  MirrorAxisCopy:
1904 //=============================================================================
1905 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorAxisCopy (GEOM::GEOM_Object_ptr theObject,
1906                                                      GEOM::GEOM_Object_ptr theAxis)
1907 {
1908   beginService( " GEOM_Superv_i::MirrorAxisCopy" );
1909   MESSAGE("GEOM_Superv_i::MirrorAxisCopy");
1910   getTransfOp();
1911   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorAxisCopy(theObject, theAxis);
1912   endService( " GEOM_Superv_i::MirrorAxisCopy" );
1913   return anObj;
1914 }
1915
1916 //=============================================================================
1917 //  MirrorPoint:
1918 //=============================================================================
1919 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorPoint (GEOM::GEOM_Object_ptr theObject,
1920                                                   GEOM::GEOM_Object_ptr thePoint)
1921 {
1922   beginService( " GEOM_Superv_i::MirrorPoint" );
1923   MESSAGE("GEOM_Superv_i::MirrorPoint");
1924   getTransfOp();
1925   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorPoint(theObject, thePoint);
1926   endService( " GEOM_Superv_i::MirrorPoint" );
1927   return anObj;
1928 }
1929
1930 //=============================================================================
1931 //  MirrorPointCopy:
1932 //=============================================================================
1933 GEOM::GEOM_Object_ptr GEOM_Superv_i::MirrorPointCopy (GEOM::GEOM_Object_ptr theObject,
1934                                                       GEOM::GEOM_Object_ptr thePoint)
1935 {
1936   beginService( " GEOM_Superv_i::MirrorPoint" );
1937   MESSAGE("GEOM_Superv_i::MirrorPointCopy");
1938   getTransfOp();
1939   GEOM::GEOM_Object_ptr anObj = myTransfOp->MirrorPointCopy(theObject, thePoint);
1940   endService( " GEOM_Superv_i::MirrorPoint" );
1941   return anObj;
1942 }
1943
1944 //=============================================================================
1945 //  OffsetShape:
1946 //=============================================================================
1947 GEOM::GEOM_Object_ptr GEOM_Superv_i::OffsetShape (GEOM::GEOM_Object_ptr theObject,
1948                                                   CORBA::Double theOffset)
1949 {
1950   beginService( " GEOM_Superv_i::OffsetShape" );
1951   MESSAGE("GEOM_Superv_i::OffsetShape");
1952   getTransfOp();
1953   GEOM::GEOM_Object_ptr anObj = myTransfOp->OffsetShape(theObject, theOffset);
1954   endService( " GEOM_Superv_i::OffsetShape" );
1955   return anObj;
1956 }
1957
1958 //=============================================================================
1959 //  OffsetShapeCopy:
1960 //=============================================================================
1961 GEOM::GEOM_Object_ptr GEOM_Superv_i::OffsetShapeCopy (GEOM::GEOM_Object_ptr theObject,
1962                                                       CORBA::Double theOffset)
1963 {
1964   beginService( " GEOM_Superv_i::OffsetShapeCopy" );
1965   MESSAGE("GEOM_Superv_i::OffsetShapeCopy");
1966   getTransfOp();
1967   GEOM::GEOM_Object_ptr anObj = myTransfOp->OffsetShapeCopy(theObject, theOffset);
1968   endService( " GEOM_Superv_i::OffsetShapeCopy" );
1969   return anObj;
1970 }
1971
1972 //=============================================================================
1973 //  ScaleShape:
1974 //=============================================================================
1975 GEOM::GEOM_Object_ptr GEOM_Superv_i::ScaleShape (GEOM::GEOM_Object_ptr theObject,
1976                                                  GEOM::GEOM_Object_ptr thePoint,
1977                                                  CORBA::Double theFactor)
1978 {
1979   beginService( " GEOM_Superv_i::ScaleShape" );
1980   MESSAGE("GEOM_Superv_i::ScaleShape");
1981   getTransfOp();
1982   GEOM::GEOM_Object_ptr anObj = myTransfOp->ScaleShape(theObject, thePoint, theFactor);
1983   endService( " GEOM_Superv_i::ScaleShape" );
1984   return anObj;
1985 }
1986
1987 //=============================================================================
1988 //  ScaleShapeCopy:
1989 //=============================================================================
1990 GEOM::GEOM_Object_ptr GEOM_Superv_i::ScaleShapeCopy (GEOM::GEOM_Object_ptr theObject,
1991                                                      GEOM::GEOM_Object_ptr thePoint,
1992                                                      CORBA::Double theFactor)
1993 {
1994   beginService( " GEOM_Superv_i::ScaleShapeCopy" );
1995   MESSAGE("GEOM_Superv_i::ScaleShapeCopy");
1996   getTransfOp();
1997   GEOM::GEOM_Object_ptr anObj = myTransfOp->ScaleShapeCopy(theObject, thePoint, theFactor);
1998   endService( " GEOM_Superv_i::ScaleShapeCopy" );
1999   return anObj;
2000 }
2001
2002 //=============================================================================
2003 //  ScaleShapeAlongAxes:
2004 //=============================================================================
2005 GEOM::GEOM_Object_ptr GEOM_Superv_i::ScaleShapeAlongAxes (GEOM::GEOM_Object_ptr theObject,
2006                                                           GEOM::GEOM_Object_ptr thePoint,
2007                                                           CORBA::Double theFactorX,
2008                                                           CORBA::Double theFactorY,
2009                                                           CORBA::Double theFactorZ)
2010 {
2011   beginService( " GEOM_Superv_i::ScaleShapeAlongAxes" );
2012   MESSAGE("GEOM_Superv_i::ScaleShapeAlongAxes");
2013   getTransfOp();
2014   GEOM::GEOM_Object_ptr anObj = myTransfOp->ScaleShapeAlongAxes
2015     (theObject, thePoint, theFactorX, theFactorY, theFactorZ);
2016   endService( " GEOM_Superv_i::ScaleShapeAlongAxes" );
2017   return anObj;
2018 }
2019
2020 //=============================================================================
2021 //  ScaleShapeAlongAxesCopy:
2022 //=============================================================================
2023 GEOM::GEOM_Object_ptr GEOM_Superv_i::ScaleShapeAlongAxesCopy (GEOM::GEOM_Object_ptr theObject,
2024                                                               GEOM::GEOM_Object_ptr thePoint,
2025                                                               CORBA::Double theFactorX,
2026                                                               CORBA::Double theFactorY,
2027                                                               CORBA::Double theFactorZ)
2028 {
2029   beginService( " GEOM_Superv_i::ScaleShapeAlongAxesCopy" );
2030   MESSAGE("GEOM_Superv_i::ScaleShapeAlongAxesCopy");
2031   getTransfOp();
2032   GEOM::GEOM_Object_ptr anObj = myTransfOp->ScaleShapeAlongAxesCopy
2033     (theObject, thePoint, theFactorX, theFactorY, theFactorZ);
2034   endService( " GEOM_Superv_i::ScaleShapeAlongAxesCopy" );
2035   return anObj;
2036 }
2037
2038 //=============================================================================
2039 //  PositionShape:
2040 //=============================================================================
2041 GEOM::GEOM_Object_ptr GEOM_Superv_i::PositionShape (GEOM::GEOM_Object_ptr theObject,
2042                                                     GEOM::GEOM_Object_ptr theStartLCS,
2043                                                     GEOM::GEOM_Object_ptr theEndLCS)
2044 {
2045   beginService( " GEOM_Superv_i::PositionShape" );
2046   MESSAGE("GEOM_Superv_i::PositionShape");
2047   getTransfOp();
2048   GEOM::GEOM_Object_ptr anObj = myTransfOp->PositionShape(theObject, theStartLCS, theEndLCS);
2049   endService( " GEOM_Superv_i::PositionShape" );
2050   return anObj;
2051 }
2052
2053 //=============================================================================
2054 //  PositionShapeCopy:
2055 //=============================================================================
2056 GEOM::GEOM_Object_ptr GEOM_Superv_i::PositionShapeCopy (GEOM::GEOM_Object_ptr theObject,
2057                                                         GEOM::GEOM_Object_ptr theStartLCS,
2058                                                         GEOM::GEOM_Object_ptr theEndLCS)
2059 {
2060   beginService( " GEOM_Superv_i::PositionShapeCopy" );
2061   MESSAGE("GEOM_Superv_i::PositionShapeCopy");
2062   getTransfOp();
2063   GEOM::GEOM_Object_ptr anObj = myTransfOp->PositionShapeCopy(theObject, theStartLCS, theEndLCS);
2064   endService( " GEOM_Superv_i::PositionShapeCopy" );
2065   return anObj;
2066 }
2067
2068 //=============================================================================
2069 //  PositionAlongPath:
2070 //=============================================================================
2071 GEOM::GEOM_Object_ptr GEOM_Superv_i::PositionAlongPath (GEOM::GEOM_Object_ptr theObject,
2072                                                         GEOM::GEOM_Object_ptr thePath,
2073                                                         CORBA::Double         theDistance,
2074                                                         CORBA::Boolean        theCopy,
2075                                                         CORBA::Boolean        theReverse)
2076 {
2077   beginService( " GEOM_Superv_i::PositionAlongPath" );
2078   MESSAGE("GEOM_Superv_i::PositionAlongPath");
2079   getTransfOp();
2080   GEOM::GEOM_Object_ptr anObj = myTransfOp->PositionAlongPath(theObject, thePath, theDistance, theCopy, theReverse);
2081   endService( " GEOM_Superv_i::PositionAlongPath" );
2082   return anObj;
2083 }
2084
2085 //=============================== ShapesOperations ============================
2086 //=============================================================================
2087 //  Make:
2088 //=============================================================================
2089 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeEdge (GEOM::GEOM_Object_ptr thePnt1,
2090                                                GEOM::GEOM_Object_ptr thePnt2)
2091 {
2092   beginService( " GEOM_Superv_i::MakeEdge" );
2093   MESSAGE("GEOM_Superv_i::MakeEdge");
2094   getShapesOp();
2095   GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeEdge(thePnt1, thePnt2);
2096   endService( " GEOM_Superv_i::MakeEdge" );
2097   return anObj;
2098 }
2099
2100 //=============================================================================
2101 //  MakeEdgeOnCurveByLength:
2102 //=============================================================================
2103 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeEdgeOnCurveByLength (GEOM::GEOM_Object_ptr theRefCurve,
2104                                                               CORBA::Double theLength,
2105                                                               GEOM::GEOM_Object_ptr theStartPoint)
2106 {
2107   beginService( " GEOM_Superv_i::MakeEdgeOnCurveByLength" );
2108   MESSAGE("GEOM_Superv_i::MakeEdgeOnCurveByLength");
2109   getShapesOp();
2110   GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeEdgeOnCurveByLength(theRefCurve, theLength, theStartPoint);
2111   endService( " GEOM_Superv_i::MakeEdgeOnCurveByLength" );
2112   return anObj;
2113 }
2114
2115 //=============================================================================
2116 //  MakeWire:
2117 //=============================================================================
2118 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeWire (GEOM::GEOM_List_ptr theEdgesAndWires,
2119                                                CORBA::Double       theTolerance)
2120 {
2121   beginService( " GEOM_Superv_i::MakeWire" );
2122   MESSAGE("GEOM_Superv_i::MakeWire");
2123   if (GEOM_List_i<GEOM::ListOfGO>* aListImplEW =
2124       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theEdgesAndWires, myPOA).in())) {
2125     getShapesOp();
2126     GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeWire(aListImplEW->GetList(), theTolerance);
2127     endService( " GEOM_Superv_i::MakeWire" );
2128     return anObj;
2129   }
2130   endService( " GEOM_Superv_i::MakeWire" );
2131   return NULL;
2132 }
2133
2134 //=============================================================================
2135 //  MakeFace:
2136 //=============================================================================
2137 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFace (GEOM::GEOM_Object_ptr theWire,
2138                                                CORBA::Boolean isPlanarWanted)
2139 {
2140   beginService( " GEOM_Superv_i::MakeFace" );
2141   MESSAGE("GEOM_Superv_i::MakeFace");
2142   getShapesOp();
2143   GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeFace(theWire, isPlanarWanted);
2144   endService( " GEOM_Superv_i::MakeFace" );
2145   return anObj;
2146 }
2147
2148 //=============================================================================
2149 //  MakeFaceWires:
2150 //=============================================================================
2151 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFaceWires (GEOM::GEOM_List_ptr theWires,
2152                                                     CORBA::Boolean isPlanarWanted)
2153 {
2154   beginService( " GEOM_Superv_i::MakeFaceWires" );
2155   MESSAGE("GEOM_Superv_i::MakeFaceWires");
2156   if (GEOM_List_i<GEOM::ListOfGO>* aListImplW =
2157       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theWires, myPOA).in())) {
2158     getShapesOp();
2159     GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeFaceWires(aListImplW->GetList(), isPlanarWanted);
2160     endService( " GEOM_Superv_i::MakeFaceWires" );
2161     return anObj;
2162   }
2163   endService( " GEOM_Superv_i::MakeFaceWires" );
2164   return NULL;
2165 }
2166
2167 //=============================================================================
2168 //  MakeShell:
2169 //=============================================================================
2170 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeShell (GEOM::GEOM_List_ptr theFacesAndShells)
2171 {
2172   beginService( " GEOM_Superv_i::MakeShell" );
2173   MESSAGE("GEOM_Superv_i::MakeShell");
2174   if (GEOM_List_i<GEOM::ListOfGO>* aListImplFS =
2175       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theFacesAndShells, myPOA).in())) {
2176     getShapesOp();
2177     GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeShell(aListImplFS->GetList());
2178     endService( " GEOM_Superv_i::MakeShell" );
2179     return anObj;
2180   }
2181   endService( " GEOM_Superv_i::MakeShell" );
2182   return NULL;
2183 }
2184
2185 //=============================================================================
2186 //  MakeSolidShell:
2187 //=============================================================================
2188 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSolidShell (GEOM::GEOM_Object_ptr theShell)
2189 {
2190   beginService( " GEOM_Superv_i::MakeSolidShell" );
2191   MESSAGE("GEOM_Superv_i::MakeSolidShell");
2192   getShapesOp();
2193   GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeSolidShell(theShell);
2194   endService( " GEOM_Superv_i::MakeSolidShell" );
2195   return anObj;
2196 }
2197
2198 //=============================================================================
2199 //  MakeSolidShells:
2200 //=============================================================================
2201 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSolidShells (GEOM::GEOM_List_ptr theShells)
2202 {
2203   beginService( " GEOM_Superv_i::MakeSolidShells" );
2204   MESSAGE("GEOM_Superv_i::MakeSolidShells");
2205   if (GEOM_List_i<GEOM::ListOfGO>* aListImplS =
2206       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theShells, myPOA).in())) {
2207     getShapesOp();
2208     GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeSolidShells(aListImplS->GetList());
2209     endService( " GEOM_Superv_i::MakeSolidShells" );
2210     return anObj;
2211   }
2212   endService( " GEOM_Superv_i::MakeSolidShells" );
2213   return NULL;
2214 }
2215
2216 //=============================================================================
2217 //  MakeCompound:
2218 //=============================================================================
2219 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCompound (GEOM::GEOM_List_ptr theShapes)
2220 {
2221   beginService( " GEOM_Superv_i::MakeCompound" );
2222   MESSAGE("GEOM_Superv_i::MakeCompound");
2223   if (GEOM_List_i<GEOM::ListOfGO>* aListImpl =
2224       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theShapes, myPOA).in())) {
2225     getShapesOp();
2226     GEOM::GEOM_Object_ptr anObj = myShapesOp->MakeCompound(aListImpl->GetList());
2227     endService( " GEOM_Superv_i::MakeCompound" );
2228     return anObj;
2229   }
2230   endService( " GEOM_Superv_i::MakeCompound" );
2231   return NULL;
2232 }
2233
2234 //=============================================================================
2235 //  MakeGlueFaces:
2236 //=============================================================================
2237 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeGlueFaces (GEOM::GEOM_Object_ptr theShape,
2238                                                     CORBA::Double   theTolerance,
2239                                                     CORBA::Boolean doKeepNonSolids)
2240 {
2241   beginService( " GEOM_Superv_i::MakeGlueFaces" );
2242   MESSAGE("GEOM_Superv_i::MakeGlueFaces");
2243   getShapesOp();
2244   GEOM::GEOM_Object_ptr anObj =
2245     myShapesOp->MakeGlueFaces(theShape, theTolerance, doKeepNonSolids);
2246   endService( " GEOM_Superv_i::MakeGlueFaces" );
2247   return anObj;
2248 }
2249
2250 //=============================================================================
2251 //  GetGlueFaces:
2252 //=============================================================================
2253 GEOM::GEOM_List_ptr GEOM_Superv_i::GetGlueFaces (GEOM::GEOM_Object_ptr theShape,
2254                                                  CORBA::Double theTolerance)
2255 {
2256   beginService( " GEOM_Superv_i::GetGlueFaces" );
2257   MESSAGE("GEOM_Superv_i::GetGlueFaces");
2258   getShapesOp();
2259   GEOM::ListOfGO* aList = myShapesOp->GetGlueFaces(theShape, theTolerance);
2260   GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aList));
2261   MESSAGE(" List of "<<aListPtr->GetList().length()<<" element(s)");
2262   endService( " GEOM_Superv_i::GetGlueFaces" );
2263   return aListPtr->_this();
2264 }
2265
2266 //=============================================================================
2267 //  MakeGlueFacesByList:
2268 //=============================================================================
2269 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeGlueFacesByList (GEOM::GEOM_Object_ptr theShape,
2270                                                           CORBA::Double theTolerance,
2271                                                           const GEOM::ListOfGO& theFaces,
2272                                                           CORBA::Boolean doKeepNonSolids,
2273                                                           CORBA::Boolean doGlueAllEdges)
2274 {
2275   beginService( " GEOM_Superv_i::MakeGlueFacesByList" );
2276   MESSAGE("GEOM_Superv_i::MakeGlueFacesByList");
2277   getShapesOp();
2278   GEOM::GEOM_Object_ptr anObj =
2279     myShapesOp->MakeGlueFacesByList(theShape, theTolerance, theFaces,
2280                                     doKeepNonSolids, doGlueAllEdges);
2281   endService( " GEOM_Superv_i::MakeGlueFacesByList" );
2282   return anObj;
2283 }
2284
2285 //=============================================================================
2286 //  MakeExplode:
2287 //=============================================================================
2288 GEOM::GEOM_List_ptr GEOM_Superv_i::MakeExplode (GEOM::GEOM_Object_ptr theShape,
2289                                                     CORBA::Long theShapeType,
2290                                                     CORBA::Boolean isSorted)
2291 {
2292   beginService( " GEOM_Superv_i::MakeExplode" );
2293   MESSAGE("GEOM_Superv_i::MakeExplode");
2294   getShapesOp();
2295
2296   GEOM::ListOfGO* aList = myShapesOp->MakeExplode(theShape, theShapeType, isSorted);
2297   GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aList));
2298   MESSAGE(" List of "<<aListPtr->GetList().length()<<" element(s)");
2299   endService( " GEOM_Superv_i::MakeExplode" );
2300   return aListPtr->_this();
2301 }
2302
2303 //=============================================================================
2304 //  NumberOfFaces:
2305 //=============================================================================
2306 CORBA::Long GEOM_Superv_i::NumberOfFaces (GEOM::GEOM_Object_ptr theShape)
2307 {
2308   beginService( " GEOM_Superv_i::NumberOfFaces" );
2309   MESSAGE("GEOM_Superv_i::NumberOfFaces");
2310   getShapesOp();
2311   CORBA::Long aRes = myShapesOp->NumberOfFaces(theShape);
2312   endService( " GEOM_Superv_i::NumberOfFaces" );
2313   return aRes;
2314 }
2315
2316 //=============================================================================
2317 //  NumberOfEdges:
2318 //=============================================================================
2319 CORBA::Long GEOM_Superv_i::NumberOfEdges (GEOM::GEOM_Object_ptr theShape)
2320 {
2321   beginService( " GEOM_Superv_i::NumberOfEdges" );
2322   MESSAGE("GEOM_Superv_i::NumberOfEdges");
2323   getShapesOp();
2324   CORBA::Long aRes = myShapesOp->NumberOfEdges(theShape);
2325   endService( " GEOM_Superv_i::NumberOfEdges" );
2326   return aRes;
2327 }
2328
2329
2330 //=============================================================================
2331 //  ChangeOrientation:
2332 //=============================================================================
2333 GEOM::GEOM_Object_ptr GEOM_Superv_i::ChangeOrientation (GEOM::GEOM_Object_ptr theShape)
2334 {
2335   beginService( " GEOM_Superv_i::ChangeOrientation" );
2336   MESSAGE("GEOM_Superv_i::ChangeOrientation");
2337   getShapesOp();
2338   GEOM::GEOM_Object_ptr anObj = myShapesOp->ChangeOrientation(theShape);
2339   endService( " GEOM_Superv_i::ChangeOrientation" );
2340   return anObj;
2341 }
2342
2343
2344 //=============================================================================
2345 //  GetShapesOnShape:
2346 //=============================================================================
2347 GEOM::GEOM_List_ptr GEOM_Superv_i::GetShapesOnShape
2348                                           (GEOM::GEOM_Object_ptr theCheckShape,
2349                                            GEOM::GEOM_Object_ptr theShape,
2350                                            CORBA::Short theShapeType,
2351                                            GEOM::shape_state theState)
2352 {
2353   beginService( " GEOM_Superv_i::GetShapesOnShape" );
2354   MESSAGE("GEOM_Superv_i::GetShapesOnShape");
2355   getShapesOp();
2356   GEOM::ListOfGO* aList =
2357     myShapesOp->GetShapesOnShape(theCheckShape, theShape, theShapeType, theState);
2358   GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aList));
2359   MESSAGE(" List of "<<aListPtr->GetList().length()<<" element(s)");
2360   endService( " GEOM_Superv_i::GetShapesOnShape" );
2361   return aListPtr->_this();
2362 }
2363
2364
2365 //=============================================================================
2366 //  GetShapesOnShapeAsCompound:
2367 //=============================================================================
2368 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetShapesOnShapeAsCompound
2369                                           (GEOM::GEOM_Object_ptr theCheckShape,
2370                                            GEOM::GEOM_Object_ptr theShape,
2371                                            CORBA::Short theShapeType,
2372                                            GEOM::shape_state theState)
2373 {
2374   beginService( " GEOM_Superv_i::GetShapesOnShapeAsCompound" );
2375   MESSAGE("GEOM_Superv_i::GetShapesOnShapeAsCompound");
2376   getShapesOp();
2377   GEOM::GEOM_Object_ptr anObj =
2378     myShapesOp->GetShapesOnShapeAsCompound(theCheckShape, theShape, theShapeType, theState);
2379   endService( " GEOM_Superv_i::GetShapesOnShapeAsCompound" );
2380   return anObj;
2381 }
2382
2383
2384 //=============================== BlocksOperations ============================
2385 //=============================================================================
2386 //  MakeQuad4Vertices:
2387 //=============================================================================
2388 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeQuad4Vertices (GEOM::GEOM_Object_ptr thePnt1,
2389                                                         GEOM::GEOM_Object_ptr thePnt2,
2390                                                         GEOM::GEOM_Object_ptr thePnt3,
2391                                                         GEOM::GEOM_Object_ptr thePnt4)
2392 {
2393   beginService( " GEOM_Superv_i::MakeQuad4Vertices" );
2394   MESSAGE("GEOM_Superv_i::MakeQuad4Vertices");
2395   getBlocksOp();
2396   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeQuad4Vertices(thePnt1, thePnt2, thePnt3, thePnt4);
2397   endService( " GEOM_Superv_i::MakeQuad4Vertices" );
2398   return anObj;
2399 }
2400
2401 //=============================================================================
2402 //  MakeQuad:
2403 //=============================================================================
2404 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeQuad (GEOM::GEOM_Object_ptr theEdge1,
2405                                                GEOM::GEOM_Object_ptr theEdge2,
2406                                                GEOM::GEOM_Object_ptr theEdge3,
2407                                                GEOM::GEOM_Object_ptr theEdge4)
2408 {
2409   beginService( " GEOM_Superv_i::MakeQuad" );
2410   MESSAGE("GEOM_Superv_i::MakeQuad");
2411   getBlocksOp();
2412   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeQuad(theEdge1, theEdge2, theEdge3, theEdge4);
2413   endService( " GEOM_Superv_i::MakeQuad" );
2414   return anObj;
2415 }
2416
2417 //=============================================================================
2418 //  MakeQuad2Edges:
2419 //=============================================================================
2420 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeQuad2Edges (GEOM::GEOM_Object_ptr theEdge1,
2421                                                      GEOM::GEOM_Object_ptr theEdge2)
2422 {
2423   beginService( " GEOM_Superv_i::MakeQuad2Edges" );
2424   MESSAGE("GEOM_Superv_i::MakeQuad2Edges");
2425   getBlocksOp();
2426   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeQuad2Edges(theEdge1, theEdge2);
2427   endService( " GEOM_Superv_i::MakeQuad2Edges" );
2428   return anObj;
2429 }
2430
2431 //=============================================================================
2432 //  MakeHexa:
2433 //=============================================================================
2434 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeHexa (GEOM::GEOM_Object_ptr theFace1,
2435                                                GEOM::GEOM_Object_ptr theFace2,
2436                                                GEOM::GEOM_Object_ptr theFace3,
2437                                                GEOM::GEOM_Object_ptr theFace4,
2438                                                GEOM::GEOM_Object_ptr theFace5,
2439                                                GEOM::GEOM_Object_ptr theFace6)
2440 {
2441   beginService( " GEOM_Superv_i::MakeHexa" );
2442   MESSAGE("GEOM_Superv_i::MakeHexa");
2443   getBlocksOp();
2444   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeHexa(theFace1, theFace2, theFace3, theFace4, theFace5, theFace6);
2445   endService( " GEOM_Superv_i::MakeHexa" );
2446   return anObj;
2447 }
2448
2449 //=============================================================================
2450 //  MakeHexa2Faces:
2451 //=============================================================================
2452 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeHexa2Faces (GEOM::GEOM_Object_ptr theFace1,
2453                                                      GEOM::GEOM_Object_ptr theFace2)
2454 {
2455   beginService( " GEOM_Superv_i::MakeHexa2Faces" );
2456   MESSAGE("GEOM_Superv_i::MakeHexa2Faces");
2457   getBlocksOp();
2458   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeHexa2Faces(theFace1, theFace2);
2459   endService( " GEOM_Superv_i::MakeHexa2Faces" );
2460   return anObj;
2461 }
2462
2463 //=============================================================================
2464 //  GetPoint:
2465 //=============================================================================
2466 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetPoint (GEOM::GEOM_Object_ptr theShape,
2467                                                CORBA::Double   theX,
2468                                                CORBA::Double   theY,
2469                                                CORBA::Double   theZ,
2470                                                CORBA::Double   theEpsilon)
2471 {
2472   beginService( " GEOM_Superv_i::GetPoint" );
2473   MESSAGE("GEOM_Superv_i::GetPoint");
2474   getBlocksOp();
2475   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetPoint(theShape, theX, theY, theZ, theEpsilon);
2476   endService( " GEOM_Superv_i::GetPoint" );
2477   return anObj;
2478 }
2479
2480 //=============================================================================
2481 //  GetEdge:
2482 //=============================================================================
2483 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetEdge (GEOM::GEOM_Object_ptr theShape,
2484                                               GEOM::GEOM_Object_ptr thePoint1,
2485                                               GEOM::GEOM_Object_ptr thePoint2)
2486 {
2487   beginService( " GEOM_Superv_i::GetEdge" );
2488   MESSAGE("GEOM_Superv_i::GetEdge");
2489   getBlocksOp();
2490   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetEdge(theShape, thePoint1, thePoint2);
2491   endService( " GEOM_Superv_i::GetEdge" );
2492   return anObj;
2493 }
2494
2495 //=============================================================================
2496 //  GetEdgeNearPoint:
2497 //=============================================================================
2498 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetEdgeNearPoint (GEOM::GEOM_Object_ptr theShape,
2499                                                        GEOM::GEOM_Object_ptr thePoint)
2500 {
2501   beginService( " GEOM_Superv_i::GetEdgeNearPoint" );
2502   MESSAGE("GEOM_Superv_i::GetEdgeNearPoint");
2503   getBlocksOp();
2504   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetEdgeNearPoint(theShape, thePoint);
2505   endService( " GEOM_Superv_i::GetEdgeNearPoint" );
2506   return anObj;
2507 }
2508
2509 //=============================================================================
2510 //  GetFaceByPoints:
2511 //=============================================================================
2512 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetFaceByPoints (GEOM::GEOM_Object_ptr theShape,
2513                                                       GEOM::GEOM_Object_ptr thePoint1,
2514                                                       GEOM::GEOM_Object_ptr thePoint2,
2515                                                       GEOM::GEOM_Object_ptr thePoint3,
2516                                                       GEOM::GEOM_Object_ptr thePoint4)
2517 {
2518   beginService( " GEOM_Superv_i::GetFaceByPoints" );
2519   MESSAGE("GEOM_Superv_i::GetFaceByPoints");
2520   getBlocksOp();
2521   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetFaceByPoints(theShape, thePoint1, thePoint2, thePoint3, thePoint4);
2522   endService( " GEOM_Superv_i::GetFaceByPoints" );
2523   return anObj;
2524 }
2525
2526 //=============================================================================
2527 //  GetFaceByEdges:
2528 //=============================================================================
2529 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetFaceByEdges (GEOM::GEOM_Object_ptr theShape,
2530                                                      GEOM::GEOM_Object_ptr theEdge1,
2531                                                      GEOM::GEOM_Object_ptr theEdge2)
2532 {
2533   beginService( " GEOM_Superv_i::GetFaceByEdges" );
2534   MESSAGE("GEOM_Superv_i::GetFaceByEdges");
2535   getBlocksOp();
2536   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetFaceByEdges(theShape, theEdge1, theEdge2);
2537   endService( " GEOM_Superv_i::GetFaceByEdges" );
2538   return anObj;
2539 }
2540
2541 //=============================================================================
2542 //  GetOppositeFace:
2543 //=============================================================================
2544 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetOppositeFace (GEOM::GEOM_Object_ptr theBlock,
2545                                                       GEOM::GEOM_Object_ptr theFace)
2546 {
2547   beginService( " GEOM_Superv_i::GetOppositeFace" );
2548   MESSAGE("GEOM_Superv_i::GetOppositeFace");
2549   getBlocksOp();
2550   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetOppositeFace(theBlock, theFace);
2551   endService( " GEOM_Superv_i::GetOppositeFace" );
2552   return anObj;
2553 }
2554
2555 //=============================================================================
2556 //  GetFaceNearPoint:
2557 //=============================================================================
2558 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetFaceNearPoint (GEOM::GEOM_Object_ptr theShape,
2559                                                        GEOM::GEOM_Object_ptr thePoint)
2560 {
2561   beginService( " GEOM_Superv_i::GetFaceNearPoint" );
2562   MESSAGE("GEOM_Superv_i::GetFaceNearPoint");
2563   getBlocksOp();
2564   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetFaceNearPoint(theShape, thePoint);
2565   endService( " GEOM_Superv_i::GetFaceNearPoint" );
2566   return anObj;
2567 }
2568
2569 //=============================================================================
2570 //  GetFaceByNormale:
2571 //=============================================================================
2572 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetFaceByNormale (GEOM::GEOM_Object_ptr theBlock,
2573                                                        GEOM::GEOM_Object_ptr theVector)
2574 {
2575   beginService( " GEOM_Superv_i::GetFaceByNormale" );
2576   MESSAGE("GEOM_Superv_i::GetFaceByNormale");
2577   getBlocksOp();
2578   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetFaceByNormale(theBlock, theVector);
2579   endService( " GEOM_Superv_i::GetFaceByNormale" );
2580   return anObj;
2581 }
2582
2583 //=============================================================================
2584 //  IsCompoundOfBlocks:
2585 //=============================================================================
2586 CORBA::Boolean GEOM_Superv_i::IsCompoundOfBlocks (GEOM::GEOM_Object_ptr theCompound,
2587                                                   CORBA::Long     theMinNbFaces,
2588                                                   CORBA::Long     theMaxNbFaces,
2589                                                   CORBA::Long&          theNbBlocks)
2590 {
2591   beginService( " GEOM_Superv_i::IsCompoundOfBlocks" );
2592   MESSAGE("GEOM_Superv_i::IsCompoundOfBlocks");
2593   getBlocksOp();
2594   CORBA::Boolean aRes = myBlocksOp->IsCompoundOfBlocks(theCompound, theMinNbFaces, theMaxNbFaces, theNbBlocks);
2595   endService( " GEOM_Superv_i::IsCompoundOfBlocks" );
2596   return aRes;
2597 }
2598
2599 //=============================================================================
2600 //  CheckCompoundOfBlocks:
2601 //=============================================================================
2602 CORBA::Boolean GEOM_Superv_i::CheckCompoundOfBlocks
2603 (GEOM::GEOM_Object_ptr theCompound,
2604  GEOM::GEOM_IBlocksOperations::BCErrors_out theErrors)
2605 {
2606   beginService( " GEOM_Superv_i::CheckCompoundOfBlocks" );
2607   MESSAGE("GEOM_Superv_i::CheckCompoundOfBlocks");
2608   getBlocksOp();
2609   CORBA::Boolean aRes = myBlocksOp->CheckCompoundOfBlocks(theCompound, theErrors);
2610   endService( " GEOM_Superv_i::CheckCompoundOfBlocks" );
2611   return aRes;
2612 }
2613
2614 //=============================================================================
2615 //  PrintBCErrors:
2616 //=============================================================================
2617 char* GEOM_Superv_i::PrintBCErrors (GEOM::GEOM_Object_ptr theCompound,
2618                                     const GEOM::GEOM_IBlocksOperations::BCErrors& theErrors)
2619 {
2620   beginService( " GEOM_Superv_i::PrintBCErrors" );
2621   MESSAGE("GEOM_Superv_i::PrintBCErrors");
2622   getBlocksOp();
2623   char* anErrors = myBlocksOp->PrintBCErrors(theCompound, theErrors);
2624   endService( " GEOM_Superv_i::PrintBCErrors" );
2625   return anErrors;
2626 }
2627
2628 //=============================================================================
2629 //  ExplodeCompoundOfBlocks:
2630 //=============================================================================
2631 GEOM::GEOM_List_ptr GEOM_Superv_i::ExplodeCompoundOfBlocks (GEOM::GEOM_Object_ptr theCompound,
2632                                                                 CORBA::Long     theMinNbFaces,
2633                                                                 CORBA::Long     theMaxNbFaces)
2634 {
2635   beginService( " GEOM_Superv_i::ExplodeCompoundOfBlocks" );
2636   MESSAGE("GEOM_Superv_i::ExplodeCompoundOfBlocks");
2637   getBlocksOp();
2638   GEOM::ListOfGO* aBlocks = myBlocksOp->ExplodeCompoundOfBlocks(theCompound, theMinNbFaces, theMaxNbFaces);
2639   GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aBlocks));
2640   endService( " GEOM_Superv_i::ExplodeCompoundOfBlocks" );
2641   return aListPtr->_this();
2642 }
2643
2644 //=============================================================================
2645 //  GetBlockNearPoint:
2646 //=============================================================================
2647 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetBlockNearPoint (GEOM::GEOM_Object_ptr theCompound,
2648                                                         GEOM::GEOM_Object_ptr thePoint)
2649 {
2650   beginService( " GEOM_Superv_i::GetBlockNearPoint" );
2651   MESSAGE("GEOM_Superv_i::GetBlockNearPoint");
2652   getBlocksOp();
2653   GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetBlockNearPoint(theCompound, thePoint);
2654   endService( " GEOM_Superv_i::GetBlockNearPoint" );
2655   return anObj;
2656 }
2657
2658 //=============================================================================
2659 //  GetBlockByParts:
2660 //=============================================================================
2661 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetBlockByParts (GEOM::GEOM_Object_ptr theCompound,
2662                                                       GEOM::GEOM_List_ptr theParts)
2663 {
2664   beginService( " GEOM_Superv_i::GetBlockByParts" );
2665   MESSAGE("GEOM_Superv_i::GetBlockByParts");
2666   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
2667       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theParts, myPOA).in())) {
2668     getBlocksOp();
2669     GEOM::GEOM_Object_ptr anObj = myBlocksOp->GetBlockByParts(theCompound, aListImplP->GetList());
2670     endService( " GEOM_Superv_i::GetBlockByParts" );
2671     return anObj;
2672   }
2673   endService( " GEOM_Superv_i::GetBlockByParts" );
2674   return NULL;
2675 }
2676
2677 //=============================================================================
2678 //  GetBlocksByParts:
2679 //=============================================================================
2680 GEOM::GEOM_List_ptr GEOM_Superv_i::GetBlocksByParts (GEOM::GEOM_Object_ptr theCompound,
2681                                                          GEOM::GEOM_List_ptr theParts)
2682 {
2683   beginService( " GEOM_Superv_i::GetBlocksByParts" );
2684   MESSAGE("GEOM_Superv_i::GetBlocksByParts");
2685   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
2686       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(theParts, myPOA).in())) {
2687     getBlocksOp();
2688
2689     GEOM::ListOfGO* aBlocks = myBlocksOp->GetBlocksByParts(theCompound, aListImplP->GetList());
2690     GEOM_List_i<GEOM::ListOfGO>* aListPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aBlocks));
2691     endService( " GEOM_Superv_i::GetBlocksByParts" );
2692     return aListPtr->_this();
2693   }
2694   endService( " GEOM_Superv_i::GetBlocksByParts" );
2695   return NULL;
2696 }
2697
2698 //=============================================================================
2699 //  MakeMultiTransformation1D:
2700 //=============================================================================
2701 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeMultiTransformation1D (GEOM::GEOM_Object_ptr theBlock,
2702                                                                 CORBA::Long     theDirFace1,
2703                                                                 CORBA::Long     theDirFace2,
2704                                                                 CORBA::Long     theNbTimes)
2705 {
2706   beginService( " GEOM_Superv_i::MakeMultiTransformation1D" );
2707   MESSAGE("GEOM_Superv_i::MakeMultiTransformation1D");
2708   getBlocksOp();
2709   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeMultiTransformation1D(theBlock, theDirFace1, theDirFace2, theNbTimes);
2710   endService( " GEOM_Superv_i::MakeMultiTransformation1D" );
2711   return anObj;
2712 }
2713
2714 //=============================================================================
2715 //  MakeMultiTransformation2D:
2716 //=============================================================================
2717 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeMultiTransformation2D
2718 (GEOM::GEOM_Object_ptr theBlock,
2719  CORBA::Long     theDirFace1U,
2720  CORBA::Long     theDirFace2U,
2721  CORBA::Long     theNbTimesU,
2722  CORBA::Long     theDirFace1V,
2723  CORBA::Long     theDirFace2V,
2724  CORBA::Long     theNbTimesV)
2725 {
2726   beginService( " GEOM_Superv_i::MakeMultiTransformation2D" );
2727   MESSAGE("GEOM_Superv_i::MakeMultiTransformation2D");
2728   getBlocksOp();
2729   GEOM::GEOM_Object_ptr anObj = myBlocksOp->MakeMultiTransformation2D(theBlock,
2730                                                                       theDirFace1U, theDirFace2U, theNbTimesU,
2731                                                                       theDirFace1V, theDirFace2V, theNbTimesV);
2732   endService( " GEOM_Superv_i::MakeMultiTransformation2D" );
2733   return anObj;
2734 }
2735
2736 //=============================== CurvesOperations ============================
2737 //=============================================================================
2738 //  MakeCirclePntVecR:
2739 //=============================================================================
2740 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCirclePntVecR (GEOM::GEOM_Object_ptr theCenter,
2741                                                         GEOM::GEOM_Object_ptr theVector,
2742                                                         CORBA::Double theR)
2743 {
2744   beginService( " GEOM_Superv_i::MakeCirclePntVecR" );
2745   MESSAGE("GEOM_Superv_i::MakeCirclePntVecR");
2746   getCurvesOp();
2747   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeCirclePntVecR(theCenter, theVector, theR);
2748   endService( " GEOM_Superv_i::MakeCirclePntVecR" );
2749   return anObj;
2750 }
2751
2752 //=============================================================================
2753 //  MakeCircleThreePnt:
2754 //=============================================================================
2755 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCircleThreePnt (GEOM::GEOM_Object_ptr thePnt1,
2756                                                          GEOM::GEOM_Object_ptr thePnt2,
2757                                                          GEOM::GEOM_Object_ptr thePnt3)
2758 {
2759   beginService( " GEOM_Superv_i::MakeCircleThreePnt" );
2760   MESSAGE("GEOM_Superv_i::MakeCircleThreePnt");
2761   getCurvesOp();
2762   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeCircleThreePnt(thePnt1, thePnt2, thePnt3);
2763   endService( " GEOM_Superv_i::MakeCircleThreePnt" );
2764   return anObj;
2765 }
2766 //=============================================================================
2767 //  MakeCircleCenter2Pnt:
2768 //=============================================================================
2769 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeCircleCenter2Pnt (GEOM::GEOM_Object_ptr thePnt1,
2770                                                              GEOM::GEOM_Object_ptr thePnt2,
2771                                                            GEOM::GEOM_Object_ptr thePnt3)
2772 {
2773   beginService( " GEOM_Superv_i::MakeCircleCenter2Pnt" );
2774   MESSAGE("GEOM_Superv_i::MakeCircleCenter2Pnt");
2775   getCurvesOp();
2776   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeCircleCenter2Pnt(thePnt1, thePnt2, thePnt3);
2777   endService( " GEOM_Superv_i::MakeCircleCenter2Pnt" );
2778   return anObj;
2779 }
2780
2781 //=============================================================================
2782 //  MakeEllipse:
2783 //=============================================================================
2784 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeEllipse (GEOM::GEOM_Object_ptr theCenter,
2785                                                   GEOM::GEOM_Object_ptr theVector,
2786                                                   CORBA::Double theRMajor,
2787                                                   CORBA::Double theRMinor)
2788 {
2789   beginService( " GEOM_Superv_i::MakeEllipse" );
2790   MESSAGE("GEOM_Superv_i::MakeEllipse");
2791   getCurvesOp();
2792   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeEllipse(theCenter, theVector, theRMajor, theRMinor);
2793   endService( " GEOM_Superv_i::MakeEllipse" );
2794   return anObj;
2795 }
2796
2797 //=============================================================================
2798 //  MakeEllipseVec:
2799 //=============================================================================
2800 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeEllipseVec (GEOM::GEOM_Object_ptr theCenter,
2801                                                      GEOM::GEOM_Object_ptr theVector,
2802                                                      CORBA::Double theRMajor,
2803                                                      CORBA::Double theRMinor,
2804                                                      GEOM::GEOM_Object_ptr theVectorMajor)
2805 {
2806   beginService( " GEOM_Superv_i::MakeEllipseVec" );
2807   MESSAGE("GEOM_Superv_i::MakeEllipseVec");
2808   getCurvesOp();
2809   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeEllipseVec(theCenter, theVector, theRMajor, theRMinor, theVectorMajor);
2810   endService( " GEOM_Superv_i::MakeEllipseVec" );
2811   return anObj;
2812 }
2813
2814 //=============================================================================
2815 //  MakeArc:
2816 //=============================================================================
2817 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeArc (GEOM::GEOM_Object_ptr thePnt1,
2818                                               GEOM::GEOM_Object_ptr thePnt2,
2819                                               GEOM::GEOM_Object_ptr thePnt3)
2820 {
2821   beginService( " GEOM_Superv_i::MakeArc" );
2822   MESSAGE("GEOM_Superv_i::MakeArc");
2823   getCurvesOp();
2824   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeArc(thePnt1, thePnt2, thePnt3);
2825   endService( " GEOM_Superv_i::MakeArc" );
2826   return anObj;
2827 }
2828
2829 //=============================================================================
2830 //  MakeArcCenter:
2831 //=============================================================================
2832 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeArcCenter (GEOM::GEOM_Object_ptr theCenter,
2833                                                     GEOM::GEOM_Object_ptr thePnt1,
2834                                                     GEOM::GEOM_Object_ptr thePnt2,
2835                                                     CORBA::Boolean theSense)
2836 {
2837   beginService( " GEOM_Superv_i::MakeArcCenter" );
2838   MESSAGE("GEOM_Superv_i::MakeArcCenter");
2839   getCurvesOp();
2840   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeArcCenter(theCenter, thePnt1, thePnt2,theSense);
2841   endService( " GEOM_Superv_i::MakeArcCenter" );
2842   return anObj;
2843 }
2844
2845 //=============================================================================
2846 //  MakeArcOfEllipse:
2847 //=============================================================================
2848 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeArcOfEllipse (GEOM::GEOM_Object_ptr thePnt1,
2849                                                        GEOM::GEOM_Object_ptr thePnt2,
2850                                                        GEOM::GEOM_Object_ptr thePnt3)
2851 {
2852   beginService( " GEOM_Superv_i::MakeArcOfEllipse" );
2853   MESSAGE("GEOM_Superv_i::MakeArcOfEllipse");
2854   getCurvesOp();
2855   GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeArcOfEllipse(thePnt1, thePnt2, thePnt3);
2856   endService( " GEOM_Superv_i::MakeArcOfEllipse" );
2857   return anObj;
2858 }
2859
2860 //=============================================================================
2861 //  MakePolyline:
2862 //=============================================================================
2863 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakePolyline (GEOM::GEOM_List_ptr thePoints,
2864                                                    CORBA::Boolean      theIsClosed)
2865 {
2866   beginService( " GEOM_Superv_i::MakePolyline" );
2867   MESSAGE("GEOM_Superv_i::MakePolyline");
2868   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
2869       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(thePoints, myPOA).in())) {
2870     getCurvesOp();
2871     GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakePolyline(aListImplP->GetList(), theIsClosed);
2872     endService( " GEOM_Superv_i::MakePolyline" );
2873     return anObj;
2874   }
2875   endService( " GEOM_Superv_i::MakePolyline" );
2876   return NULL;
2877 }
2878
2879 //=============================================================================
2880 //  MakeSplineBezier:
2881 //=============================================================================
2882 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSplineBezier (GEOM::GEOM_List_ptr thePoints,
2883                                                        CORBA::Boolean      theIsClosed)
2884 {
2885   beginService( " GEOM_Superv_i::MakeSplineBezier" );
2886   MESSAGE("GEOM_Superv_i::MakeSplineBezier");
2887   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
2888       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(thePoints, myPOA).in())) {
2889     getCurvesOp();
2890     GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeSplineBezier(aListImplP->GetList(), theIsClosed);
2891     endService( " GEOM_Superv_i::MakeSplineBezier" );
2892     return anObj;
2893   }
2894   endService( " GEOM_Superv_i::MakeSplineBezier" );
2895   return NULL;
2896 }
2897
2898 //=============================================================================
2899 //  MakeSplineInterpolation:
2900 //=============================================================================
2901 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSplineInterpolation (GEOM::GEOM_List_ptr thePoints,
2902                                                               CORBA::Boolean      theIsClosed,
2903                                                               CORBA::Boolean      theDoReordering)
2904 {
2905   beginService( " GEOM_Superv_i::MakeSplineInterpolation" );
2906   MESSAGE("GEOM_Superv_i::MakeSplineInterpolation");
2907   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
2908       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(thePoints, myPOA).in())) {
2909     getCurvesOp();
2910     GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeSplineInterpolation(aListImplP->GetList(), theIsClosed, theDoReordering);
2911     endService( " GEOM_Superv_i::MakeSplineInterpolation" );
2912     return anObj;
2913   }
2914   endService( " GEOM_Superv_i::MakeSplineInterpolation" );
2915   return NULL;
2916 }
2917
2918 //=============================================================================
2919 //  MakeSketcher:
2920 //=============================================================================
2921 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSketcher (const char* theCommand,
2922                                                    GEOM::GEOM_List_ptr theWorkingPlane)
2923 {
2924   beginService( " GEOM_Superv_i::MakeSketcher" );
2925   MESSAGE("GEOM_Superv_i::MakeSketcher");
2926   if (GEOM_List_i<GEOM::ListOfDouble>* aListImplWP =
2927       dynamic_cast<GEOM_List_i<GEOM::ListOfDouble>*>(GetServant(theWorkingPlane, myPOA).in())) {
2928     getCurvesOp();
2929     GEOM::GEOM_Object_ptr anObj = myCurvesOp->MakeSketcher(theCommand, aListImplWP->GetList());
2930     endService( " GEOM_Superv_i::MakeSketcher" );
2931     return anObj;
2932   }
2933   endService( " GEOM_Superv_i::MakeSketcher" );
2934   return NULL;
2935 }
2936
2937 //=============================================================================
2938 //  Make3DSketcher:
2939 //=============================================================================
2940 GEOM::GEOM_Object_ptr GEOM_Superv_i::Make3DSketcher ( GEOM::GEOM_List_ptr theCoordinates)
2941 {
2942   beginService( " GEOM_Superv_i::Make3DSketcher" );
2943   MESSAGE("GEOM_Superv_i::Make3DSketcher");
2944   if (GEOM_List_i<GEOM::ListOfDouble>* aListImpl =
2945       dynamic_cast<GEOM_List_i<GEOM::ListOfDouble>*>(GetServant(theCoordinates, myPOA).in())) {
2946     getCurvesOp();
2947     GEOM::GEOM_Object_ptr anObj = myCurvesOp->Make3DSketcher(aListImpl->GetList());
2948     endService( " GEOM_Superv_i::Make3DSketcher" );
2949     return anObj;
2950   }
2951   endService( " GEOM_Superv_i::Make3DSketcher" );
2952   return NULL;
2953 }
2954
2955 //=============================== LocalOperations =============================
2956 //=============================================================================
2957 //  MakeFilletAll:
2958 //=============================================================================
2959 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilletAll (GEOM::GEOM_Object_ptr theShape,
2960                                                     CORBA::Double theR)
2961 {
2962   beginService( " GEOM_Superv_i::MakeFilletAll" );
2963   MESSAGE("GEOM_Superv_i::MakeFilletAllMakeSketcher");
2964   getLocalOp();
2965   GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFilletAll(theShape, theR);
2966   endService( " GEOM_Superv_i::MakeFilletAll" );
2967   return anObj;
2968 }
2969
2970 //=============================================================================
2971 //  MakeFilletEdges:
2972 //=============================================================================
2973 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilletEdges (GEOM::GEOM_Object_ptr theShape,
2974                                                       CORBA::Double theR,
2975                                                       GEOM::GEOM_List_ptr theEdges)
2976 {
2977   beginService( " GEOM_Superv_i::MakeFilletEdges" );
2978   MESSAGE("GEOM_Superv_i::MakeFilletEdges");
2979   if (GEOM_List_i<GEOM::ListOfLong>* aListImplE =
2980       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theEdges, myPOA).in())) {
2981     getLocalOp();
2982     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFilletEdges(theShape, theR, aListImplE->GetList());
2983     endService( " GEOM_Superv_i::MakeFilletEdges" );
2984     return anObj;
2985   }
2986   endService( " GEOM_Superv_i::MakeFilletEdges" );
2987   return NULL;
2988 }
2989
2990 //=============================================================================
2991 //  MakeFilletEdges R1 R2:
2992 //=============================================================================
2993 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilletEdgesR1R2 (GEOM::GEOM_Object_ptr theShape,
2994                                                           CORBA::Double theR1,
2995                                                           CORBA::Double theR2,
2996                                                           GEOM::GEOM_List_ptr theEdges)
2997 {
2998   beginService( " GEOM_Superv_i::MakeFilletEdgesR1R2" );
2999   MESSAGE("GEOM_Superv_i::MakeFilletEdgesR1R2");
3000   if (GEOM_List_i<GEOM::ListOfLong>* aListImplE =
3001       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theEdges, myPOA).in())) {
3002     getLocalOp();
3003     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFilletEdgesR1R2(theShape, theR1,
3004                                                                  theR2, aListImplE->GetList());
3005     endService( " GEOM_Superv_i::MakeFilletEdgesR1R2" );
3006     return anObj;
3007   }
3008   endService( " GEOM_Superv_i::MakeFilletEdgesR1R2" );
3009   return NULL;
3010 }
3011
3012 //=============================================================================
3013 //  MakeFilletFaces:
3014 //=============================================================================
3015 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilletFaces (GEOM::GEOM_Object_ptr theShape,
3016                                                       CORBA::Double theR,
3017                                                       GEOM::GEOM_List_ptr theFaces)
3018 {
3019   beginService( " GEOM_Superv_i::MakeFilletFaces" );
3020   MESSAGE("GEOM_Superv_i::MakeFilletFaces");
3021   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
3022       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theFaces, myPOA).in())) {
3023     getLocalOp();
3024     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFilletFaces(theShape, theR, aListImplF->GetList());
3025     endService( " GEOM_Superv_i::MakeFilletFaces" );
3026     return anObj;
3027   }
3028   endService( " GEOM_Superv_i::MakeFilletFaces" );
3029   return NULL;
3030 }
3031
3032 //=============================================================================
3033 //  MakeFilletFaces R1 R2:
3034 //=============================================================================
3035 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFilletFacesR1R2 (GEOM::GEOM_Object_ptr theShape,
3036                                                           CORBA::Double theR1,
3037                                                           CORBA::Double theR2,
3038                                                           GEOM::GEOM_List_ptr theFaces)
3039 {
3040   beginService( " GEOM_Superv_i::MakeFilletFacesR1R2" );
3041   MESSAGE("GEOM_Superv_i::MakeFilletFacesR1R2");
3042   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
3043       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theFaces, myPOA).in())) {
3044     getLocalOp();
3045     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFilletFacesR1R2(theShape, theR1, theR2,
3046                                                                  aListImplF->GetList());
3047     endService( " GEOM_Superv_i::MakeFilletFacesR1R2" );
3048     return anObj;
3049   }
3050   endService( " GEOM_Superv_i::MakeFilletFacesR1R2" );
3051   return NULL;
3052 }
3053
3054 //=============================================================================
3055 //  MakeFillet2D:
3056 //=============================================================================
3057 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFillet2D (GEOM::GEOM_Object_ptr theShape,
3058                                                    CORBA::Double theR,
3059                                                    GEOM::GEOM_List_ptr theVertexes)
3060 {
3061   beginService( " GEOM_Superv_i::MakeFillet2D" );
3062   MESSAGE("GEOM_Superv_i::MakeFillet2D");
3063   if (GEOM_List_i<GEOM::ListOfLong>* aListImplV =
3064       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theVertexes, myPOA).in())) {
3065     getLocalOp();
3066     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFillet2D(theShape, theR, aListImplV->GetList());
3067     endService( " GEOM_Superv_i::MakeFillet2D" );
3068     return anObj;
3069   }
3070   endService( " GEOM_Superv_i::MakeFillet2D" );
3071   return NULL;
3072 }
3073
3074 //=============================================================================
3075 //  MakeFillet1D:
3076 //=============================================================================
3077 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeFillet1D (GEOM::GEOM_Object_ptr theShape,
3078                                                    CORBA::Double theR,
3079                                                    GEOM::GEOM_List_ptr theVertexes,
3080                                                    CORBA::Boolean doIgnoreSecantVertices)
3081 {
3082   beginService( " GEOM_Superv_i::MakeFillet1D" );
3083   MESSAGE("GEOM_Superv_i::MakeFillet1D");
3084   if (GEOM_List_i<GEOM::ListOfLong>* aListImplV =
3085       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theVertexes, myPOA).in())) {
3086     getLocalOp();
3087     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeFillet1D
3088       (theShape, theR, aListImplV->GetList(), doIgnoreSecantVertices);
3089     endService( " GEOM_Superv_i::MakeFillet1D" );
3090     return anObj;
3091   }
3092   endService( " GEOM_Superv_i::MakeFillet1D" );
3093   return NULL;
3094 }
3095
3096 //=============================================================================
3097 //  MakeChamferAll:
3098 //=============================================================================
3099 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferAll (GEOM::GEOM_Object_ptr theShape, CORBA::Double theD)
3100 {
3101   beginService( " GEOM_Superv_i::MakeChamferAll" );
3102   MESSAGE("GEOM_Superv_i::MakeChamferAll");
3103   getLocalOp();
3104   GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferAll(theShape, theD);
3105   endService( " GEOM_Superv_i::MakeChamferAll" );
3106   return anObj;
3107 }
3108
3109 //=============================================================================
3110 //  MakeChamferEdge:
3111 //=============================================================================
3112 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferEdge (GEOM::GEOM_Object_ptr theShape,
3113                                                       CORBA::Double theD1, CORBA::Double theD2,
3114                                                       CORBA::Long theFace1, CORBA::Long theFace2)
3115 {
3116   beginService( " GEOM_Superv_i::MakeChamferEdge" );
3117   MESSAGE("GEOM_Superv_i::MakeChamferEdge");
3118   getLocalOp();
3119   GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferEdge(theShape, theD1, theD2, theFace1, theFace2);
3120   endService( " GEOM_Superv_i::MakeChamferEdge" );
3121   return anObj;
3122 }
3123
3124 //=============================================================================
3125 //  MakeChamferEdgeAD:
3126 //=============================================================================
3127 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferEdgeAD (GEOM::GEOM_Object_ptr theShape,
3128                                                         CORBA::Double theD, CORBA::Double theAngle,
3129                                                         CORBA::Long theFace1, CORBA::Long theFace2)
3130 {
3131   beginService( " GEOM_Superv_i::MakeChamferEdgeAD" );
3132   MESSAGE("GEOM_Superv_i::MakeChamferEdgeAD");
3133   getLocalOp();
3134   GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferEdgeAD(theShape, theD, theAngle, theFace1, theFace2);
3135   endService( " GEOM_Superv_i::MakeChamferEdgeAD" );
3136   return anObj;
3137 }
3138
3139 //=============================================================================
3140 //  MakeChamferFaces:
3141 //=============================================================================
3142 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferFaces (GEOM::GEOM_Object_ptr theShape,
3143                                                        CORBA::Double theD1, CORBA::Double theD2,
3144                                                        GEOM::GEOM_List_ptr theFaces)
3145 {
3146   beginService( " GEOM_Superv_i::MakeChamferFaces" );
3147   MESSAGE("GEOM_Superv_i::MakeChamferFaces");
3148   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
3149       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theFaces, myPOA).in())) {
3150     getLocalOp();
3151     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferFaces(theShape, theD1, theD2, aListImplF->GetList());
3152     endService( " GEOM_Superv_i::MakeChamferFaces" );
3153     return anObj;
3154   }
3155   endService( " GEOM_Superv_i::MakeChamferFaces" );
3156   return NULL;
3157 }
3158
3159 //=============================================================================
3160 //  MakeChamferFacesAD:
3161 //=============================================================================
3162 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferFacesAD (GEOM::GEOM_Object_ptr theShape,
3163                                                          CORBA::Double theD, CORBA::Double theAngle,
3164                                                          GEOM::GEOM_List_ptr theFaces)
3165 {
3166   beginService( " GEOM_Superv_i::MakeChamferFacesAD" );
3167   MESSAGE("GEOM_Superv_i::MakeChamferFacesAD");
3168   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
3169       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theFaces, myPOA).in())) {
3170     getLocalOp();
3171     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferFacesAD(theShape, theD, theAngle, aListImplF->GetList());
3172     endService( " GEOM_Superv_i::MakeChamferFacesAD" );
3173     return anObj;
3174   }
3175   endService( " GEOM_Superv_i::MakeChamferFacesAD" );
3176   return NULL;
3177 }
3178
3179 //=============================================================================
3180 //  MakeChamferEdges:
3181 //=============================================================================
3182 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferEdges (GEOM::GEOM_Object_ptr theShape,
3183                                                        CORBA::Double theD1, CORBA::Double theD2,
3184                                                        GEOM::GEOM_List_ptr theEdges)
3185 {
3186   beginService( " GEOM_Superv_i::MakeChamferEdges" );
3187   MESSAGE("GEOM_Superv_i::MakeChamferEdges");
3188   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
3189       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theEdges, myPOA).in())) {
3190     getLocalOp();
3191     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferEdges(theShape, theD1, theD2, aListImplF->GetList());
3192     endService( " GEOM_Superv_i::MakeChamferEdges" );
3193     return anObj;
3194   }
3195   endService( " GEOM_Superv_i::MakeChamferEdges" );
3196   return NULL;
3197 }
3198
3199 //=============================================================================
3200 //  MakeChamferEdgesAD:
3201 //=============================================================================
3202 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeChamferEdgesAD (GEOM::GEOM_Object_ptr theShape,
3203                                                          CORBA::Double theD, CORBA::Double theAngle,
3204                                                          GEOM::GEOM_List_ptr theEdges)
3205 {
3206   beginService( " GEOM_Superv_i::MakeChamferEdgesAD" );
3207   MESSAGE("GEOM_Superv_i::MakeChamferEdgesAD");
3208   if (GEOM_List_i<GEOM::ListOfLong>* aListImplF =
3209       dynamic_cast<GEOM_List_i<GEOM::ListOfLong>*>(GetServant(theEdges, myPOA).in())) {
3210     getLocalOp();
3211     GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeChamferEdgesAD(theShape, theD, theAngle, aListImplF->GetList());
3212     endService( " GEOM_Superv_i::MakeChamferEdgesAD" );
3213     return anObj;
3214   }
3215   endService( " GEOM_Superv_i::MakeChamferEdgesAD" );
3216   return NULL;
3217 }
3218
3219 //=============================================================================
3220 //  MakeArchimede:
3221 //=============================================================================
3222 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeArchimede (GEOM::GEOM_Object_ptr theShape,
3223                                                     CORBA::Double theWeight,
3224                                                     CORBA::Double theWaterDensity,
3225                                                     CORBA::Double theMeshingDeflection)
3226 {
3227   beginService( " GEOM_Superv_i::MakeArchimede" );
3228   MESSAGE("GEOM_Superv_i::MakeArchimede");
3229   getLocalOp();
3230   GEOM::GEOM_Object_ptr anObj = myLocalOp->MakeArchimede(theShape, theWeight, theWaterDensity, theMeshingDeflection);
3231   endService( " GEOM_Superv_i::MakeArchimede" );
3232   return anObj;
3233 }
3234
3235 //=============================================================================
3236 //  GetSubShapeIndexMakeFilletAll:
3237 //=============================================================================
3238 CORBA::Long GEOM_Superv_i::GetSubShapeIndex (GEOM::GEOM_Object_ptr theShape,
3239                                              GEOM::GEOM_Object_ptr theSubShape)
3240 {
3241   beginService( " GEOM_Superv_i::GetSubShapeIndex" );
3242   MESSAGE("GEOM_Superv_i::GetSubShapeIndexMakeArchimede");
3243   getLocalOp();
3244   CORBA::Long aRes = myLocalOp->GetSubShapeIndex(theShape, theSubShape);
3245   endService( " GEOM_Superv_i::GetSubShapeIndex" );
3246   return aRes;
3247 }
3248
3249 //=============================== GroupOperations =============================
3250 //=============================================================================
3251 //  CreateGroup:
3252 //=============================================================================
3253 GEOM::GEOM_Object_ptr GEOM_Superv_i::CreateGroup (GEOM::GEOM_Object_ptr theMainShape,
3254                                                   CORBA::Long theShapeType)
3255 {
3256   beginService( " GEOM_Superv_i::CreateGroup" );
3257   MESSAGE("GEOM_Superv_i::CreateGroup");
3258   getGroupOp();
3259   GEOM::GEOM_Object_ptr anObj = myGroupOp->CreateGroup(theMainShape, theShapeType);
3260   endService( " GEOM_Superv_i::CreateGroup" );
3261   return anObj;
3262 }
3263
3264 //=============================================================================
3265 //  AddObject:
3266 //=============================================================================
3267 void GEOM_Superv_i::AddObject (GEOM::GEOM_Object_ptr theGroup,
3268                                CORBA::Long theSubShapeId)
3269 {
3270   beginService( " GEOM_Superv_i::AddObject" );
3271   MESSAGE("GEOM_Superv_i::AddObject");
3272   getGroupOp();
3273   myGroupOp->AddObject(theGroup, theSubShapeId);
3274   endService( " GEOM_Superv_i::AddObject" );
3275 }
3276
3277 //=============================================================================
3278 //  RemoveObject:
3279 //=============================================================================
3280 void GEOM_Superv_i::RemoveObject (GEOM::GEOM_Object_ptr theGroup,
3281                                   CORBA::Long theSubShapeId)
3282 {
3283   beginService( " GEOM_Superv_i::RemoveObject" );
3284   MESSAGE("GEOM_Superv_i::RemoveObject");
3285   getGroupOp();
3286   myGroupOp->RemoveObject(theGroup, theSubShapeId);
3287   endService( " GEOM_Superv_i::RemoveObject" );
3288 }
3289
3290 //=============================================================================
3291 //  GetType:
3292 //=============================================================================
3293 CORBA::Long GEOM_Superv_i::GetType (GEOM::GEOM_Object_ptr theGroup)
3294 {
3295   beginService( " GEOM_Superv_i::GetType" );
3296   MESSAGE("GEOM_Superv_i::GetType");
3297   getGroupOp();
3298   CORBA::Long aResult = myGroupOp->GetType(theGroup);
3299   endService( " GEOM_Superv_i::GetType" );
3300   return aResult;
3301 }
3302
3303 //=============================================================================
3304 //  GetMainShape:
3305 //=============================================================================
3306 GEOM::GEOM_Object_ptr GEOM_Superv_i::GetMainShape (GEOM::GEOM_Object_ptr theGroup)
3307 {
3308   beginService( " GEOM_Superv_i::GetMainShape" );
3309   MESSAGE("GEOM_Superv_i::GetMainShape");
3310   getGroupOp();
3311   GEOM::GEOM_Object_ptr anObj = myGroupOp->GetMainShape(theGroup);
3312   endService( " GEOM_Superv_i::GetMainShape" );
3313   return anObj;
3314 }
3315
3316 //=============================================================================
3317 //  GetObjects:
3318 //=============================================================================
3319 GEOM::GEOM_List_ptr GEOM_Superv_i::GetObjects (GEOM::GEOM_Object_ptr theGroup)
3320 {
3321   beginService( " GEOM_Superv_i::GetObjects" );
3322   MESSAGE("GEOM_Superv_i::GetObjects");
3323   getGroupOp();
3324
3325   GEOM::ListOfLong* aList = myGroupOp->GetObjects(theGroup);
3326   GEOM_List_i<GEOM::ListOfLong>* aListPtr = new GEOM_List_i<GEOM::ListOfLong>(*(aList));
3327   MESSAGE(" List of "<<aListPtr->GetList().length()<<" element(s)");
3328   endService( " GEOM_Superv_i::GetObjects" );
3329   return aListPtr->_this();
3330 }
3331
3332 //=============================================================================
3333 //  ExportXAO
3334 //=============================================================================
3335 CORBA::Boolean GEOM_Superv_i::ExportXAO (GEOM::GEOM_Object_ptr shape,
3336                                          const GEOM::ListOfGO& groups, const GEOM::ListOfFields& fields,
3337                                          const char* author, const char* fileName)
3338 {
3339   beginService( " GEOM_Superv_i::ExportXAO" );
3340   MESSAGE("GEOM_Superv_i::ExportXAO");
3341   getInsOp();
3342   CORBA::Boolean isGood = myInsOp->ExportXAO(shape, groups, fields, author, fileName);
3343   endService( " GEOM_Superv_i::ExportXAO" );
3344   return isGood;
3345 }
3346
3347 //=============================================================================
3348 //  ImportXAO
3349 //=============================================================================
3350 CORBA::Boolean GEOM_Superv_i::ImportXAO (const char* fileName, GEOM::GEOM_Object_out shape,
3351                                          GEOM::ListOfGO_out subShapes, GEOM::ListOfGO_out groups, GEOM::ListOfFields_out fields)
3352 {
3353   return false;
3354 }
3355
3356 //=============================== Advanced Operations =============================
3357 //=============================================================================
3358 //  MakePipeTShape
3359 //=============================================================================
3360 GEOM::GEOM_List_ptr GEOM_Superv_i::MakePipeTShape
3361                     (CORBA::Double theR1, CORBA::Double theW1, CORBA::Double theL1,
3362                      CORBA::Double theR2, CORBA::Double theW2, CORBA::Double theL2,
3363                      CORBA::Boolean theHexMesh)
3364 {
3365   beginService( " GEOM_Superv_i::MakePipeTShape" );
3366   MESSAGE("GEOM_Superv_i::MakePipeTShape");
3367   getAdvancedOp();
3368
3369   GEOM::ListOfGO* aSeq = myAdvancedOp->MakePipeTShape(theR1, theW1, theL1, theR2, theW2, theL2, theHexMesh);
3370   GEOM_List_i<GEOM::ListOfGO>* aSeqPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aSeq));
3371   MESSAGE(" List of "<<aSeqPtr->GetList().length()<<" element(s)");
3372   endService( " GEOM_Superv_i::MakePipeTShape" );
3373   return aSeqPtr->_this();
3374 }
3375
3376 //=============================================================================
3377 //  MakePipeTShapeWithPosition
3378 //=============================================================================
3379 GEOM::GEOM_List_ptr GEOM_Superv_i::MakePipeTShapeWithPosition
3380                     (CORBA::Double theR1, CORBA::Double theW1, CORBA::Double theL1,
3381                      CORBA::Double theR2, CORBA::Double theW2, CORBA::Double theL2, CORBA::Boolean theHexMesh,
3382                      GEOM::GEOM_Object_ptr theP1, GEOM::GEOM_Object_ptr theP2, GEOM::GEOM_Object_ptr theP3)
3383 {
3384   beginService( " GEOM_Superv_i::MakePipeTShapeWithPosition" );
3385   MESSAGE("GEOM_Superv_i::MakePipeTShapeWithPosition");
3386   getAdvancedOp();
3387
3388   GEOM::ListOfGO* aSeq = myAdvancedOp->MakePipeTShapeWithPosition(theR1, theW1, theL1, theR2, theW2, theL2, theHexMesh, theP1, theP2, theP3);
3389   GEOM_List_i<GEOM::ListOfGO>* aSeqPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aSeq));
3390   MESSAGE(" List of "<<aSeqPtr->GetList().length()<<" element(s)");
3391   endService( " GEOM_Superv_i::MakePipeTShapeWithPosition" );
3392   return aSeqPtr->_this();
3393 }
3394
3395 //=============================================================================
3396 //  MakePipeTShapeChamfer
3397 //=============================================================================
3398 GEOM::GEOM_List_ptr GEOM_Superv_i::MakePipeTShapeChamfer
3399                     (CORBA::Double theR1, CORBA::Double theW1, CORBA::Double theL1,
3400                      CORBA::Double theR2, CORBA::Double theW2, CORBA::Double theL2,
3401                      CORBA::Double theH, CORBA::Double theW, CORBA::Boolean theHexMesh)
3402 {
3403   beginService( " GEOM_Superv_i::MakePipeTShapeChamfer" );
3404   MESSAGE("GEOM_Superv_i::MakePipeTShapeChamfer");
3405   getAdvancedOp();
3406
3407   GEOM::ListOfGO* aSeq = myAdvancedOp->MakePipeTShapeChamfer(theR1, theW1, theL1, theR2, theW2, theL2, theH, theW, theHexMesh);
3408   GEOM_List_i<GEOM::ListOfGO>* aSeqPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aSeq));
3409   MESSAGE(" List of "<<aSeqPtr->GetList().length()<<" element(s)");
3410   endService( " GEOM_Superv_i::MakePipeTShapeChamfer" );
3411   return aSeqPtr->_this();
3412 }
3413
3414 //=============================================================================
3415 //  MakePipeTShapeChamferWithPosition
3416 //=============================================================================
3417 GEOM::GEOM_List_ptr GEOM_Superv_i::MakePipeTShapeChamferWithPosition
3418                     (CORBA::Double theR1, CORBA::Double theW1, CORBA::Double theL1,
3419                      CORBA::Double theR2, CORBA::Double theW2, CORBA::Double theL2,
3420                      CORBA::Double theH, CORBA::Double theW, CORBA::Boolean theHexMesh,
3421                      GEOM::GEOM_Object_ptr theP1, GEOM::GEOM_Object_ptr theP2, GEOM::GEOM_Object_ptr theP3)
3422 {
3423   beginService( " GEOM_Superv_i::MakePipeTShapeChamferWithPosition" );
3424   MESSAGE("GEOM_Superv_i::MakePipeTShapeChamferWithPosition");
3425   getAdvancedOp();
3426
3427   GEOM::ListOfGO* aSeq = myAdvancedOp->MakePipeTShapeChamferWithPosition(theR1, theW1, theL1, theR2, theW2, theL2, theH, theW, theHexMesh, theP1, theP2, theP3);
3428   GEOM_List_i<GEOM::ListOfGO>* aSeqPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aSeq));
3429   MESSAGE(" List of "<<aSeqPtr->GetList().length()<<" element(s)");
3430   endService( " GEOM_Superv_i::MakePipeTShapeChamferWithPosition" );
3431   return aSeqPtr->_this();
3432 }
3433
3434 //=============================================================================
3435 //  MakePipeTShapeFillet
3436 //=============================================================================
3437 GEOM::GEOM_List_ptr GEOM_Superv_i::MakePipeTShapeFillet
3438                     (CORBA::Double theR1, CORBA::Double theW1, CORBA::Double theL1,
3439                      CORBA::Double theR2, CORBA::Double theW2, CORBA::Double theL2,
3440                      CORBA::Double theRF, CORBA::Boolean theHexMesh)
3441 {
3442   beginService( " GEOM_Superv_i::MakePipeTShapeFillet" );
3443   MESSAGE("GEOM_Superv_i::MakePipeTShapeFillet");
3444   getAdvancedOp();
3445
3446   GEOM::ListOfGO* aSeq = myAdvancedOp->MakePipeTShapeFillet(theR1, theW1, theL1, theR2, theW2, theL2, theRF, theHexMesh);
3447   GEOM_List_i<GEOM::ListOfGO>* aSeqPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aSeq));
3448   MESSAGE(" List of "<<aSeqPtr->GetList().length()<<" element(s)");
3449   endService( " GEOM_Superv_i::MakePipeTShapeFillet" );
3450   return aSeqPtr->_this();
3451 }
3452
3453 //=============================================================================
3454 //  MakePipeTShapeFilletWithPosition
3455 //=============================================================================
3456 GEOM::GEOM_List_ptr GEOM_Superv_i::MakePipeTShapeFilletWithPosition
3457                     (CORBA::Double theR1, CORBA::Double theW1, CORBA::Double theL1,
3458                      CORBA::Double theR2, CORBA::Double theW2, CORBA::Double theL2,
3459                      CORBA::Double theRF, CORBA::Boolean theHexMesh,
3460                      GEOM::GEOM_Object_ptr theP1, GEOM::GEOM_Object_ptr theP2, GEOM::GEOM_Object_ptr theP3)
3461 {
3462   beginService( " GEOM_Superv_i::MakePipeTShapeFilletWithPosition" );
3463   MESSAGE("GEOM_Superv_i::MakePipeTShapeFilletWithPosition");
3464   getAdvancedOp();
3465
3466   GEOM::ListOfGO* aSeq = myAdvancedOp->MakePipeTShapeFilletWithPosition(theR1, theW1, theL1, theR2, theW2, theL2, theRF, theHexMesh, theP1, theP2, theP3);
3467   GEOM_List_i<GEOM::ListOfGO>* aSeqPtr = new GEOM_List_i<GEOM::ListOfGO>(*(aSeq));
3468   MESSAGE(" List of "<<aSeqPtr->GetList().length()<<" element(s)");
3469   endService( " GEOM_Superv_i::MakePipeTShapeFilletWithPosition" );
3470   return aSeqPtr->_this();
3471 }
3472
3473 //=============================================================================
3474 //  MakeDividedDisk
3475 //=============================================================================
3476 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeDividedDisk (CORBA::Double theR, CORBA::Double theRatio,
3477                                                       CORBA::Short theOrientation, GEOM::pattern thePattern)
3478 {
3479   beginService( " GEOM_Superv_i::MakeDividedDisk" );
3480   MESSAGE("GEOM_Superv_i::MakeDividedDisk");
3481   getAdvancedOp();
3482   GEOM::GEOM_Object_ptr anObj = myAdvancedOp->MakeDividedDisk(theR, theRatio, theOrientation, thePattern);
3483   endService( " GEOM_Superv_i::MakeDividedDisk" );
3484   return anObj;
3485 }
3486
3487 //=============================================================================
3488 //  MakeDividedCylinder
3489 //=============================================================================
3490 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeDividedCylinder (CORBA::Double theR,
3491                                                           CORBA::Double theH,
3492                                                           GEOM::pattern thePattern)
3493 {
3494   beginService( " GEOM_Superv_i::MakeDividedCylinder" );
3495   MESSAGE("GEOM_Superv_i::MakeDividedCylinder");
3496   getAdvancedOp();
3497   GEOM::GEOM_Object_ptr anObj = myAdvancedOp->MakeDividedCylinder(theR, theH, thePattern);
3498   endService( " GEOM_Superv_i::MakeDividedCylinder" );
3499   return anObj;
3500 }
3501
3502 //=============================================================================
3503 //  MakeSmoothingSurface
3504 //=============================================================================
3505 GEOM::GEOM_Object_ptr GEOM_Superv_i::MakeSmoothingSurface (GEOM::GEOM_List_ptr thelPoints)
3506 {
3507   beginService( " GEOM_Superv_i::MakeSmoothingSurface" );
3508   MESSAGE("GEOM_Superv_i::MakeSmoothingSurface");
3509   getAdvancedOp();
3510   if (GEOM_List_i<GEOM::ListOfGO>* aListImplP =
3511       dynamic_cast<GEOM_List_i<GEOM::ListOfGO>*>(GetServant(thelPoints, myPOA).in())) {
3512     getCurvesOp();
3513     GEOM::GEOM_Object_ptr anObj = myAdvancedOp->MakeSmoothingSurface(aListImplP->GetList());
3514     endService( " GEOM_Superv_i::MakeSmoothingSurface" );
3515     return anObj;
3516   }
3517   endService( " GEOM_Superv_i::MakeSmoothingSurface" );
3518   return NULL;
3519 }
3520
3521 /*@@ insert new functions before this line @@ do not remove this line @@*/
3522
3523 //=====================================================================================
3524 // EXPORTED METHODS
3525 //=====================================================================================
3526 extern "C"
3527 {
3528 #ifdef WIN32
3529   __declspec( dllexport )
3530 #endif
3531   PortableServer::ObjectId * GEOM_SupervEngine_factory(CORBA::ORB_ptr orb,
3532                                                        PortableServer::POA_ptr poa,
3533                                                        PortableServer::ObjectId * contId,
3534                                                        const char *instanceName,
3535                                                        const char * interfaceName)
3536   {
3537     GEOM_Superv_i * myGEOM_Superv_i = new GEOM_Superv_i(orb, poa, contId, instanceName, interfaceName);
3538     //Don't understand the reason why this component is registered ???
3539 //    myGEOM_Superv_i->register_name("/myGEOM_Superv");
3540     return myGEOM_Superv_i->getId() ;
3541   }
3542 }