tests/bugs/moddata_2/bug262

   1
   2 puts "========"
   3 puts "OCC262"
   4 puts "========"
   5
   6 restore [locate_data_file OCC262.brep] a
   7 # checkshape a
   8
   9 set tolerance 1e-5
  10
  11 build3d a ${tolerance}
  12
  13 fsameparameter a
  14
  15 explode a E
  16 # Verify only a_1 and a_2 eges becouse a_3 had 3d curve before call of build3d command
  17
  18 set toler1 [maxtolerance a_1]
  19 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $toler1 full MaxEdgeTolerance1
  20
  21 if { [ expr $MaxEdgeTolerance1 > $tolerance ] } {
  22     puts "OCC262 - FAULTY. Tolerance of a_1 is too big"
  23 } else {
  24     puts "TOLERANCE OF A_1 - OK"
  25 }
  26
  27 set toler2 [maxtolerance a_2]
  28 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $toler2 full MaxEdgeTolerance2
  29
  30 if { [ expr $MaxEdgeTolerance2 > $tolerance ] } {
  31     puts "OCC262 - FAULTY. Tolerance of a_1 is too big"
  32 } else {
  33     puts "TOLERANCE OF A_2 - OK"
  34 }
  35
  36
  37 #set tolerancelist [maxtolerance a]
  38
  39 #set list [split ${tolerancelist} "\n\t"]
  40 #set listLength [llength ${list}]
  41 #if { ${listLength} < 9 } then {puts "OCC262 - Error : listLength= ${listLength}"}
  42
  43 #set EdgeList [lindex ${list} 5]
  44 #set MaxEdgeTolerance [lindex [split ${EdgeList}] [expr [llength [split ${EdgeList}] ] - 2] ]
  45
  46 #set delta [expr abs(${MaxEdgeTolerance} - ${tolerance}) / ${tolerance} * 100]
  47
  48 #set maxdelta 1
  49
  50 #if { ${delta} > ${maxdelta} } then {puts "OCC262 - Error : delta = ${delta}"} else {
  51 #  puts "OCC262: OK"
  52 #}
  53
  54 #puts "MaxEdgeTolerance = ${MaxEdgeTolerance}"
  55
  56 renamevar a result
  57
  58 checkprops result -s 449.437
  59 checkview -display result -2d -path ${imagedir}/${test_image}.png