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