1d54b807 |
1 | puts "====================================================================" |
2 | puts "OCC28828: New functionalities of BRepFilletAPI_MakeChamfer algorithm" |
3 | puts "====================================================================" |
4 | puts "" |
5 | |
6 | pcylinder a1 10 50 |
7 | plane pp 25 0 0 -1 0 0 |
8 | pcylinder a2 pp 15 50 |
9 | bfuse b a1 a2 |
10 | savehistory hh |
11 | |
12 | explode a1 f |
13 | generated ee hh a1_1 |
14 | donly b ee |
15 | |
16 | chamf_throat result b ee 1. |
17 | |
18 | checkshape result |
19 | |
20 | checknbshapes result -solid 1 -shell 1 -face 6 -wire 7 -edge 8 -vertex 5 -shape 29 |
21 | |
22 | set tolres [checkmaxtol result] |
23 | |
24 | if { ${tolres} > 0.0002} { |
25 | puts "Error: bad tolerance of result" |
26 | } |
27 | |
28 | checkprops result -v 46724.8 -deps 1.e-7 |
29 | |
30 | checkview -display result -2d -path ${imagedir}/${test_image}.png |