tests/bugs/modalg_2/bug22770_3

   1 puts "================"
   2 puts "OCC22770"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Improve comman sewing in DRAW
   7 ######################################################################################
   8
   9 set BugNumber OCC22770
  10
  11 catch { pload XDE }
  12
  13 # Create a new document and set UndoLimit
  14 # NewDocument D BinXCAF
  15 # UndoLimit D 100
  16 # Open a transaction
  17 # NewCommand D
  18
  19 box a 1 2 3
  20 box b 2 0 0 1 2 3
  21 explode a f
  22 explode b f
  23 sewing result +t 1.1 a_2 b_1
  24
  25 set square 12
  26 set nb_v_good 4
  27 set nb_e_good 4
  28 set nb_w_good 2
  29 set nb_f_good 2
  30 set nb_sh_good 1
  31 set nb_sol_good 0
  32 set nb_compsol_good 0
  33 set nb_compound_good 0
  34 set nb_shape_good 13
  35
  36 checkmaxtol result 1.5
  37 checknbshapes result -shell 1
  38 checkfreebounds result 0
  39
  40 set 3dviewer 0