puts "============"
puts "OCC5027"
puts "============"
puts ""
######################################################
# Incorrect result translating wire with loops from STEP
######################################################

set BugNumber OCC5027

set filepath [locate_data_file OCC5027.igs]
if [catch { igesread $filepath a * } res] {
    puts "Error ${BugNumber} : here is reading problem"
} else {
    tpcompound result
    
    set square 159588
    set nb_v_good 140
    set nb_e_good 144
    set nb_w_good 36
    set nb_f_good 31
    set nb_sh_good 0
    set nb_sol_good 0
    set nb_compsol_good 0
    set nb_compound_good 1
    set nb_shape_good 352
    
    set 2dviewer 0
}


