5 #################################################
6 # Very slow boolean cut operations on cylinders
7 #################################################
9 if { [regexp {Debug mode} [dversion]] } {
17 restore [locate_data_file OCC26310-b1.brep] b1
18 restore [locate_data_file OCC26310-b2.brep] b2
25 set log1 [bopcurves b1_1 b2_1 -2d]
28 regexp {Tolerance Reached=+([-0-9.+eE]+)} ${log1} full Toler
30 puts "TolReached = $Toler"
32 if { $Toler > $maxToler } {
33 puts "Error: Tolerance is too big ($Toler > $maxToler)"
36 set log2 [dchrono cr show]
38 regexp {CPU user time: ([-0-9.+eE]+) seconds} $log2 full sec
40 if { $sec > ${max_time} } {
41 puts "Error: CPU user time is more than ${max_time} seconds"
43 puts "OK: CPU user time is less than ${max_time} seconds"