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

set BugNumber OCC5027

set filepath [locate_data_file OCC5027.stp]
if [catch { stepread $filepath a * } res] {
   puts "Error ${BugNumber} : here is reading problem"
} else {
    tpcompound result
    
    set square 159588
    set nb_v_good 44
    set nb_e_good 72
    set nb_w_good 36
    set nb_f_good 31
    set nb_sh_good 1
    set nb_sol_good 1
    set nb_compsol_good 0 
    set nb_compound_good 1
    set nb_shape_good 186
}

set 2dviewer 0