tests/bugs/vis/bug23539_2

   1 puts "============"
   2 puts "CR23539"
   3 puts "============"
   4 puts ""
   5 #############################
   6 ## Test case for polygonal shift selection
   7 #############################
   8
   9 box a 10 10 10
  10 box b 50 50 50 10 10 10
  11 vinit
  12 vdisplay a b
  13 vfit
  14 vselmode 2 1
  15 vselect 0 0
  16 vselect 60 300
  17 vselect 300 200 300 60 400 60 407 150 1
  18
  19 set NbSelected1 [vnbselected]
  20 if { ${NbSelected1} != 13 } {
  21   puts "Error : Polygonal shift selection doesn't work properly"
  22 }
  23
  24 vselect 350 120 1
  25
  26 set NbSelected1 [vnbselected]
  27 if { ${NbSelected1} != 12 } {
  28   puts "Error : (case 2)"
  29 }
  30
  31 set only_screen 1