tests/bugs/modalg/bug1243_2

   1 puts "================"
   2 puts "OCC1243"
   3 puts "================"
   4 puts "Bad solid created from face with command 'revol'"
   5 puts ""
   6
   7 restore [locate_data_file OCC1243-2.brep] f1
   8 checkshape f1
   9
  10 revol result f1 -5000.0 0.0 0.0 10000.0 0.0 0.0 360.0
  11
  12 set tolerance [maxtolerance result]
  13 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
  14 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
  15 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
  16
  17 set max_tolerance 1.00000e-06
  18
  19 if { ${MaxFaceTolerance} > ${max_tolerance} || ${MaxEdgeTolerance} > ${max_tolerance} || ${MaxVertexTolerance} > ${max_tolerance} } {
  20     puts "OCC1243 - Error"
  21 } else {
  22     puts "OCC1243 - OK"
  23 }
  24
  25 set square 3.06024e+06
  26 set 2dviewer 0