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