tests/bugs/modalg_2/bug22770_4

   1 puts "================"
   2 puts "OCC22770"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Improve comman sewing in DRAW
   7 ######################################################################################
   8
   9 set BugNumber OCC22770
  10
  11 box a 1 2 3
  12 box b 2 0 0 1 2 3
  13 explode a f
  14 explode b f
  15 sewing result +t 1.1 a_2 b_1 -f
  16
  17 set square 12
  18 set nb_v_good 8
  19 set nb_e_good 8
  20 set nb_w_good 2
  21 set nb_f_good 2
  22 set nb_sh_good 0
  23 set nb_sol_good 0
  24 set nb_compsol_good 0
  25 set nb_compound_good 1
  26 set nb_shape_good 21
  27
  28 checkmaxtol result -ref 9.9999999999999995e-008
  29 checknbshapes result -shell 0
  30 checkfreebounds result 8
  31
  32 set 3dviewer 0