mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
24 lines
731 B
Plaintext
24 lines
731 B
Plaintext
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
|