tests/bugs/modalg_2/bug22804

   1 puts "========================"
   2 puts "OCC22804"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # Sewing increases tolerance of vertices for redundant value.
   7 #######################################################################
   8
   9 set BugNumber OCC22804
  10
  11 catch {pload XDE}
  12
  13 restore [locate_data_file OCC22804-sew_bug.brep] a
  14
  15 set tol 200
  16 sewing result ${tol} a
  17
  18 set ToleranceList [tolerance result]
  19 regexp {Tolerance MAX=([-0-9.+eE]+)} $ToleranceList full oTolerance
  20 regexp {FACE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full FaceTolerance
  21 regexp {EDGE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full EdgeTolerance
  22 regexp {VERTEX[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full VertexTolerance
  23
  24 set minTolerance ${EdgeTolerance}
  25 if { ${minTolerance}  > ${VertexTolerance} } {
  26    set minTolerance ${VertexTolerance}
  27 }
  28
  29
  30 checkreal "Min tolerance" ${minTolerance} ${oTolerance} 0 0.001
  31 checkmaxtol result -ref 1699.9358291469857
  32 checknbshapes result -shell 1
  33 checkfreebounds result 5
  34
  35 checkprops result -s 1.80934e+009
  36 checkshape result
  37 checkview -display result -2d -path ${imagedir}/${test_image}.png