tests/bugs/modalg_2/bug22770_17

   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 checkprops result -l 18.99
  20 checkshape result
  21 checksection result
  22
  23 checknbshapes result -vertex 4 -edge 2 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 7
  24 checkmaxtol result -ref 9.9999999999999995e-008
  25 checknbshapes result -shell 0
  26 checkfreebounds result 0
  27 checkview -display result -3d -path ${imagedir}/${test_image}.png