puts "========"
puts "OCC779"
puts "========"
puts ""
################################
## Common operation produces invalid shape
################################

restore [locate_data_file OCC779_s1.brep] s1 
puts [checkshape s1]
restore [locate_data_file OCC779_s2.brep] s2 
puts [checkshape s2]

ttranslate s1 0 0 -30
prism s1p s1 0 0 70
puts [checkshape s1p]

bcommon result s1p s2

set square 64191.2
set 2dviewer 0