Adding test cases from chl grid
[occt.git] / tests / bugs / vis / bug5988
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"
26 catch { vtexture box [locate_data_file OCC5988_2d_floor.rgb] }
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