puts "========="
puts " OCC503 "
puts "========="
puts ""
###############################
## Draw hangs up during sprops operation
###############################

#cpulimit 9000

restore [locate_data_file OCC503.brep] result

if [catch {sprops result 0.001 } catch_result] {
    set mistake 1
} else {
    set mistake 0
}

if { $mistake != 0} {
    puts "Faulty OCC503 : Draw hangs up during sprops operation "
} else {
    puts "OCC503 OK: function SPROPS works without hangs up "
}

set 2dviewer 0