#INTERFACE IGES
puts "========"
puts "OCC526"
puts "========"
puts ""
################################################
## BRepAlgoAPI_Section fails to build planar sections on some faces
################################################

pload XDE

restore [locate_data_file OCC592.brep] a 

set Z 67.599311020481764
plane p 0 0 $Z
mkface f p
bsection r1 a f
if ![regexp VERTEX [statshape r1]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }

set Z 66.599311020481764
plane p 0 0 $Z 
mkface f p
bsection r2 a f
if ![regexp VERTEX [statshape r2]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }

set Z 65.599311020481764
plane p 0 0 $Z 
mkface f p
bsection result a f
if ![regexp VERTEX [statshape result]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }

checkprops result -l 27.8021 
checkshape result 
checksection result
checkview -display result -2d -path ${imagedir}/${test_image}.png


