0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26099
CommitLineData
ba5ab97f 1puts "========"
2puts "OCC26099"
3puts "========"
4puts ""
5##################################################
6# Wrong result done by 2d intersection algorithm
7##################################################
8
9restore [locate_data_file OCC26099-f.brep] f
10explode f e
11pcurve c4 f_4 f
12pcurve c5 f_5 f
13set bug_info [2dintersect c4 c5]
14
15if {[regexp {fist: ([\-0-9.]*) .*second: ([\-0-9.]*)} $bug_info dummy par1 par2] == 0} {
16 puts "ERROR: OCC26099 is reproduced. No intersection."
17}
18
19set refpar1 0.98989794855663704
20set refpar2 0
21if {[expr abs($par1-$refpar1)] > 0.0001 || [expr abs($par2-$refpar2)] > 0.0001} {
22 puts "ERROR: OCC26099 is reproduced. Parameters are $par1 and $par2, expected $refpar1 and $refpar2"
23}