puts "============"
puts "OCC24005"
puts "============"
puts ""
###############################
## Intersecting a slightly off angle plane with a cylinder takes 7+ seconds
###############################

pload QAcommands

dchrono h reset
dchrono h start

OCC24005 result

dchrono h stop
set q [dchrono h show]

regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
puts "$z"

set max_time 0.4
if { $z > ${max_time} } {                                         
    puts "Elapsed time is more than ${max_time} seconds - Faulty"
} else {
    puts "Elapsed time is less than ${max_time} seconds - OK"
}

if { [regexp {Ellipse} [dump result]] == 1 } {
    puts "result is OK"
} else {
    puts "result is Faulty"
}

set 2dviewer 1
