projects / melted / blob
? search:


7e0ce9297cd750d48b608a7fe41bce18059d86c7
[melted] / 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
my melted branch