5 ############################################
6 # Intersection between cone and sphere fails
7 ############################################
9 foreach a [directory res*] {unset $a}
22 if { ![info exist res_p_1] } {
23 puts "Error: Cone apex and Pole of sphere are excluded from the intersection result"
27 set ind [string first "3d curve" $che]
29 #Only variable "res" exists
40 while { $AllowRepeat != 0 } {
41 set che [whatis res_$ic]
42 set ind [string first "3d curve" $che]
46 lappend CurvesList res_$ic
55 if { $ic != $aGoodNbCurves } {
56 puts "Error: $aGoodNbCurves curves is expected but $ic ones are found"
58 CheckIntersectionResult sc ss $CurvesList 100 2.0e-7 2.0e-7
67 # Check gaps between intersection curves
68 checksection result -r 0
69 checkmaxtol result -min_tol 2.0e-7
71 checknbshapes result -edge 1 -vertex 1
78 checkview -screenshot -2d -path ${imagedir}/${test_image}.png