-puts "TODO ?OCC24130 Windows: TKOpenGl | Type\: Error | ID\: 0 | Severity\: High | Message\:"
-
puts "========"
puts "Ray Tracing - check rendering of multi-connected structures"
puts "========"
# draw box
vinit View1
vclear
+vrenderparams -rasterization
vsetdispmode 1
-vraytrace 0
vaxo
vconnectsh b1c -3 0 0 1 0 0 0 0 1 b1 b2
vfit
vrotate 0.2 0.0 0.0
+vfit
vclear
vconnectsh b1c -3 0 0 1 0 0 0 0 1 b1 b2
vdump $::imagedir/${::casename}_OFF.png
# turn on ray tracing
-vraytrace 1
-vclinfo
+vrenderparams -raytrace
vdump $::imagedir/${::casename}_rt1.png
vclear