1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
puts "========| OCC565 |========"
##################################
## Can not intersect two trimmed conical surfaces
##################################
restore [locate_data_file OCC565a.draw] s1
restore [locate_data_file OCC565b.draw] s2
puts "Preliminary check: intersection work with infinite cones:"
if { [catch {intersect inf s1 s2 } catch_result] } {
puts "Faulty OCC565: function intersection works wrongly with infinite cones"
} else {
set j 1
set er [lindex [whatis inf] 5]
repeat 4 {
set err [lindex [whatis inf_$j] 5]
if { $err != "curve" && $er != "curve"} {
puts " Faulty OCC565: function intersection works wrongly with infinite cones"
break
} else {
puts [format "curve inf_%s : exist " $j]
}
incr j
}
puts "Function intersection works correctly with infinite cones. Then check OCC565:"
}
trim s1x s1 0 2*pi 0 2.8
trim s2x s2 0 2*pi 0 2.8
if { [catch {intersect result s1x s2x } catch_result] } {
puts "Faulty OCC565 exception: function intersection works wrongly with trimmed cones"
} else {
set nom 0
set j 1
set er [lindex [whatis result] 5]
repeat 4 {
set err [lindex [whatis result_$j] 5]
if { $err != "curve" && $er != "curve"} {
break
} else {
set nom [expr $nom + 1]
}
incr j
}
if { $nom == 0} {
puts " Faulty OCC565: function intersection works wrongly with trimmed cones"
} else {
puts " OCC565 OK: function intersection works with trimmed cones"
}
}
|
