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
|
puts "TODO OCC23163 ALL: Error: No resulting circle at the intersection of tori, only b-splines"
puts "================"
puts "OCC23163"
puts "================"
puts ""
#######################################################################
# Intersection of tori fails to produce results
#######################################################################
restore [locate_data_file bug23163_surface1_draw_b.draw] ss1
restore [locate_data_file bug23163_surface2_draw_b.draw] ss2
intersect result ss1 ss2
set NbCurv [llength [directory result*]]
if { $NbCurv > 6 } {
puts "OK: Number of curves is good"
} else {
puts "Error: No resulting circle at the intersection of tori, only b-splines"
}
smallview
donly result*
fit
display ss1 ss2
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|
