tests/bugs/vis/bug28036_1

   1 puts "==========="
   2 puts "OCC28036"
   3 puts "Visualization, AIS_ColoredShape - handle correctly nested compounds within Shaded display mode"
   4 puts "==========="
   5 puts ""
   6
   7 pload MODELING VISUALIZATION
   8 box b1 0 0 0 1 2 3
   9 box b2 0 3 0 2 1 3
  10 box b3 3 0 0 3 2 1
  11 compound b1 b2 c12
  12 compound c12 b3 c
  13
  14 vclear
  15 vinit View1
  16 vaxo
  17 vdisplay -dispMode 1 c
  18 vfit
  19
  20 vaspects c                -setColor BLUE1
  21 vaspects c -subshapes b1  -setColor RED
  22 vaspects c -subshapes c12 -setColor GREEN
  23
  24 if { [vreadpixel 100 100 rgb name] != "RED3"   } { puts "Error: wrong subshape color" }
  25 if { [vreadpixel 200 100 rgb name] != "GREEN3" } { puts "Error: wrong subshape color" }
  26 if { [vreadpixel 200 300 rgb name] != "BLUE3"  } { puts "Error: wrong subshape color" }
  27
  28 vdump $imagedir/${casename}.png