puts "==========="
puts "OCC16950: OCC Visualization fails to display empty nested compound"
puts "==========="

pload MODELING VISUALIZATION

puts "Make compound containing another (empty) one"
compound c
compound c result

puts "And display it"
vinit View1
vdisplay result

# Resume
if [catch { vsetdispmode 2 } res] {
  puts "Faulty OCC16950"
} else {
  puts "OK OCC16950"
}
vdump $imagedir/${casename}.png
