tests/bugs/vis/bug26147

   1 puts "============"
   2 puts "CR26147"
   3 puts "============"
   4 puts ""
   5
   6 ##########################################################################################
   7 puts "Visualization - restore the ability to pick only fully included objects in rectangular selection"
   8 ##########################################################################################
   9
  10 pload VISUALIZATION MODELING
  11
  12 box b1 0 0 0 1 1 1
  13 box b2 2 2 2 1 1 1
  14 box b3 4 4 4 1 1 1
  15
  16 vinit View1
  17 vdisplay b1 b2 b3
  18 vfit
  19
  20 vselmode b1 1 1
  21 vselmode b1 2 1
  22 vselmode b2 1 1
  23 vselmode b2 2 1
  24
  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!"
  29 }
  30
  31 vselect 75 230 235 320 -allowoverlap 1
  32 vnbselected
  33 set aNbSelected2 [vnbselected]
  34 if {$aNbSelected2 != 11} {
  35   puts "ERROR: Wrong number of entities in vertice-edge selection with overlap allowed!"
  36 }
  37
  38 vselect 0 0
  39
  40 vselmode b3 4 1
  41
  42 vselect 75 230 235 320 -allowoverlap 0 1
  43 vselect 350 150 380 170 1
  44 vnbselected
  45 set aNbSelected3 [vnbselected]
  46 if {$aNbSelected3 != 4} {
  47   puts "ERROR: Wrong number of entities in vertice-edge-face shift selection without overlap allowed!"
  48 }
  49
  50 vselect 0 0
  51
  52 vselect 75 230 235 320 -allowoverlap 1 1
  53 vselect 350 150 380 170 1
  54 vnbselected
  55 set aNbSelected4 [vnbselected]
  56 if {$aNbSelected4 != 13} {
  57   puts "ERROR: Wrong number of entities in vertice-edge-face shift selection with overlap allowed!"
  58 }
  59
  60 vdump $imagedir/${casename}.png