1 /*
2 * lossless JPEG encoder
3 * Copyright (c) 2000, 2001 Fabrice Bellard
4 * Copyright (c) 2003 Alex Beregszaszi
5 * Copyright (c) 2003-2004 Michael Niedermayer
6 *
7 * Support for external huffman table, various fixes (AVID workaround),
8 * aspecting, new decode_frame mechanism and apple mjpeg-b support
9 * by Alex Beregszaszi
10 *
11 * This file is part of FFmpeg.
12 *
13 * FFmpeg is free software; you can redistribute it and/or
14 * modify it under the terms of the GNU Lesser General Public
15 * License as published by the Free Software Foundation; either
16 * version 2.1 of the License, or (at your option) any later version.
17 *
18 * FFmpeg is distributed in the hope that it will be useful,
19 * but WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21 * Lesser General Public License for more details.
22 *
23 * You should have received a copy of the GNU Lesser General Public
24 * License along with FFmpeg; if not, write to the Free Software
25 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
26 */
27
28 /**
29 * @file
30 * lossless JPEG encoder.
31 */
32
33 #include "libavutil/frame.h"
34 #include "libavutil/mem.h"
35 #include "libavutil/opt.h"
36 #include "libavutil/pixdesc.h"
37
38 #include "avcodec.h"
39 #include "idctdsp.h"
40 #include "internal.h"
41 #include "jpegtables.h"
42 #include "mathops.h"
43 #include "mjpegenc_common.h"
44 #include "mjpeg.h"
45
46 typedef struct LJpegEncContext {
47 AVClass *class;
48 IDCTDSPContext idsp;
49 ScanTable scantable;
50 uint16_t matrix[64];
51
52 int vsample[4];
53 int hsample[4];
54
55 uint16_t huff_code_dc_luminance[12];
56 uint16_t huff_code_dc_chrominance[12];
57 uint8_t huff_size_dc_luminance[12];
58 uint8_t huff_size_dc_chrominance[12];
59
60 uint16_t (*scratch)[4];
61 int pred;
62 } LJpegEncContext;
63
ljpeg_encode_bgr(AVCodecContext * avctx,PutBitContext * pb,const AVFrame * frame)64 static int ljpeg_encode_bgr(AVCodecContext *avctx, PutBitContext *pb,
65 const AVFrame *frame)
66 {
67 LJpegEncContext *s = avctx->priv_data;
68 const int width = frame->width;
69 const int height = frame->height;
70 const int linesize = frame->linesize[0];
71 uint16_t (*buffer)[4] = s->scratch;
72 int left[4], top[4], topleft[4];
73 int x, y, i;
74
75 #if FF_API_PRIVATE_OPT
76 FF_DISABLE_DEPRECATION_WARNINGS
77 if (avctx->prediction_method)
78 s->pred = avctx->prediction_method + 1;
79 FF_ENABLE_DEPRECATION_WARNINGS
80 #endif
81
82 for (i = 0; i < 4; i++)
83 buffer[0][i] = 1 << (9 - 1);
84
85 for (y = 0; y < height; y++) {
86 const int modified_predictor = y ? s->pred : 1;
87 uint8_t *ptr = frame->data[0] + (linesize * y);
88
89 if (pb->buf_end - pb->buf - (put_bits_count(pb) >> 3) < width * 4 * 4) {
90 av_log(avctx, AV_LOG_ERROR, "encoded frame too large\n");
91 return -1;
92 }
93
94 for (i = 0; i < 4; i++)
95 top[i]= left[i]= topleft[i]= buffer[0][i];
96
97 for (x = 0; x < width; x++) {
98 if(avctx->pix_fmt == AV_PIX_FMT_BGR24){
99 buffer[x][1] = ptr[3 * x + 0] - ptr[3 * x + 1] + 0x100;
100 buffer[x][2] = ptr[3 * x + 2] - ptr[3 * x + 1] + 0x100;
101 buffer[x][0] = (ptr[3 * x + 0] + 2 * ptr[3 * x + 1] + ptr[3 * x + 2]) >> 2;
102 }else{
103 buffer[x][1] = ptr[4 * x + 0] - ptr[4 * x + 1] + 0x100;
104 buffer[x][2] = ptr[4 * x + 2] - ptr[4 * x + 1] + 0x100;
105 buffer[x][0] = (ptr[4 * x + 0] + 2 * ptr[4 * x + 1] + ptr[4 * x + 2]) >> 2;
106 if (avctx->pix_fmt == AV_PIX_FMT_BGRA)
107 buffer[x][3] = ptr[4 * x + 3];
108 }
109
110 for (i = 0; i < 3 + (avctx->pix_fmt == AV_PIX_FMT_BGRA); i++) {
111 int pred, diff;
112
113 PREDICT(pred, topleft[i], top[i], left[i], modified_predictor);
114
115 topleft[i] = top[i];
116 top[i] = buffer[x+1][i];
117
118 left[i] = buffer[x][i];
119
120 diff = ((left[i] - pred + 0x100) & 0x1FF) - 0x100;
121
122 if (i == 0 || i == 3)
123 ff_mjpeg_encode_dc(pb, diff, s->huff_size_dc_luminance, s->huff_code_dc_luminance); //FIXME ugly
124 else
125 ff_mjpeg_encode_dc(pb, diff, s->huff_size_dc_chrominance, s->huff_code_dc_chrominance);
126 }
127 }
128 }
129
130 return 0;
131 }
132
ljpeg_encode_yuv_mb(LJpegEncContext * s,PutBitContext * pb,const AVFrame * frame,int predictor,int mb_x,int mb_y)133 static inline void ljpeg_encode_yuv_mb(LJpegEncContext *s, PutBitContext *pb,
134 const AVFrame *frame, int predictor,
135 int mb_x, int mb_y)
136 {
137 int i;
138
139 if (mb_x == 0 || mb_y == 0) {
140 for (i = 0; i < 3; i++) {
141 uint8_t *ptr;
142 int x, y, h, v, linesize;
143 h = s->hsample[i];
144 v = s->vsample[i];
145 linesize = frame->linesize[i];
146
147 for (y = 0; y < v; y++) {
148 for (x = 0; x < h; x++) {
149 int pred;
150
151 ptr = frame->data[i] + (linesize * (v * mb_y + y)) + (h * mb_x + x); //FIXME optimize this crap
152 if (y == 0 && mb_y == 0) {
153 if (x == 0 && mb_x == 0)
154 pred = 128;
155 else
156 pred = ptr[-1];
157 } else {
158 if (x == 0 && mb_x == 0) {
159 pred = ptr[-linesize];
160 } else {
161 PREDICT(pred, ptr[-linesize - 1], ptr[-linesize],
162 ptr[-1], predictor);
163 }
164 }
165
166 if (i == 0)
167 ff_mjpeg_encode_dc(pb, *ptr - pred, s->huff_size_dc_luminance, s->huff_code_dc_luminance); //FIXME ugly
168 else
169 ff_mjpeg_encode_dc(pb, *ptr - pred, s->huff_size_dc_chrominance, s->huff_code_dc_chrominance);
170 }
171 }
172 }
173 } else {
174 for (i = 0; i < 3; i++) {
175 uint8_t *ptr;
176 int x, y, h, v, linesize;
177 h = s->hsample[i];
178 v = s->vsample[i];
179 linesize = frame->linesize[i];
180
181 for (y = 0; y < v; y++) {
182 for (x = 0; x < h; x++) {
183 int pred;
184
185 ptr = frame->data[i] + (linesize * (v * mb_y + y)) + (h * mb_x + x); //FIXME optimize this crap
186 PREDICT(pred, ptr[-linesize - 1], ptr[-linesize], ptr[-1], predictor);
187
188 if (i == 0)
189 ff_mjpeg_encode_dc(pb, *ptr - pred, s->huff_size_dc_luminance, s->huff_code_dc_luminance); //FIXME ugly
190 else
191 ff_mjpeg_encode_dc(pb, *ptr - pred, s->huff_size_dc_chrominance, s->huff_code_dc_chrominance);
192 }
193 }
194 }
195 }
196 }
197
ljpeg_encode_yuv(AVCodecContext * avctx,PutBitContext * pb,const AVFrame * frame)198 static int ljpeg_encode_yuv(AVCodecContext *avctx, PutBitContext *pb,
199 const AVFrame *frame)
200 {
201 LJpegEncContext *s = avctx->priv_data;
202 const int mb_width = (avctx->width + s->hsample[0] - 1) / s->hsample[0];
203 const int mb_height = (avctx->height + s->vsample[0] - 1) / s->vsample[0];
204 int mb_x, mb_y;
205
206 #if FF_API_PRIVATE_OPT
207 FF_DISABLE_DEPRECATION_WARNINGS
208 if (avctx->prediction_method)
209 s->pred = avctx->prediction_method + 1;
210 FF_ENABLE_DEPRECATION_WARNINGS
211 #endif
212
213 for (mb_y = 0; mb_y < mb_height; mb_y++) {
214 if (pb->buf_end - pb->buf - (put_bits_count(pb) >> 3) <
215 mb_width * 4 * 3 * s->hsample[0] * s->vsample[0]) {
216 av_log(avctx, AV_LOG_ERROR, "encoded frame too large\n");
217 return -1;
218 }
219
220 for (mb_x = 0; mb_x < mb_width; mb_x++)
221 ljpeg_encode_yuv_mb(s, pb, frame, s->pred, mb_x, mb_y);
222 }
223
224 return 0;
225 }
226
ljpeg_encode_frame(AVCodecContext * avctx,AVPacket * pkt,const AVFrame * pict,int * got_packet)227 static int ljpeg_encode_frame(AVCodecContext *avctx, AVPacket *pkt,
228 const AVFrame *pict, int *got_packet)
229 {
230 LJpegEncContext *s = avctx->priv_data;
231 PutBitContext pb;
232 const int width = avctx->width;
233 const int height = avctx->height;
234 const int mb_width = (width + s->hsample[0] - 1) / s->hsample[0];
235 const int mb_height = (height + s->vsample[0] - 1) / s->vsample[0];
236 int max_pkt_size = AV_INPUT_BUFFER_MIN_SIZE;
237 int ret, header_bits;
238
239 if( avctx->pix_fmt == AV_PIX_FMT_BGR0
240 || avctx->pix_fmt == AV_PIX_FMT_BGR24)
241 max_pkt_size += width * height * 3 * 4;
242 else if(avctx->pix_fmt == AV_PIX_FMT_BGRA)
243 max_pkt_size += width * height * 4 * 4;
244 else {
245 max_pkt_size += mb_width * mb_height * 3 * 4
246 * s->hsample[0] * s->vsample[0];
247 }
248
249 if ((ret = ff_alloc_packet2(avctx, pkt, max_pkt_size, 0)) < 0)
250 return ret;
251
252 init_put_bits(&pb, pkt->data, pkt->size);
253
254 ff_mjpeg_encode_picture_header(avctx, &pb, &s->scantable,
255 s->pred, s->matrix, s->matrix);
256
257 header_bits = put_bits_count(&pb);
258
259 if( avctx->pix_fmt == AV_PIX_FMT_BGR0
260 || avctx->pix_fmt == AV_PIX_FMT_BGRA
261 || avctx->pix_fmt == AV_PIX_FMT_BGR24)
262 ret = ljpeg_encode_bgr(avctx, &pb, pict);
263 else
264 ret = ljpeg_encode_yuv(avctx, &pb, pict);
265 if (ret < 0)
266 return ret;
267
268 emms_c();
269
270 ff_mjpeg_escape_FF(&pb, header_bits >> 3);
271 ff_mjpeg_encode_picture_trailer(&pb, header_bits);
272
273 flush_put_bits(&pb);
274 pkt->size = put_bits_ptr(&pb) - pb.buf;
275 pkt->flags |= AV_PKT_FLAG_KEY;
276 *got_packet = 1;
277
278 return 0;
279 }
280
ljpeg_encode_close(AVCodecContext * avctx)281 static av_cold int ljpeg_encode_close(AVCodecContext *avctx)
282 {
283 LJpegEncContext *s = avctx->priv_data;
284
285 av_freep(&s->scratch);
286
287 return 0;
288 }
289
ljpeg_encode_init(AVCodecContext * avctx)290 static av_cold int ljpeg_encode_init(AVCodecContext *avctx)
291 {
292 LJpegEncContext *s = avctx->priv_data;
293
294 if ((avctx->pix_fmt == AV_PIX_FMT_YUV420P ||
295 avctx->pix_fmt == AV_PIX_FMT_YUV422P ||
296 avctx->pix_fmt == AV_PIX_FMT_YUV444P ||
297 avctx->color_range == AVCOL_RANGE_MPEG) &&
298 avctx->strict_std_compliance > FF_COMPLIANCE_UNOFFICIAL) {
299 av_log(avctx, AV_LOG_ERROR,
300 "Limited range YUV is non-standard, set strict_std_compliance to "
301 "at least unofficial to use it.\n");
302 return AVERROR(EINVAL);
303 }
304
305 #if FF_API_CODED_FRAME
306 FF_DISABLE_DEPRECATION_WARNINGS
307 avctx->coded_frame->pict_type = AV_PICTURE_TYPE_I;
308 avctx->coded_frame->key_frame = 1;
309 FF_ENABLE_DEPRECATION_WARNINGS
310 #endif
311
312 s->scratch = av_malloc_array(avctx->width + 1, sizeof(*s->scratch));
313 if (!s->scratch)
314 return AVERROR(ENOMEM);
315
316 ff_idctdsp_init(&s->idsp, avctx);
317 ff_init_scantable(s->idsp.idct_permutation, &s->scantable,
318 ff_zigzag_direct);
319
320 ff_mjpeg_init_hvsample(avctx, s->hsample, s->vsample);
321
322 ff_mjpeg_build_huffman_codes(s->huff_size_dc_luminance,
323 s->huff_code_dc_luminance,
324 avpriv_mjpeg_bits_dc_luminance,
325 avpriv_mjpeg_val_dc);
326 ff_mjpeg_build_huffman_codes(s->huff_size_dc_chrominance,
327 s->huff_code_dc_chrominance,
328 avpriv_mjpeg_bits_dc_chrominance,
329 avpriv_mjpeg_val_dc);
330
331 return 0;
332 }
333
334 #define OFFSET(x) offsetof(LJpegEncContext, x)
335 #define VE AV_OPT_FLAG_VIDEO_PARAM | AV_OPT_FLAG_ENCODING_PARAM
336 static const AVOption options[] = {
337 { "pred", "Prediction method", OFFSET(pred), AV_OPT_TYPE_INT, { .i64 = 1 }, 1, 3, VE, "pred" },
338 { "left", NULL, 0, AV_OPT_TYPE_CONST, { .i64 = 1 }, INT_MIN, INT_MAX, VE, "pred" },
339 { "plane", NULL, 0, AV_OPT_TYPE_CONST, { .i64 = 2 }, INT_MIN, INT_MAX, VE, "pred" },
340 { "median", NULL, 0, AV_OPT_TYPE_CONST, { .i64 = 3 }, INT_MIN, INT_MAX, VE, "pred" },
341
342 { NULL},
343 };
344
345 static const AVClass ljpeg_class = {
346 .class_name = "ljpeg",
347 .item_name = av_default_item_name,
348 .option = options,
349 .version = LIBAVUTIL_VERSION_INT,
350 };
351
352 AVCodec ff_ljpeg_encoder = {
353 .name = "ljpeg",
354 .long_name = NULL_IF_CONFIG_SMALL("Lossless JPEG"),
355 .type = AVMEDIA_TYPE_VIDEO,
356 .id = AV_CODEC_ID_LJPEG,
357 .priv_data_size = sizeof(LJpegEncContext),
358 .priv_class = &ljpeg_class,
359 .init = ljpeg_encode_init,
360 .encode2 = ljpeg_encode_frame,
361 .close = ljpeg_encode_close,
362 .capabilities = AV_CODEC_CAP_FRAME_THREADS,
363 .pix_fmts = (const enum AVPixelFormat[]){
364 AV_PIX_FMT_BGR24 , AV_PIX_FMT_BGRA , AV_PIX_FMT_BGR0,
365 AV_PIX_FMT_YUVJ420P, AV_PIX_FMT_YUVJ444P, AV_PIX_FMT_YUVJ422P,
366 AV_PIX_FMT_YUV420P , AV_PIX_FMT_YUV444P , AV_PIX_FMT_YUV422P,
367 AV_PIX_FMT_NONE},
368 };
369