

puts "============"
puts "CR23539"
puts "============"
puts ""
#############################
## Test case for polygonal shift selection
#############################

box a 10 10 10
box b 50 50 50 10 10 10
vinit
vdisplay a b
vfit
vselmode 2 1
vselect 0 0
vselect 58 300
vselect 300 200 300 60 400 60 407 150 1

set NbSelected1 [vnbselected]
if { ${NbSelected1} != 13 } {
  puts "Error : Polygonal shift selection doesn't work properly"
}

vselect 350 120 1

set NbSelected1 [vnbselected]
if { ${NbSelected1} != 12 } {
  puts "Error : (case 2)"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
