tests/bugs/modalg_5/bug25465_2

   1 puts "========"
   2 puts "OCC25465"
   3 puts "========"
   4 puts ""
   5 ################################################
   6 # Excess vertex in the result of CUT operation
   7 ################################################
   8
   9 restore [locate_data_file OCC25465_t_boite1.brep] b1
  10 restore [locate_data_file OCC25465_c_cyl.brep] b2
  11
  12 explode b1 f
  13 explode b2 f
  14 set bug_info [bopcurves b1_6 b2_1]
  15 bop b1 b2
  16 bopcut result
  17
  18 # It is strictly forbidden to change nb_v_good and nb_e_good values (see OCC25465)
  19 set nb_v_good 13
  20 set nb_e_good 20
  21 set nb_w_good 11
  22 set nb_f_good 8
  23 set nb_sh_good 1
  24 set nb_sol_good 1
  25 set nb_compsol_good 0
  26 set nb_compound_good 1
  27 set nb_shape_good 55
  28
  29 if {[lindex $bug_info 2] != 2} {
  30   puts "ERROR: OCC25465 is reproduced."
  31 }