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 #include <framework/mlt_log.h>
  24 #include <framework/mlt_profile.h>
  25
  26 // ffmpeg Header files
  27 #include <libavformat/avformat.h>
  28 #include <libswscale/swscale.h>
  29
  30 #include <stdio.h>
  31 #include <stdlib.h>
  32
  33 #if 0 // This test might come in handy elsewhere someday.
  34 static int is_big_endian( )
  35 {
  36         union { int i; char c[ 4 ]; } big_endian_test;
  37         big_endian_test.i = 1;
  38
  39         return big_endian_test.c[ 0 ] != 1;
  40 }
  41 #endif
  42
  43 static int convert_mlt_to_av_cs( mlt_image_format format )
  44 {
  45         int value = 0;
  46
  47         switch( format )
  48         {
  49                 case mlt_image_rgb24:
  50                         value = PIX_FMT_RGB24;
  51                         break;
  52                 case mlt_image_rgb24a:
  53                 case mlt_image_opengl:
  54                         value = PIX_FMT_RGBA;
  55                         break;
  56                 case mlt_image_yuv422:
  57                         value = PIX_FMT_YUYV422;
  58                         break;
  59                 case mlt_image_yuv420p:
  60                         value = PIX_FMT_YUV420P;
  61                         break;
  62                 default:
  63                         mlt_log_error( NULL, "[filter avcolor_space] Invalid format %s\n",
  64                                 mlt_image_format_name( format ) );
  65                         break;
  66         }
  67
  68         return value;
  69 }
  70
  71 static void set_luma_transfer( struct SwsContext *context, int colorspace, int use_full_range )
  72 {
  73         int *coefficients;
  74         const int *new_coefficients;
  75         int full_range;
  76         int brightness, contrast, saturation;
  77
  78         if ( sws_getColorspaceDetails( context, &coefficients, &full_range, &coefficients, &full_range,
  79                         &brightness, &contrast, &saturation ) != -1 )
  80         {
  81                 // Don't change these from defaults unless explicitly told to.
  82                 if ( use_full_range >= 0 )
  83                         full_range = use_full_range;
  84                 switch ( colorspace )
  85                 {
  86                 case 170:
  87                 case 470:
  88                 case 601:
  89                 case 624:
  90                         new_coefficients = sws_getCoefficients( SWS_CS_ITU601 );
  91                         break;
  92                 case 240:
  93                         new_coefficients = sws_getCoefficients( SWS_CS_SMPTE240M );
  94                         break;
  95                 case 709:
  96                         new_coefficients = sws_getCoefficients( SWS_CS_ITU709 );
  97                         break;
  98                 default:
  99                         new_coefficients = coefficients;
 100                         break;
 101                 }
 102                 sws_setColorspaceDetails( context, new_coefficients, full_range, new_coefficients, full_range,
 103                         brightness, contrast, saturation );
 104         }
 105 }
 106
 107 static void av_convert_image( uint8_t *out, uint8_t *in, int out_fmt, int in_fmt,
 108         int width, int height, int colorspace, int use_full_range )
 109 {
 110         AVPicture input;
 111         AVPicture output;
 112         int flags = SWS_BICUBIC | SWS_ACCURATE_RND;
 113
 114         if ( out_fmt == PIX_FMT_YUYV422 )
 115                 flags |= SWS_FULL_CHR_H_INP;
 116         else
 117                 flags |= SWS_FULL_CHR_H_INT;
 118 #ifdef USE_MMX
 119         flags |= SWS_CPU_CAPS_MMX;
 120 #endif
 121 #ifdef USE_SSE
 122         flags |= SWS_CPU_CAPS_MMX2;
 123 #endif
 124
 125         avpicture_fill( &input, in, in_fmt, width, height );
 126         avpicture_fill( &output, out, out_fmt, width, height );
 127         struct SwsContext *context = sws_getContext( width, height, in_fmt,
 128                 width, height, out_fmt, flags, NULL, NULL, NULL);
 129         if ( context )
 130         {
 131                 set_luma_transfer( context, colorspace, use_full_range );
 132                 sws_scale( context, (const uint8_t* const*) input.data, input.linesize, 0, height,
 133                         output.data, output.linesize);
 134                 sws_freeContext( context );
 135         }
 136 }
 137
 138 /** Do it :-).
 139 */
 140
 141 static int convert_image( mlt_frame frame, uint8_t **image, mlt_image_format *format, mlt_image_format output_format )
 142 {
 143         mlt_properties properties = MLT_FRAME_PROPERTIES( frame );
 144         int width = mlt_properties_get_int( properties, "width" );
 145         int height = mlt_properties_get_int( properties, "height" );
 146         int error = 0;
 147
 148         if ( *format != output_format )
 149         {
 150                 int colorspace = mlt_properties_get_int( properties, "colorspace" );
 151                 int force_full_luma = -1;
 152
 153                 mlt_log_debug( NULL, "[filter avcolor_space] %s -> %s @ %dx%d space %d\n",
 154                         mlt_image_format_name( *format ), mlt_image_format_name( output_format ),
 155                         width, height, colorspace );
 156
 157                 int in_fmt = convert_mlt_to_av_cs( *format );
 158                 int out_fmt = convert_mlt_to_av_cs( output_format );
 159                 int size = FFMAX( avpicture_get_size( out_fmt, width, height ),
 160                         mlt_image_format_size( output_format, width, height, NULL ) );
 161                 uint8_t *output = mlt_pool_alloc( size );
 162
 163                 if ( *format == mlt_image_rgb24a || *format == mlt_image_opengl )
 164                 {
 165                         register int len = width * height;
 166                         uint8_t *alpha = mlt_pool_alloc( len );
 167
 168                         if ( alpha )
 169                         {
 170                                 // Extract the alpha mask from the RGBA image using Duff's Device
 171                                 register uint8_t *s = *image + 3; // start on the alpha component
 172                                 register uint8_t *d = alpha;
 173                                 register int n = ( len + 7 ) / 8;
 174
 175                                 switch ( len % 8 )
 176                                 {
 177                                         case 0: do { *d++ = *s; s += 4;
 178                                         case 7:          *d++ = *s; s += 4;
 179                                         case 6:          *d++ = *s; s += 4;
 180                                         case 5:          *d++ = *s; s += 4;
 181                                         case 4:          *d++ = *s; s += 4;
 182                                         case 3:          *d++ = *s; s += 4;
 183                                         case 2:          *d++ = *s; s += 4;
 184                                         case 1:          *d++ = *s; s += 4;
 185                                                         }
 186                                                         while ( --n > 0 );
 187                                 }
 188                                 mlt_frame_set_alpha( frame, alpha, len, mlt_pool_release );
 189                         }
 190                 }
 191
 192                 // Update the output
 193                 if ( *format == mlt_image_yuv422 && mlt_properties_get( properties, "force_full_luma" )
 194                      && ( output_format == mlt_image_rgb24 || output_format == mlt_image_rgb24a ) )
 195                 {
 196                         // By removing the frame property we only permit the luma to skip scaling once.
 197                         // Thereafter, we let swscale scale the luma range as it pleases since it seems
 198                         // we do not have control over the RGB to YUV conversion.
 199                         force_full_luma = mlt_properties_get_int( properties, "force_full_luma" );
 200                         mlt_properties_set( properties, "force_full_luma", NULL );
 201                 }
 202                 av_convert_image( output, *image, out_fmt, in_fmt, width, height, colorspace, force_full_luma );
 203                 *image = output;
 204                 *format = output_format;
 205                 mlt_frame_set_image( frame, output, size, mlt_pool_release );
 206                 mlt_properties_set_int( properties, "format", output_format );
 207
 208                 if ( output_format == mlt_image_rgb24a || output_format == mlt_image_opengl )
 209                 {
 210                         register int len = width * height;
 211                         int alpha_size = 0;
 212                         uint8_t *alpha = mlt_frame_get_alpha_mask( frame );
 213                         mlt_properties_get_data( properties, "alpha", &alpha_size );
 214
 215                         if ( alpha && alpha_size >= len )
 216                         {
 217                                 // Merge the alpha mask from into the RGBA image using Duff's Device
 218                                 register uint8_t *s = alpha;
 219                                 register uint8_t *d = *image + 3; // start on the alpha component
 220                                 register int n = ( len + 7 ) / 8;
 221
 222                                 switch ( len % 8 )
 223                                 {
 224                                         case 0: do { *d = *s++; d += 4;
 225                                         case 7:          *d = *s++; d += 4;
 226                                         case 6:          *d = *s++; d += 4;
 227                                         case 5:          *d = *s++; d += 4;
 228                                         case 4:          *d = *s++; d += 4;
 229                                         case 3:          *d = *s++; d += 4;
 230                                         case 2:          *d = *s++; d += 4;
 231                                         case 1:          *d = *s++; d += 4;
 232                                                         }
 233                                                         while ( --n > 0 );
 234                                 }
 235                         }
 236                 }
 237         }
 238         return error;
 239 }
 240
 241 /* TODO: The below is not working because swscale does not have
 242  * adjustable coefficients yet for RGB->YUV */
 243 #if 0
 244 static int get_image( mlt_frame frame, uint8_t **image, mlt_image_format *format, int *width, int *height, int writable )
 245 {
 246         int error = 0;
 247         mlt_profile profile = (mlt_profile) mlt_frame_pop_get_image( frame );
 248         mlt_properties properties = MLT_FRAME_PROPERTIES(frame);
 249         mlt_image_format format_from = *format;
 250         mlt_image_format format_to = mlt_image_rgb24;
 251
 252         error = mlt_frame_get_image( frame, image, format, width, height, writable );
 253
 254         int frame_colorspace = mlt_properties_get_int( properties, "colorspace" );
 255
 256         if ( !error && *format == mlt_image_yuv422 && profile->colorspace > 0 &&
 257              frame_colorspace > 0 && frame_colorspace != profile->colorspace )
 258         {
 259                 mlt_log_debug( NULL, "[filter avcolor_space] colorspace %d -> %d\n",
 260                         frame_colorspace, profile->colorspace );
 261
 262                 // Convert to RGB using frame's colorspace
 263                 error = convert_image( frame, image, &format_from, format_to );
 264
 265                 // Convert to YUV using profile's colorspace
 266                 if ( !error )
 267                 {
 268                         *image = mlt_properties_get_data( properties, "image", NULL );
 269                         format_from = mlt_image_rgb24;
 270                         format_to = *format;
 271                         mlt_properties_set_int( properties, "colorspace", profile->colorspace );
 272                         error = convert_image( frame, image, &format_from, format_to );
 273                         *image = mlt_properties_get_data( properties, "image", NULL );
 274                 }
 275         }
 276
 277         return error;
 278 }
 279 #endif
 280
 281 /** Filter processing.
 282 */
 283
 284 static mlt_frame filter_process( mlt_filter filter, mlt_frame frame )
 285 {
 286         // Set a default colorspace on the frame if not yet set by the producer.
 287         // The producer may still change it during get_image.
 288         // This way we do not have to modify each producer to set a valid colorspace.
 289         mlt_properties properties = MLT_FRAME_PROPERTIES(frame);
 290         if ( mlt_properties_get_int( properties, "colorspace" ) <= 0 )
 291                 mlt_properties_set_int( properties, "colorspace", mlt_service_profile( MLT_FILTER_SERVICE(filter) )->colorspace );
 292
 293         if ( !frame->convert_image )
 294                 frame->convert_image = convert_image;
 295
 296 //      Not working yet - see comment for get_image() above.
 297 //      mlt_frame_push_service( frame, mlt_service_profile( MLT_FILTER_SERVICE( filter ) ) );
 298 //      mlt_frame_push_get_image( frame, get_image );
 299
 300         return frame;
 301 }
 302
 303 /** Constructor for the filter.
 304 */
 305
 306 mlt_filter filter_avcolour_space_init( void *arg )
 307 {
 308         // Test to see if swscale accepts the arg as resolution
 309         if ( arg )
 310         {
 311                 int *width = (int*) arg;
 312                 if ( *width > 0 )
 313                 {
 314                         struct SwsContext *context = sws_getContext( *width, *width, PIX_FMT_RGB32, 64, 64, PIX_FMT_RGB32, SWS_BILINEAR, NULL, NULL, NULL);
 315                         if ( context )
 316                                 sws_freeContext( context );
 317                         else
 318                                 return NULL;
 319                 }
 320         }
 321         mlt_filter filter = mlt_filter_new( );
 322         if ( filter != NULL )
 323                 filter->process = filter_process;
 324         return filter;
 325 }
 326