3bea4c16 |
1 | puts "============" |
2 | puts "OCC12507" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Wrong result of fuse operation |
7 | ####################################################################### |
8 | |
9 | puts "First shape ..." |
10 | pcylinder c 3 3 |
11 | explode c e |
12 | |
13 | puts "Second shape ..." |
14 | tcopy c_3 e3 |
15 | ttranslate e3 0 6 0 |
16 | |
17 | bop c_3 e3 |
18 | bopfuse result |
19 | |
a4eba920 |
20 | checknbshapes result -vertex 3 -edge 4 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 8 |
5747059b |
21 | checkview -display result -2d -path ${imagedir}/${test_image}.png |