You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
380 B
18 lines
380 B
#!/bin/env tclsh
|
|
|
|
load mltpp.so
|
|
mltpp.Factory.init
|
|
set arg1 [lindex $argv 0]
|
|
set p [factory_producer fezzik $arg1]
|
|
set c [factory_consumer sdl ""]
|
|
set r [mlt_consumer_properties $c]
|
|
mlt_properties_set $r "rescale" "none"
|
|
consumer_connect $c $p
|
|
mlt_consumer_start $c
|
|
while { ![mlt_consumer_is_stopped $c] } {
|
|
after 1000
|
|
}
|
|
mlt_consumer_close $c
|
|
mlt_producer_close $p
|
|
factory_close
|