3 # Import required modules
6 # Not sure why the mltpp::Factory.init method fails...
7 mltpp
::mlt_factory_init( undef
);
9 # Establish the MLT profile
10 $profile = new mltpp
::Profile( undef
);
13 $p = new mltpp
::Producer( $profile, $ARGV[0] );
15 if ( $p->is_valid( ) )
18 $p->set( "eof", "loop" );
21 $c = new mltpp
::FilteredConsumer( $profile, "sdl" );
23 # Turn of the default rescaling
24 $c->set( "rescale", "none" );
26 # Connect the producer to the consumer
29 $e = $c->setup_wait_for( "consumer-stopped" );
34 # Wait until the user stops the consumer
43 print "Unable to open $ARGV[0]\n";
46 mltpp
::mlt_factory_close( );