tests/bugs/modalg_5/bug24037_2

   1 puts "================"
   2 puts "OCC24037"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Wrong result done by General Fuse algorithm
   7 #######################################################################
   8
   9 restore [locate_data_file bug24037_coude_sain.brep] b1
  10 restore [locate_data_file bug24037_plans_bloc.brep] b2
  11
  12 explode b1 so
  13 copy b1_1 b1
  14 explode b2 f
  15 copy b2_3 b2
  16 don b1 b2
  17 bclearobjects
  18 bcleartools
  19 baddobjects b1
  20 baddtools b2
  21 bfillds
  22 bbuild result
  23
  24 checknbshapes result -t -vertex 16 -edge 24 -wire 13 -face 12 -shell 2 -solid 2 -compsolid 0 -compound 1 -shape 70
  25 checkview -display result -3d -path ${imagedir}/${test_image}.png