6 ##########################################################################################
7 puts "Visualization, TKOpenGl - handle triangle strips correctly within Ray-Tracing core"
8 ##########################################################################################
10 pload MODELING VISUALIZATION
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
17 vdump $imagedir/${casename}_rt_off.png
21 vdump $imagedir/${casename}_rt_on.png
23 set color [vreadpixel 250 250 rgb name]
25 if { $color == "BLACK" } {
26 puts "ERROR: CR26975 is reproduced. Triangle strips incorrect within Ray-Tracing core."