X-Git-Url: http://research.m1stereo.tv/gitweb?a=blobdiff_plain;f=mlt%2B%2B%2Fswig%2Ftcl%2Fplay.tcl;fp=mlt%2B%2B%2Fswig%2Ftcl%2Fplay.tcl;h=5180b93f9b4204c4d96e48f960a50e1595014174;hb=ccdf1f8b1a0a81a30058240818e0e6e221c84bb6;hp=0000000000000000000000000000000000000000;hpb=b61d43804b15c0ddf8a3579cdcd2146105d9be26;p=melted

diff --git a/mlt++/swig/tcl/play.tcl b/mlt++/swig/tcl/play.tcl
new file mode 100755
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