puts "============"
puts "OCC22831"
puts "============"
puts ""
######################################################
# Regression in boolean Cut - wrong result ( 6.5.2).
######################################################

pload XDE

restore [locate_data_file bug22831_shape.brep] sh
restore [locate_data_file bug22831_face.brep] f

checkshape sh
checkshape f

prism pr f -0.0023732630088625609, 0.49562550631034025, 0.86853308809584784
decho off
checkshape pr
## KO; Faulty shapes in variables faulty_1 to faulty_24
decho on

fixshape prf pr 1.e-4
checkshape prf

bopcheck prf
bcut result sh prf

set square 0.233021
set 2dviewer 0
