0029311: Implementation of the Oriented Bounding Boxes (OBB) functionality

[occt.git] / tests / caf / bugs / B3

diff --git a/tests/caf/bugs/B3 b/tests/caf/bugs/B3
index 25076a8..bed8ccc 100755 (executable)
--- a/tests/caf/bugs/B3
+++ b/tests/caf/bugs/B3
@@ -31,13 +31,7 @@ set aSetDZ1 300
 
 box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
 
-set aBoundingBox1 [bounding aBox1]
-set X1_Box1 [lindex ${aBoundingBox1} 0]
-set Y1_Box1 [lindex ${aBoundingBox1} 1]
-set Z1_Box1 [lindex ${aBoundingBox1} 2]
-set X2_Box1 [lindex ${aBoundingBox1} 3]
-set Y2_Box1 [lindex ${aBoundingBox1} 4]
-set Z2_Box1 [lindex ${aBoundingBox1} 5]
+bounding -s aBox1 -save X1_Box1 Y1_Box1 Z1_Box1 X2_Box1 Y2_Box1 Z2_Box1
 
 set aLabel 0:2
 SetShape Doc ${aLabel} aBox1
@@ -67,32 +61,20 @@ if { ${IsDone} != 0 } {
        puts "OCC1228: ERROR (case 2)"
 }
 
-catch {set aBoundingBox5 [bounding aBox5]}
-set X1_Box5 0
-set Y1_Box5 0
-set Z1_Box5 0
-set X2_Box5 0
-set Y2_Box5 0
-set Z2_Box5 0
-catch {set X1_Box5 [lindex ${aBoundingBox5} 0]}
-catch {set Y1_Box5 [lindex ${aBoundingBox5} 1]}
-catch {set Z1_Box5 [lindex ${aBoundingBox5} 2]}
-catch {set X2_Box5 [lindex ${aBoundingBox5} 3]}
-catch {set Y2_Box5 [lindex ${aBoundingBox5} 4]}
-catch {set Z2_Box5 [lindex ${aBoundingBox5} 5]}
+bounding -s aBox5 -save X1_Box5 Y1_Box5 Z1_Box5 X2_Box5 Y2_Box5 Z2_Box5
 
-if { ${X1_Box1} != ${X1_Box5} || 
-     ${Y1_Box1} != ${Y1_Box5} || 
-     ${Z1_Box1} != ${Z1_Box5} || 
-     ${X2_Box1} != ${X2_Box5} || 
-     ${Y2_Box1} != ${Y2_Box5} || 
-     ${Z2_Box1} != ${Z2_Box5} } {
-       puts "X1_Box1=${X1_Box1} X1_Box5=${X1_Box5}"
-       puts "Y1_Box1=${Y1_Box1} Y1_Box5=${Y1_Box5}"
-       puts "Z1_Box1=${Z1_Box1} Z1_Box5=${Z1_Box5}"
-       puts "X2_Box1=${X2_Box1} X2_Box5=${X2_Box5}"
-       puts "Y2_Box1=${Y2_Box1} Y2_Box5=${Y2_Box5}"
-       puts "Z2_Box1=${Z2_Box1} Z2_Box5=${Z2_Box5}"
+if { [dval X1_Box1] != [dval X1_Box5] || 
+     [dval Y1_Box1] != [dval Y1_Box5] || 
+     [dval Z1_Box1] != [dval Z1_Box5] || 
+     [dval X2_Box1] != [dval X2_Box5] || 
+     [dval Y2_Box1] != [dval Y2_Box5] || 
+     [dval Z2_Box1] != [dval Z2_Box5] } {
+       puts "X1_Box1=[dval X1_Box1] X1_Box5=[dval X1_Box5]"
+       puts "Y1_Box1=[dval Y1_Box1] Y1_Box5=[dval Y1_Box5]"
+       puts "Z1_Box1=[dval Z1_Box1] Z1_Box5=[dval Z1_Box5]"
+       puts "X2_Box1=[dval X2_Box1] X2_Box5=[dval X2_Box5]"
+       puts "Y2_Box1=[dval Y2_Box1] Y2_Box5=[dval Y2_Box5]"
+       puts "Z2_Box1=[dval Z2_Box1] Z2_Box5=[dval Z2_Box5]"
        puts "Get a value of TDataStd_Shape attribute from restoring document: Error"
        puts "OCC1228: ERROR (case 3)"
 } else {