tests/bugs/modalg/bug22770_1

   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 MDTV-XCAF
  15 # UndoLimit D 100
  16 # Open a transaction
  17 # NewCommand D
  18
  19 vertex a 1 0 0
  20 vertex b 10 0 0
  21 edge e1 a b
  22 vertex c 10.01 0 0
  23 vertex d 20 0 0
  24 edge e2 c d
  25 sewing result +t 0.1 e1 e2 +e
  26
  27 set length 18.99
  28
  29 set nb_v_good 3
  30 set nb_e_good 2
  31 set nb_w_good 0
  32 set nb_f_good 0
  33 set nb_sh_good 0
  34 set nb_sol_good 0
  35 set nb_compsol_good 0
  36 set nb_compound_good 1
  37 set nb_shape_good 6
  38
  39 set 3dviewer 0
  40