projects / melted / blob
? search:


4a53e940557831cbbea31393922275199cbc706e
[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 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
my melted branch