From efd4b232bf6786c2f75cb6f84dfe61ca19135a3e Mon Sep 17 00:00:00 2001
From: szy <szy@opencascade.com>
Date: Fri, 14 Sep 2012 17:18:59 +0400
Subject: [PATCH] 0023119: TNaming_Selector::Solve() fails (changes from single
 face to compound of multiple faces) Patch for Naming improvement.

1). Added persistence.
2). Removed not supported evolution - Replace.

Fix of QADraw commands.
Modified test case: caf named_shape F6

1). Redesigned DNaming commands: SelectShape & SolveSelection
2). Added 2 new scripts: F8 & F9

Adding test cases caf/named_shape/F8 F9
---
 src/DNaming/DNaming_SelectionCommands.cxx | 87 +++++++++++++++++----
 src/TNaming/TNaming_Name.cxx              |  4 +-
 src/TNaming/TNaming_Naming.cxx            | 11 ++-
 tests/caf/named_shape/E1                  | 23 +++++-
 tests/caf/named_shape/E2                  | 27 +++++--
 tests/caf/named_shape/E3                  | 21 ++++-
 tests/caf/named_shape/E4                  | 21 ++++-
 tests/caf/named_shape/E5                  | 21 ++++-
 tests/caf/named_shape/E6                  | 24 +++++-
 tests/caf/named_shape/E7                  | 53 +++++++------
 tests/caf/named_shape/E8                  | 38 +++++----
 tests/caf/named_shape/E9                  | 24 +++++-
 tests/caf/named_shape/F1                  | 60 +++++++--------
 tests/caf/named_shape/F2                  | 24 +++++-
 tests/caf/named_shape/F3                  | 36 +++++++--
 tests/caf/named_shape/F4                  | 25 +++++-
 tests/caf/named_shape/F5                  | 39 ++++++----
 tests/caf/named_shape/F6                  | 53 ++++++++-----
 tests/caf/named_shape/F7                  | 54 ++++++++-----
 tests/caf/named_shape/F8                  | 94 +++++++++++++++++++++++
 tests/caf/named_shape/F9                  | 93 ++++++++++++++++++++++
 21 files changed, 655 insertions(+), 177 deletions(-)
 create mode 100755 tests/caf/named_shape/F8
 create mode 100755 tests/caf/named_shape/F9

diff --git a/src/DNaming/DNaming_SelectionCommands.cxx b/src/DNaming/DNaming_SelectionCommands.cxx
index b21d52f69c..8a2039dadb 100755
--- a/src/DNaming/DNaming_SelectionCommands.cxx
+++ b/src/DNaming/DNaming_SelectionCommands.cxx
@@ -36,6 +36,7 @@
 #include <TNaming_Name.hxx>
 #include <TNaming.hxx>
 #include <TNaming_Naming.hxx>
+#include <TNaming_NamingTool.hxx>
 #include <TNaming_MapOfNamedShape.hxx>
 #include <TNaming_MapIteratorOfMapOfNamedShape.hxx>
 #include <TDF_ChildIterator.hxx>
@@ -44,6 +45,7 @@
 #include <TopAbs.hxx>
 #include <TCollection_AsciiString.hxx>
 #include <TDF_LabelMap.hxx>
+#include <TDF_MapIteratorOfLabelMap.hxx>
 
 #include <DBRep.hxx>
 #include <Draw_Appli.hxx>
@@ -115,7 +117,7 @@ static void DumpNaming (const Handle(TNaming_Naming)& naming, Draw_Interpretor&
 static Standard_Integer DNaming_Select (Draw_Interpretor& di, Standard_Integer n, const char** a)
 {
   if (n > 3) {
-    Standard_Boolean geometry = (strcmp(a[0],"SelectGeometry")); 
+    Standard_Boolean geometry = !(strcmp(a[0],"SelectGeometry")); 
     Handle(TDF_Data) DF;
     if(!DDF::GetDF(a[1], DF))  return 1;
     TDF_Label L;
@@ -137,7 +139,51 @@ static Standard_Integer DNaming_Select (Draw_Interpretor& di, Standard_Integer n
   di << "DNaming_Select : Error" << "\n";
   return 1;
 }
+// #define DEB_SELN 1
+//=======================================================================
+//function : FillValidMap
+//purpose  : 
+//=======================================================================
 
+Standard_Boolean FillValidMap(const TDF_Label& theLabel, TDF_LabelMap& theValidMap)
+{
+  Standard_Boolean extRefFound = Standard_False;
+  TDF_AttributeMap anExtMap;
+#ifdef DEB_SELN
+	  TCollection_AsciiString entr1;
+      TDF_Tool::Entry(theLabel, entr1);  
+      cout<<"\tNaming Attribute at = "<< entr1 <<endl;
+#endif
+  TDF_ChildIterator itr(theLabel, Standard_True);
+  for ( ;itr.More(); itr.Next()) {
+	  const TDF_Label& aLabel = itr.Value();
+	  Handle(TNaming_Naming) aNaming;
+	  if(!aLabel.IsNull()) 
+		  aLabel.FindAttribute(TNaming_Naming::GetID(), aNaming);
+	  if(aNaming.IsNull()) continue;
+#ifdef DEB_SELN	  
+      TDF_Tool::Entry(aLabel, entr1);  
+      cout<<"\tNaming Attribute at = "<< entr1 <<endl;
+#endif
+	  TDF_Tool::OutReferences(aLabel,anExtMap);
+	  for (TDF_MapIteratorOfAttributeMap attMItr(anExtMap);attMItr.More(); attMItr.Next()) {
+        Handle(TDF_Attribute) att = attMItr.Key();
+#ifdef DEB_SELN
+        TDF_Tool::Entry(att->Label(), entr1);
+	    cout<<"## References attribute dynamic type = "<<att->DynamicType()<<" at Label = "<<entr1 <<endl;
+#endif	
+	    if (att->Label().IsDifferent(aLabel) && !att->Label().IsDescendant(theLabel)) {
+        theValidMap.Add(att->Label());
+		Handle(TNaming_NamedShape) aNS;
+		att->Label().FindAttribute(TNaming_NamedShape::GetID(), aNS);
+		if(!aNS.IsNull())
+		  TNaming_NamingTool::BuildDescendants(aNS, theValidMap);
+        extRefFound = Standard_True;
+	   }     
+	}
+  }
+  return extRefFound;
+}
 
 //=======================================================================
 //function : SolveSelection
@@ -151,23 +197,32 @@ static Standard_Integer DNaming_SolveSelection (Draw_Interpretor& di, Standard_I
     Handle(TDF_Data) DF;
     if(!DDF::GetDF(a[1], DF))  return 1;
     TDF_Label L;
-    DDF::AddLabel(DF,a[2],L);   
-    //Handle(TNaming_Naming) naming;    
-    //if (!L.FindAttribute(TNaming_Naming::GetID(),naming)) {  
-    //  cout <<"DNaming_DumpSelection : not a selection" << endl;
-    //  return 1;
-    //}
-    //naming->Solve();
-    //Handle(TNaming_NamedShape) NS;
-    //if  (!L.FindAttribute(TNaming_NamedShape::GetID(),NS)) {  
-    //  cout <<"DNaming_DumpSelection : not done" << endl;
-    //  return 1;
-    //}
+    DDF::AddLabel(DF,a[2],L);
+
+    Handle(TNaming_Naming) naming;    
+    if (!L.FindAttribute(TNaming_Naming::GetID(),naming)) {  
+      cout <<"DNaming__SolveSelection  : not a selection" << endl;
+      return 1;
+    }
+	TDF_LabelMap aValidMap;
+    if(!FillValidMap(L,aValidMap)) 
+		di << "Valid map is empty" << "\n";
+#ifdef DEB_SELN
+	cout<<"== Valid Label map =="<<endl;
+	for (TDF_MapIteratorOfLabelMap mapItr(aValidMap);mapItr.More(); mapItr.Next()) {
+      const TDF_Label& aLab = mapItr.Key();
+
+       TCollection_AsciiString entr1;
+       TDF_Tool::Entry(aLab, entr1);
+	   cout<<"  Label = "<<entr1 <<endl;
+	}
+#endif
+
     TNaming_Selector SL (L);
-    TDF_LabelMap dummy;
-    SL.Solve(dummy);
+    Standard_Boolean isSolved = SL.Solve(aValidMap);
+	if(!isSolved)
+		di << "!!! Solver is failed" <<"\n";
     TopoDS_Shape Res = TNaming_Tool::CurrentShape(SL.NamedShape());
-    //TopoDS_Shape Res = TNaming_Tool::CurrentShape(NS);
     sprintf (name,"%s_%s","new",a[2]);
     Display (name,Res);
     return 0;
diff --git a/src/TNaming/TNaming_Name.cxx b/src/TNaming/TNaming_Name.cxx
index bb59d713ea..8667b3612a 100755
--- a/src/TNaming/TNaming_Name.cxx
+++ b/src/TNaming/TNaming_Name.cxx
@@ -1520,6 +1520,7 @@ static Standard_Boolean  FilterByNeighbourgs (const TDF_Label&                L,
   i=1;
   aNam = "Boundaries";
 #endif
+  Standard_Boolean isDone = Standard_False;
   if(SCand.Extent() == 1) { // check if a collection is inside
     TopTools_MapIteratorOfMapOfShape it(SCand);
     const TopoDS_Shape& aS = it.Key();
@@ -1593,12 +1594,13 @@ static Standard_Boolean  FilterByNeighbourgs (const TDF_Label&                L,
     } //2
     if (Keep) {
       B.Select (S,S);
+	  isDone = Standard_True;
 #ifdef MDTV_DEB_FNB
       DbgTools_Write(S,  "FilterByNbs_Sel.brep") ;
 #endif
     }
   } //1
-  return Standard_True;
+  return isDone;
 }
 
 //=======================================================================
diff --git a/src/TNaming/TNaming_Naming.cxx b/src/TNaming/TNaming_Naming.cxx
index 090e7eb6c0..45d2d38b88 100755
--- a/src/TNaming/TNaming_Naming.cxx
+++ b/src/TNaming/TNaming_Naming.cxx
@@ -703,6 +703,7 @@ static Standard_Boolean Filter (const TDF_Label&                  F,
   //DbgTools::DisplayShape(S, F, Quantity_NOC_BLUE1);  
   Write(Context, "FNBS_Context.brep");
   Write(S, "FNBS_S.brep");
+  Write(Neighbourg, "NBS");
 #endif
 #ifdef OCC273
   // mpv : NS and shape must be the same
@@ -841,6 +842,8 @@ static Standard_Boolean Filter (const TDF_Label&                  F,
 #ifdef MDTV_DEB_NBS
   cout << "FilterByNBS: ";
   Print_Entry(NF->Label());
+  cout <<"AppendNS = " ;
+  Print_Entry(NS->Label());
 #endif
   //---------------------
   // Naming des voisins.
@@ -856,8 +859,14 @@ static Standard_Boolean Filter (const TDF_Label&                  F,
     const TopoDS_Shape& aS2 = aNS->Get(); 
     if(!aS.IsNull())
       cout << "Shape arg type = " << aS.ShapeType() <<" TSH = " << aS.TShape()->This()<<endl;
-    if(!aS2.IsNull())
+    if(!aS2.IsNull()) {
       cout << "Build shape type = " << aS2.ShapeType() <<" TSH = " << aS2.TShape()->This()<<endl;
+      Write (aS2, "NBS_BuildShape.brep");
+    }
+    if(aNS.IsNull()) {
+     cout <<"AppendNS = " ;
+     Print_Entry(aNS->Label());
+    }
 #endif
 		  
     const TopoDS_Shape aSNS = aNS->Get();  //allow child level
diff --git a/tests/caf/named_shape/E1 b/tests/caf/named_shape/E1
index cdc18bec0d..d7f0810570 100644
--- a/tests/caf/named_shape/E1
+++ b/tests/caf/named_shape/E1
@@ -1,7 +1,21 @@
-isos 12
+# ============= OCAF ============================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: E1 (ShapeOrientation is not used)
+#
+# 1. Create Box B2
+# 2. Create Cylinder Cyl
+# 3. Cut (B2, Cyl)
+# 4. Make Fillet
+# 5. Make selection for all sub-shapes
+# 6. Modify B2
+# 7. Recompute modeling functions
+# 8. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase 
 Close D 
 unset D
@@ -57,7 +71,7 @@ set SL2 [TestMultipleSelection D $B2 0]
 NewCommand D
 BoxDX D $B2 290
 
-# recomputation
+#7 recomputation modeling functions
 NewCommand D
 InitLogBook D;		## to be initialized before any recomputation of impacted functions set (if attachments are presented)
 ComputeFun D $F2;	
@@ -69,5 +83,6 @@ ComputeFun D $Fill
 GetShape D $Fill:2 S
 don S
 
+#8 Recompute selections
 SolveFlatFrom D $SL
 NewCommand D
diff --git a/tests/caf/named_shape/E2 b/tests/caf/named_shape/E2
index 5270f095f2..568e0bc377 100644
--- a/tests/caf/named_shape/E2
+++ b/tests/caf/named_shape/E2
@@ -1,6 +1,21 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: E2 (ShapeOrientation is used only for SingleSelection)
+# 1. Create Box B2
+# 2. Translate B2 along XYZ
+# 3. Translate B2 along Line (edge of B2)
+# 4. Rotate B2 around Line (edge of translated B2)
+# 5. Mirror B2 relative face of just rotated B2
+# 6. Make fillet on B2
+# 7. Make selection for all sub-shapes
+# 8. Recompute modeling functions
+# 9. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase
 Close D
 unset D
@@ -10,14 +25,9 @@ NewDocument D MDTV-Standard
 #Box|Sph|Cyl|Cut|Fuse|Prism|Revol|PTxyz|PTALine|PRLine|PMirr|Fillet|Attach|XAttach
 # order of functions recomputation should be defined out of the tool (by end user)
 
-#Commands of transformation:
-#PTranslateDXYZ Doc ShapeEntry dx dy dz
-#PTranslateAlongLine Doc ShapeEntry  Line off
-#PRotateRoundLine Doc ShapeEntry Line Angle
-#PMirror Doc ShapeEntry PlaneObj
-
 ## Test of transformation functions
 AddDriver D Box Attach PTxyz PTALine PRLine PMirr Sph
+
 #1 - create box using more flexible set of commands
 NewCommand D
 set B2 [AddObject D];			## add object
@@ -98,6 +108,7 @@ ComputeFun D $Sel6:1
 ComputeFun D $Fill
 GetShape D $Fill:2 SF-new
 
+#9 Recompute selections
 SolveFlatFrom D $SL
 
 NewCommand D
diff --git a/tests/caf/named_shape/E3 b/tests/caf/named_shape/E3
index ca71fe7232..eebcb62f70 100644
--- a/tests/caf/named_shape/E3
+++ b/tests/caf/named_shape/E3
@@ -1,10 +1,25 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: E3 (ShapeOrientation is used only for SingleSelection)
+# 1. Create box B2
+# 2. Create box B1
+# 3. Translate B2 along XYZ
+# 4. CS = Cut (B2, B1)
+# 5. Make selection for all sub-shapes
+# 6. Modify B2
+# 7. Recompute modeling functions
+# 8. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase 
 Close D 
 unset D
 NewDocument D MDTV-Standard
+
 AddDriver D Box Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
 #1 Box creation
 NewCommand D
@@ -58,6 +73,8 @@ ComputeFun D $CS
 erase
 GetShape D $CS:2 S
 don S
+
+#8 Recompute selections
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/E4 b/tests/caf/named_shape/E4
index 87e299d5cd..167957ccc8 100644
--- a/tests/caf/named_shape/E4
+++ b/tests/caf/named_shape/E4
@@ -1,10 +1,25 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: E4 (ShapeOrientation is not  used)
+# 1. Create box B2
+# 2. Create cylinder Cyl
+# 3. Translate Cyl along XYZ
+# 4. CS = Cut (B2, Cyl)
+# 5. Make selection for all sub-shapes
+# 6. Modify B2
+# 7. Recompute modeling functions
+# 8. Recompute selections
+# ===============================================
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
+
 erase 
 Close D 
 unset D
 NewDocument D MDTV-Standard
+
 AddDriver D Box Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
 
 #1 Create Box
@@ -64,6 +79,8 @@ ComputeFun D $CS
 erase
 GetShape D $CS:2 S
 don S
+
+#8 Recompute selections
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/E5 b/tests/caf/named_shape/E5
index 08b8959f4c..7ac47bb5ef 100644
--- a/tests/caf/named_shape/E5
+++ b/tests/caf/named_shape/E5
@@ -1,10 +1,25 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: E5 (ShapeOrientation is not  used)
+# 1. Create box B2
+# 2. Create cylinder Cyl
+# 3. Translate Cyl along XYZ
+# 4. CS = Cut (B2, Cyl)
+# 5. Make single selection for all sub-shapes
+# 6. Modify B2
+# 7. Recompute modeling functions
+# 8. Recompute selections
+# ===============================================
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
+
 erase 
 Close D 
 unset D
 NewDocument D MDTV-Standard
+
 AddDriver D Box Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
 
 #1 Create Box
@@ -66,6 +81,8 @@ ComputeFun D $CS
 erase
 GetShape D $CS:2 S
 don S
+
+#8 Recompute selections
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/E6 b/tests/caf/named_shape/E6
index e7d4f4746e..c1eac67270 100644
--- a/tests/caf/named_shape/E6
+++ b/tests/caf/named_shape/E6
@@ -1,6 +1,24 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: E6 (ShapeOrientation is not  used)
+# 1. Create box B1
+# 2. Create box B2
+# 3. Translate B1 along XYZ
+# 4. FS = B2 (B2, B1)
+# 5. Create cylinder Cyl
+# 6. CS = Cut (B1, Cyl)
+# 7. Make fillet
+# 8. Make  selections for all sub-shapes
+# 9. Modify B2
+# 10. Recompute modeling functions
+# 11. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
+
 erase 
 Close D 
 unset D
@@ -95,7 +113,7 @@ ComputeFun D $Fill
 GetShape D $Fill:2 S
 don S
 
-#recomputation of entities of the TestSelection commands
+#11 recomputation of entities of the TestSelection commands
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/E7 b/tests/caf/named_shape/E7
index 630f9ab643..7eb3d56091 100644
--- a/tests/caf/named_shape/E7
+++ b/tests/caf/named_shape/E7
@@ -1,6 +1,24 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: E7 (ShapeOrientation is not  used)
+# 1. Create box B2
+# 2. Create prism Pr ($Prism)
+# 3. Create full revolution R1
+# 4. Translate R1 along XYZ
+# 5. FS = Fuse (Pr, R1)
+# 6. Create sectioned revolution R2
+# 7. FS2 = Fuse (B2, R2)
+# 8. FS3 = Fuse (B2, Prism)
+# 9. Make  selections for all sub-shapes
+# 10. Modify B2
+# 11. Recompute modeling functions
+# 12. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase
 Close D
 unset D
@@ -9,15 +27,9 @@ NewDocument D MDTV-Standard
 #Drivers' nick-names:
 #Box|Sph|Cyl|Cut|Fuse|Prism|SecRevol|FulRevol|PTxyz|PTALine|PRLine|PMirr|Fillet|Attach|XAttach
 # order of functions recomputation should be defined out of the tool (by end user)
-
-#Commands of transformation:
-#PTranslateDXYZ Doc ShapeEntry dx dy dz
-#PTranslateAlongLine Doc ShapeEntry  Line off
-#PRotateRoundLine Doc ShapeEntry Line Angle
-#PMirror Doc ShapeEntry PlaneObj
-
 ## Test of transformation functions
 AddDriver D Box Attach PTxyz PTALine PRLine PMirr Sph Prism FulRevol SecRevol
+
 #1 - create box using more flexible set of commands
 NewCommand D
 isos 12
@@ -56,13 +68,13 @@ set FRev [AddRevol D $SBas1  $SAx1]
 ComputeFun D $FRev:1
 GetShape D $FRev:1:2 R1           
 
-#5
+#4
 NewCommand D
 set FTr1 [PTranslateDXYZ D $FRev -250 0 0]
 ComputeFun D $FTr1;                     ## function recomputation
 GetShape D $FTr1:2 R1;	        ## get modified result
 
-#6 => fuse
+#5 => fuse
 AddDriver D Fuse
 set FS1 [AddFuse D $Prism $FRev]
 ComputeFun D $FS1
@@ -70,7 +82,7 @@ GetShape D $FS1:2 Pr
 
 
 
-#7 Revol Sectioned
+#6 Revol Sectioned
 GetShape D $F2:2 Box2;
 explode Box2 F
 explode Box2_2 E
@@ -80,26 +92,27 @@ set SRev [AddRevol D $SBas2  $SAx2 120 0]
 ComputeFun D $SRev:1
 GetShape D $SRev:1:2 R2
 
-#8
+#7
 set FS2 [AddFuse D $B2 $SRev]
 ComputeFun D $FS2
 GetShape D $FS2:2 Box2
 
-#9
+#8
 set FS3 [AddFuse D $B2 $Prism]
 ComputeFun D $FS3
 GetShape D $FS3:2 Box2
 
-#7
+#9
 NewCommand D 
 set SL [TestSingleSelection D $B2 0]
 set SL2 [TestMultipleSelection D $B2 0]
 # both have failed units!!!
 
+#10
 NewCommand D
 BoxDZ D $B2 420
 
-#8 order of recomputation
+#11 order of recomputation
 NewCommand D
 InitLogBook D;		## to be initialized before any recomputation of impacted functions set (if attachments are presented)
 ComputeFun D $F2;	
@@ -117,13 +130,7 @@ ComputeFun D $FS2
 ComputeFun D $FS3
 GetShape D $FS3:2 Box2
 
-
+#12
 SolveFlatFrom D $SL
 NewCommand D
 
-#11 Sphere    
-#explode Box2 V
-#set SPnt1 [AttachShape D Box2_1 ${B2} ${B2}]
-#set Sph1 [AddSphere D $SPnt1 30]
-#ComputeFun D $Sph1:1
-#GetShape D $Sph1:1:2 Sph
\ No newline at end of file
diff --git a/tests/caf/named_shape/E8 b/tests/caf/named_shape/E8
index b98d83e8c5..a88dea045a 100644
--- a/tests/caf/named_shape/E8
+++ b/tests/caf/named_shape/E8
@@ -1,6 +1,22 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: E8 (ShapeOrientation is not  used)
+# 1. Create box B2
+# 2. Create sectioned revolution R1 ($SRev1)
+# 3. Create sectioned revolution R2 ($SRev2)
+# 4. Create sectioned revolution R3 ($SRev3)
+# 5. ($FS1)R1 = Fuse (R1, R2) 
+# 6. ($FS2)R1 = Fuse (R1, R3) 
+# 7. Make  selections for all sub-shapes
+# 8. Modify B2
+# 9. Recompute modeling functions
+# 10. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase
 Close D
 unset D
@@ -10,14 +26,9 @@ NewDocument D MDTV-Standard
 #Box|Sph|Cyl|Cut|Fuse|Prism|SecRevol|FulRevol|PTxyz|PTALine|PRLine|PMirr|Fillet|Attach|XAttach
 # order of functions recomputation should be defined out of the tool (by end user)
 
-#Commands of transformation:
-#PTranslateDXYZ Doc ShapeEntry dx dy dz
-#PTranslateAlongLine Doc ShapeEntry  Line off
-#PRotateRoundLine Doc ShapeEntry Line Angle
-#PMirror Doc ShapeEntry PlaneObj
-
 ## Test of transformation functions
 AddDriver D Box Attach PTxyz PTALine PRLine PMirr Sph Prism FulRevol SecRevol
+
 #1 - create box using more flexible set of commands
 NewCommand D
 isos 12
@@ -62,27 +73,27 @@ set SRev3 [AddRevol D $SBas3  $SAx3 120 0]
 ComputeFun D $SRev3:1
 GetShape D $SRev3:1:2 R2
 
-#8
+#5
 AddDriver D Fuse
 set FS1 [AddFuse D $SRev1 $SRev2]
 ComputeFun D $FS1
 GetShape D $FS1:2 R1
 
-#9
+#6
 set FS2 [AddFuse D $SRev1 $SRev3]
 ComputeFun D $FS2
 GetShape D $FS2:2 R1
 
-#10
+#7
 NewCommand D 
 set SL [TestSingleSelection D $B2 0]
 set SL2 [TestMultipleSelection D $B2 0]
 
-
+#8
 NewCommand D
 BoxDZ D $B2 420
 
-#8 order of recomputation
+#9 order of recomputation
 NewCommand D
 InitLogBook D;		## to be initialized before any recomputation of impacted functions set (if attachments are presented)
 ComputeFun D $F2;	
@@ -99,6 +110,7 @@ ComputeFun D $FS1
 ComputeFun D $FS2
 GetShape D $FS2:2 R1
 
+#10
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/E9 b/tests/caf/named_shape/E9
index 02628ad1e6..c1b9e5f0ae 100644
--- a/tests/caf/named_shape/E9
+++ b/tests/caf/named_shape/E9
@@ -1,11 +1,27 @@
+# ============= OCAF ============================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: E9 (ShapeOrientation is not used)
+#
+# 1. Create Box B1
+# 2. Create 4 spheres ($Sph1 - $Sph4)
+# 3. Rotate all spheres around line
+# 4. Fuse all spheres with box B1
+# 5. Make selection for all sub-shapes
+# 6. Modify B1
+# 7. Recompute modeling functions
+# 8. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase 
 Close D 
 unset D
 NewDocument D MDTV-Standard
 isos 12
+
 #1 - create Box using short-cut
 NewCommand D
 AddDriver D Box;			## add box driver to driver table
@@ -17,7 +33,7 @@ whatis Box1
 GetReference D $B1;			## check is reference set 
 
 
-#2 - create 8 spheres
+#2 - create 4 spheres
 AddDriver D Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
 NewCommand D
 explode Box1 V
@@ -122,7 +138,7 @@ erase
 GetShape D $FS4:2 Box1
 
 
-#recomputation of entities of the TestSelection commands
+#8 recomputation of entities of the TestSelection commands
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/F1 b/tests/caf/named_shape/F1
index 74d4926e7f..f7ae3533df 100644
--- a/tests/caf/named_shape/F1
+++ b/tests/caf/named_shape/F1
@@ -1,6 +1,25 @@
+# ============= OCAF ============================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: F1 (ShapeOrientation is not used)
+#
+# 1.  Create Box B2
+# 2.  Create cylinder $Cyl
+# 3.  Translate $Cyl along XYZ
+# 4.  $CS = Cut ($B2, $Cyl)
+# 5.  Create 4 points as attachments of box $B2
+# 6.  Create 4 spheres ($Sph1, $Sph2, $Sph9, $Sph11)
+# 7.  Rotate spheres $Sph1, $Sph2 around line
+# 8.  Fuse all spheres with box B2
+# 9.  Make selection for all sub-shapes
+# 10. Modify B2
+# 11. Recompute modeling functions
+# 12. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase 
 Close D 
 unset D
@@ -49,14 +68,11 @@ NewCommand D
 explode S V
 set SPnt1 [AttachShape D S_1 ${B2} ${B2} 0]; ## set attachment
 set SPnt2 [AttachShape D S_2 ${B2} ${B2} 0]; ## set attachment
-#set SPnt5 [AttachShape D S_5 ${B2} ${B2} 0]; ## set attachment
-#set SPnt6 [AttachShape D S_6 ${B2} ${B2} 0]; ## set attachment
-#set SPnt7 [AttachShape D S_7 ${B2} ${B2} 0]; ## set attachment
 set SPnt9 [AttachShape D S_9 ${B2} ${B2} 0]; ## set attachment
 set SPnt11 [AttachShape D S_11 ${B2} ${B2} 0]; ## set attachment
-#set SPnt12 [AttachShape D S_12 ${B2} ${B2} 0]; ## set attachment
 
-#6 create 8 Spheres
+
+#6 create 4 Spheres
 set Sph1 [AddSphere D $SPnt1 15]
 ComputeFun D $Sph1:1
 GetShape D $Sph1:1:2 Sp1
@@ -65,18 +81,6 @@ set Sph2 [AddSphere D $SPnt2 15]
 ComputeFun D $Sph2:1
 GetShape D $Sph2:1:2 Sp2
 
-#set Sph5 [AddSphere D $SPnt5 15]
-#ComputeFun D $Sph5:1
-#GetShape D $Sph5:1:2 Sp5
-
-#set Sph6 [AddSphere D $SPnt6 15]
-#ComputeFun D $Sph6:1
-#GetShape D $Sph6:1:2 Sp6
-
-#set Sph7 [AddSphere D $SPnt7 15]
-#ComputeFun D $Sph7:1
-#GetShape D $Sph7:1:2 Sp7
-
 set Sph9 [AddSphere D $SPnt9 15]
 ComputeFun D $Sph9:1
 GetShape D $Sph9:1:2 Sp9
@@ -85,10 +89,7 @@ set Sph11 [AddSphere D $SPnt11 15]
 ComputeFun D $Sph11:1
 GetShape D $Sph11:1:2 Sp11
 
-#set Sph12 [AddSphere D $SPnt12 15]
-#ComputeFun D $Sph12:1
-#GetShape D $Sph12:1:2 Sp12
-
+#7
 explode Box2 E
 set Sel61 [AttachShape D Box2_1 ${B2} ${B2} 0];
 set FR1 [PRotateRoundLine D $Sph1 $Sel61 120]
@@ -100,7 +101,7 @@ set FR2 [PRotateRoundLine D $Sph2 $Sel62 120]
 ComputeFun D $FR2
 GetShape D $FR2:2 Sp2
 
-#7 Fuse spheres
+#8 Fuse 4 spheres
 set FS1 [AddFuse D $B2 $Sph1]
 ComputeFun D $FS1
 GetShape D $FS1:2 S
@@ -109,10 +110,6 @@ set FS2 [AddFuse D $B2 $Sph2]
 ComputeFun D $FS2
 GetShape D $FS2:2 S
 
-#set FS5 [AddFuse D $B2 $Sph5]
-#ComputeFun D $FS5            
-## <=== it gives NOT VALID shape
-#GetShape D $FS5:2 S
 
 set FS9 [AddFuse D $B2 $Sph9]
 ComputeFun D $FS9
@@ -123,16 +120,16 @@ ComputeFun D $FS11
 GetShape D $FS11:2 S
 
 
-#5 test Naming
+#9 test Naming
 set SL [TestSingleSelection D $B2 0]    
 set SL2 [TestMultipleSelection D $B2 0]
 
-#6 Modification
+#10 Modification
 NewCommand D
 BoxDX D $B2 250
 BoxDZ D $B2 310
 
-#7 recompute
+#11 recompute
 NewCommand D
 InitLogBook D
 ComputeFun D $F2
@@ -167,6 +164,7 @@ ComputeFun D $FS11
 erase
 GetShape D $FS11:2 S
 
+#12
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/F2 b/tests/caf/named_shape/F2
index e647eecd3e..b71c86520e 100644
--- a/tests/caf/named_shape/F2
+++ b/tests/caf/named_shape/F2
@@ -1,6 +1,22 @@
+# ============= OCAF ============================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: F2 (ShapeOrientation is not used)
+#
+# 1. Create Box $B1 (Box1)
+# 2. Create sphere $Sph1
+# 3. Create sphere $Sph2
+# 4. Translate sphere $Sph2 along XYZ
+# 5. Fuse spheres $FS1 = Fuse ($Sph1, $Sph2)
+# 6. Make selection for all sub-shapes
+# 7. Modify B1
+# 8. Recompute modeling functions
+# 9. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase 
 Close D 
 unset D
@@ -17,7 +33,7 @@ whatis Box1
 GetReference D $B1;			## check is reference set 
 
 
-#2 - create 8 spheres
+#2 - create sphere1
 AddDriver D Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
 NewCommand D
 explode Box1 V
@@ -71,7 +87,7 @@ erase
 GetShape D $FS1:2 Sp1
 
 
-#recomputation of entities of the TestSelection commands
+#9 recomputation of entities of the TestSelection commands
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/F3 b/tests/caf/named_shape/F3
index 36dd65cd88..b0f2f30f12 100644
--- a/tests/caf/named_shape/F3
+++ b/tests/caf/named_shape/F3
@@ -1,6 +1,28 @@
+# ============= OCAF ============================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: F3 (ShapeOrientation is not used)
+#
+# 1.  Create Box $B1
+# 2.  Create sphere $Sph0
+# 3.  Create sphere $Sph1 and move it along XYZ
+# 4.  Create sphere $Sph2 and move it along XYZ
+# 5.  Create sphere $Sph3 and rotate it around line and move after  along XYZ
+# 6.  Create sphere $Sph4 and move it along XYZ
+# 7.  Cut spheres: $Cut1 = Cut($Sph0, $Sph1)
+# 		   $Cut2 = Cut($Sph0, $Sph2)
+#		   $Cut3 = Cut($Sph0, $Sph3)
+#		   $Cut4 = Cut($Sph0, $Sph4)
+# 8.  Make selection for all sub-shapes
+# 9.  Modify B2
+# 10. Recompute modeling functions
+# 11. Recompute selections
+# ===============================================
+
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase 
 Close D 
 unset D
@@ -17,7 +39,7 @@ whatis Box1
 GetReference D $B1;			## check is reference set 
 
 
-#2 - create main sphere
+#2 - create main sphere Sp0
 AddDriver D Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
 NewCommand D
 explode Box1 V
@@ -93,16 +115,16 @@ ComputeFun D $Cut4
 GetShape D $Cut4:2 Sp0
 
 
-#5 test selection
+#8 test selection
 NewCommand D
 set SL  [TestSingleSelection   D $Sph0 0]
 set SL2 [TestMultipleSelection D $Sph0 0]
 
-#6 modification
+#9 modification
 NewCommand D
 BoxDZ D $B1 270
 
-#7 recomputation
+#10 recomputation
 NewCommand D
 InitLogBook D;		## to be initialized before any recomputation of impacted functions set (if attachments are presented)
 ComputeFun D $B1:1
@@ -126,7 +148,7 @@ erase
 GetShape D $Cut4:2 Sp0
 
 
-#recomputation of entities of the TestSelection commands
+#11 recomputation of entities of the TestSelection commands
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/F4 b/tests/caf/named_shape/F4
index fa40d045a0..c3c7e88e16 100644
--- a/tests/caf/named_shape/F4
+++ b/tests/caf/named_shape/F4
@@ -1,6 +1,20 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: F4 (ShapeOrientation is not  used)
+# 1. Create box $B2
+# 2. Create prism Pr1 ($Prism1)
+# 3. Create prism Pr2 ($Prism2)
+# 4. $FS1 = Fuse ($Prism1, $Prism2)
+# 5. Make  selections for all sub-shapes
+# 6. Modify B2
+# 7. Recompute modeling functions
+# 8. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase
 Close D
 unset D
@@ -9,8 +23,8 @@ NewDocument D MDTV-Standard
 #Drivers' nick-names:
 #Box|Sph|Cyl|Cut|Fuse|Prism|SecRevol|FulRevol|PTxyz|PTALine|PRLine|PMirr|Fillet|Attach|XAttach
 # order of functions recomputation should be defined out of the tool (by end user)
-
 AddDriver D Box Attach PTxyz PTALine PRLine PMirr Sph Prism FulRevol SecRevol
+
 #1 - create box using more flexible set of commands
 NewCommand D
 isos 12
@@ -64,10 +78,11 @@ set SL [TestSingleSelection D $Prism1 0]
 set SL2 [TestMultipleSelection D $Prism1 0]
 # both have failed units!!!
 
+#6
 NewCommand D
 BoxDZ D $B2 420
 
-#6 order of recomputation
+#7 order of recomputation
 NewCommand D
 InitLogBook D;		## to be initialized before any recomputation of impacted functions set (if attachments are presented)
 ComputeFun D $F2;	
@@ -77,5 +92,7 @@ ComputeFun D $Bas2:1
 ComputeFun D $Prism2:1
 ComputeFun D $FS1
 
+
+#8
 SolveFlatFrom D $SL
 NewCommand D
diff --git a/tests/caf/named_shape/F5 b/tests/caf/named_shape/F5
index d6f79d6b53..49b9a161c5 100644
--- a/tests/caf/named_shape/F5
+++ b/tests/caf/named_shape/F5
@@ -1,11 +1,29 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: F5 (ShapeOrientation is not  used)
+# 1.  Create 4 points: $Pnt1 - $Pnt4
+# 2.  Create closed line $Lin2
+# 3.  Create prism Pr ($Prism)
+# 4.  Create 2 prisms $Prism1, $Prism2
+# 5.  $FS1 = Fuse ($Prism1, $Prism2); $FS2 = Fuse ($Prism1, $Prism3)
+# 6.  Create sphere $Sph
+# 7.  Cut sphere $Cut1 = Cut ($Prism, $Sph)
+# 8.  Make  selections for all sub-shapes
+# 9.  Modify $Pnt1
+# 10. Recompute modeling functions
+# 11. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase 
 Close D 
 unset D
 NewDocument D MDTV-Standard
 isos 12
+
 #1 - create 4 Pnts
 NewCommand D
 AddDriver D PntXYZ PntRLT Line3D Attach;
@@ -26,19 +44,13 @@ GetShape D $Pnt2:1:2 P2;
 GetShape D $Pnt3:1:2 P3;
 GetShape D $Pnt4:1:2 P4;
 
-#2 create open Lin1
-#NewCommand D
-#set Lin1 [ AddLine3D D 0 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
-#ComputeFun D $Lin1:1;
-#GetShape D $Lin1:1:2 L1;
-
-#3 create closed Lin3
+#2 create closed Lin2
 NewCommand D
 set Lin2 [ AddLine3D D 1 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
 ComputeFun D $Lin2:1;
 GetShape D $Lin2:1:2 L1;
 
-#4 Prism  (after step #1)
+#3 Prism 
 NewCommand D
 AddDriver D Prism
 set Prism [AddPrism D $Lin2 300 0]
@@ -46,7 +58,7 @@ ComputeFun D $Prism:1
 GetShape D $Prism:1:2 Pr
 GetReference D $Prism;			## check is reference set 
 
-#5 create two prisms
+#4 create two prisms
 NewCommand D
 explode Pr F
 set Bas1 [AttachShape D Pr_1 ${Prism} ${Prism} 1]
@@ -61,7 +73,7 @@ set Prism3 [AddPrism D $Bas2 500 0]
 ComputeFun D $Prism3:1
 GetShape D $Prism3:1:2 Pr3
 
-#6 => fuse
+#5 => fuse
 NewCommand D
 AddDriver D Fuse Sph Cut
 set FS1 [AddFuse D $Prism $Prism2]
@@ -72,6 +84,7 @@ set FS2 [AddFuse D $Prism $Prism3]
 ComputeFun D $FS2
 GetShape D $FS2:2 Pr
 
+#6
 set Sph [AddSphere D $Pnt3 150]
 NewCommand D
 ComputeFun D $Sph:1
@@ -113,7 +126,7 @@ GetShape D $Cut1:2 Pr
 #GetShape D $Prism2:1:2 Pr2
 #GetShape D $Prism3:1:2 Pr3
 
-#recomputation of entities of the TestSelection commands
+#11 recomputation of entities of the TestSelection commands
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/F6 b/tests/caf/named_shape/F6
index 19368d74e1..c51d62fe87 100755
--- a/tests/caf/named_shape/F6
+++ b/tests/caf/named_shape/F6
@@ -1,11 +1,31 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: F6 (ShapeOrientation is not  used)
+# 1.  Create 4 points: $Pnt1 - $Pnt4
+# 2.  Create closed line $Lin2
+# 3.  Create prism Pr ($Prism)
+# 4.  Addbox $B1
+# 5.  Translate box $B1 along XYZ
+# 6.  $Com1 = Common ($Prism, $B1)
+# 7.  Add cylinder $Cyl
+# 8.  Translate cylinder $Cyl along XYZ
+# 9.  Cut $Cut1 = Cut ($Prism, $Cyl)
+# 10. Make  selections for all sub-shapes
+# 11. Modify $Pnt1
+# 12. Recompute modeling functions
+# 13. Recompute selections
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase 
 Close D 
 unset D
 NewDocument D MDTV-Standard
 isos 12
+
 #1 - create 4 Pnts
 NewCommand D
 AddDriver D PntXYZ PntRLT Line3D Attach;
@@ -26,19 +46,14 @@ GetShape D $Pnt2:1:2 P2;
 GetShape D $Pnt3:1:2 P3;
 GetShape D $Pnt4:1:2 P4;
 
-#2 create open Lin1
-#NewCommand D
-#set Lin1 [ AddLine3D D 0 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
-#ComputeFun D $Lin1:1;
-#GetShape D $Lin1:1:2 L1;
 
-#3 create closed Lin3
+#2 create closed Lin2
 NewCommand D
 set Lin2 [ AddLine3D D 1 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
 ComputeFun D $Lin2:1;
 GetShape D $Lin2:1:2 L1;
 
-#4 Prism  (after step #1)
+#3 Prism  
 NewCommand D
 AddDriver D Prism Box PTxyz
 set Prism [AddPrism D $Lin2 300 0]
@@ -46,26 +61,26 @@ ComputeFun D $Prism:1
 GetShape D $Prism:1:2 Pr
 GetReference D $Prism;			## check is reference set 
 
-#5 Add Box
+#4 Add Box
 NewCommand D
 set B1 [AddBox D 400 140 600];
 ComputeFun D $B1:1;
 GetShape D $B1:1:2 Box;
 
-#6 Translate Box1
+#5 Translate Box1
 NewCommand D
 set FTr1 [PTranslateDXYZ D $B1 -100 -20 -100]
 ComputeFun D $FTr1
 GetShape D $B1:2:2 Box
 
-#7 add Common
+#6 add Common
 NewCommand D
 AddDriver D Comm Cut Fuse
 set Com1 [AddCommon D $Prism $B1]
 ComputeFun D $Com1
 GetShape D $Com1:2 Pr
 
-#8 add Cylinder
+#7 add Cylinder
 NewCommand D
 explode Pr E
 AddDriver D Attach Cyl
@@ -74,30 +89,30 @@ set Cyl [AddCyl D 70 515 ${Sel1}]
 ComputeFun D $Cyl:1
 GetShape D $Cyl:1:2 CylS
 
-#9 Translate Cylinder
+#8 Translate Cylinder
 NewCommand D
 set FTr1 [PTranslateDXYZ D $Cyl -100 200 170]
 ComputeFun D $FTr1
 GetShape D $Cyl:2:2 CylS
 
-#10 Cut Prism by Cylinder
+#9 Cut Prism by Cylinder
 set Cut1 [AddCut D $Prism $Cyl]
 ComputeFun D $Cut1
 GetShape D $Cut1:2 Pr
 don Pr
 
-#11 test selection
+#10 test selection
 NewCommand D
 set SL  [TestSingleSelection   D $Prism 0]
 set SL2 [TestMultipleSelection D $Prism 0]
 
 
 
-#12 modify
+#11 modify
 NewCommand D
 PntOffset D $Pnt1  20 25 skip
 
-#13 recompute
+#12 recompute
 NewCommand D
 ComputeFun D $Pnt1:1
 ComputeFun D $Lin2:1
@@ -111,7 +126,7 @@ erase
 GetShape D $Cut1:2 Pr
 
 
-#recomputation of entities of the TestSelection commands
+#13 recomputation of entities of the TestSelection commands
 SolveFlatFrom D $SL
 NewCommand D
 
diff --git a/tests/caf/named_shape/F7 b/tests/caf/named_shape/F7
index 0d4e6279ee..5949f8d2b2 100644
--- a/tests/caf/named_shape/F7
+++ b/tests/caf/named_shape/F7
@@ -1,11 +1,30 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#
+# Test case: F7 (test special cases of type migration)
+# 1.  Create 4 points: $Pnt1 - $Pnt4
+# 2.  Create closed line $Lin2
+# 3.  Create prism Pr ($Prism)
+# 4.  Addbox $B1
+# 5.  Translate box $B1 along XYZ
+# 6.  $Com1 = Common ($Prism, $B1)
+# 7.  Add cylinder $Cyl
+# 8.  Translate cylinder $Cyl along XYZ
+# 9.  Cut $Cut1 = Cut ($Prism, $Cyl)
+# 10. Make  4 selections (Select edges 8,9, 11+, 11)
+# 11. Modify $Pnt1
+# 12. Recompute 
+# ===============================================
+
 #pload FULL
-#source dftree.tcl 
-#source DDataStd_TreeBrowser.tcl
 erase 
 Close D 
 unset D
 NewDocument D MDTV-Standard
 isos 12
+
 #1 - create 4 Pnts
 NewCommand D
 AddDriver D PntXYZ PntRLT Line3D Attach;
@@ -26,19 +45,13 @@ GetShape D $Pnt2:1:2 P2;
 GetShape D $Pnt3:1:2 P3;
 GetShape D $Pnt4:1:2 P4;
 
-#2 create open Lin1
-#NewCommand D
-#set Lin1 [ AddLine3D D 0 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
-#ComputeFun D $Lin1:1;
-#GetShape D $Lin1:1:2 L1;
-
-#3 create closed Lin3
+#2 create closed Lin2
 NewCommand D
 set Lin2 [ AddLine3D D 1 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
 ComputeFun D $Lin2:1;
 GetShape D $Lin2:1:2 L1;
 
-#4 Prism  (after step #1)
+#3 Prism 
 NewCommand D
 AddDriver D Prism Box PTxyz
 set Prism [AddPrism D $Lin2 300 0]
@@ -46,26 +59,26 @@ ComputeFun D $Prism:1
 GetShape D $Prism:1:2 Pr
 GetReference D $Prism;			## check is reference set 
 
-#5 Add Box
+#4 Add Box
 NewCommand D
 set B1 [AddBox D 400 140 600];
 ComputeFun D $B1:1;
 GetShape D $B1:1:2 Box;
 
-#6 Translate Box1
+#5 Translate Box1
 NewCommand D
 set FTr1 [PTranslateDXYZ D $B1 -100 -20 -100]
 ComputeFun D $FTr1
 GetShape D $B1:2:2 Box
 
-#7 add Common
+#6 add Common
 NewCommand D
 AddDriver D Comm Cut Fuse
 set Com1 [AddCommon D $Prism $B1]
 ComputeFun D $Com1
 GetShape D $Com1:2 Pr
 
-#8 Add Cylinder
+#7 Add Cylinder
 NewCommand D
 explode Pr E
 AddDriver D Attach Cyl
@@ -74,33 +87,34 @@ set Cyl [AddCyl D 70 515 ${Sel1}]
 ComputeFun D $Cyl:1
 GetShape D $Cyl:1:2 CylS
 
-#9 Translate Cylinder
+#8 Translate Cylinder
 NewCommand D
 set FTr1 [PTranslateDXYZ D $Cyl -100 200 170]
 ComputeFun D $FTr1
 GetShape D $Cyl:2:2 CylS
 
-#10 Cut 
+#9 Cut 
 NewCommand D
 set Cut1 [AddCut D $Prism $Cyl]
 ComputeFun D $Cut1
 GetShape D $Cut1:2 Pr
 don Pr
 
-#11 test special cases of type migration
+#10 Select edges 8,9, 11 (test special cases of type migration)
 explode Pr E
 erase Pr_1 Pr_2 Pr_3 Pr_4 Pr_5 Pr_6 Pr_7 Pr_8 Pr_9 Pr_10 Pr_11 Pr_12 Pr_13 Pr_14 Pr_15 Pr_16 Pr_17
 display Pr_8 Pr_9
-## 8,9
+## ==> 8,9
 NewCommand D
 set Sel8 [AttachShape D Pr_8 ${Prism} ${Prism} 0]; ## should return Compound of two edges 
 set Sel9 [AttachShape D Pr_9 ${Prism} ${Prism} 1]; ## should return Compound of two edges
 set Sel11 [AttachShape D Pr_11 ${Prism} ${Prism} 1];
 set Sel12 [AttachShape D Pr_11 ${Prism} ${Prism} 0];
-#12 modify
+
+#11 modify
 PntOffset D $Pnt1  40 25 skip
 
-#13 recompute
+#12 recompute
 ComputeFun D $Pnt1:1
 ComputeFun D $Lin2:1
 ComputeFun D $Prism:1
diff --git a/tests/caf/named_shape/F8 b/tests/caf/named_shape/F8
new file mode 100755
index 0000000000..903933e8dc
--- /dev/null
+++ b/tests/caf/named_shape/F8
@@ -0,0 +1,94 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#                  (name = FILTERBYNEIGHBOURGS)
+#                  Check type migration
+# ===============================================
+# Test case: F8 (testing using SelectShape & SolveSelection)
+# 1. Create 3 boxes $B1, $B2, $B3
+# 2. $FS1 = Fuse ($B1, $B2)
+# 3. $FS2 = Fuse ($B1, $B3)
+# 4. Make  selections of the face 'fuse2_10'
+# 5. Modify B2
+# 6. Recompute
+# ===============================================
+
+pload FULL
+set doc d16
+NewDocument $doc MDTV-Standard
+AddDriver $doc Box Fuse Attach
+
+#1. create 3 boxes
+set B1 [AddBox $doc 100 200 350]
+set B2 [AddBox $doc 330 330 90]
+set B3 [AddBox $doc 60 450 150]
+ComputeFun $doc $B1:1
+ComputeFun $doc $B2:1
+ComputeFun $doc $B3:1
+
+#2. B1 = fuse (B1, B2)
+set FS1 [AddFuse $doc $B1 $B2]
+ComputeFun $doc $FS1
+
+#3. B1 = fuse (B1, B3)
+set FS2 [AddFuse $doc $B1 $B3]
+ComputeFun $doc $FS2
+GetShape $doc $FS2:2 fuse2
+explode fuse2 f
+
+
+#4. select fuse2_10 (using SelectShape)
+set Sel1 0:2:10
+SelectShape $doc $Sel1 fuse2_10 fuse2
+GetShape $doc $Sel1 f10before
+#f10before is face
+set info1 [whatis f10before]
+
+
+#5. Modify
+BoxDZ $doc $B2 120
+
+#6. recompute
+ComputeFun $doc $B2:1
+ComputeFun $doc $FS1
+ComputeFun $doc $FS2
+SolveSelection $doc $Sel1
+GetShape $doc $Sel1 f10after
+#f10after is face
+set info2 [whatis f10after]
+
+if { [regexp "shape" $info1] != 1 } {
+    puts "Error : There is not word shape in f10after"
+}
+if { [regexp "FACE" $info1] != 1 } {
+    puts "Error : There is not word FACE in f10after"
+}
+if { [regexp "REVERSED" $info1] != 1 } {
+    puts "Error : There is not word REVERSED in f10after"
+}
+if { [regexp "Modified" $info1] != 1 } {
+    puts "Error : There is not word Modified in f10after"
+}
+if { [regexp "Orientable" $info1] != 1 } {
+    puts "Error : There is not word Orientable in f10after"
+}
+
+if { [regexp "shape" $info2] != 1 } {
+    puts "Error : There is not word shape in f10before"
+}
+if { [regexp "FACE" $info2] != 1 } {
+    puts "Error : There is not word FACE in f10before"
+}
+if { [regexp "REVERSED" $info2] != 1 } {
+    puts "Error : There is not word REVERSED in f10before"
+}
+if { [regexp "Modified" $info2] != 1 } {
+    puts "Error : There is not word Modified in f10before"
+}
+if { [regexp "Orientable" $info2] != 1 } {
+    puts "Error : There is not word Orientable in f10before"
+}
+
+
+
diff --git a/tests/caf/named_shape/F9 b/tests/caf/named_shape/F9
new file mode 100755
index 0000000000..e6775e61b3
--- /dev/null
+++ b/tests/caf/named_shape/F9
@@ -0,0 +1,93 @@
+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism 
+#                  (name = FILTERBYNEIGHBOURGS)
+#                  Check type migration
+# ===============================================
+# Test case: F9 (testing using AttachShape & ComputeFun)
+# 1. Create 3 boxes $B1, $B2, $B3
+# 2. $FS1 = Fuse ($B1, $B2)
+# 3. $FS2 = Fuse ($B1, $B3)
+# 4. Make  selections of the face 'fuse2_10'
+# 5. Modify B2
+# 6. Recompute
+# ===============================================
+
+pload FULL
+set doc d16
+NewDocument $doc MDTV-Standard
+AddDriver $doc Box Fuse Attach
+#1.create 3 boxes
+set B1 [AddBox $doc 100 200 350]
+set B2 [AddBox $doc 330 330 90]
+set B3 [AddBox $doc 60 450 150]
+ComputeFun $doc $B1:1
+ComputeFun $doc $B2:1
+ComputeFun $doc $B3:1
+
+#2. B1 = fuse (B1 B2)
+set FS1 [AddFuse $doc $B1 $B2]
+ComputeFun $doc $FS1
+
+#3. B1 = fuse (B1 B3)
+set FS2 [AddFuse $doc $B1 $B3]
+ComputeFun $doc $FS2
+GetShape $doc $FS2:2 fuse2
+explode fuse2 f
+
+
+
+#4. Select fuse2_10 using Attach 
+set Sel2 [AttachShape $doc fuse2_10 $B1]
+GetShape $doc $Sel2:1:2 nf10before
+#nf10before is face
+set info1 [whatis nf10before]
+
+
+#5. Modify
+BoxDZ $doc $B2 125
+
+#6. Recompute - Alternative way of solving
+InitLogBook $doc
+ComputeFun $doc $B1:1
+ComputeFun $doc $B2:1
+ComputeFun $doc $B3:1
+ComputeFun $doc $FS1
+ComputeFun $doc $FS2
+ComputeFun $doc $Sel2:1
+GetShape $doc $Sel2:1:2 nf10after
+#nf10after is face
+set info2 [whatis nf10after]
+
+if { [regexp "shape" $info1] != 1 } {
+    puts "Error : There is not word shape in nf10after"
+}
+if { [regexp "FACE" $info1] != 1 } {
+    puts "Error : There is not word FACE in nf10after"
+}
+if { [regexp "REVERSED" $info1] != 1 } {
+    puts "Error : There is not word REVERSED in nf10after"
+}
+if { [regexp "Modified" $info1] != 1 } {
+    puts "Error : There is not word Modified in nf10after"
+}
+if { [regexp "Orientable" $info1] != 1 } {
+    puts "Error : There is not word Orientable in nf10after"
+}
+
+if { [regexp "shape" $info2] != 1 } {
+    puts "Error : There is not word shape in nf10before"
+}
+if { [regexp "FACE" $info2] != 1 } {
+    puts "Error : There is not word FACE in nf10before"
+}
+if { [regexp "REVERSED" $info2] != 1 } {
+    puts "Error : There is not word REVERSED in nf10before"
+}
+if { [regexp "Modified" $info2] != 1 } {
+    puts "Error : There is not word Modified in nf10before"
+}
+if { [regexp "Orientable" $info2] != 1 } {
+    puts "Error : There is not word Orientable in nf10before"
+}
\ No newline at end of file