1d54b807 |
1 | puts "====================================================================" |
2 | puts "OCC28828: New functionalities of BRepFilletAPI_MakeChamfer algorithm" |
3 | puts "====================================================================" |
4 | puts "" |
5 | |
6 | #KPart: plane + plane, penetrating throat |
7 | polyline b 0 0 0 20 0 0 20 0 20 10 0 20 20 0 40 0 0 40 0 0 0 |
8 | mkplane b b |
9 | prism b b 0 20 0 |
10 | explode b f |
11 | explode b_4 e |
12 | donly b b_4_1 |
13 | |
14 | chamf_throat_with_penetration result b b_4_1 b_4 2. 4. |
15 | |
16 | checkshape result |
17 | |
18 | checknbshapes result -solid 1 -shell 1 -face 9 -wire 9 -edge 17 -vertex 9 -shape 47 |
19 | |
20 | set tolres [checkmaxtol result] |
21 | |
22 | if { ${tolres} > 0.0001} { |
23 | puts "Error: bad tolerance of result" |
24 | } |
25 | |
26 | checkprops result -v 14056.4 -deps 1.e-7 |
27 | |
28 | checkview -display result -2d -path ${imagedir}/${test_image}.png |