2 puts "OCC29972: Intersection curve has a weird gap in the middle of it"
8 foreach a [directory res*] {unset $a}
10 torus s1 -127 84 100 0 0 -1 1 0 0 23 10
11 cylinder s2 -132 61.5500556793564 131 0 0 -1 1 0 0 10
13 intersect res s1 s2 1.0e-4
15 if { [info exists res] } {
16 #Only variable "res" exists
25 while { $AllowRepeat != 0 } {
26 if { ![info exists res_$ic] } {
31 if {[dval U2-U1] < 1.0e-9} {
32 puts "Error: Wrong curve's range!"
35 xdistcs res_$ic s1 U1 U2 100 2.0e-7
36 xdistcs res_$ic s2 U1 U2 100 2.0e-7
45 # Check of gaps between intersection curves
49 checknbshapes rs -edge $GoodNbCurves
51 regexp {nb alone Vertices : ([-0-9.+eE]+)} [ checksection rs -r 4 ] full nbv
53 puts "Error : The section is closed. The result is possible to better than on MASTER version. Please check carefully."
55 for {set i 1} {$i < $nbv} {incr i} {
56 for {set j [expr $i +1] } {$j <= $nbv} {incr j} {
57 distmini dd alone_$i alone_$j;
59 if { [dval dd_val] > 3.0e-6 } {
60 puts "Error: The distance between alone_$i and alone_$j is too big"
73 checkview -screenshot -2d -path ${imagedir}/${test_image}.png