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

   1 #!/usr/bin/env tclsh
   2
   3 load mlt.so
   4 Factory_init
   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 Properties_set $c "rescale" "none"
  10 Consumer_connect $c $p
  11 Consumer_start $c
  12 while { ![Consumer_is_stopped $c] } {
  13         after 1000
  14 }
  15 delete_Consumer $c
  16 delete_Producer $p
  17 Factory_close