6 ##########################################################################################
7 puts "Visualization - restore the ability to pick only fully included objects in rectangular selection"
8 ##########################################################################################
10 pload VISUALIZATION MODELING
25 vselect 75 230 235 320 -allowoverlap 0
26 set aNbSelected1 [vnbselected]
27 if {$aNbSelected1 != 4} {
28 puts "ERROR: Wrong number of entities in vertice-edge selection without overlap allowed!"
31 vselect 75 230 235 320 -allowoverlap 1
33 set aNbSelected2 [vnbselected]
34 if {$aNbSelected2 != 11} {
35 puts "ERROR: Wrong number of entities in vertice-edge selection with overlap allowed!"
42 vselect 75 230 235 320 -allowoverlap 0 1
43 vselect 350 150 380 170 1
45 set aNbSelected3 [vnbselected]
46 if {$aNbSelected3 != 4} {
47 puts "ERROR: Wrong number of entities in vertice-edge-face shift selection without overlap allowed!"
52 vselect 75 230 235 320 -allowoverlap 1 1
53 vselect 350 150 380 170 -allowOverlap 1 1
55 set aNbSelected4 [vnbselected]
56 if {$aNbSelected4 != 13} {
57 puts "ERROR: Wrong number of entities in vertice-edge-face shift selection with overlap allowed!"
60 vdump $imagedir/${casename}.png