git.sesse.net Git - mlt/blob - src/modules/avformat/filter_avcolour_space.c

   1 /*
   2  * filter_avcolour_space.c -- Colour space filter
   3  * Copyright (C) 2004-2005 Ushodaya Enterprises Limited
   4  * Author: Charles Yates <charles.yates@pandora.be>
   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_filter.h>
  22 #include <framework/mlt_frame.h>
  23
  24 // ffmpeg Header files
  25 #include <avformat.h>
  26 #ifdef SWSCALE
  27 #include <swscale.h>
  28 #endif
  29
  30 #include <stdio.h>
  31 #include <stdlib.h>
  32
  33 static inline int is_big_endian( )
  34 {
  35         union { int i; char c[ 4 ]; } big_endian_test;
  36         big_endian_test.i = 1;
  37
  38         return big_endian_test.c[ 0 ] != 1;
  39 }
  40
  41 static inline int convert_mlt_to_av_cs( mlt_image_format format )
  42 {
  43         int value = 0;
  44
  45         switch( format )
  46         {
  47                 case mlt_image_rgb24:
  48                         value = PIX_FMT_RGB24;
  49                         break;
  50                 case mlt_image_rgb24a:
  51                         value = PIX_FMT_RGBA32;
  52                         break;
  53                 case mlt_image_yuv422:
  54                         value = PIX_FMT_YUV422;
  55                         break;
  56                 case mlt_image_yuv420p:
  57                         value = PIX_FMT_YUV420P;
  58                         break;
  59                 case mlt_image_opengl:
  60                 case mlt_image_none:
  61                         fprintf( stderr, "Invalid format...\n" );
  62                         break;
  63         }
  64
  65         return value;
  66 }
  67
  68 static inline void convert_image( uint8_t *out, uint8_t *in, int out_fmt, int in_fmt, int width, int height )
  69 {
  70         AVPicture input;
  71         AVPicture output;
  72         avpicture_fill( &input, in, in_fmt, width, height );
  73         avpicture_fill( &output, out, out_fmt, width, height );
  74 #ifdef SWSCALE
  75         struct SwsContext *context = sws_getContext( width, height, in_fmt,
  76                 width, height, out_fmt, SWS_FAST_BILINEAR, NULL, NULL, NULL);
  77         sws_scale( context, input.data, input.linesize, 0, height,
  78                 output.data, output.linesize);
  79         sws_freeContext( context );
  80 #else
  81         img_convert( &output, out_fmt, &input, in_fmt, width, height );
  82 #endif
  83 }
  84
  85 /** Do it :-).
  86 */
  87
  88 static int filter_get_image( mlt_frame this, uint8_t **image, mlt_image_format *format, int *width, int *height, int writable )
  89 {
  90         mlt_filter filter = mlt_frame_pop_service( this );
  91         mlt_properties properties = MLT_FRAME_PROPERTIES( this );
  92         int output_format = *format;
  93         mlt_image_format forced = mlt_properties_get_int( MLT_FILTER_PROPERTIES( filter ), "forced" );
  94         int error = 0;
  95
  96         // Allow this filter to force processing in a colour space other than requested
  97         *format = forced != 0 ? forced : *format;
  98
  99         error = mlt_frame_get_image( this, image, format, width, height, 0 );
 100
 101         if ( error == 0 && *format != output_format && *image != NULL && output_format != mlt_image_opengl )
 102         {
 103                 int in_fmt = convert_mlt_to_av_cs( *format );
 104                 int out_fmt = convert_mlt_to_av_cs( output_format );
 105                 int size = avpicture_get_size( out_fmt, *width, *height );
 106                 uint8_t *output = mlt_pool_alloc( size );
 107                 convert_image( output, *image, out_fmt, in_fmt, *width, *height );
 108
 109                 // Special case for alpha rgb input
 110                 if ( *format == mlt_image_rgb24a )
 111                 {
 112                         register uint8_t *alpha = mlt_frame_get_alpha_mask( this );
 113                         register int len = *width * *height;
 114                         register uint8_t *bits = *image;
 115                         register int n = ( len + 7 ) / 8;
 116
 117                         if( !is_big_endian( ) )
 118                                 bits += 3;
 119
 120                         // Extract alpha mask from the image using Duff's Device
 121                         switch( len % 8 )
 122                         {
 123                                 case 0: do { *alpha ++ = *bits; bits += 4;
 124                                 case 7:          *alpha ++ = *bits; bits += 4;
 125                                 case 6:          *alpha ++ = *bits; bits += 4;
 126                                 case 5:          *alpha ++ = *bits; bits += 4;
 127                                 case 4:          *alpha ++ = *bits; bits += 4;
 128                                 case 3:          *alpha ++ = *bits; bits += 4;
 129                                 case 2:          *alpha ++ = *bits; bits += 4;
 130                                 case 1:          *alpha ++ = *bits; bits += 4;
 131                                                 }
 132                                                 while( --n );
 133                         }
 134                 }
 135
 136                 // Update the output
 137                 *image = output;
 138                 *format = output_format;
 139                 mlt_properties_set_data( properties, "image", output, size, mlt_pool_release, NULL );
 140                 mlt_properties_set_int( properties, "format", output_format );
 141
 142                 // Special case for alpha rgb output
 143                 if ( *format == mlt_image_rgb24a )
 144                 {
 145                         // Fetch the alpha
 146                         register uint8_t *alpha = mlt_frame_get_alpha_mask( this );
 147
 148                         if ( alpha != NULL )
 149                         {
 150                                 register uint8_t *bits = *image;
 151                                 register int len = *width * *height;
 152                                 register int n = ( len + 7 ) / 8;
 153
 154                                 if( !is_big_endian( ) )
 155                                         bits += 3;
 156
 157                                 // Merge the alpha mask into the RGB image using Duff's Device
 158                                 switch( len % 8 )
 159                                 {
 160                                         case 0: do { *bits = *alpha++; bits += 4;
 161                                         case 7:          *bits = *alpha++; bits += 4;
 162                                         case 6:          *bits = *alpha++; bits += 4;
 163                                         case 5:          *bits = *alpha++; bits += 4;
 164                                         case 4:          *bits = *alpha++; bits += 4;
 165                                         case 3:          *bits = *alpha++; bits += 4;
 166                                         case 2:          *bits = *alpha++; bits += 4;
 167                                         case 1:          *bits = *alpha++; bits += 4;
 168                                                         }
 169                                                         while( --n );
 170                                 }
 171                         }
 172                 }
 173         }
 174         else if ( error == 0 && *format != output_format && *image != NULL && output_format == mlt_image_opengl )
 175         {
 176                 if ( *format == mlt_image_yuv422 )
 177                 {
 178                         int size = *width * *height * 4;
 179                         uint8_t *output = mlt_pool_alloc( size );
 180                         int h = *height;
 181                         int w = *width;
 182                         uint8_t *o = output + size;
 183                         int ostride = w * 4;
 184                         uint8_t *p = *image;
 185                         uint8_t *alpha = mlt_frame_get_alpha_mask( this ) + *width * *height;
 186                         int r, g, b;
 187
 188                         while( h -- )
 189                         {
 190                                 w = *width;
 191                                 o -= ostride;
 192                                 alpha -= *width;
 193                                 while( w >= 2 )
 194                                 {
 195                                         YUV2RGB( *p, *( p + 1 ), *( p + 3 ), r, g, b );
 196                                         *o ++ = r;
 197                                         *o ++ = g;
 198                                         *o ++ = b;
 199                                         *o ++ = *alpha ++;
 200                                         YUV2RGB( *( p + 2 ), *( p + 1 ), *( p + 3 ), r, g, b );
 201                                         *o ++ = r;
 202                                         *o ++ = g;
 203                                         *o ++ = b;
 204                                         *o ++ = *alpha ++;
 205                                         w -= 2;
 206                                         p += 4;
 207                                 }
 208                                 o -= ostride;
 209                                 alpha -= *width;
 210                         }
 211
 212                         mlt_properties_set_data( properties, "image", output, size, mlt_pool_release, NULL );
 213                         mlt_properties_set_int( properties, "format", output_format );
 214                         *image = output;
 215                         *format = output_format;
 216                 }
 217         }
 218
 219         return error;
 220 }
 221
 222 /** Filter processing.
 223 */
 224
 225 static mlt_frame filter_process( mlt_filter this, mlt_frame frame )
 226 {
 227         mlt_frame_push_service( frame, this );
 228         mlt_frame_push_get_image( frame, filter_get_image );
 229         return frame;
 230 }
 231
 232 /** Constructor for the filter.
 233 */
 234
 235 mlt_filter filter_avcolour_space_init( void *arg )
 236 {
 237         mlt_filter this = mlt_filter_new( );
 238         if ( this != NULL )
 239                 this->process = filter_process;
 240         return this;
 241 }
 242