puts "==========="
puts "OCC28107"
puts "==========="
puts ""
##########################################################################
# Visualization - provide a flexible interface to set custom hatch styles
##########################################################################

pload VISUALIZATION MODELING

box b 1 1 1

vinit View1
vdisplay b -dispMode 1
vfit

vaspects b -setHatch 4
vdump $imagedir/${casename}_hatch.png