puts "================"
puts "OCC25382"
puts "================"
puts ""
puts "==============================================================="
puts "Visualization, TKOpenGl - improved video recording capability"
puts "==============================================================="

set aFile ${imagedir}/propeller.mkv
file delete -force ${aFile}

# Ray-Tracing doesn't work with Compatible Profile on macOS
pload VISUALIZATION
pload OPENGL
if { $::tcl_platform(os) == "Darwin" } { vcaps -core }

set test_dir [file dirname [info script]]
source [file join $test_dir "propeller"]
vraytrace 1
vrenderparams -msaa 8
vrenderparams -fsaa 1
XProgress +g
vanimation anim -play -record ${aFile} 1920 1080 -vcodec ffv1 -fps 30 -speed 0.5