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

puts "============"
puts "CR26975"
puts "============"
puts ""

##########################################################################################
puts "Visualization, TKOpenGl - handle triangle strips correctly within Ray-Tracing core"
##########################################################################################

pload MODELING VISUALIZATION
vclear
vinit View1
vraytrace 0
vdrawparray s trianglestrips v 0 0 0 n 0 0 1 v 0 2 0 n 0 0 1 v 2 0 0 n 0 0 1 v 2 2 0 n 0 0 1
vfit

vdump $imagedir/${casename}_rt_off.png

vraytrace 1

vdump $imagedir/${casename}_rt_on.png

set color  [vreadpixel 250 250 rgb name]
puts $color
if { $color == "BLACK" } {
    puts "ERROR: CR26975 is reproduced. Triangle strips incorrect within Ray-Tracing core."
}
Commit	Line	Data
ad2a55b2	1	puts "============"
	2	puts "CR26975"
	3	puts "============"
	4	puts ""
	5
	6	##########################################################################################
	7	puts "Visualization, TKOpenGl - handle triangle strips correctly within Ray-Tracing core"
	8	##########################################################################################
	9
	10	pload MODELING VISUALIZATION
	11	vclear
	12	vinit View1
	13	vraytrace 0
	14	vdrawparray s trianglestrips v 0 0 0 n 0 0 1 v 0 2 0 n 0 0 1 v 2 0 0 n 0 0 1 v 2 2 0 n 0 0 1
	15	vfit
	16
	17	vdump $imagedir/${casename}_rt_off.png
	18
	19	vraytrace 1
	20
	21	vdump $imagedir/${casename}_rt_on.png
	22
	23	set color [vreadpixel 250 250 rgb name]
	24	puts $color
	25	if { $color == "BLACK" } {
	26	puts "ERROR: CR26975 is reproduced. Triangle strips incorrect within Ray-Tracing core."
	27	}