5 ###############################
6 ## Intersection algorithm produces null-length curve
7 ###############################
10 restore [locate_data_file bug27267_cmpd.brep] a
13 #############################
14 set log [bopcurves a_1 a_7 -2d]
15 #############################
17 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
19 for {set i 1} {$i <= ${NbCurv}} {incr i} {
24 if {[dval U2-U1] < 1.0e-20} {
25 puts "Error: Wrong curve's range!"
29 regexp "The length c_$i is +(\[-0-9.+eE\]+)" ${le} full ll
32 puts "Error: Curve c_$i is too small!"