5 #######################################################################
6 # A textured shape (AIS_TextureShape) becomes black if we display an AIS_PlaneTrihedron with it
7 #######################################################################
20 checkcolor $x $y 0 0 0
22 puts "display trihedron"
25 puts "display textured box"
26 vtexture box [locate_data_file OCC5988_2d_floor.rgb]
30 if { "[vreadpixel $x $y rgb name]" != "BLACK" } {
31 puts "box is not black - OK"
32 puts "OK ${BugNumber}"
34 puts "box is black - Faulty"
35 puts "Faulty ${BugNumber}"
38 checkview -screenshot -3d -path ${imagedir}/${test_image}.png