puts "================" puts "OCC23952" puts "================" puts "" ########################################################################################### # Improving thread-safety of intersections, approximations and other modeling algorithms ########################################################################################### pload QAcommands restore [locate_data_file bug23952_s1.draw] a restore [locate_data_file bug23952_s2.draw] b set NbLines 6 set info [OCC23952intersect $NbLines a b] if { [regexp "theNbSol: OK" $info] != 1 } { puts "Error : Number of intersections is incorrect" } else { puts "OK: Number of intersections is correct" }