1 puts "================"
3 puts "================"
5 puts "==============================================================="
6 puts "Visualization, TKOpenGl - improved video recording capability"
7 puts "==============================================================="
9 set aFile ${imagedir}/propeller.mkv
10 file delete -force ${aFile}
12 # Ray-Tracing doesn't work with Compatible Profile on macOS
15 if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
17 source $env(CSF_OCCTTestsPath)/v3d/anim/propeller
22 vanimation anim -play -record ${aFile} 1920 1080 -vcodec ffv1 -fps 30 -speed 0.5