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