tests/bugs/modalg_7/bug30354

   1 puts "========"
   2 puts "0030354: BOP Cut doesn't modify the attached face"
   3 puts "========"
   4 puts ""
   5
   6 restore [locate_data_file bug30354_Face_14.brep] b1
   7 restore [locate_data_file bug30354_vol_neg.brep] b2
   8
   9 explode b2 f
  10
  11 bclearobjects
  12 bcleartools
  13 baddobjects b1
  14 baddtools b2
  15 bfillds
  16
  17 bbop r_0 0
  18 bbop r_1 2
  19 bbop r_2 4
  20
  21 for {set i 0} {$i <= 2} {incr i} {
  22   checkshape r_$i
  23   if {[regexp "Faulties" [ bopargcheck r_$i ]]} {
  24     puts "Error: bopargcheck has found some faulties in r_$i"
  25   }
  26 }
  27
  28 checknbshapes r_0 -face 1 -wire 1
  29 checkprops r_0 -s 0.000284873
  30
  31 checknbshapes r_1 -face 1 -wire 1
  32 checkprops r_1 -s 0.000284873
  33
  34 checknbshapes r_2 -vertex 2 -edge 1
  35 checkprops r_2 -l 0.00670288
  36
  37 checksection r_2 -r 2
  38
  39 # CUT
  40 copy r_1 result
  41 checkmaxtol result -min_tol 1.0e-4
  42 checkview -display result -2d -path ${imagedir}/${test_image}.png
  43