0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / tests / bugs / vis / bug74
1
2 puts "================"
3 puts "OCC74"
4 puts "BUC61051"
5 puts "================"
6 puts ""
7
8 # Data
9 set Shape_X 100
10 set Shape_Y 346
11
12 set Vertex_X 29
13 set Vertex_Y 305
14
15 set Edge_X ${Shape_X}
16 set Edge_Y ${Shape_Y}
17
18 set Wire_X ${Shape_X}
19 set Wire_Y ${Shape_Y}
20
21 set Face_X ${Shape_X}
22 set Face_Y ${Shape_Y}
23
24 set Shell_X ${Shape_X}
25 set Shell_Y ${Shape_Y}
26
27 set Solid_X ${Shape_X}
28 set Solid_Y ${Shape_Y}
29
30 # Display box
31 vinit
32 box b 10 10 10
33 vdisplay b
34 vfit
35 vaspects -setwidth 5
36
37 ### FIRST PART
38
39 # Check Shape color
40 if { [vreadpixel ${Shape_X} ${Shape_Y} rgb name] != "YELLOW" } {
41   puts "Error : shape color is not yellow"
42 }
43
44 # Check Vertex color
45 if { [vreadpixel ${Vertex_X} ${Vertex_Y} rgb name] != "YELLOW" } {
46   puts "Error : vertex color is not yellow"
47 }
48
49 ### SECOND PART
50
51 # Check Shape color
52 vmoveto 1 1
53 set SetSelectMode 0
54 OCC74_set b ${SetSelectMode}
55 set GetSelectMode [OCC74_get b]
56 if { ${GetSelectMode} != ${SetSelectMode} } {
57    puts "Select Mode = ${GetSelectMode}"
58    puts "OCC74: Get Select Mode Error "
59 }
60 vmoveto ${Shape_X} ${Shape_Y}
61
62 if { [vreadpixel  ${Shape_X} ${Shape_Y} rgb name] != "CYAN" } {
63   puts "Error : shape color is not cyan"
64 }
65
66 # Check Vertex color
67 vmoveto 1 1
68 set SetSelectMode 1
69 OCC74_set b ${SetSelectMode}
70 set GetSelectMode [OCC74_get b]
71 if { ${GetSelectMode} != ${SetSelectMode} } then {
72    puts "Select Mode = ${GetSelectMode}"
73    puts "OCC74: Get Select Mode Error "
74 }
75 vmoveto ${Vertex_X} ${Vertex_Y}
76
77 checkcolor ${Vertex_X} ${Vertex_Y} 0 1 1
78
79 # Check Edge color
80 vmoveto 1 1
81 set SetSelectMode 2
82 OCC74_set b ${SetSelectMode}
83 set GetSelectMode [OCC74_get b]
84 if { ${GetSelectMode} != ${SetSelectMode} } then {
85    puts "Select Mode = ${GetSelectMode}"
86    puts "OCC74: Get Select Mode Error "
87 }
88 vmoveto ${Edge_X} ${Edge_Y}
89
90 checkcolor ${Edge_X} ${Edge_Y} 0 1 1
91
92 # Check Wire color
93 vmoveto 1 1
94 set SetSelectMode 3
95 OCC74_set b ${SetSelectMode}
96 set GetSelectMode [OCC74_get b]
97 if { ${GetSelectMode} != ${SetSelectMode} } then {
98    puts "Select Mode = ${GetSelectMode}"
99    puts "OCC74: Get Select Mode Error "
100 }
101 vmoveto ${Wire_X} ${Wire_Y}
102
103 checkcolor ${Wire_X} ${Wire_Y} 0 1 1
104
105 # Check Face color
106 vmoveto 1 1
107 set SetSelectMode 4
108 OCC74_set b ${SetSelectMode}
109 set GetSelectMode [OCC74_get b]
110 if { ${GetSelectMode} != ${SetSelectMode} } then {
111    puts "Select Mode = ${GetSelectMode}"
112    puts "OCC74: Get Select Mode Error "
113 }
114 vmoveto ${Face_X} ${Face_Y}
115
116 checkcolor ${Face_X} ${Face_Y} 0 1 1
117
118 # Check Shell color
119 vmoveto 1 1
120 set SetSelectMode 5
121 OCC74_set b ${SetSelectMode}
122 set GetSelectMode [OCC74_get b]
123 if { ${GetSelectMode} != ${SetSelectMode} } then {
124    puts "Select Mode = ${GetSelectMode}"
125    puts "OCC74: Get Select Mode Error "
126 }
127 vmoveto ${Shell_X} ${Shell_Y}
128
129 checkcolor ${Shell_X} ${Shell_Y} 0 1 1
130
131 # Check Solid color
132 vmoveto 1 1
133 set SetSelectMode 6
134 OCC74_set b ${SetSelectMode}
135 set GetSelectMode [OCC74_get b]
136 if { ${GetSelectMode} != ${SetSelectMode} } then {
137    puts "Select Mode = ${GetSelectMode}"
138    puts "OCC74: Get Select Mode Error "
139 }
140 vmoveto ${Solid_X} ${Solid_Y}
141
142 checkcolor ${Solid_X} ${Solid_Y} 0 1 1
143
144 ### THIRD PART
145
146 set SetSelectMode -1
147 OCC74_set b ${SetSelectMode}
148 set GetSelectMode [OCC74_get b]
149 if { ${GetSelectMode} != ${SetSelectMode} } then {
150    puts "Select Mode = ${GetSelectMode}"
151    puts "OCC74: Get Select Mode Error "
152 }
153
154 # Check Shape color
155 vmoveto 1 1
156 if { [vreadpixel ${Shape_X} ${Shape_Y} rgb name] != "YELLOW" } {
157   puts "Error : shape color is not yellow"
158 }
159
160 # Check Vertex color
161 vmoveto 1 1
162 if { [vreadpixel ${Vertex_X} ${Vertex_Y} rgb name] != "YELLOW" } {
163   puts "Error : vertex color is not yellow"
164 }
165
166 checkview -screenshot -3d -path ${imagedir}/${test_image}.png