ba5ab97f |
1 | puts "========" |
2 | puts "OCC26099" |
3 | puts "========" |
4 | puts "" |
5 | ################################################## |
6 | # Wrong result done by 2d intersection algorithm |
7 | ################################################## |
8 | |
9 | restore [locate_data_file OCC26099-f.brep] f |
10 | explode f e |
11 | pcurve c4 f_4 f |
12 | pcurve c5 f_5 f |
13 | set bug_info [2dintersect c4 c5] |
14 | |
15 | if {[regexp {fist: ([\-0-9.]*) .*second: ([\-0-9.]*)} $bug_info dummy par1 par2] == 0} { |
16 | puts "ERROR: OCC26099 is reproduced. No intersection." |
17 | } |
18 | |
19 | set refpar1 0.98989794855663704 |
20 | set refpar2 0 |
21 | if {[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 | } |