tests/bugs/vis/bug26462_1

   1 puts "============"
   2 puts "CR26462"
   3 puts "============"
   4 puts ""
   5
   6 ##########################################################################################
   7 puts "Visualization - selection does not adapt to line width change"
   8 ##########################################################################################
   9
  10 pload VISUALIZATION MODELING
  11
  12 vinit
  13 box b1 10 10 10
  14 box b2 10 10 10
  15
  16 vdisplay b1 b2
  17 vsetlocation b1 10 10 0
  18 vfit
  19
  20 vaspects b1 b2 -setWidth 3
  21
  22 vselmode 2 1
  23 # try to select b1 and b2
  24 vselect 305 322 1
  25 vselect 103 322 1
  26 # check that both boxes were not selected with default tolerance value
  27 set aNbSelected [vnbselected]
  28 if {$aNbSelected != "0"} {
  29   puts "ERROR: no boxes must be selected!"
  30 }
  31
  32 # increase tolerance for b1
  33 vaspects b1 -setSensitivity 2 4
  34
  35 # select edge of b1
  36 vselect 305 322
  37 # check that b1's edge was selected
  38 set aNbSelected [vnbselected]
  39 if {$aNbSelected != "1"} {
  40   puts "ERROR: b1 was not selected"
  41 }
  42 # try to select b2
  43 vselect 103 322 1
  44 # check that increase of tolerance for b1 doesn't influence
  45 # on b2
  46 set aNbSelected [vnbselected]
  47 if {$aNbSelected != "1"} {
  48   puts "ERROR: b2 is selected after b1's tolerance increased"
  49 }
  50
  51 checkview -screenshot -3d -path ${imagedir}/${test_image}.png