0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug30760
diff --git a/tests/bugs/modalg_7/bug30760 b/tests/bugs/modalg_7/bug30760
new file mode 100644 (file)
index 0000000..71f5a27
--- /dev/null
@@ -0,0 +1,78 @@
+puts "TODO CR29596 ALL: Warning: Intersection of pair of shapes has failed"
+
+puts "========"
+puts "30760: Modeling Algorithms - Intersection fails in Occt 7.3.0"
+puts "========"
+puts ""
+
+restore [locate_data_file bug30760_shapes.brep] a12
+# copy the shape to use in other operation
+# with different order of arguments
+tcopy a12 a21
+
+explode a12
+bclearobjects
+bcleartools
+baddobjects a12_1
+baddtools a12_2
+bfillds
+
+bbop r12_0 0
+bbop r12_1 1
+bbop r12_2 2
+bbop r12_3 3
+bbop r12_4 4
+bbuild r12_5
+
+explode a21
+bclearobjects
+bcleartools
+baddobjects a21_2
+baddtools a21_1
+bfillds
+
+bbop r21_0 0
+bbop r21_1 1
+bbop r21_3 2; # for different order cut = cut21
+bbop r21_2 3; # for different order cut21 = cut
+bbop r21_4 4
+bbuild r21_5
+
+
+foreach i { 0 1 2 3 4 5} {
+  checkshape r12_$i
+  if {![regexp "OK" [bopcheck r12_$i]]} {
+    puts "Error: r12_$i is self-intersecting shape"
+  }
+
+  checkprops r12_$i -equal r21_$i 
+  checknbshapes r12_$i -ref [nbshapes r21_$i]
+}
+
+foreach i { 0 1 2 3 4 5} {
+  checkshape r21_$i
+  if {![regexp "OK" [bopcheck r21_$i]]} {
+    puts "Error: r21_$i is self-intersecting shape"
+  }
+}
+
+checkprops r12_0 -s 0.0550925 -v 0.000106046
+checknbshapes r12_0 -wire 14 -face 14 -shell 1 -solid 1 -t
+
+checkprops r12_1 -s 0.84475 -v 0.00502274
+checknbshapes r12_1 -wire 34 -face 34 -shell 1 -solid 1 -t
+
+checkprops r12_2 -s 0.765963 -v 0.00366102
+checknbshapes r12_2 -wire 24 -face 24 -shell 1 -solid 1 -t
+
+checkprops r12_3 -s 0.117011 -v 0.00125568
+checknbshapes r12_3 -wire 14 -face 14 -shell 1 -solid 1 -t
+
+checkprops r12_4 -l 1.99738
+checksection r12_4 -r 8
+
+checkprops r12_5 -s 0.99316 -v 0.00512878
+checknbshapes r12_5 -wire 43 -face 43 -shell 3 -solid 3 -t
+
+
+checkview -display r12_5 -2d -path ${imagedir}/${test_image}.png