pload QAcommands

puts "============"
puts "OCC1077"
puts "============"
puts ""
######################################################
# BUG in boolean operations in the development version
######################################################

if { [catch { OCC1077 result } catch_result] } {
     puts "Faulty OCC1077"
}

checkprops result -s 587.181 
checkshape result
set 3dviewer 1