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