3bea4c16 |
1 | puts "============" |
2 | puts "OCC23385" |
3 | puts "============" |
4 | puts "" |
5 | #################################################################################### |
6 | # Bug in AIS_TexturedShape::Compute() |
7 | #################################################################################### |
8 | |
9 | set BugNumber OCC23385 |
10 | |
11 | vinit |
12 | restore [locate_data_file OCC23115-bottle.brep] b |
13 | explode b F |
14 | vdisplay b_16 |
15 | vtexture b_16 [locate_data_file OCC23385-carrelage1.gif] |
16 | vtexrepeat b_16 3 2 |
17 | vsetdispmode b_16 1 |
18 | vfit |
19 | |
20 | set color [QAGetPixelColor 85 73] |
21 | regexp {RED +: +([-0-9.+eE]+)} $color full R_check |
22 | regexp {GREEN +: +([-0-9.+eE]+)} $color full G_check |
23 | regexp {BLUE +: +([-0-9.+eE]+)} $color full B_check |
24 | set color_status 0 |
25 | if { ${R_check} != 0 || ${G_check} != 0 || ${B_check} != 0 } { |
26 | set color_status 0 |
27 | } else { |
28 | set color_status 1 |
29 | } |
30 | |
31 | puts "" |
32 | if { ${color_status} != 0 } { |
33 | puts "Faulty ${BugNumber}" |
34 | } else { |
35 | puts "OK ${BugNumber}" |
36 | } |
37 | |
38 | set only_screen 1 |
39 | |
40 | |
41 | |
42 | |