d3578357 |
1 | puts "========" |
2 | puts "OCC29711: General Fuse operation produces invalid result" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | |
7 | binrestore [locate_data_file bug29711_faces.bin] cf |
8 | |
9 | bclearobjects |
10 | bcleartools |
11 | eval baddobjects [explode cf f] |
12 | bfillds |
13 | bbuild gf |
14 | |
15 | # check each face on self-interference |
16 | foreach f [explode gf f] { |
17 | if {![regexp "OK" [bopcheck $f]]} { |
18 | puts "Error: face $f is self-interfering" |
19 | } |
20 | } |
21 | |
22 | checkshape gf |
23 | checkprops gf -s 1995.07 |
24 | checknbshapes gf -wire 256 -face 256 |
25 | |
26 | # make volumes from the faces |
27 | mkvolume result gf -ni |
28 | |
29 | checkshape result |
30 | checkprops result -s 1996.57 -v 674.739 |
31 | checknbshapes result -wire 256 -face 256 -shell 12 -solid 9 |
32 | |
33 | checkview -display result -2d -path ${imagedir}/${test_image}.png |