0023119: TNaming_Selector::Solve() fails (changes from single face to compound of...
[occt.git] / tests / caf / named_shape / F6
index 19368d7..c51d62f 100755 (executable)
@@ -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