tests/bugs/modalg_7/bug30913_2

   1 puts "========"
   2 puts "0030913: Invalid result of Fusing slices"
   3 puts "========"
   4 puts ""
   5
   6 restore [locate_data_file bug30913_case2.brep] s
   7
   8 bclearobjects
   9 bcleartools
  10 set exp [explode s]
  11 baddobjects s_1
  12 eval baddtools [lrange $exp 1 end]
  13
  14 # Use gluing Shift option
  15 bglue 1
  16 # Avoid History filling
  17 setfillhistory 0
  18
  19 bfillds
  20 bbop result 1
  21
  22 checkshape result
  23
  24 dchrono unify restart
  25 unifysamedom result result
  26 dchrono unify stop counter UNIFY_SD
  27
  28 checkshape result
  29
  30 checkprops result -s 3.89766e+06 -v 1.40733e+08
  31 checknbshapes result -vertex 46597 -edge 70375 -wire 24212 -face 23995 -shell 1 -solid 1 -t
  32
  33 #if {![regexp "This shape seems to be OK" [bopcheck result]]} {
  34 #  puts "Error: result is a self-intersecting shape"
  35 #}
  36
  37 checkview -display result -2d -path ${imagedir}/${test_image}.png
  38
  39 boptions -default