61c421bf |
1 | puts "============" |
2 | puts "OCC5806" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # BRepOffsetAPI_MakeThickSolid fails to build a result |
7 | ###################################################### |
8 | |
9 | set BugNumber OCC5806 |
10 | |
11 | puts "demonstration of pipes and hollowing for GTISoft" |
12 | puts "" |
13 | puts "Scenario 3A: Hollowed general pipe - ThroughSection with following shell reconstruction" |
14 | |
15 | circle c 0 100 0 1 0 0 5 |
16 | mkedge ec c |
17 | wire wc ec |
18 | polyline pl 10 90 -10 10 90 10 10 110 10 10 110 -10 10 90 -10 |
19 | |
20 | if { [catch { thrusections resthru 1 1 wc pl } catch_result] } { |
21 | puts "Faulty ${BugNumber} : thrusections is wrong" |
22 | } |
23 | |
24 | # straighforward hollowing will fail due to problems in the algorithm |
25 | explode resthru f |
26 | |
27 | if { [catch { offsetshape result resthru -0.5 resthru_6 resthru_7 } catch_result] } { |
28 | puts "Faulty ${BugNumber} : offsetshape is wrong" |
29 | } |
30 | |
31 | if { [catch { set tolmaxres [tolmax result] } catch_result] } { |
32 | puts "Faulty ${BugNumber} : tolmax is wrong" |
33 | } |
34 | regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance |
35 | if { [catch { expr $maxtolerance } catch_result] } { |
36 | puts "Faulty ${BugNumber} : maxtolerance is wrong (1)." |
37 | } |
38 | if { $maxtolerance > 1. } { |
39 | puts "Faulty ${BugNumber} : maxtolerance is wrong (2)." |
40 | } |
41 | |
42 | set square 1116.06 |
43 | |
44 | set nb_v_good 10 |
45 | set nb_e_good 15 |
46 | set nb_w_good 7 |
47 | set nb_f_good 7 |
48 | set nb_sh_good 1 |
49 | set nb_sol_good 1 |
50 | set nb_compsol_good 0 |
51 | set nb_compound_good 0 |
52 | set nb_shape_good 41 |
53 | |
54 | set 2dviewer 0 |