[occt.git] / tests / bugs / modalg_7 / bug30154_2

puts "========"
puts "0030154: Modeling Algorithms - Boolean Operation on planar geometry hangs inside BRepLib::FindValidRange()"
puts "========"
puts ""

set toler 3.e-7

box b -94190864 -46229000 -17178478.4 519231048 93653000 120025348.8

foreach e [explode b e] {
  mkcurve c $e
  regexp {Parameters : ([-0-9.+eE]*) ([-0-9.+eE]*)} [dump c] full t1 t2
  set range [validrange $e]
  set ts1 [lindex $range 0]
  set ts2 [lindex $range 1]

  set delta1 [expr $ts1 - $t1]
  set delta2 [expr $t2 - $ts2]

  if {$delta1 < 1.e-7 || $delta1 > $toler || $delta2 < 1.e-7 || $delta2 > $toler} {
    puts "Error: incorrect computation of the valid range"
  }
}
Commit	Line	Data
60b1a085	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	}