bf97419a |
1 | puts "==========================================================================================" |
2 | puts "OCC30958: BRepOffsetAPI_ThruSections operation raises an except-ion while building history" |
3 | puts "==========================================================================================" |
4 | puts "" |
5 | |
6 | restore [locate_data_file bug30958_CompWires.brep] ww |
7 | explode ww |
8 | |
9 | thrusections res 0 1 ww_1 ww_2 |
10 | |
11 | savehistory hist |
12 | |
13 | explode ww_1 |
14 | |
15 | generated r1 hist ww_1_1 |
16 | generated r2 hist ww_1_2 |
17 | |
18 | checkprops r1 -s 22.4404 |
19 | checkprops r2 -s 81.2396 |
20 | |
21 | explode ww_1 v |
22 | |
23 | generated rr1 hist ww_1_1 |
24 | generated rr2 hist ww_1_2 |
25 | generated rr3 hist ww_1_3 |
26 | |
27 | distmini dd ww_1_1 rr1 |
28 | regexp {([-0-9.+eE]+)} [dump dd_val] full dist |
29 | if { $dist > 1.e-7} { |
30 | puts "Error: wrong generated list of edges" |
31 | } |
32 | |
33 | distmini dd ww_1_2 rr2 |
34 | regexp {([-0-9.+eE]+)} [dump dd_val] full dist |
35 | if { $dist > 1.e-7} { |
36 | puts "Error: wrong generated list of edges" |
37 | } |
38 | |
39 | distmini dd ww_1_3 rr3 |
40 | regexp {([-0-9.+eE]+)} [dump dd_val] full dist |
41 | if { $dist > 1.e-7} { |
42 | puts "Error: wrong generated list of edges" |
43 | } |