tests/bugs/vis/bug27797

   1 puts "========"
   2 puts "Consider ZLayer properties while sorting list of picked entities"
   3 puts "========"
   4
   5 pload MODELING VISUALIZATION
   6
   7 box b1 0 0 0 2 3 4
   8 box b2 0 0 0 1 1 2
   9 vertex v 100 -300 0
  10
  11 vclear
  12 vinit View1
  13 catch { vzlayer del 1 }
  14 set aLayerId [vzlayer add]
  15 vzlayer ${aLayerId} -enable depthClear
  16 vaxo
  17 vdisplay -noupdate -dispMode 1 -highMode 1 b1
  18 vdisplay -noupdate -dispMode 1 -highMode 1 -layer ${aLayerId} b2
  19 vsetcolor -noupdate b1 RED
  20 vsetcolor -noupdate b2 GREEN
  21 vfit
  22 vrotate 0.1 0 0
  23 vmoveto 100 300
  24 vstate
  25 vselect 100 300
  26 vmoveto 0 0
  27
  28 set aSelColor [vreadpixel 100 300 rgb name]
  29 if { $aSelColor != "GRAY76"} { puts "Error: wrong object has been selected" }
  30
  31 vdisplay -dispMode 0 -osd -2d -trsfPersPos -1 1 v
  32
  33 vdump $imagedir/${casename}.png