[occt.git] / tests / bugs / vis / bug5988

puts "============"
puts "OCC5988"
puts "============"
puts ""
#######################################################################
# A textured shape (AIS_TextureShape) becomes black if we display an AIS_PlaneTrihedron with it
#######################################################################

set BugNumber OCC5988

vinit
vclear
box box 100 100 100
vdisplay box
vfit
puts "display box"

set x 200
set y 200
checkcolor $x $y 0 0 0

puts "display trihedron"
vtrihedron vtr

puts "display textured box"
vtexture box [locate_data_file OCC5988_2d_floor.rgb]

set x 200
set y 200
decho off
if [catch { QAGetPixelColor $x $y 0 0 0 } res] {
    puts "box is not black - OK"
    puts "OK ${BugNumber}"
} else {
    puts "box is black - Faulty"
    puts "Faulty ${BugNumber}"
}
decho on

set only_screen 1
Commit	Line	Data
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