2 puts "OCC24762 new interactive object AIS_ColoredShape with customized subshapes presentations"
5 # draw box in advance which should fit all our markers
20 vaspects b -subshapes b_1 -setcolor GREEN
22 vaspects b -subshapes b_6 b_12 -setcolor RED -setwidth 6
24 vaspects b -subshapes b_2 -setcolor HOTPINK -setwidth 4
26 vaspects b -subshapes b_3 -setcolor GRAY
30 vaspects bb -setcolor GREEN -subshapes bb_6 -setcolor RED
34 vdump $imagedir/${casename}.png
36 # check colors on box 1
37 set aWireColor [vreadpixel 54 150 rgb name]
38 set anEdgeColor [vreadpixel 100 90 rgb name]
39 set aFaceColor [vreadpixel 30 200 rgb name]
40 if {"$aWireColor" != "HOTPINK"} {
41 puts "Error: wrong Wire color"
43 if {"$anEdgeColor" != "RED"} {
44 puts "Error: wrong Edge color"
46 if {"$aFaceColor" != "GRAY62"} {
47 puts "Error: wrong Face color"