tests/bugs/modalg_7/bug28113_1

   1 puts "======="
   2 puts "OCC28113: BOPAlgo_Builder produces invalid shape"
   3 puts "======="
   4 puts ""
   5
   6
   7 restore [locate_data_file bug28113_shapes.brep] s
   8 explode s
   9
  10 # fix the first shape in compound
  11 # 1. exclude s_1_3 from compsolid
  12 eval compound [lrange [explode s_1 so] 0 1] [lrange [explode s_1 so] 3 end] comp
  13 # fix SI in compound
  14 eval mkvolume v [explode comp f]
  15 checkshape v
  16 checknbshapes v -solid 18 -shell 18
  17 if {![regexp "OK" [bopcheck v]]} {
  18   puts "Error: unable to rebuild the shape"
  19 }
  20
  21 # create Compsolid
  22 shape s1 CS
  23 foreach s [explode v so] { add $s s1}
  24
  25 # perform the operation
  26 bclearobjects
  27 bcleartools
  28 baddobjects s1
  29 baddtools s_2 s_3 s_4 s_5
  30 bfillds
  31 bbuild gf
  32 bsplit result
  33
  34 foreach r {gf result} {
  35   checkshape $r
  36   if {![regexp "OK" [bopcheck $r]]} {
  37     puts "Error: result is a self-interfering shape"
  38   }
  39 }
  40
  41 checknbshapes gf -wire 417 -face 417 -shell 91 -solid 90
  42 checkprops gf -s 259559 -v 690192
  43
  44 checknbshapes result -wire 417 -face 417 -shell 90 -solid 90
  45 checkprops result -s 226564 -v 669028
  46
  47 checkview -display result -2d -path ${imagedir}/${test_image}.png