puts "============"
puts "OCC2986"
puts "============"
puts ""
######################################################
# Cut&fuse oprs. for 2 toroidal faces, sharing the same domain give invalid result 
######################################################
## (old topology)
## (cut)
## (fuse)
######################################################

############# data #############
ptorus p1 10 4
explode p1 f
mksurface gs p1_1
trim trgs gs 1 2 1 2
mkface ff trgs

bcut rcut1 p1_1 ff
checkshape rcut1

bfuse result rcut1 ff

set square 1579.81
set 3dviewer 1
