1puts "================" 2puts "OCC25416" 3puts "================" 4puts "" 5####################################################################### 6# Wrong section curve 7####################################################################### 8 9#Check if intersection algorithm produces overlapped curves 10 11restore [locate_data_file bug25416_s1.draw] s1 12restore [locate_data_file bug25416_s2.draw] s2 13 14set ll [intersect ii s1 s2] 15 16set status 0 17if { [llength $ll] < 1 } { 18 set status 1 19} 20 21foreach i $ll { 22 foreach j $ll { 23 if { $i >= $j } continue 24 25 mkedge e1 $i 26 mkedge e2 $j 27 set coe [checkoverlapedges e1 e2] 28 29 puts "$i<->$j: $coe" 30 if { [regexp "Edges are not overlapped" $coe] != 1 } { 31 set status 2 32 } 33 } 34} 35 36if { $status != 0 } { 37 puts "Wrong section. Error with code $status" 38} else { 39 puts "OK: Good section" 40} 41