git.sesse.net Git - mlt/blob - src/modules/sdl/producer_sdl_image.c

   1 /*
   2  * producer_sdl_image.c -- Image loader which wraps SDL_image
   3  * Copyright (C) 2005 Visual Media FX
   4  * Author: Charles Yates <charles.yates@gmail.com>
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include <framework/mlt_producer.h>
  22 #include <framework/mlt_frame.h>
  23 #include <framework/mlt_pool.h>
  24
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include <string.h>
  28 #include <sys/types.h>
  29 #include <sys/stat.h>
  30 #include <unistd.h>
  31 #include <dirent.h>
  32 #include <math.h>
  33
  34 #include <SDL_image.h>
  35
  36 static int producer_get_image( mlt_frame frame, uint8_t **image, mlt_image_format *format, int *width, int *height, int writable )
  37 {
  38         mlt_properties properties = MLT_FRAME_PROPERTIES( frame );
  39         SDL_Surface *surface = mlt_properties_get_data( properties, "surface", NULL );
  40         SDL_Surface *converted = NULL;
  41
  42         *width = surface->w;
  43         *height = surface->h;
  44         int image_size = *width * *height * 3;
  45
  46         if ( surface->format->BitsPerPixel != 32 && surface->format->BitsPerPixel != 24 )
  47         {
  48                 SDL_PixelFormat fmt;
  49                 fmt.BitsPerPixel = 24;
  50                 fmt.BytesPerPixel = 3;
  51                 fmt.Rshift = 16;
  52                 fmt.Gshift = 8;
  53                 fmt.Bshift = 0;
  54                 fmt.Rmask = 0xff << 16;
  55                 fmt.Gmask = 0xff << 8;
  56                 fmt.Bmask = 0xff;
  57                 converted = SDL_ConvertSurface( surface, &fmt, 0 );
  58         }
  59
  60         switch( surface->format->BitsPerPixel )
  61         {
  62                 case 32:
  63                         *format = mlt_image_rgb24a;
  64                         image_size = *width * *height * 4;
  65                         *image = mlt_pool_alloc( image_size );
  66                         memcpy( *image, surface->pixels, image_size );
  67                         break;
  68                 default:
  69                         *format = mlt_image_rgb24;
  70                         *image = mlt_pool_alloc( image_size );
  71                         memcpy( *image, surface->pixels, image_size );
  72                         break;
  73         }
  74
  75         if ( converted )
  76                 SDL_FreeSurface( converted );
  77
  78         // Update the frame
  79         mlt_frame_set_image( frame, *image, image_size, mlt_pool_release );
  80
  81         return 0;
  82 }
  83
  84 static int filter_files( const struct dirent *de )
  85 {
  86         return de->d_name[ 0 ] != '.';
  87 }
  88
  89 static mlt_properties parse_file_names( char *resource )
  90 {
  91         mlt_properties properties = mlt_properties_new( );
  92
  93         if ( strstr( resource, "/.all." ) != NULL )
  94         {
  95                 char *dir_name = strdup( resource );
  96                 char *extension = strrchr( resource, '.' );
  97                 *( strstr( dir_name, "/.all." ) + 1 ) = '\0';
  98                 char fullname[ 1024 ];
  99                 strcpy( fullname, dir_name );
 100                 struct dirent **de = NULL;
 101                 int n = scandir( fullname, &de, filter_files, alphasort );
 102                 int i;
 103                 struct stat info;
 104
 105                 for (i = 0; i < n; i++ )
 106                 {
 107                         snprintf( fullname, 1023, "%s%s", dir_name, de[i]->d_name );
 108                         if ( strstr( fullname, extension ) && lstat( fullname, &info ) == 0 &&
 109                                 ( S_ISREG( info.st_mode ) || info.st_mode | S_IXUSR ) )
 110                         {
 111                                 char temp[ 20 ];
 112                                 sprintf( temp, "%d", i );
 113                                 mlt_properties_set( properties, temp, fullname );
 114                         }
 115                         free( de[ i ] );
 116                 }
 117
 118                 free( de );
 119                 free( dir_name );
 120         }
 121         else
 122         {
 123                 mlt_properties_set( properties, "0", resource );
 124         }
 125
 126         return properties;
 127 }
 128
 129 static SDL_Surface *load_image( mlt_producer producer )
 130 {
 131         mlt_properties properties = MLT_PRODUCER_PROPERTIES( producer );
 132         char *resource = mlt_properties_get( properties, "resource" );
 133         char *last_resource = mlt_properties_get( properties, "_last_resource" );
 134         int image_idx = 0;
 135         char *this_resource = NULL;
 136         double ttl = mlt_properties_get_int( properties, "ttl" );
 137         mlt_position position = mlt_producer_position( producer );
 138         SDL_Surface *surface = mlt_properties_get_data( properties, "_surface", NULL );
 139         mlt_properties filenames = mlt_properties_get_data( properties, "_filenames", NULL );
 140
 141         if ( filenames == NULL )
 142         {
 143                 filenames = parse_file_names( resource );
 144                 mlt_properties_set_data( properties, "_surface", surface, 0, ( mlt_destructor )SDL_FreeSurface, 0 );
 145         }
 146
 147         if ( mlt_properties_count( filenames ) )
 148         {
 149                 image_idx = ( int )floor( ( double )position / ttl ) % mlt_properties_count( filenames );
 150                 this_resource = mlt_properties_get_value( filenames, image_idx );
 151
 152                 if ( surface == NULL || last_resource == NULL || strcmp( last_resource, this_resource ) )
 153                 {
 154                         surface = IMG_Load( this_resource );
 155                         if ( surface != NULL )
 156                         {
 157                                 surface->refcount ++;
 158                                 mlt_properties_set_data( properties, "_surface", surface, 0, ( mlt_destructor )SDL_FreeSurface, 0 );
 159                                 mlt_properties_set( properties, "_last_resource", this_resource );
 160                                 mlt_properties_set_int( properties, "meta.media.width", surface->w );
 161                                 mlt_properties_set_int( properties, "meta.media.height", surface->h );
 162                         }
 163                 }
 164                 else if ( surface != NULL )
 165                 {
 166                         surface->refcount ++;
 167                 }
 168         }
 169
 170         return surface;
 171 }
 172
 173 static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int index )
 174 {
 175         // Generate a frame
 176         *frame = mlt_frame_init( MLT_PRODUCER_SERVICE( producer ) );
 177
 178         if ( *frame != NULL )
 179         {
 180                 // Create the surface for the current image
 181                 SDL_Surface *surface = load_image( producer );
 182
 183                 if ( surface != NULL )
 184                 {
 185                         // Obtain properties of frame and producer
 186                         mlt_properties properties = MLT_FRAME_PROPERTIES( *frame );
 187
 188                         // Obtain properties of producer
 189                         mlt_properties producer_props = MLT_PRODUCER_PROPERTIES( producer );
 190
 191                         // Update timecode on the frame we're creating
 192                         mlt_frame_set_position( *frame, mlt_producer_position( producer ) );
 193
 194                         // Set producer-specific frame properties
 195                         mlt_properties_set_int( properties, "progressive", 1 );
 196                         mlt_properties_set_double( properties, "aspect_ratio", mlt_properties_get_double( producer_props, "aspect_ratio" ) );
 197                         mlt_properties_set_data( properties, "surface", surface, 0, ( mlt_destructor )SDL_FreeSurface, NULL );
 198
 199                         // Push the get_image method
 200                         mlt_frame_push_get_image( *frame, producer_get_image );
 201                 }
 202         }
 203
 204         // Calculate the next timecode
 205         mlt_producer_prepare_next( producer );
 206
 207         return 0;
 208 }
 209
 210 static void producer_close( mlt_producer producer )
 211 {
 212         producer->close = NULL;
 213         mlt_producer_close( producer );
 214         free( producer );
 215 }
 216
 217 mlt_producer producer_sdl_image_init( mlt_profile profile, mlt_service_type type, const char *id, char *file )
 218 {
 219         mlt_producer producer = calloc( 1, sizeof( struct mlt_producer_s ) );
 220         if ( producer != NULL && mlt_producer_init( producer, NULL ) == 0 )
 221         {
 222                 // Get the properties interface
 223                 mlt_properties properties = MLT_PRODUCER_PROPERTIES( producer );
 224
 225                 // Callback registration
 226                 producer->get_frame = producer_get_frame;
 227                 producer->close = ( mlt_destructor )producer_close;
 228
 229                 // Set the default properties
 230                 mlt_properties_set( properties, "resource", file );
 231                 mlt_properties_set( properties, "_resource", "" );
 232                 mlt_properties_set_double( properties, "aspect_ratio", 1 );
 233                 mlt_properties_set_int( properties, "ttl", 25 );
 234                 mlt_properties_set_int( properties, "progressive", 1 );
 235
 236                 // Validate the resource
 237                 SDL_Surface *surface = NULL;
 238                 if ( file && ( surface = load_image( producer ) ) )
 239                 {
 240                         SDL_FreeSurface( surface );
 241                         mlt_properties_set_data( properties, "_surface", NULL, 0, NULL, NULL );
 242                 }
 243                 else
 244                 {
 245                         producer_close( producer );
 246                         producer = NULL;
 247                 }
 248                 return producer;
 249         }
 250         free( producer );
 251         return NULL;
 252 }
 253
 254