| 1 | puts "========" |
| 2 | puts "OCC29580" |
| 3 | puts "========" |
| 4 | puts "" |
| 5 | ################################################# |
| 6 | # Regression: invalid result of BOP Fuse |
| 7 | ################################################# |
| 8 | |
| 9 | |
| 10 | circle c1 0 -5 0 1 0 0 10 |
| 11 | circle c2 0 5 0 1 0 0 10 |
| 12 | mkedge e1 c1 |
| 13 | mkedge e2 c2 |
| 14 | wire w1 e1 |
| 15 | wire w2 e2 |
| 16 | mkplane f1 w1 |
| 17 | mkplane f2 w2 |
| 18 | bcut f12 f1 f2 |
| 19 | revol b1 f12 0 0 0 0 0 1 180 |
| 20 | ttranslate b1 0 31.358955689999998 0 |
| 21 | |
| 22 | plane pln 0 0 0 0 0 1 1.1102230246251565e-016 -1 0 |
| 23 | psphere b2 pln 8.6602540399999999 180 |
| 24 | ttranslate b2 0 31.358955689999998 0 |
| 25 | |
| 26 | bclearobjects |
| 27 | bcleartools |
| 28 | baddobjects b1 |
| 29 | baddtools b2 |
| 30 | bfillds |
| 31 | bbuild result |
| 32 | |
| 33 | checkshape result |
| 34 | checknbshapes result -vertex 4 -edge 16 -wire 10 -face 10 -shell 3 -solid 3 -t |
| 35 | checkprops result -s 3879.55 -v 6295.15 |
| 36 | |
| 37 | checkview -display result -2d -path ${imagedir}/${test_image}.png |