3 puts "Visualization, AIS_ColoredShape - handle correctly nested compounds within Shaded display mode"
7 pload MODELING VISUALIZATION
10 box b1 0 0 0 100 200 1
11 box b2 150 0 0 100 50 1
12 box b3 150 50 0 100 150 1
14 for {set i 1} {$i <= 3} {incr i} { tcopy b${i} b1_${i}; ttranslate b1_${i} 0 -300 0 }
15 for {set i 1} {$i <= 3} {incr i} { tcopy b${i} b2_${i}; ttranslate b2_${i} 0 0 0 }
16 for {set i 1} {$i <= 3} {incr i} { tcopy b${i} b3_${i}; ttranslate b3_${i} 0 300 0 }
18 # make a reference scene with per-object colors
24 vdisplay b1_1 b1_2 b1_3
29 vdisplay b2_1 b2_2 b2_3
34 vdisplay b3_1 b3_2 b3_3
39 vdump $imagedir/${casename}_ref.png
41 # make a scene with sub-colors and nested compounds
42 for {set j 1} {$j <= 3} {incr j} { compound b${j}_2 b${j}_3 b${j}_23 }
43 for {set j 1} {$j <= 3} {incr j} { compound b${j}_1 b${j}_23 b${j}_123 }
44 compound b1_123 b2_123 b3_123 b123_123
49 compound b1_23 b2_23 b3_23 b123_23
50 vaspects b123_123 -subshapes b123_23 -setColor GREEN
52 vaspects b123_123 -subshapes b1_123 -setColor RED
53 vaspects b123_123 -subshapes b2_123 -setColor RED
54 vaspects b123_123 -subshapes b3_123 -setColor RED
56 compound b2_3 b3_3 b23_3
57 vaspects b123_123 -subshapes b1_3 -setColor BLUE1
58 vaspects b123_123 -subshapes b23_3 -setColor BLUE1
60 if { [vreadpixel 50 250 rgb name] != "RED3" } { puts "Error: wrong color" }
61 if { [vreadpixel 175 175 rgb name] != "RED3" } { puts "Error: wrong color" }
62 if { [vreadpixel 300 100 rgb name] != "RED3" } { puts "Error: wrong color" }
64 if { [vreadpixel 100 310 rgb name] != "GREEN3"} { puts "Error: wrong color" }
65 if { [vreadpixel 200 230 rgb name] != "GREEN3"} { puts "Error: wrong color" }
66 if { [vreadpixel 320 170 rgb name] != "GREEN3"} { puts "Error: wrong color" }
68 if { [vreadpixel 130 280 rgb name] != "BLUE3" } { puts "Error: wrong color" }
69 if { [vreadpixel 250 200 rgb name] != "BLUE3" } { puts "Error: wrong color" }
70 if { [vreadpixel 350 150 rgb name] != "BLUE3" } { puts "Error: wrong color" }
72 vdump $imagedir/${casename}.png