4680b22c |
1 | puts "========" |
2 | puts "OCC29887: Wrong result of CUT operation due to incorrect point-face classification" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | brestore [locate_data_file bug29887_ar_shape_to_cuts.brep] s1 |
7 | brestore [locate_data_file bug29887_ar_cutting_shapes.brep] s2 |
8 | |
9 | bcut result s1 s2 |
10 | checknbshapes result -face 2 -wire 2 |
11 | |
12 | checkshape result |
13 | |
14 | if {[regexp "Faulties" [bopargcheck result]]} { |
15 | puts "Error: bopargcheck has found some faulties in result" |
16 | } |
17 | |
18 | checkprops result -s 319.71 |
19 | |
20 | smallview |
21 | don result |
22 | fit |
23 | |
24 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |