2 puts "OCC29972: Intersection curve has a weird gap in the middle of it"
8 foreach a [directory res*] {unset $a}
10 restore [locate_data_file bug29972_s1.draw] s1
11 cylinder s2 -120 54.2955104312028 -116 1 0 0 0 0 -1 28
16 set ind [string first "3d curve" $che]
18 #Only variable "res" exists
27 while { $AllowRepeat != 0 } {
28 set che [whatis res_$ic]
29 set ind [string first "3d curve" $che]
36 if {[dval U2-U1] < 1.0e-9} {
37 puts "Error: Wrong curve's range!"
40 xdistcs res_$ic s1 U1 U2 100 2.0e-6
41 xdistcs res_$ic s2 U1 U2 100 2.0e-6
50 # Check of gaps between intersection curves
54 checknbshapes rs -edge $GoodNbCurves
65 checkview -screenshot -2d -path ${imagedir}/${test_image}.png