git.sesse.net Git - ffmpeg/blob - libavcodec/proresdec2.c

   1 /*
   2  * Copyright (c) 2010-2011 Maxim Poliakovski
   3  * Copyright (c) 2010-2011 Elvis Presley
   4  *
   5  * This file is part of FFmpeg.
   6  *
   7  * FFmpeg is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * FFmpeg is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with FFmpeg; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  20  */
  21
  22 /**
  23  * @file
  24  * Known FOURCCs: 'apch' (HQ), 'apcn' (SD), 'apcs' (LT), 'acpo' (Proxy), 'ap4h' (4444)
  25  */
  26
  27 //#define DEBUG
  28
  29 #define LONG_BITSTREAM_READER
  30
  31 #include "libavutil/internal.h"
  32 #include "avcodec.h"
  33 #include "get_bits.h"
  34 #include "idctdsp.h"
  35 #include "internal.h"
  36 #include "profiles.h"
  37 #include "simple_idct.h"
  38 #include "proresdec.h"
  39 #include "proresdata.h"
  40 #include "thread.h"
  41
  42 static void permute(uint8_t *dst, const uint8_t *src, const uint8_t permutation[64])
  43 {
  44     int i;
  45     for (i = 0; i < 64; i++)
  46         dst[i] = permutation[src[i]];
  47 }
  48
  49 static void inline unpack_alpha(GetBitContext *gb, uint16_t *dst, int num_coeffs,
  50                                 const int num_bits, const int decode_precision) {
  51     const int mask = (1 << num_bits) - 1;
  52     int i, idx, val, alpha_val;
  53
  54     idx       = 0;
  55     alpha_val = mask;
  56     do {
  57         do {
  58             if (get_bits1(gb)) {
  59                 val = get_bits(gb, num_bits);
  60             } else {
  61                 int sign;
  62                 val  = get_bits(gb, num_bits == 16 ? 7 : 4);
  63                 sign = val & 1;
  64                 val  = (val + 2) >> 1;
  65                 if (sign)
  66                     val = -val;
  67             }
  68             alpha_val = (alpha_val + val) & mask;
  69             if (num_bits == 16) {
  70                 dst[idx++] = alpha_val >> 6;
  71             } else {
  72                 dst[idx++] = (alpha_val << 2) | (alpha_val >> 6);
  73             }
  74             if (idx >= num_coeffs)
  75                 break;
  76         } while (get_bits_left(gb)>0 && get_bits1(gb));
  77         val = get_bits(gb, 4);
  78         if (!val)
  79             val = get_bits(gb, 11);
  80         if (idx + val > num_coeffs)
  81             val = num_coeffs - idx;
  82         if (num_bits == 16) {
  83             for (i = 0; i < val; i++)
  84                 dst[idx++] = alpha_val >> 6;
  85         } else {
  86             for (i = 0; i < val; i++)
  87                 dst[idx++] = (alpha_val << 2) | (alpha_val >> 6);
  88         }
  89     } while (idx < num_coeffs);
  90 }
  91
  92 static void unpack_alpha_10(GetBitContext *gb, uint16_t *dst, int num_coeffs,
  93                             const int num_bits)
  94 {
  95     if (num_bits == 16) {
  96         unpack_alpha(gb, dst, num_coeffs, 16, 10);
  97     } else { /* 8 bits alpha */
  98         unpack_alpha(gb, dst, num_coeffs, 8, 10);
  99     }
 100 }
 101
 102 static av_cold int decode_init(AVCodecContext *avctx)
 103 {
 104     int ret = 0;
 105     ProresContext *ctx = avctx->priv_data;
 106     uint8_t idct_permutation[64];
 107
 108     avctx->bits_per_raw_sample = 10;
 109
 110     switch (avctx->codec_tag) {
 111     case MKTAG('a','p','c','o'):
 112         avctx->profile = FF_PROFILE_PRORES_PROXY;
 113         break;
 114     case MKTAG('a','p','c','s'):
 115         avctx->profile = FF_PROFILE_PRORES_LT;
 116         break;
 117     case MKTAG('a','p','c','n'):
 118         avctx->profile = FF_PROFILE_PRORES_STANDARD;
 119         break;
 120     case MKTAG('a','p','c','h'):
 121         avctx->profile = FF_PROFILE_PRORES_HQ;
 122         break;
 123     case MKTAG('a','p','4','h'):
 124         avctx->profile = FF_PROFILE_PRORES_4444;
 125         break;
 126     case MKTAG('a','p','4','x'):
 127         avctx->profile = FF_PROFILE_PRORES_XQ;
 128         break;
 129     default:
 130         avctx->profile = FF_PROFILE_UNKNOWN;
 131         av_log(avctx, AV_LOG_WARNING, "Unknown prores profile %d\n", avctx->codec_tag);
 132     }
 133
 134     ff_blockdsp_init(&ctx->bdsp, avctx);
 135     ret = ff_proresdsp_init(&ctx->prodsp, avctx);
 136     if (ret < 0) {
 137         av_log(avctx, AV_LOG_ERROR, "Fail to init proresdsp for bits per raw sample %d\n", avctx->bits_per_raw_sample);
 138         return ret;
 139     }
 140
 141     ff_init_scantable_permutation(idct_permutation,
 142                                   ctx->prodsp.idct_permutation_type);
 143
 144     permute(ctx->progressive_scan, ff_prores_progressive_scan, idct_permutation);
 145     permute(ctx->interlaced_scan, ff_prores_interlaced_scan, idct_permutation);
 146
 147     if (avctx->bits_per_raw_sample == 10){
 148         ctx->unpack_alpha = unpack_alpha_10;
 149     } else {
 150         av_log(avctx, AV_LOG_ERROR, "Fail to set unpack_alpha for bits per raw sample %d\n", avctx->bits_per_raw_sample);
 151         return AVERROR_BUG;
 152     }
 153     return ret;
 154 }
 155
 156 static int decode_frame_header(ProresContext *ctx, const uint8_t *buf,
 157                                const int data_size, AVCodecContext *avctx)
 158 {
 159     int hdr_size, width, height, flags;
 160     int version;
 161     const uint8_t *ptr;
 162
 163     hdr_size = AV_RB16(buf);
 164     ff_dlog(avctx, "header size %d\n", hdr_size);
 165     if (hdr_size > data_size) {
 166         av_log(avctx, AV_LOG_ERROR, "error, wrong header size\n");
 167         return AVERROR_INVALIDDATA;
 168     }
 169
 170     version = AV_RB16(buf + 2);
 171     ff_dlog(avctx, "%.4s version %d\n", buf+4, version);
 172     if (version > 1) {
 173         av_log(avctx, AV_LOG_ERROR, "unsupported version: %d\n", version);
 174         return AVERROR_PATCHWELCOME;
 175     }
 176
 177     width  = AV_RB16(buf + 8);
 178     height = AV_RB16(buf + 10);
 179     if (width != avctx->width || height != avctx->height) {
 180         av_log(avctx, AV_LOG_ERROR, "picture resolution change: %dx%d -> %dx%d\n",
 181                avctx->width, avctx->height, width, height);
 182         return AVERROR_PATCHWELCOME;
 183     }
 184
 185     ctx->frame_type = (buf[12] >> 2) & 3;
 186     ctx->alpha_info = buf[17] & 0xf;
 187
 188     if (ctx->alpha_info > 2) {
 189         av_log(avctx, AV_LOG_ERROR, "Invalid alpha mode %d\n", ctx->alpha_info);
 190         return AVERROR_INVALIDDATA;
 191     }
 192     if (avctx->skip_alpha) ctx->alpha_info = 0;
 193
 194     ff_dlog(avctx, "frame type %d\n", ctx->frame_type);
 195
 196     if (ctx->frame_type == 0) {
 197         ctx->scan = ctx->progressive_scan; // permuted
 198     } else {
 199         ctx->scan = ctx->interlaced_scan; // permuted
 200         ctx->frame->interlaced_frame = 1;
 201         ctx->frame->top_field_first = ctx->frame_type == 1;
 202     }
 203
 204     if (ctx->alpha_info) {
 205         avctx->pix_fmt = (buf[12] & 0xC0) == 0xC0 ? AV_PIX_FMT_YUVA444P10 : AV_PIX_FMT_YUVA422P10;
 206     } else {
 207         avctx->pix_fmt = (buf[12] & 0xC0) == 0xC0 ? AV_PIX_FMT_YUV444P10 : AV_PIX_FMT_YUV422P10;
 208     }
 209
 210     avctx->color_primaries = buf[14];
 211     avctx->color_trc       = buf[15];
 212     avctx->colorspace      = buf[16];
 213     avctx->color_range     = AVCOL_RANGE_MPEG;
 214
 215     ptr   = buf + 20;
 216     flags = buf[19];
 217     ff_dlog(avctx, "flags %x\n", flags);
 218
 219     if (flags & 2) {
 220         if(buf + data_size - ptr < 64) {
 221             av_log(avctx, AV_LOG_ERROR, "Header truncated\n");
 222             return AVERROR_INVALIDDATA;
 223         }
 224         permute(ctx->qmat_luma, ctx->prodsp.idct_permutation, ptr);
 225         ptr += 64;
 226     } else {
 227         memset(ctx->qmat_luma, 4, 64);
 228     }
 229
 230     if (flags & 1) {
 231         if(buf + data_size - ptr < 64) {
 232             av_log(avctx, AV_LOG_ERROR, "Header truncated\n");
 233             return AVERROR_INVALIDDATA;
 234         }
 235         permute(ctx->qmat_chroma, ctx->prodsp.idct_permutation, ptr);
 236     } else {
 237         memset(ctx->qmat_chroma, 4, 64);
 238     }
 239
 240     return hdr_size;
 241 }
 242
 243 static int decode_picture_header(AVCodecContext *avctx, const uint8_t *buf, const int buf_size)
 244 {
 245     ProresContext *ctx = avctx->priv_data;
 246     int i, hdr_size, slice_count;
 247     unsigned pic_data_size;
 248     int log2_slice_mb_width, log2_slice_mb_height;
 249     int slice_mb_count, mb_x, mb_y;
 250     const uint8_t *data_ptr, *index_ptr;
 251
 252     hdr_size = buf[0] >> 3;
 253     if (hdr_size < 8 || hdr_size > buf_size) {
 254         av_log(avctx, AV_LOG_ERROR, "error, wrong picture header size\n");
 255         return AVERROR_INVALIDDATA;
 256     }
 257
 258     pic_data_size = AV_RB32(buf + 1);
 259     if (pic_data_size > buf_size) {
 260         av_log(avctx, AV_LOG_ERROR, "error, wrong picture data size\n");
 261         return AVERROR_INVALIDDATA;
 262     }
 263
 264     log2_slice_mb_width  = buf[7] >> 4;
 265     log2_slice_mb_height = buf[7] & 0xF;
 266     if (log2_slice_mb_width > 3 || log2_slice_mb_height) {
 267         av_log(avctx, AV_LOG_ERROR, "unsupported slice resolution: %dx%d\n",
 268                1 << log2_slice_mb_width, 1 << log2_slice_mb_height);
 269         return AVERROR_INVALIDDATA;
 270     }
 271
 272     ctx->mb_width  = (avctx->width  + 15) >> 4;
 273     if (ctx->frame_type)
 274         ctx->mb_height = (avctx->height + 31) >> 5;
 275     else
 276         ctx->mb_height = (avctx->height + 15) >> 4;
 277
 278     // QT ignores the written value
 279     // slice_count = AV_RB16(buf + 5);
 280     slice_count = ctx->mb_height * ((ctx->mb_width >> log2_slice_mb_width) +
 281                                     av_popcount(ctx->mb_width & (1 << log2_slice_mb_width) - 1));
 282
 283     if (ctx->slice_count != slice_count || !ctx->slices) {
 284         av_freep(&ctx->slices);
 285         ctx->slice_count = 0;
 286         ctx->slices = av_mallocz_array(slice_count, sizeof(*ctx->slices));
 287         if (!ctx->slices)
 288             return AVERROR(ENOMEM);
 289         ctx->slice_count = slice_count;
 290     }
 291
 292     if (!slice_count)
 293         return AVERROR(EINVAL);
 294
 295     if (hdr_size + slice_count*2 > buf_size) {
 296         av_log(avctx, AV_LOG_ERROR, "error, wrong slice count\n");
 297         return AVERROR_INVALIDDATA;
 298     }
 299
 300     // parse slice information
 301     index_ptr = buf + hdr_size;
 302     data_ptr  = index_ptr + slice_count*2;
 303
 304     slice_mb_count = 1 << log2_slice_mb_width;
 305     mb_x = 0;
 306     mb_y = 0;
 307
 308     for (i = 0; i < slice_count; i++) {
 309         SliceContext *slice = &ctx->slices[i];
 310
 311         slice->data = data_ptr;
 312         data_ptr += AV_RB16(index_ptr + i*2);
 313
 314         while (ctx->mb_width - mb_x < slice_mb_count)
 315             slice_mb_count >>= 1;
 316
 317         slice->mb_x = mb_x;
 318         slice->mb_y = mb_y;
 319         slice->mb_count = slice_mb_count;
 320         slice->data_size = data_ptr - slice->data;
 321
 322         if (slice->data_size < 6) {
 323             av_log(avctx, AV_LOG_ERROR, "error, wrong slice data size\n");
 324             return AVERROR_INVALIDDATA;
 325         }
 326
 327         mb_x += slice_mb_count;
 328         if (mb_x == ctx->mb_width) {
 329             slice_mb_count = 1 << log2_slice_mb_width;
 330             mb_x = 0;
 331             mb_y++;
 332         }
 333         if (data_ptr > buf + buf_size) {
 334             av_log(avctx, AV_LOG_ERROR, "error, slice out of bounds\n");
 335             return AVERROR_INVALIDDATA;
 336         }
 337     }
 338
 339     if (mb_x || mb_y != ctx->mb_height) {
 340         av_log(avctx, AV_LOG_ERROR, "error wrong mb count y %d h %d\n",
 341                mb_y, ctx->mb_height);
 342         return AVERROR_INVALIDDATA;
 343     }
 344
 345     return pic_data_size;
 346 }
 347
 348 #define DECODE_CODEWORD(val, codebook, SKIP)                            \
 349     do {                                                                \
 350         unsigned int rice_order, exp_order, switch_bits;                \
 351         unsigned int q, buf, bits;                                      \
 352                                                                         \
 353         UPDATE_CACHE(re, gb);                                           \
 354         buf = GET_CACHE(re, gb);                                        \
 355                                                                         \
 356         /* number of bits to switch between rice and exp golomb */      \
 357         switch_bits =  codebook & 3;                                    \
 358         rice_order  =  codebook >> 5;                                   \
 359         exp_order   = (codebook >> 2) & 7;                              \
 360                                                                         \
 361         q = 31 - av_log2(buf);                                          \
 362                                                                         \
 363         if (q > switch_bits) { /* exp golomb */                         \
 364             bits = exp_order - switch_bits + (q<<1);                    \
 365             if (bits > FFMIN(MIN_CACHE_BITS, 31))                       \
 366                 return AVERROR_INVALIDDATA;                             \
 367             val = SHOW_UBITS(re, gb, bits) - (1 << exp_order) +         \
 368                 ((switch_bits + 1) << rice_order);                      \
 369             SKIP(re, gb, bits);                                         \
 370         } else if (rice_order) {                                        \
 371             SKIP_BITS(re, gb, q+1);                                     \
 372             val = (q << rice_order) + SHOW_UBITS(re, gb, rice_order);   \
 373             SKIP(re, gb, rice_order);                                   \
 374         } else {                                                        \
 375             val = q;                                                    \
 376             SKIP(re, gb, q+1);                                          \
 377         }                                                               \
 378     } while (0)
 379
 380 #define TOSIGNED(x) (((x) >> 1) ^ (-((x) & 1)))
 381
 382 #define FIRST_DC_CB 0xB8
 383
 384 static const uint8_t dc_codebook[7] = { 0x04, 0x28, 0x28, 0x4D, 0x4D, 0x70, 0x70};
 385
 386 static av_always_inline int decode_dc_coeffs(GetBitContext *gb, int16_t *out,
 387                                               int blocks_per_slice)
 388 {
 389     int16_t prev_dc;
 390     int code, i, sign;
 391
 392     OPEN_READER(re, gb);
 393
 394     DECODE_CODEWORD(code, FIRST_DC_CB, LAST_SKIP_BITS);
 395     prev_dc = TOSIGNED(code);
 396     out[0] = prev_dc;
 397
 398     out += 64; // dc coeff for the next block
 399
 400     code = 5;
 401     sign = 0;
 402     for (i = 1; i < blocks_per_slice; i++, out += 64) {
 403         DECODE_CODEWORD(code, dc_codebook[FFMIN(code, 6U)], LAST_SKIP_BITS);
 404         if(code) sign ^= -(code & 1);
 405         else     sign  = 0;
 406         prev_dc += (((code + 1) >> 1) ^ sign) - sign;
 407         out[0] = prev_dc;
 408     }
 409     CLOSE_READER(re, gb);
 410     return 0;
 411 }
 412
 413 // adaptive codebook switching lut according to previous run/level values
 414 static const uint8_t run_to_cb[16] = { 0x06, 0x06, 0x05, 0x05, 0x04, 0x29, 0x29, 0x29, 0x29, 0x28, 0x28, 0x28, 0x28, 0x28, 0x28, 0x4C };
 415 static const uint8_t lev_to_cb[10] = { 0x04, 0x0A, 0x05, 0x06, 0x04, 0x28, 0x28, 0x28, 0x28, 0x4C };
 416
 417 static av_always_inline int decode_ac_coeffs(AVCodecContext *avctx, GetBitContext *gb,
 418                                              int16_t *out, int blocks_per_slice)
 419 {
 420     ProresContext *ctx = avctx->priv_data;
 421     int block_mask, sign;
 422     unsigned pos, run, level;
 423     int max_coeffs, i, bits_left;
 424     int log2_block_count = av_log2(blocks_per_slice);
 425
 426     OPEN_READER(re, gb);
 427     UPDATE_CACHE(re, gb);                                           \
 428     run   = 4;
 429     level = 2;
 430
 431     max_coeffs = 64 << log2_block_count;
 432     block_mask = blocks_per_slice - 1;
 433
 434     for (pos = block_mask;;) {
 435         bits_left = gb->size_in_bits - re_index;
 436         if (!bits_left || (bits_left < 32 && !SHOW_UBITS(re, gb, bits_left)))
 437             break;
 438
 439         DECODE_CODEWORD(run, run_to_cb[FFMIN(run,  15)], LAST_SKIP_BITS);
 440         pos += run + 1;
 441         if (pos >= max_coeffs) {
 442             av_log(avctx, AV_LOG_ERROR, "ac tex damaged %d, %d\n", pos, max_coeffs);
 443             return AVERROR_INVALIDDATA;
 444         }
 445
 446         DECODE_CODEWORD(level, lev_to_cb[FFMIN(level, 9)], SKIP_BITS);
 447         level += 1;
 448
 449         i = pos >> log2_block_count;
 450
 451         sign = SHOW_SBITS(re, gb, 1);
 452         SKIP_BITS(re, gb, 1);
 453         out[((pos & block_mask) << 6) + ctx->scan[i]] = ((level ^ sign) - sign);
 454     }
 455
 456     CLOSE_READER(re, gb);
 457     return 0;
 458 }
 459
 460 static int decode_slice_luma(AVCodecContext *avctx, SliceContext *slice,
 461                              uint16_t *dst, int dst_stride,
 462                              const uint8_t *buf, unsigned buf_size,
 463                              const int16_t *qmat)
 464 {
 465     ProresContext *ctx = avctx->priv_data;
 466     LOCAL_ALIGNED_32(int16_t, blocks, [8*4*64]);
 467     int16_t *block;
 468     GetBitContext gb;
 469     int i, blocks_per_slice = slice->mb_count<<2;
 470     int ret;
 471
 472     for (i = 0; i < blocks_per_slice; i++)
 473         ctx->bdsp.clear_block(blocks+(i<<6));
 474
 475     init_get_bits(&gb, buf, buf_size << 3);
 476
 477     if ((ret = decode_dc_coeffs(&gb, blocks, blocks_per_slice)) < 0)
 478         return ret;
 479     if ((ret = decode_ac_coeffs(avctx, &gb, blocks, blocks_per_slice)) < 0)
 480         return ret;
 481
 482     block = blocks;
 483     for (i = 0; i < slice->mb_count; i++) {
 484         ctx->prodsp.idct_put(dst, dst_stride, block+(0<<6), qmat);
 485         ctx->prodsp.idct_put(dst             +8, dst_stride, block+(1<<6), qmat);
 486         ctx->prodsp.idct_put(dst+4*dst_stride  , dst_stride, block+(2<<6), qmat);
 487         ctx->prodsp.idct_put(dst+4*dst_stride+8, dst_stride, block+(3<<6), qmat);
 488         block += 4*64;
 489         dst += 16;
 490     }
 491     return 0;
 492 }
 493
 494 static int decode_slice_chroma(AVCodecContext *avctx, SliceContext *slice,
 495                                uint16_t *dst, int dst_stride,
 496                                const uint8_t *buf, unsigned buf_size,
 497                                const int16_t *qmat, int log2_blocks_per_mb)
 498 {
 499     ProresContext *ctx = avctx->priv_data;
 500     LOCAL_ALIGNED_32(int16_t, blocks, [8*4*64]);
 501     int16_t *block;
 502     GetBitContext gb;
 503     int i, j, blocks_per_slice = slice->mb_count << log2_blocks_per_mb;
 504     int ret;
 505
 506     for (i = 0; i < blocks_per_slice; i++)
 507         ctx->bdsp.clear_block(blocks+(i<<6));
 508
 509     init_get_bits(&gb, buf, buf_size << 3);
 510
 511     if ((ret = decode_dc_coeffs(&gb, blocks, blocks_per_slice)) < 0)
 512         return ret;
 513     if ((ret = decode_ac_coeffs(avctx, &gb, blocks, blocks_per_slice)) < 0)
 514         return ret;
 515
 516     block = blocks;
 517     for (i = 0; i < slice->mb_count; i++) {
 518         for (j = 0; j < log2_blocks_per_mb; j++) {
 519             ctx->prodsp.idct_put(dst,              dst_stride, block+(0<<6), qmat);
 520             ctx->prodsp.idct_put(dst+4*dst_stride, dst_stride, block+(1<<6), qmat);
 521             block += 2*64;
 522             dst += 8;
 523         }
 524     }
 525     return 0;
 526 }
 527
 528 /**
 529  * Decode alpha slice plane.
 530  */
 531 static void decode_slice_alpha(ProresContext *ctx,
 532                                uint16_t *dst, int dst_stride,
 533                                const uint8_t *buf, int buf_size,
 534                                int blocks_per_slice)
 535 {
 536     GetBitContext gb;
 537     int i;
 538     LOCAL_ALIGNED_32(int16_t, blocks, [8*4*64]);
 539     int16_t *block;
 540
 541     for (i = 0; i < blocks_per_slice<<2; i++)
 542         ctx->bdsp.clear_block(blocks+(i<<6));
 543
 544     init_get_bits(&gb, buf, buf_size << 3);
 545
 546     if (ctx->alpha_info == 2) {
 547         ctx->unpack_alpha(&gb, blocks, blocks_per_slice * 4 * 64, 16);
 548     } else {
 549         ctx->unpack_alpha(&gb, blocks, blocks_per_slice * 4 * 64, 8);
 550     }
 551
 552     block = blocks;
 553     for (i = 0; i < 16; i++) {
 554         memcpy(dst, block, 16 * blocks_per_slice * sizeof(*dst));
 555         dst   += dst_stride >> 1;
 556         block += 16 * blocks_per_slice;
 557     }
 558 }
 559
 560 static int decode_slice_thread(AVCodecContext *avctx, void *arg, int jobnr, int threadnr)
 561 {
 562     ProresContext *ctx = avctx->priv_data;
 563     SliceContext *slice = &ctx->slices[jobnr];
 564     const uint8_t *buf = slice->data;
 565     AVFrame *pic = ctx->frame;
 566     int i, hdr_size, qscale, log2_chroma_blocks_per_mb;
 567     int luma_stride, chroma_stride;
 568     int y_data_size, u_data_size, v_data_size, a_data_size;
 569     uint8_t *dest_y, *dest_u, *dest_v, *dest_a;
 570     LOCAL_ALIGNED_16(int16_t, qmat_luma_scaled,  [64]);
 571     LOCAL_ALIGNED_16(int16_t, qmat_chroma_scaled,[64]);
 572     int mb_x_shift;
 573     int ret;
 574
 575     slice->ret = -1;
 576     //av_log(avctx, AV_LOG_INFO, "slice %d mb width %d mb x %d y %d\n",
 577     //       jobnr, slice->mb_count, slice->mb_x, slice->mb_y);
 578
 579     // slice header
 580     hdr_size = buf[0] >> 3;
 581     qscale = av_clip(buf[1], 1, 224);
 582     qscale = qscale > 128 ? qscale - 96 << 2: qscale;
 583     y_data_size = AV_RB16(buf + 2);
 584     u_data_size = AV_RB16(buf + 4);
 585     v_data_size = slice->data_size - y_data_size - u_data_size - hdr_size;
 586     if (hdr_size > 7) v_data_size = AV_RB16(buf + 6);
 587     a_data_size = slice->data_size - y_data_size - u_data_size -
 588                   v_data_size - hdr_size;
 589
 590     if (y_data_size < 0 || u_data_size < 0 || v_data_size < 0
 591         || hdr_size+y_data_size+u_data_size+v_data_size > slice->data_size){
 592         av_log(avctx, AV_LOG_ERROR, "invalid plane data size\n");
 593         return AVERROR_INVALIDDATA;
 594     }
 595
 596     buf += hdr_size;
 597
 598     for (i = 0; i < 64; i++) {
 599         qmat_luma_scaled  [i] = ctx->qmat_luma  [i] * qscale;
 600         qmat_chroma_scaled[i] = ctx->qmat_chroma[i] * qscale;
 601     }
 602
 603     if (ctx->frame_type == 0) {
 604         luma_stride   = pic->linesize[0];
 605         chroma_stride = pic->linesize[1];
 606     } else {
 607         luma_stride   = pic->linesize[0] << 1;
 608         chroma_stride = pic->linesize[1] << 1;
 609     }
 610
 611     if (avctx->pix_fmt == AV_PIX_FMT_YUV444P10 || avctx->pix_fmt == AV_PIX_FMT_YUVA444P10) {
 612         mb_x_shift = 5;
 613         log2_chroma_blocks_per_mb = 2;
 614     } else {
 615         mb_x_shift = 4;
 616         log2_chroma_blocks_per_mb = 1;
 617     }
 618
 619     dest_y = pic->data[0] + (slice->mb_y << 4) * luma_stride + (slice->mb_x << 5);
 620     dest_u = pic->data[1] + (slice->mb_y << 4) * chroma_stride + (slice->mb_x << mb_x_shift);
 621     dest_v = pic->data[2] + (slice->mb_y << 4) * chroma_stride + (slice->mb_x << mb_x_shift);
 622     dest_a = pic->data[3] + (slice->mb_y << 4) * luma_stride + (slice->mb_x << 5);
 623
 624     if (ctx->frame_type && ctx->first_field ^ ctx->frame->top_field_first) {
 625         dest_y += pic->linesize[0];
 626         dest_u += pic->linesize[1];
 627         dest_v += pic->linesize[2];
 628         dest_a += pic->linesize[3];
 629     }
 630
 631     ret = decode_slice_luma(avctx, slice, (uint16_t*)dest_y, luma_stride,
 632                             buf, y_data_size, qmat_luma_scaled);
 633     if (ret < 0)
 634         return ret;
 635
 636     if (!(avctx->flags & AV_CODEC_FLAG_GRAY) && (u_data_size + v_data_size) > 0) {
 637         ret = decode_slice_chroma(avctx, slice, (uint16_t*)dest_u, chroma_stride,
 638                                   buf + y_data_size, u_data_size,
 639                                   qmat_chroma_scaled, log2_chroma_blocks_per_mb);
 640         if (ret < 0)
 641             return ret;
 642
 643         ret = decode_slice_chroma(avctx, slice, (uint16_t*)dest_v, chroma_stride,
 644                                   buf + y_data_size + u_data_size, v_data_size,
 645                                   qmat_chroma_scaled, log2_chroma_blocks_per_mb);
 646         if (ret < 0)
 647             return ret;
 648     }
 649     else {
 650         size_t mb_max_x = slice->mb_count << (mb_x_shift - 1);
 651         size_t i, j;
 652         for (i = 0; i < 16; ++i)
 653             for (j = 0; j < mb_max_x; ++j) {
 654                 *(uint16_t*)(dest_u + (i * chroma_stride) + (j << 1)) = 511;
 655                 *(uint16_t*)(dest_v + (i * chroma_stride) + (j << 1)) = 511;
 656             }
 657     }
 658
 659     /* decode alpha plane if available */
 660     if (ctx->alpha_info && pic->data[3] && a_data_size)
 661         decode_slice_alpha(ctx, (uint16_t*)dest_a, luma_stride,
 662                            buf + y_data_size + u_data_size + v_data_size,
 663                            a_data_size, slice->mb_count);
 664
 665     slice->ret = 0;
 666     return 0;
 667 }
 668
 669 static int decode_picture(AVCodecContext *avctx)
 670 {
 671     ProresContext *ctx = avctx->priv_data;
 672     int i;
 673     int error = 0;
 674
 675     avctx->execute2(avctx, decode_slice_thread, NULL, NULL, ctx->slice_count);
 676
 677     for (i = 0; i < ctx->slice_count; i++)
 678         error += ctx->slices[i].ret < 0;
 679
 680     if (error)
 681         ctx->frame->decode_error_flags = FF_DECODE_ERROR_INVALID_BITSTREAM;
 682     if (error < ctx->slice_count)
 683         return 0;
 684
 685     return ctx->slices[0].ret;
 686 }
 687
 688 static int decode_frame(AVCodecContext *avctx, void *data, int *got_frame,
 689                         AVPacket *avpkt)
 690 {
 691     ProresContext *ctx = avctx->priv_data;
 692     ThreadFrame tframe = { .f = data };
 693     AVFrame *frame = data;
 694     const uint8_t *buf = avpkt->data;
 695     int buf_size = avpkt->size;
 696     int frame_hdr_size, pic_size, ret;
 697
 698     if (buf_size < 28 || AV_RL32(buf + 4) != AV_RL32("icpf")) {
 699         av_log(avctx, AV_LOG_ERROR, "invalid frame header\n");
 700         return AVERROR_INVALIDDATA;
 701     }
 702
 703     ctx->frame = frame;
 704     ctx->frame->pict_type = AV_PICTURE_TYPE_I;
 705     ctx->frame->key_frame = 1;
 706     ctx->first_field = 1;
 707
 708     buf += 8;
 709     buf_size -= 8;
 710
 711     frame_hdr_size = decode_frame_header(ctx, buf, buf_size, avctx);
 712     if (frame_hdr_size < 0)
 713         return frame_hdr_size;
 714
 715     buf += frame_hdr_size;
 716     buf_size -= frame_hdr_size;
 717
 718     if ((ret = ff_thread_get_buffer(avctx, &tframe, 0)) < 0)
 719         return ret;
 720
 721  decode_picture:
 722     pic_size = decode_picture_header(avctx, buf, buf_size);
 723     if (pic_size < 0) {
 724         av_log(avctx, AV_LOG_ERROR, "error decoding picture header\n");
 725         return pic_size;
 726     }
 727
 728     if ((ret = decode_picture(avctx)) < 0) {
 729         av_log(avctx, AV_LOG_ERROR, "error decoding picture\n");
 730         return ret;
 731     }
 732
 733     buf += pic_size;
 734     buf_size -= pic_size;
 735
 736     if (ctx->frame_type && buf_size > 0 && ctx->first_field) {
 737         ctx->first_field = 0;
 738         goto decode_picture;
 739     }
 740
 741     *got_frame      = 1;
 742
 743     return avpkt->size;
 744 }
 745
 746 #if HAVE_THREADS
 747 static int decode_init_thread_copy(AVCodecContext *avctx)
 748 {
 749     ProresContext *ctx = avctx->priv_data;
 750
 751     ctx->slices = NULL;
 752
 753     return 0;
 754 }
 755 #endif
 756
 757 static av_cold int decode_close(AVCodecContext *avctx)
 758 {
 759     ProresContext *ctx = avctx->priv_data;
 760
 761     av_freep(&ctx->slices);
 762
 763     return 0;
 764 }
 765
 766 AVCodec ff_prores_decoder = {
 767     .name           = "prores",
 768     .long_name      = NULL_IF_CONFIG_SMALL("ProRes (iCodec Pro)"),
 769     .type           = AVMEDIA_TYPE_VIDEO,
 770     .id             = AV_CODEC_ID_PRORES,
 771     .priv_data_size = sizeof(ProresContext),
 772     .init           = decode_init,
 773     .init_thread_copy = ONLY_IF_THREADS_ENABLED(decode_init_thread_copy),
 774     .close          = decode_close,
 775     .decode         = decode_frame,
 776     .capabilities   = AV_CODEC_CAP_DR1 | AV_CODEC_CAP_SLICE_THREADS | AV_CODEC_CAP_FRAME_THREADS,
 777     .profiles       = NULL_IF_CONFIG_SMALL(ff_prores_profiles),
 778 };