puts "============"
puts "CR26147: Visualization - restore the ability to pick only fully included objects in rectangular selection"
puts "============"
puts ""

pload VISUALIZATION MODELING

box b1 0 0 0 1 1 1
box b2 2 2 2 1 1 1
box b3 4 4 4 1 1 1

vinit View1
vdisplay b1 b2 b3
vfit

vselmode b1 1 1
vselmode b1 2 1
vselmode b2 1 1
vselmode b2 2 1

vselect 75 230 235 320 -allowoverlap 0
set aNbSelected1 [vnbselected]
if {$aNbSelected1 != 4} {
  puts "ERROR: Wrong number of entities in vertice-edge selection without overlap allowed!"
}

vselect 75 230 235 320 -allowoverlap 1
vnbselected
set aNbSelected2 [vnbselected]
if {$aNbSelected2 != 11} {
  puts "ERROR: Wrong number of entities in vertice-edge selection with overlap allowed!"
}

vselect 0 0

vselmode b3 4 1

vselect 75 230 235 320 -allowoverlap 0 -xor
vselect 350 150 380 170 -xor
vnbselected
set aNbSelected3 [vnbselected]
if {$aNbSelected3 != 4} {
  puts "ERROR: Wrong number of entities in vertice-edge-face shift selection without overlap allowed!"
}

vselect 0 0

vselect  75 230 235 320 -allowoverlap 1 -xor
vselect 350 150 380 170 -allowOverlap 1 -xor
vnbselected
set aNbSelected4 [vnbselected]
if {$aNbSelected4 != 13} {
  puts "ERROR: Wrong number of entities in vertice-edge-face shift selection with overlap allowed!"
}

vdump $imagedir/${casename}.png
