Experimental swig bindings

[melted] / mlt++ / swig / tcl / play.tcl

diff --git a/mlt++/swig/tcl/play.tcl b/mlt++/swig/tcl/play.tcl
new file mode 100755 (executable)
index 0000000..5180b93
--- /dev/null
+++ b/mlt++/swig/tcl/play.tcl
@@ -0,0 +1,17 @@
+#!/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