puts "========"
puts "OCC36"
puts "========"

pload XDE

set filepath [locate_data_file OCC36.igs]
if [catch { igesbrep $filepath a * } res] { 
    puts "Error OCC36: here is reading problem"
} else {
    puts "Reading OCC36  OK"

    tpcompound r
    dchrono h2 reset
    dchrono h2 start
    sewing result 1.e-7 r
    dchrono h2 stop
    set q2 [ dchrono h2 show ]
    regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
    puts "$z2"
    if { $z2 > 30 } {                             
	puts "Elapsed time is more then 30 seconds - Faulty"
    } else {
	puts "Elapsed time is less then 30 seconds - OK"      
    }
}

set 2dviewer 0


