tests/bugs/vis/bug23539_2

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