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
