puts "========" puts "OCC24762 new interactive object AIS_ColoredShape with customized subshapes presentations" puts "========" # draw box in advance which should fit all our markers box b 0 0 0 1 2 3 box bb 3 0 0 2 3 1 # prepare view vinit View1 vclear vglinfo vsetdispmode 1 vaxo vdisplay b bb vfit # customize box 1 explode b V vaspects b -subshapes b_1 -setcolor GREEN explode b E vaspects b -subshapes b_6 b_12 -setcolor RED -setwidth 6 explode b W vaspects b -subshapes b_2 -setcolor HOTPINK -setwidth 4 explode b F vaspects b -subshapes b_3 -setcolor GRAY # customize box 2 explode bb F vaspects bb -setcolor GREEN -subshapes bb_6 -setcolor RED vsetdispmode bb 0 # take snapshot vdump $imagedir/${casename}.png # check colors on box 1 set aWireColor [vreadpixel 54 150 rgb name] set anEdgeColor [vreadpixel 100 90 rgb name] set aFaceColor [vreadpixel 30 200 rgb name] if {"$aWireColor" != "HOTPINK"} { puts "Error: wrong Wire color" } if {"$anEdgeColor" != "RED"} { puts "Error: wrong Edge color" } if {"$aFaceColor" != "GRAY62"} { puts "Error: wrong Face color" }