tests/bugs/modalg_2/bug22770_19

   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
  16 sewing result 1.1 a_2 b_1 -f
  17
  18 set square 12
  19
  20 checknbshapes result -vertex 8 -edge 8 -wire 2 -face 2 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 21
  21 checkmaxtol result -ref 9.9999999999999995e-008
  22 checknbshapes result -shell 0
  23 checkfreebounds result 8
  24
  25 set 3dviewer 0