2b182c785ddfcd634ed9026d820eec1b66d2d6bd
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
13 while { ![mlt_consumer_is_stopped
$c] } {