tests/bugs/modalg_6/bug27878_5

   1 puts "========"
   2 puts "OCC27878"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Development of the Gluing operations based on the new Boolean component
   7 #################################################
   8
   9 restore [locate_data_file bug28165_shapes3.brep] c
  10
  11 # fuse the shapes
  12 bglue 1
  13 bclearobjects
  14 bcleartools
  15 baddobjects {*}[explode c so]
  16 bfillds -t
  17
  18 # remove all internal faces to make only one solid
  19 bcbuild rx
  20 bcaddall result -m 1 -u
  21
  22 checkshape result
  23 checknbshapes result -edge 1400 -face 506 -solid 1
  24 checkprops result -v 4.69342e+007 -s 1.38778e+006
  25
  26 checkview -display result -2d -path ${imagedir}/${test_image}.png