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
checkview -display result -3d -path ${imagedir}/${test_image}.png