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