#INTERFACE IGES
puts "======="
puts "OCC535"
puts "======="
puts ""
#############################################################
## After command "fixshape" in DRAW on attached shape quantity of shapes obtained
## with help command "nbs" is increased.
#############################################################

pload XDE

restore [locate_data_file OCC535.brep] a 

set nb_info_a [nbshapes a]
regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_a full r1

fixshape result a

set nb_info_res [nbshapes result]
regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_res full r2

puts ""
puts [format "before Shapes = %s     after Shapes = %s" $r1 $r2]
puts ""

if { $r1 == $r2 } {
    puts "OCC535 OK"
} else {
    puts "OCC535 Faulty"
}

checkprops result -s 3554.31 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png