puts "============"
puts "OCC20964: Wrong result of cut operation for given shapes"
puts "============"
puts ""

restore [locate_data_file OCC20964_revsolid.brep] b1 
restore [locate_data_file OCC20964_sphere.brep] b2 

bclearobjects
bcleartools
baddobjects b1
baddtools b2
bfillds

# COMMON
bbop result 0

checkprops result -s 5158.93
checkshape result

set NbShapesRef "
Number of shapes in .*
 VERTEX : 8
 EDGE : 12
 WIRE : 6
 FACE : 5
 SHELL : 1
 SOLID : 1
 COMPSOLID : 0
 COMPOUND : 1
 SHAPE : 34
"

checknbshapes result -ref $NbShapesRef

checkmaxtol result -ref 0.013928665225777443

checkview -display result -2d -path ${imagedir}/${test_image}_axo.png

vdisplay result
vsetdispmode 1
vviewparams -scale 15.9695 -proj 0.0161244 -0.535424 0.84443 -up -0.773936 0.528029 0.349583 -at 117.532 248.227 -4.41145e-007 -eye 118.783 206.661 65.5549

if { [string compare "" [tricheck result] ] } {
  puts "Error in triangulation"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}_shade.png
