tests/bugs/vis/bug31440

   1 puts "============"
   2 puts "0031440: Visualization - Impossible to make common behaviour for multi-selection in viewer"
   3 puts "============"
   4 puts ""
   5
   6 vinit View1
   7 vpoint radP1 0 0 0
   8 vpoint radP2 50 50 0
   9 vpoint radP3 100 0 0
  10 vcircle circle radP1 radP2 radP3 1
  11 vfit
  12
  13 vselect 50 300 150 300 150 100 50 100
  14 if {[vreadpixel 120 200 rgb name] != "DARKGOLDENROD"} { puts "ERROR: the circle is selected with no overlap mode activated" }
  15 vselect 0 0
  16
  17 vselect 50 300 360 300 360 100 50 100
  18 if {[vreadpixel 120 200 rgb name] != "GRAY73"} { puts "ERROR: the circle is not selected" }
  19 vselect 0 0
  20 vclear
  21
  22 box b 0 0 0 1 1 1
  23 vdisplay b
  24 vfit
  25 vselmode b 2 1
  26 vviewparams -scale 500
  27
  28 vdrawparray line polylines v 10 9 0 v 400 9 0 v 400 209 0 v 200 109 0 v 10 209 0 v 10 9 0
  29 vdisplay line -2d
  30 vsetcolor line red
  31
  32 vselect 10 400 400 400 400 200 200 300 10 200
  33
  34 vdump ${imagedir}/${casename}.png