3 puts "Visualization, AIS_ColoredShape - handle correctly nested compounds within Shaded display mode"
7 pload MODELING VISUALIZATION
17 vdisplay -dispMode 1 c
20 vaspects c -setColor BLUE1
21 vaspects c -subshapes b1 -setColor RED
22 vaspects c -subshapes c12 -setColor GREEN
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" }
28 vdump $imagedir/${casename}.png