5 ###############################
6 ## Intersecting a slightly off angle plane with a cylinder takes 7+ seconds
7 ###############################
17 set q [dchrono h show]
19 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
23 if { $z > ${max_time} } {
24 puts "Elapsed time is more than ${max_time} seconds - Faulty"
26 puts "Elapsed time is less than ${max_time} seconds - OK"
29 if { [regexp {Ellipse} [dump result]] == 1 } {
32 puts "result is Faulty"