tests/bugs/moddata_1/bug12522

   1 puts "TODO ?OCC12345 ALL: OCC12522: Faulty"
   2
   3 puts "========"
   4 puts "OCC12522"
   5 puts "========"
   6 puts ""
   7 ###########################################################
   8 # Extrema problems. Case: one of the Extrema arguments is an infinite face or an infinite edge.
   9 ###########################################################
  10
  11 proc GetPercent {Value GoodValue} {
  12    set Percent 0.
  13    if {${GoodValue} != 0.} {
  14       set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
  15    } elseif {${Value} != 0.} {
  16       set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
  17    } else {
  18       set Percent 0.
  19    }
  20    return ${Percent}
  21 }
  22
  23 set BugNumber OCC12522
  24
  25 restore [locate_data_file OCC12522.brep] arc1
  26 explode arc1 e
  27 mkcurve curve1 arc1_1
  28
  29 plane plane1 6400 -4000 -160 0 0 1 1 0 0
  30
  31 extrema curve1 plane1
  32
  33 set percent_max 0.1
  34 set good_length 8.3705138910905177
  35
  36 set ext_1_length [lindex [length ext_1] 4]
  37
  38 set length_percent [GetPercent ${ext_1_length} ${good_length}]
  39 puts "length_percent = ${length_percent}"
  40
  41 if {${length_percent} > ${percent_max}} {
  42    puts "${BugNumber}: Faulty"
  43 } else {
  44    puts "${BugNumber}: OK"
  45 }