0e94a94e |
1 | |
2 | puts "========================" |
3 | puts " OCC318 " |
4 | puts "========================" |
5 | puts "" |
6 | ################################################## |
7 | ## Checkshape works wrong with Semi-Infinite Prism (s) |
8 | ################################################## |
9 | |
10 | box mb -0.5 -0.5 -0.5 1 1 1 |
11 | explode mb F |
12 | prism result mb_1 1 0 0 SemiInf |
13 | |
14 | set che [checkshape result] |
15 | if { [regexp {Faulty} $che] == 1} { |
16 | puts "Faulty OCC318: Result shape is invalid. It was detected by Checkshape command" |
17 | } else { |
18 | puts "OCC318 OK: Result shape is valid" |
19 | } |
20 | |
58cf74e0 |
21 | checkprops result -s 8e+100 |
5747059b |
22 | checkview -display result -2d -path ${imagedir}/${test_image}.png |