0029311: Implementation of the Oriented Bounding Boxes (OBB) functionality
[occt.git] / tests / caf / xlink / D2
index 486b4ed..3c3cc27 100755 (executable)
@@ -30,13 +30,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
 
 SetShape Doc1 ${aLabel1} aBox1
 
@@ -54,13 +48,7 @@ set aSetDZ12 2300
 
 box aBox12 ${aSetX12} ${aSetY12} ${aSetZ12} ${aSetDX12} ${aSetDY12} ${aSetDZ12}
 
-set aBoundingBox12 [bounding aBox12]
-set X1_Box12 [lindex ${aBoundingBox12} 0]
-set Y1_Box12 [lindex ${aBoundingBox12} 1]
-set Z1_Box12 [lindex ${aBoundingBox12} 2]
-set X2_Box12 [lindex ${aBoundingBox12} 3]
-set Y2_Box12 [lindex ${aBoundingBox12} 4]
-set Z2_Box12 [lindex ${aBoundingBox12} 5]
+bounding -s aBox12 -save X1_Box12 Y1_Box12 Z1_Box12 X2_Box12 Y2_Box12 Z2_Box12
 
 SetShape Doc1 ${aLabel12} aBox12
 
@@ -111,50 +99,38 @@ Redo Doc2
 # Get a shape from 'TLabel1'
 GetShape Doc2 ${aLabel2} aBox2
 
-set aBoundingBox2 [bounding aBox2]
-set X1_Box2 [lindex ${aBoundingBox2} 0]
-set Y1_Box2 [lindex ${aBoundingBox2} 1]
-set Z1_Box2 [lindex ${aBoundingBox2} 2]
-set X2_Box2 [lindex ${aBoundingBox2} 3]
-set Y2_Box2 [lindex ${aBoundingBox2} 4]
-set Z2_Box2 [lindex ${aBoundingBox2} 5]
+bounding -s aBox2 -save X1_Box2 Y1_Box2 Z1_Box2 X2_Box2 Y2_Box2 Z2_Box2
 
 # Get a shape from 'T2Label1'
 GetShape Doc2 ${aLabel22} aBox22
 
-set aBoundingBox22 [bounding aBox22]
-set X1_Box22 [lindex ${aBoundingBox22} 0]
-set Y1_Box22 [lindex ${aBoundingBox22} 1]
-set Z1_Box22 [lindex ${aBoundingBox22} 2]
-set X2_Box22 [lindex ${aBoundingBox22} 3]
-set Y2_Box22 [lindex ${aBoundingBox22} 4]
-set Z2_Box22 [lindex ${aBoundingBox22} 5]
-
-if { ${X1_Box1} == ${X1_Box2} || 
-     ${Y1_Box1} == ${Y1_Box2} || 
-     ${Z1_Box1} == ${Z1_Box2} || 
-     ${X2_Box1} == ${X2_Box2} || 
-     ${Y2_Box1} == ${Y2_Box2} || 
-     ${Z2_Box1} == ${Z2_Box2} ||
-
-     ${X1_Box12} == ${X1_Box22} || 
-     ${Y1_Box12} == ${Y1_Box22} || 
-     ${Z1_Box12} == ${Z1_Box22} || 
-     ${X2_Box12} == ${X2_Box22} || 
-     ${Y2_Box12} == ${Y2_Box22} || 
-     ${Z2_Box12} == ${Z2_Box22} ||
-
-     ${X1_Box2} == ${X1_Box22} || 
-     ${Y1_Box2} == ${Y1_Box22} || 
-     ${Z1_Box2} == ${Z1_Box22} || 
-     ${X2_Box2} == ${X2_Box22} || 
-     ${Y2_Box2} == ${Y2_Box22} || 
-     ${Z2_Box2} == ${Z2_Box22} } {
-
-       puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
-       puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_Box2=${Z2_Box2}"
-       puts "X1_Box12=${X1_Box12} Y1_Box12=${Y1_Box12} Z1_Box12=${Z1_Box12} X2_Box12=${X2_Box12} Y2_Box12=${Y2_Box12} Z2_Box12=${Z2_Box12}"
-       puts "X1_Box22=${X1_Box22} Y1_Box22=${Y1_Box22} Z1_Box22=${Z1_Box22} X2_Box22=${X2_Box22} Y2_Box22=${Y2_Box22} Z2_Box22=${Z2_Box22}"
+bounding -s aBox22 -save X1_Box22 Y1_Box22 Z1_Box22 X2_Box22 Y2_Box22 Z2_Box22
+
+if { [dval X1_Box1] == [dval X1_Box2] || 
+     [dval Y1_Box1] == [dval Y1_Box2] || 
+     [dval Z1_Box1] == [dval Z1_Box2] || 
+     [dval X2_Box1] == [dval X2_Box2] || 
+     [dval Y2_Box1] == [dval Y2_Box2] || 
+     [dval Z2_Box1] == [dval Z2_Box2] ||
+
+     [dval X1_Box12] == [dval X1_Box22] || 
+     [dval Y1_Box12] == [dval Y1_Box22] || 
+     [dval Z1_Box12] == [dval Z1_Box22] || 
+     [dval X2_Box12] == [dval X2_Box22] || 
+     [dval Y2_Box12] == [dval Y2_Box22] || 
+     [dval Z2_Box12] == [dval Z2_Box22] ||
+
+     [dval X1_Box2] == [dval X1_Box22] || 
+     [dval Y1_Box2] == [dval Y1_Box22] || 
+     [dval Z1_Box2] == [dval Z1_Box22] || 
+     [dval X2_Box2] == [dval X2_Box22] || 
+     [dval Y2_Box2] == [dval Y2_Box22] || 
+     [dval Z2_Box2] == [dval Z2_Box22] } {
+
+       puts "X1_Box1=[dval X1_Box1] Y1_Box1=[dval Y1_Box1] Z1_Box1=[dval Z1_Box1] X2_Box1=[dval X2_Box1] Y2_Box1=[dval Y2_Box1] Z2_Box1=[dval Z2_Box1]"
+       puts "X1_Box2=[dval X1_Box2] Y1_Box2=[dval Y1_Box2] Z1_Box2=[dval Z1_Box2] X2_Box2=[dval X2_Box2] Y2_Box2=[dval Y2_Box2] Z2_Box2=[dval Z2_Box2]"
+       puts "X1_Box12=[dval X1_Box12] Y1_Box12=[dval Y1_Box12] Z1_Box12=[dval Z1_Box12] X2_Box12=[dval X2_Box12] Y2_Box12=[dval Y2_Box12] Z2_Box12=[dval Z2_Box12]"
+       puts "X1_Box22=[dval X1_Box22] Y1_Box22=[dval Y1_Box22] Z1_Box22=[dval Z1_Box22] X2_Box22=[dval X2_Box22] Y2_Box22=[dval Y2_Box22] Z2_Box22=[dval Z2_Box22]"
        puts "Updating all links between attributes of the same document: Error"
        return
 }