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
  41 puts ""
  42 for {set i 0} {$i < 12} {incr i} {
  43    set x_coord [lindex ${x} $i]
  44    set y_coord [lindex ${y} $i]
  45    checkcolor $x_coord $y_coord 1 1 0
  46    if { ${stat} != 1 } {
  47        set mistake 1
  48    }
  49 }
  50
  51 puts ""
  52 if { ${mistake} == 1 } {
  53    puts "${BugNumber}: Faulty"
  54 } else {
  55    puts "${BugNumber}: OK"
  56 }
  57
  58 set only_screen 1