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 |
ccadc126 |
30 | if { "[vreadpixel $x $y rgb name]" != "BLACK" } { |
3bea4c16 |
31 | puts "box is not black - OK" |
32 | puts "OK ${BugNumber}" |
33 | } else { |
34 | puts "box is black - Faulty" |
35 | puts "Faulty ${BugNumber}" |
36 | } |
3bea4c16 |
37 | |
5747059b |
38 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |
3bea4c16 |
39 | |