tests/bugs/modalg_7/bug29955

   1 puts "=============================================================="
   2 puts "OCC29955: Face and Solid BOP: Building 2D curve of edge on face is failing"
   3 puts "=============================================================="
   4
   5 restore [locate_data_file bug29955_o.brep] o
   6 restore [locate_data_file bug29955_t.brep] t
   7
   8 bclearobjects
   9 bcleartools
  10 baddobjects o
  11 baddtools t
  12 bfillds
  13
  14 bbop r0 0
  15 bbop r2 2
  16 bbop r4 4
  17 bsplit result
  18
  19 foreach r {r0 r2 r4} {
  20   checkshape $r
  21   if {![regexp "OK" [bopcheck $r]]} {
  22     puts "Error: the result of BOP is self-interfering shape"
  23   }
  24 }
  25
  26 checknbshapes r0 -wire 1 -face 1
  27 checkprops r0 -s 3.62288e-006
  28
  29 checknbshapes r2 -wire 1 -face 1
  30 checkprops r2 -s 6.47633e-007
  31
  32 checknbshapes r4 -vertex 4 -edge 4
  33 checkprops r4 -l 0.0111863
  34 if {![regexp "nb alone Vertices : 0" [checksection r4]]} {
  35   puts "Error: section is not closed"
  36 }
  37
  38 checkshape result
  39 checknbshapes result -wire 2 -face 2
  40 checkprops result -s 4.27051e-006
  41
  42 checkview -display result -2d -path ${imagedir}/${test_image}.png