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