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

diff --git a/mlt++/swig/tcl/play.tcl b/mlt++/swig/tcl/play.tcl
index 5180b93..2b182c7 100755
--- a/mlt++/swig/tcl/play.tcl
+++ b/mlt++/swig/tcl/play.tcl
@@ -1,10 +1,11 @@
-#!/bin/env tclsh
+#!/usr/bin/env tclsh
 
 load mltpp.so
 mltpp.Factory.init
+set profile [Profile]
 set arg1 [lindex $argv 0]
-set p [factory_producer fezzik $arg1]
-set c [factory_consumer sdl ""]
+set p [factory_producer $profile fezzik $arg1]
+set c [factory_consumer $profile sdl ""]
 set r [mlt_consumer_properties $c]
 mlt_properties_set $r "rescale" "none"
 consumer_connect $c $p