tests/bugs/modalg_7/bug29887_1

   1 puts "========"
   2 puts "OCC29887: Wrong result of CUT operation due to incorrect point-face classification"
   3 puts "========"
   4 puts ""
   5
   6 brestore [locate_data_file bug29887_ar_shape_to_cuts.brep] s1
   7 brestore [locate_data_file bug29887_ar_cutting_shapes.brep] s2
   8
   9 bcut result s1 s2
  10 checknbshapes result -face 2 -wire 2
  11
  12 checkshape result
  13
  14 if {[regexp "Faulties" [bopargcheck result]]} {
  15   puts "Error: bopargcheck has found some faulties in result"
  16 }
  17
  18 checkprops result -s 319.71
  19
  20 smallview
  21 don result
  22 fit
  23
  24 checkview -screenshot -2d -path ${imagedir}/${test_image}.png