0023119: TNaming_Selector::Solve() fails (changes from single face to compound of...
[occt.git] / tests / caf / named_shape / E7
index 630f9ab..7eb3d56 100644 (file)
@@ -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