puts "============"
puts "select"
puts "============"
puts ""
#######################################################
#  Tests selection of shapes in the IVtk view
#######################################################

set anImage $imagedir/${casename}.png
ivtkinit
box b 1 1 1
ivtkdisplay b
ivtkselect 100 100

ivtkdump $anImage