ad3217cd |
1 | puts "========" |
2 | puts "OCC24762 new interactive object AIS_ColoredShape with customized subshapes presentations" |
3 | puts "========" |
4 | |
5 | # draw box in advance which should fit all our markers |
6 | box b 0 0 0 1 2 3 |
7 | box bb 3 0 0 2 3 1 |
8 | |
9 | # prepare view |
10 | vinit View1 |
11 | vclear |
12 | vglinfo |
13 | vsetdispmode 1 |
14 | vaxo |
15 | vdisplay b bb |
16 | vfit |
17 | |
18 | # customize box 1 |
19 | explode b V |
20 | vaspects b -subshapes b_1 -setcolor GREEN |
21 | explode b E |
22 | vaspects b -subshapes b_6 b_12 -setcolor RED -setwidth 6 |
23 | explode b W |
24 | vaspects b -subshapes b_2 -setcolor HOTPINK -setwidth 4 |
25 | explode b F |
26 | vaspects b -subshapes b_3 -setcolor GRAY |
27 | |
28 | # customize box 2 |
29 | explode bb F |
30 | vaspects bb -setcolor GREEN -subshapes bb_6 -setcolor RED |
31 | vsetdispmode bb 0 |
32 | |
33 | # take snapshot |
34 | vdump $imagedir/${casename}.png |
35 | |
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" |
42 | } |
43 | if {"$anEdgeColor" != "RED"} { |
44 | puts "Error: wrong Edge color" |
45 | } |
44c7c33e |
46 | if {"$aFaceColor" != "GRAY62"} { |
ad3217cd |
47 | puts "Error: wrong Face color" |
48 | } |