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"      
    }

    checkmaxtol result 2.5472812372261969e-005
    checknbshapes result -shell 13
    checkfreebounds result 1247
}

set 2dviewer 0


