#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
psection r1 a p 
if ![regexp VERTEX [statshape r1]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }

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

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

set length 27.8021
set 2dviewer 1


