tests/bugs/xde/bug547_2

   1 puts "TODO OCC12345 ALL: Error : Tolerance invalid. Function FixShape works WRONGLY"
   2
   3 puts "========================"
   4 puts " OCC547 "
   5 puts "(case 2)"
   6 puts "========================"
   7 puts ""
   8 ##################################
   9 ## Big tolerance after "sewing" with tolearnce 0.5
  10 ##################################
  11
  12 restore [locate_data_file OCC547.brep] a
  13
  14 set tol1 [maxtolerance a]
  15 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full face1
  16 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full edge1
  17 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full vert1
  18
  19 sewing result a 0.5 a
  20
  21 set tol2 [ maxtolerance result]
  22 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full face2
  23 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full edge2
  24 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full vert2
  25
  26 if { ${face2} > ${face1} || ${edge2} > ${edge1} || ${vert2} > ${vert1} } {
  27     puts "Error : Tolerance invalid. Function FixShape works WRONGLY"
  28 } else {
  29     puts "Tolerance valed. Function FixShape works CORRECTLY"
  30 }
  31
  32 set 2dviewer 1