git.sesse.net Git - mlt/blob - src/swig/tcl/play.tcl

   1 #!/usr/bin/env tclsh
   2
   3 load mlt.so
   4 mlt.Factory.init null
   5 set profile [Profile]
   6 set arg1 [lindex $argv 0]
   7 set p [factory_producer $profile loader $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