0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug24762_coloredshape
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 }
46 if {"$aFaceColor"  != "GRAY62"} {
47   puts "Error: wrong Face color"
48 }