tests/bugs/modalg/bug22770_16

   1 puts "================"
   2 puts "OCC22770"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Improve comman sewing in DRAW
   7 ######################################################################################
   8
   9 set BugNumber OCC22770
  10
  11 vertex a 1 0 0
  12 vertex b 10 0 0
  13 edge e1 a b
  14 vertex c 10.01 0 0
  15 vertex d 20 0 0
  16 edge e2 c d
  17 sewing result 0.1 e1 e2 +e
  18
  19 set length 18.99
  20
  21 set nb_v_good 3
  22 set nb_e_good 2
  23 set nb_w_good 0
  24 set nb_f_good 0
  25 set nb_sh_good 0
  26 set nb_sol_good 0
  27 set nb_compsol_good 0
  28 set nb_compound_good 1
  29 set nb_shape_good 6
  30
  31 set 3dviewer 0