1eaf1cc1 |
1 | puts "================" |
2 | puts "OCC25380" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Intersection curve cannot reach boundary of surface |
7 | ####################################################################### |
8 | |
9 | restore [locate_data_file bug25380_b1.brep] b1 |
10 | restore [locate_data_file bug25380_b2.brep] b2 |
11 | |
12 | set log [bopcurves b1 b2] |
13 | |
14 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv |
15 | set MaxTol 1.e-11 |
16 | if {${Toler} > ${MaxTol}} { |
17 | puts "Error: Tolerance is too big!" |
18 | } |
3ad6d001 |
19 | checklength c_1 -l 1.614 |
1eaf1cc1 |
20 | |
21 | smallview |
22 | donly c_1 b1 |
23 | fit |
24 | display b2 |
25 | |
26 | set only_screen_axo 1 |