tests/bugs/vis/bug23649_4

   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 shapes (neutral point).
   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 a 2 0 0 3 2 1
  16 box b 1 2 3
  17 vinit
  18 vdisplay a b
  19 vfit
  20 #select the first shape
  21 vselect 70 230
  22 #select the second shape
  23 vselect 200 358 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 70 230
  31 vdump ${anImage1}
  32
  33 #highlight the second edge - it should be highlightable by default
  34 vmoveto 200 358
  35 vdump ${anImage2}