tests/bugs/vis/bug23649_2

   1 puts "============"
   2 puts "CR23649"
   3 puts "============"
   4 puts ""
   5
   6 #######################################################################
   7 # 0023649: Different behaviour of highlighting after shift selection
   8 # It tests highlighting of selected sub-shapes.
   9 # This mode is option of interactive context.
  10 #######################################################################
  11
  12 set anImage1 $imagedir/${casename}_HighlightFirst.png
  13 set anImage2 $imagedir/${casename}_HighlightSecond.png
  14
  15 box b 1 2 3
  16 vinit
  17 vdisplay b
  18 vfit
  19 vselmode b 2 1
  20 #select the first edge
  21 vselect 232 368
  22 #select the second edge
  23 vselect 165 278 1
  24 vmoveto 0 0
  25
  26 #enable 'highlight selected' mode
  27 vhighlightselected on
  28
  29 #highlight the first edge - it should be highlightable by default
  30 vmoveto 232 368
  31 vdump ${anImage1}
  32
  33 #highlight the second edge - it should be highlightable by default
  34 vmoveto 165 278
  35 vdump ${anImage2}