puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
puts "TODO OCC11111 ALL: Error : The square of result shape is"

puts "================"
puts "OCC397"
puts "================"
puts ""
#######################################################################################
# One face from IGES is not shaded 
######################################################################################

set BugNumber OCC8370

catch { pload XDE }

igesread [locate_data_file Amino_komatsu.igs] result *

set square 25310.8

set nb_v_good 5060
set nb_e_good 5105
set nb_w_good 416
set nb_f_good 399
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 10981

vinit
tclean result
vsetdispmode 1
vdisplay result
vfit

set 3dviewer 1