Merge ../mlt
[melted] / mlt++ / swig / tcl / play.tcl
1 #!/usr/bin/env tclsh
2
3 load mltpp.so
4 mltpp.Factory.init
5 set profile [Profile]
6 set arg1 [lindex $argv 0]
7 set p [factory_producer $profile fezzik $arg1]
8 set c [factory_consumer $profile sdl ""]
9 set r [mlt_consumer_properties $c]
10 mlt_properties_set $r "rescale" "none"
11 consumer_connect $c $p
12 mlt_consumer_start $c
13 while { ![mlt_consumer_is_stopped $c] } {
14 after 1000
15 }
16 mlt_consumer_close $c
17 mlt_producer_close $p
18 factory_close