research.m1stereo.tv/gitweb/ - melted/blob - mlt++/swig/tcl/play.tcl

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