tests/bugs/vis/bug7186

   1 puts "============"
   2 puts "OCC7186"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Selecting an empty space with rectangle doesn't clear
   7 #    the current selection, when there is an opened local context
   8 ######################################################
   9
  10 set BugNumber OCC7186
  11
  12 set mistake 0
  13
  14 box b 10 10 10
  15 vinit
  16 vdisplay b
  17 vfit
  18 vselmode 2 1
  19
  20 vselect 1 1 407 407
  21
  22 set NbSelected1 [vnbselected]
  23 if { ${NbSelected1} != 12 } {
  24    puts "Bad number of selected edges after rectangle selection all edges"
  25    set mistake 1
  26 }
  27
  28 vselect 10 10 20 20
  29
  30 set NbSelected2 [vnbselected]
  31 if { ${NbSelected2} != 0 } {
  32    puts "Error : Bad number of selected edges after rectangle selection an empty space"
  33    set mistake 1
  34
  35 }
  36
  37 set x [list 125 204 283 29 111 298 379 125 204 283 125 283]
  38 set y [list 47  100 47 200 150 150 200 250 300 250 361 361]
  39
  40 vaspects -setwidth 5
  41 puts ""
  42 for {set i 0} {$i < 12} {incr i} {
  43    if { [vreadpixel [lindex ${x} $i] [lindex ${y} $i] rgb name] != "YELLOW" } {
  44        set mistake 1
  45    }
  46 }
  47 puts ""
  48 if { ${mistake} == 1 } {
  49    puts "${BugNumber}: Faulty"
  50 } else {
  51    puts "${BugNumber}: OK"
  52 }
  53
  54 set only_screen 1