puts "============"
puts "OCC28306 Visualization - viewer crashes if style for shaded display is set to HATCH"
puts "============"
puts ""

pload VISUALIZATION MODELING
vclear
vinit View1
pload MODELING VISUALIZATION
box b 10 10 10
vdisplay -dispMode 1 b
vfit
vaspects b -setInteriorStyle HATCH

vdump $imagedir/${casename}.png
