tests/bugs/modalg_7/bug30154_2

   1 puts "========"
   2 puts "0030154: Modeling Algorithms - Boolean Operation on planar geometry hangs inside BRepLib::FindValidRange()"
   3 puts "========"
   4 puts ""
   5
   6 set toler 3.e-7
   7
   8 box b -94190864 -46229000 -17178478.4 519231048 93653000 120025348.8
   9
  10 foreach e [explode b e] {
  11   mkcurve c $e
  12   regexp {Parameters : ([-0-9.+eE]*) ([-0-9.+eE]*)} [dump c] full t1 t2
  13   set range [validrange $e]
  14   set ts1 [lindex $range 0]
  15   set ts2 [lindex $range 1]
  16
  17   set delta1 [expr $ts1 - $t1]
  18   set delta2 [expr $t2 - $ts2]
  19
  20   if {$delta1 < 1.e-7 || $delta1 > $toler || $delta2 < 1.e-7 || $delta2 > $toler} {
  21     puts "Error: incorrect computation of the valid range"
  22   }
  23 }