tests/bugs/xde/bug6491

   1 puts "========"
   2 puts "OCC6491"
   3 puts "========"
   4 puts ""
   5 ####################################################
   6 ## Sewing in DRAW on attached the shape with tolerance 1000 adds duplicated faces
   7 ####################################################
   8
   9 set BugNumber OCC6491
  10
  11 restore [locate_data_file OCC6491.brep] a
  12
  13 set tolerance 1000
  14
  15 sewing result ${tolerance} a
  16 regexp {FACE +: +([-0-9.+eE]+)} [nbshapes result] full res_faces
  17
  18 set good_faces 263
  19
  20 if { ${res_faces} != ${good_faces} } {
  21     puts "Faulty ${BugNumber}"
  22 }
  23
  24 checkmaxtol result 105.192615242296
  25 checknbshapes result -shell 1
  26 checkfreebounds result 73
  27
  28 set 2dviewer 0
  29