puts "TODO OCC23163 ALL: Error: No resulting circle of radius 5 at the intersection of tori, only b-splines" puts "================" puts "OCC23163" puts "================" puts "" ####################################################################### # Intersection of tori fails to produce results ####################################################################### torus t1 20 5 torus t2 40 0 0 20 5 intersect result t1 t2 set NbCurv [llength [directory result*]] if { $NbCurv > 4 } { puts "OK: Number of curves is good" } else { puts "Error: No resulting circle of radius 5 at the intersection of tori, only b-splines" } smallview donly result* fit display t1 t2 checkview -screenshot -2d -path ${imagedir}/${test_image}.png