61c421bf |
1 | puts "============" |
2 | puts "OCC6450" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Cannot get common part of two parallel halfspaces |
7 | ###################################################### |
8 | |
9 | set BugNumber OCC6450 |
10 | |
11 | plane pl 100 0 0 1 0 0 |
12 | mkface f pl |
13 | halfspace so1 f 0 0 0 |
14 | ttranslate f -200 0 0 |
15 | halfspace so2 f 0 0 0 |
16 | bcommon result so1 so2 |
17 | if {[dtyp result] == ""} { |
18 | puts "Faulty ${BugNumber}: operation failed" |
19 | } else { |
20 | puts "OK ${BugNumber}" |
21 | } |
22 | |
5747059b |
23 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
61c421bf |
24 | |