mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-14 13:30:48 +03:00
20 lines
586 B
Plaintext
20 lines
586 B
Plaintext
puts "============"
|
|
puts "CR26975: Visualization, TKOpenGl - handle triangle strips correctly within Ray-Tracing core"
|
|
puts "============"
|
|
puts ""
|
|
|
|
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." }
|