a87752f3 |
1 | puts "========================" |
2 | puts " OCC324 " |
3 | puts "========================" |
4 | puts "" |
5 | ################################################################# |
6 | ## The command "intersect" applied to the given arguments "s1" (plane) and "s2" (cylinder) leads |
7 | ## to the program hang-up. |
8 | ################################################################# |
9 | |
10 | restore [locate_data_file OCC324a.draw] s1 |
11 | restore [locate_data_file OCC324b.draw] s2 |
12 | |
13 | if [catch {intersect result s1 s2} catch_result] { |
14 | puts "Faulty OCC324: function INTERSECT works wrongly" |
15 | } else { |
16 | puts "OCC324 OK: function INTERSECT works properly" |
17 | } |
18 | |
5747059b |
19 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
a87752f3 |
20 | |
21 | |