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

# CUT 1-2
bbop result 2

checkprops result -s 821864
checkshape result

set NbShapesRef "
Number of shapes in .*
 VERTEX : 22
 EDGE : 35
 WIRE : 17
 FACE : 14
 SHELL : 2
 SOLID : 1
 COMPSOLID : 0
 COMPOUND : 1
 SHAPE : 92
"

checknbshapes result -ref $NbShapesRef
checkmaxtol result -ref 2.0849512334752456e-05

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

vdisplay result
vsetdispmode 1
vviewparams -scale 3.80971 -proj 0.769527 -0.23844 0.59243 -up -0.456402 0.443531 0.771348 -at 70.5761 168.919 28.0572 -eye 455.34 49.6989 324.272

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

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