3 # Import required modules
6 # Not sure why the mltpp::Factory.init method fails...
7 mltpp
::mlt_factory_init( undef
);
10 $p = new mltpp
::Producer( $ARGV[0] );
12 if ( $p->is_valid( ) )
15 $p->set( "eof", "loop" );
18 $c = new mltpp
::FilteredConsumer( "sdl" );
19 $c->attach( new mltpp
::Filter( "greyscale" ) );
21 # Turn of the default rescaling
22 $c->set( "rescale", "none" );
24 # Connect the producer to the consumer
30 # Wait until the user stops the consumer
31 while ( !$c->is_stopped
) {
41 print "Unable to open $ARGV[0]\n";
44 mltpp
::mlt_factory_close( );