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 program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program 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
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, write to the Free Software Foundation,
  18  * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  19  */
  20
  21 #include "filter_avcolour_space.h"
  22
  23 #include <framework/mlt_frame.h>
  24
  25 // ffmpeg Header files
  26 #include <avformat.h>
  27
  28 #include <stdio.h>
  29 #include <stdlib.h>
  30
  31 static inline int convert_mlt_to_av_cs( mlt_image_format format )
  32 {
  33         int value = 0;
  34
  35         switch( format )
  36         {
  37                 case mlt_image_rgb24:
  38                         value = PIX_FMT_RGB24;
  39                         break;
  40                 case mlt_image_rgb24a:
  41                         value = PIX_FMT_RGBA32;
  42                         break;
  43                 case mlt_image_yuv422:
  44                         value = PIX_FMT_YUV422;
  45                         break;
  46                 case mlt_image_yuv420p:
  47                         value = PIX_FMT_YUV420P;
  48                         break;
  49                 case mlt_image_opengl:
  50                 case mlt_image_none:
  51                         fprintf( stderr, "Invalid format...\n" );
  52                         break;
  53         }
  54
  55         return value;
  56 }
  57
  58 static inline void convert_image( uint8_t *out, uint8_t *in, int out_fmt, int in_fmt, int width, int height )
  59 {
  60         if ( in_fmt == PIX_FMT_YUV420P && out_fmt == PIX_FMT_YUV422 )
  61         {
  62                 register int i, j;
  63                 register int half = width >> 1;
  64                 register uint8_t *Y = in;
  65                 register uint8_t *U = Y + width * height;
  66                 register uint8_t *V = U + width * height / 2;
  67                 register uint8_t *d = out;
  68                 register uint8_t *y, *u, *v;
  69
  70                 i = height >> 1;
  71                 while ( i -- )
  72                 {
  73                         y = Y;
  74                         u = U;
  75                         v = V;
  76                         j = half;
  77                         while ( j -- )
  78                         {
  79                                 *d ++ = *y ++;
  80                                 *d ++ = *u ++;
  81                                 *d ++ = *y ++;
  82                                 *d ++ = *v ++;
  83                         }
  84
  85                         Y += width;
  86                         y = Y;
  87                         u = U;
  88                         v = V;
  89                         j = half;
  90                         while ( j -- )
  91                         {
  92                                 *d ++ = *y ++;
  93                                 *d ++ = *u ++;
  94                                 *d ++ = *y ++;
  95                                 *d ++ = *v ++;
  96                         }
  97
  98                         Y += width;
  99                         U += width / 2;
 100                         V += width / 2;
 101                 }
 102         }
 103         else
 104         {
 105                 AVPicture input;
 106                 AVPicture output;
 107                 avpicture_fill( &output, out, out_fmt, width, height );
 108                 avpicture_fill( &input, in, in_fmt, width, height );
 109                 img_convert( &output, out_fmt, &input, in_fmt, width, height );
 110         }
 111 }
 112
 113 /** Do it :-).
 114 */
 115
 116 static int filter_get_image( mlt_frame this, uint8_t **image, mlt_image_format *format, int *width, int *height, int writable )
 117 {
 118         mlt_filter filter = mlt_frame_pop_service( this );
 119         mlt_properties properties = MLT_FRAME_PROPERTIES( this );
 120         int output_format = *format;
 121         mlt_image_format forced = mlt_properties_get_int( MLT_FILTER_PROPERTIES( filter ), "forced" );
 122         int error = 0;
 123
 124         // Allow this filter to force processing in a colour space other than requested
 125         *format = forced != 0 ? forced : *format;
 126
 127         error = mlt_frame_get_image( this, image, format, width, height, 0 );
 128
 129         if ( error == 0 && *format != output_format && *image != NULL && output_format != mlt_image_opengl )
 130         {
 131                 int in_fmt = convert_mlt_to_av_cs( *format );
 132                 int out_fmt = convert_mlt_to_av_cs( output_format );
 133                 int size = avpicture_get_size( out_fmt, *width, *height );
 134                 uint8_t *output = mlt_pool_alloc( size );
 135                 convert_image( output, *image, out_fmt, in_fmt, *width, *height );
 136                 *image = output;
 137                 *format = output_format;
 138                 mlt_properties_set_data( properties, "image", output, size, mlt_pool_release, NULL );
 139                 mlt_properties_set_int( properties, "format", output_format );
 140
 141                 // Special case for alpha rgb - merge the alpha mask when it exists
 142                 if ( *format == mlt_image_rgb24a )
 143                 {
 144                         // Fetch the alpha
 145                         register uint8_t *alpha = mlt_frame_get_alpha_mask( this );
 146
 147                         if ( alpha != NULL )
 148                         {
 149                                 register uint8_t *bits = *image;
 150                                 register int len = *width * *height;
 151                                 register int n = ( len + 7 ) / 8;
 152
 153                                 // TODO: Proper check for big endian systems
 154                                 #ifndef __DARWIN__
 155                                 bits += 3;
 156                                 #endif
 157
 158                                 // Merge the alpha mask into the RGB image using Duff's Device
 159                                 switch( len % 8 )
 160                                 {
 161                                         case 0: do { *bits = *alpha++; bits += 4;
 162                                         case 7:          *bits = *alpha++; bits += 4;
 163                                         case 6:          *bits = *alpha++; bits += 4;
 164                                         case 5:          *bits = *alpha++; bits += 4;
 165                                         case 4:          *bits = *alpha++; bits += 4;
 166                                         case 3:          *bits = *alpha++; bits += 4;
 167                                         case 2:          *bits = *alpha++; bits += 4;
 168                                         case 1:          *bits = *alpha++; bits += 4;
 169                                                         }
 170                                                         while( --n );
 171                                 }
 172                         }
 173                 }
 174         }
 175         else if ( error == 0 && *format != output_format && *image != NULL && output_format == mlt_image_opengl )
 176         {
 177                 if ( *format == mlt_image_yuv422 )
 178                 {
 179                         int size = *width * *height * 4;
 180                         uint8_t *output = mlt_pool_alloc( size );
 181                         int h = *height;
 182                         int w = *width;
 183                         uint8_t *o = output + size;
 184                         int ostride = w * 4;
 185                         uint8_t *p = *image;
 186                         uint8_t *alpha = mlt_frame_get_alpha_mask( this ) + *width * *height;
 187                         int r, g, b;
 188
 189                         while( h -- )
 190                         {
 191                                 w = *width;
 192                                 o -= ostride;
 193                                 alpha -= *width;
 194                                 while( w >= 2 )
 195                                 {
 196                                         YUV2RGB( *p, *( p + 1 ), *( p + 3 ), r, g, b );
 197                                         *o ++ = r;
 198                                         *o ++ = g;
 199                                         *o ++ = b;
 200                                         *o ++ = *alpha ++;
 201                                         YUV2RGB( *( p + 2 ), *( p + 1 ), *( p + 3 ), r, g, b );
 202                                         *o ++ = r;
 203                                         *o ++ = g;
 204                                         *o ++ = b;
 205                                         *o ++ = *alpha ++;
 206                                         w -= 2;
 207                                         p += 4;
 208                                 }
 209                                 o -= ostride;
 210                                 alpha -= *width;
 211                         }
 212
 213                         mlt_properties_set_data( properties, "image", output, size, mlt_pool_release, NULL );
 214                         mlt_properties_set_int( properties, "format", output_format );
 215                         *image = output;
 216                         *format = output_format;
 217                 }
 218         }
 219
 220         return error;
 221 }
 222
 223 /** Filter processing.
 224 */
 225
 226 static mlt_frame filter_process( mlt_filter this, mlt_frame frame )
 227 {
 228         mlt_frame_push_service( frame, this );
 229         mlt_frame_push_get_image( frame, filter_get_image );
 230         return frame;
 231 }
 232
 233 /** Constructor for the filter.
 234 */
 235
 236 mlt_filter filter_avcolour_space_init( void *arg )
 237 {
 238         mlt_filter this = mlt_filter_new( );
 239         if ( this != NULL )
 240                 this->process = filter_process;
 241         return this;
 242 }
 243