| 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 | |
| 19 | set 2dviewer 0 |
| 20 | |
| 21 | |