3bea4c16 |
1 | puts "============" |
2 | puts "OCC5988" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # A textured shape (AIS_TextureShape) becomes black if we display an AIS_PlaneTrihedron with it |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC5988 |
10 | |
11 | vinit |
12 | vclear |
13 | box box 100 100 100 |
14 | vdisplay box |
15 | vfit |
16 | puts "display box" |
17 | |
18 | set x 200 |
19 | set y 200 |
20 | checkcolor $x $y 0 0 0 |
21 | |
22 | puts "display trihedron" |
23 | vtrihedron vtr |
24 | |
25 | puts "display textured box" |
5d1833ef |
26 | vtexture box [locate_data_file OCC5988_2d_floor.rgb] |
3bea4c16 |
27 | |
28 | set x 200 |
29 | set y 200 |
30 | decho off |
31 | if [catch { QAGetPixelColor $x $y 0 0 0 } res] { |
32 | puts "box is not black - OK" |
33 | puts "OK ${BugNumber}" |
34 | } else { |
35 | puts "box is black - Faulty" |
36 | puts "Faulty ${BugNumber}" |
37 | } |
38 | decho on |
39 | |
40 | set only_screen 1 |
41 | |