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 | } |