miracle part 1
[melted] / src / modules / gtk2 / producer_pixbuf.c
index 1ba370f..f1f1f45 100644 (file)
 
 #include "producer_pixbuf.h"
 #include <framework/mlt_frame.h>
+#include <gdk-pixbuf/gdk-pixbuf.h>
+
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
-#include <gdk-pixbuf/gdk-pixbuf.h>
+#include <math.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <unistd.h>
+#include <dirent.h>
 
 static int producer_get_frame( mlt_producer parent, mlt_frame_ptr frame, int index );
 static void producer_close( mlt_producer parent );
 
-mlt_producer producer_pixbuf_init( const char *filename )
+typedef enum
+{
+       SIGNAL_FORMAT_PAL,
+       SIGNAL_FORMAT_NTSC
+} mlt_signal_format;
+
+static int filter_files( const struct dirent *de )
+{
+       if ( de->d_name[ 0 ] != '.' )
+               return 1;
+       else
+               return 0;
+}
+
+
+mlt_producer producer_pixbuf_init( char *filename )
 {
        producer_pixbuf this = calloc( sizeof( struct producer_pixbuf_s ), 1 );
-       if ( this != NULL && mlt_producer_init( &this->parent, this ) == 0 )
+       if ( filename != NULL && this != NULL && mlt_producer_init( &this->parent, this ) == 0 )
        {
                mlt_producer producer = &this->parent;
 
                producer->get_frame = producer_get_frame;
                producer->close = producer_close;
 
-               this->filename = strdup( filename );
-               this->counter = -1;
-               this->is_pal = 1;
+               // Get the properties interface
+               mlt_properties properties = mlt_producer_properties( &this->parent );
+       
+               // Set the default properties
+               mlt_properties_set( properties, "resource", filename );
+               mlt_properties_set_int( properties, "video_standard", mlt_video_standard_pal );
+               mlt_properties_set_double( properties, "ttl", 5 );
+               
+               // Obtain filenames
+               if ( strchr( filename, '%' ) != NULL )
+               {
+                       // handle picture sequences
+                       int i = 0;
+                       int gap = 0;
+                       char full[1024];
+
+                       while ( gap < 100 )
+                       {
+                               struct stat buf;
+                               snprintf( full, 1023, filename, i ++ );
+                               if ( stat( full, &buf ) == 0 )
+                               {
+                                       this->filenames = realloc( this->filenames, sizeof( char * ) * ( this->count + 1 ) );
+                                       this->filenames[ this->count ++ ] = strdup( full );
+                                       gap = 0;
+                               }
+                               else
+                               {
+                                       gap ++;
+                               }
+                       } 
+                       mlt_properties_set_timecode( properties, "out", this->count );
+               }
+               else if ( strstr( filename, "/.all." ) != NULL )
+               {
+                       char *dir_name = strdup( filename );
+                       char *extension = strrchr( filename, '.' );
+                       *( strstr( dir_name, "/.all." ) + 1 ) = '\0';
+                       char fullname[ 1024 ];
+                       strcpy( fullname, dir_name );
+                       struct dirent **de = NULL;
+                       int n = scandir( fullname, &de, filter_files, alphasort );
+                       int i;
+                       struct stat info;
+
+                       for (i = 0; i < n; i++ )
+                       {
+                               snprintf( fullname, 1023, "%s%s", dir_name, de[i]->d_name );
+
+                               if ( lstat( fullname, &info ) == 0 && 
+                                       ( S_ISREG( info.st_mode ) || ( strstr( fullname, extension ) && info.st_mode | S_IXUSR ) ) )
+                               {
+                                       this->filenames = realloc( this->filenames, sizeof( char * ) * ( this->count + 1 ) );
+                                       this->filenames[ this->count ++ ] = strdup( fullname );
+                               }
+                               free( de[ i ] );
+                       }
+
+                       mlt_properties_set_timecode( properties, "out", this->count );
+                       free( de );
+                       free( dir_name );
+               }
+               else
+               {
+                       this->filenames = realloc( this->filenames, sizeof( char * ) * ( this->count + 1 ) );
+                       this->filenames[ this->count ++ ] = strdup( filename );
+                       mlt_properties_set_timecode( properties, "out", 1 );
+               }
+
+               // Initialise gobject types
                g_type_init();
 
                return producer;
@@ -65,8 +153,12 @@ static int producer_get_image( mlt_frame this, uint8_t **buffer, mlt_image_forma
        *height = mlt_properties_get_int( properties, "height" );
 
        // Clone if necessary
-       if ( writable )
+       // NB: Cloning is necessary with this producer (due to processing of images ahead of use)
+       // The fault is not in the design of mlt, but in the implementation of pixbuf...
+       //if ( writable )
        {
+               size = *width * *height * 2;
+
                // Clone our image
                uint8_t *copy = malloc( size );
                memcpy( copy, image, size );
@@ -105,8 +197,17 @@ static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int i
        // Obtain properties of frame
        mlt_properties properties = mlt_frame_properties( *frame );
 
+       // Get the time to live for each frame
+       double ttl = mlt_properties_get_double( mlt_producer_properties( producer ), "ttl" );
+
+       // Image index
+       int image_idx = ( int )floor( mlt_producer_position( producer ) / ttl ) % this->count;
+
+       // Update timecode on the frame we're creating
+       mlt_frame_set_timecode( *frame, mlt_producer_position( producer ) );
+
     // optimization for subsequent iterations on single picture
-       if ( this->image != NULL )
+       if ( this->image != NULL && image_idx == this->image_idx )
        {
                // Set width/height
                mlt_properties_set_int( properties, "width", this->width );
@@ -121,33 +222,20 @@ static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int i
 
                // Stack the get image callback
                mlt_frame_push_get_image( *frame, producer_get_image );
-
        }
-       else if ( strchr( this->filename, '%' ) != NULL )
+       else 
        {
-               // handle picture sequences
-               char filename[1024];
-               filename[1023] = 0;
-               int current = this->counter;
-               do
-               {
-                       ++this->counter;
-                       snprintf( filename, 1023, this->filename, this->counter );
-                       pixbuf = gdk_pixbuf_new_from_file( filename, &error );
-                       // allow discontinuity in frame numbers up to 99
-                       error = NULL;
-               } while ( pixbuf == NULL && ( this->counter - current ) < 100 );
-       }
-       else
-       {
-               pixbuf = gdk_pixbuf_new_from_file( this->filename, &error );
+               free( this->image );
+               free( this->alpha );
+               this->image_idx = image_idx;
+               pixbuf = gdk_pixbuf_new_from_file( this->filenames[ image_idx ], &error );
        }
 
        // If we have a pixbuf
        if ( pixbuf )
        {
                // Scale to adjust for sample aspect ratio
-               if ( this->is_pal )
+               if ( mlt_properties_get_int( properties, "video_standard" ) == mlt_video_standard_pal )
                {
                        GdkPixbuf *temp = pixbuf;
                        GdkPixbuf *scaled = gdk_pixbuf_scale_simple( pixbuf,
@@ -169,6 +257,8 @@ static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int i
                // Store width and height
                this->width = gdk_pixbuf_get_width( pixbuf );
                this->height = gdk_pixbuf_get_height( pixbuf );
+               this->width -= this->width % 4;
+               this->height -= this->height % 2;
 
                // Allocate/define image and alpha
                uint8_t *image = malloc( this->width * this->height * 2 );
@@ -203,22 +293,12 @@ static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int i
                mlt_properties_set_int( properties, "height", this->height );
 
                // Pass alpha and image on properties with or without destructor
-               if ( this->counter >= 0 )
-               {
-                       // if picture sequence pass the image and alpha data with destructor
-                       mlt_properties_set_data( properties, "image", image, 0, free, NULL );
-                       mlt_properties_set_data( properties, "alpha", alpha, 0, free, NULL );
-               }
-               else
-               {
-                       // if single picture, reference the image and alpha in the producer
-                       this->image = image;
-                       this->alpha = alpha;
+               this->image = image;
+               this->alpha = alpha;
 
-                       // pass the image and alpha data without destructor
-                       mlt_properties_set_data( properties, "image", image, 0, NULL, NULL );
-                       mlt_properties_set_data( properties, "alpha", alpha, 0, NULL, NULL );
-               }
+               // pass the image and alpha data without destructor
+               mlt_properties_set_data( properties, "image", image, 0, NULL, NULL );
+               mlt_properties_set_data( properties, "alpha", alpha, 0, NULL, NULL );
 
                // Set alpha call back
                ( *frame )->get_alpha_mask = producer_get_alpha_mask;
@@ -227,9 +307,6 @@ static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int i
                mlt_frame_push_get_image( *frame, producer_get_image );
        }
 
-       // Update timecode on the frame we're creating
-       mlt_frame_set_timecode( *frame, mlt_producer_position( producer ) );
-
        // Calculate the next timecode
        mlt_producer_prepare_next( producer );
 
@@ -239,8 +316,6 @@ static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int i
 static void producer_close( mlt_producer parent )
 {
        producer_pixbuf this = parent->child;
-       if ( this->filename )
-               free( this->filename );
        if ( this->image )
                free( this->image );
        if ( this->alpha )