yading@10: /*
yading@10:  * DPX (.dpx) image decoder
yading@10:  * Copyright (c) 2009 Jimmy Christensen
yading@10:  *
yading@10:  * This file is part of FFmpeg.
yading@10:  *
yading@10:  * FFmpeg is free software; you can redistribute it and/or
yading@10:  * modify it under the terms of the GNU Lesser General Public
yading@10:  * License as published by the Free Software Foundation; either
yading@10:  * version 2.1 of the License, or (at your option) any later version.
yading@10:  *
yading@10:  * FFmpeg is distributed in the hope that it will be useful,
yading@10:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
yading@10:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
yading@10:  * Lesser General Public License for more details.
yading@10:  *
yading@10:  * You should have received a copy of the GNU Lesser General Public
yading@10:  * License along with FFmpeg; if not, write to the Free Software
yading@10:  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
yading@10:  */
yading@10: 
yading@10: #include "libavutil/intreadwrite.h"
yading@10: #include "libavutil/imgutils.h"
yading@10: #include "bytestream.h"
yading@10: #include "avcodec.h"
yading@10: #include "internal.h"
yading@10: 
yading@10: static unsigned int read32(const uint8_t **ptr, int is_big)
yading@10: {
yading@10:     unsigned int temp;
yading@10:     if (is_big) {
yading@10:         temp = AV_RB32(*ptr);
yading@10:     } else {
yading@10:         temp = AV_RL32(*ptr);
yading@10:     }
yading@10:     *ptr += 4;
yading@10:     return temp;
yading@10: }
yading@10: 
yading@10: static uint16_t read10in32(const uint8_t **ptr, uint32_t * lbuf,
yading@10:                                   int * n_datum, int is_big)
yading@10: {
yading@10:     if (*n_datum)
yading@10:         (*n_datum)--;
yading@10:     else {
yading@10:         *lbuf = read32(ptr, is_big);
yading@10:         *n_datum = 2;
yading@10:     }
yading@10: 
yading@10:     *lbuf = (*lbuf << 10) | (*lbuf >> 22);
yading@10: 
yading@10:     return *lbuf & 0x3FF;
yading@10: }
yading@10: 
yading@10: static int decode_frame(AVCodecContext *avctx,
yading@10:                         void *data,
yading@10:                         int *got_frame,
yading@10:                         AVPacket *avpkt)
yading@10: {
yading@10:     const uint8_t *buf = avpkt->data;
yading@10:     int buf_size       = avpkt->size;
yading@10:     AVFrame *const p = data;
yading@10:     uint8_t *ptr[AV_NUM_DATA_POINTERS];
yading@10: 
yading@10:     unsigned int offset;
yading@10:     int magic_num, endian;
yading@10:     int x, y, i, ret;
yading@10:     int w, h, bits_per_color, descriptor, elements, packing, total_size;
yading@10: 
yading@10:     unsigned int rgbBuffer = 0;
yading@10:     int n_datum = 0;
yading@10: 
yading@10:     if (avpkt->size <= 1634) {
yading@10:         av_log(avctx, AV_LOG_ERROR, "Packet too small for DPX header\n");
yading@10:         return AVERROR_INVALIDDATA;
yading@10:     }
yading@10: 
yading@10:     magic_num = AV_RB32(buf);
yading@10:     buf += 4;
yading@10: 
yading@10:     /* Check if the files "magic number" is "SDPX" which means it uses
yading@10:      * big-endian or XPDS which is for little-endian files */
yading@10:     if (magic_num == AV_RL32("SDPX")) {
yading@10:         endian = 0;
yading@10:     } else if (magic_num == AV_RB32("SDPX")) {
yading@10:         endian = 1;
yading@10:     } else {
yading@10:         av_log(avctx, AV_LOG_ERROR, "DPX marker not found\n");
yading@10:         return AVERROR_INVALIDDATA;
yading@10:     }
yading@10: 
yading@10:     offset = read32(&buf, endian);
yading@10:     if (avpkt->size <= offset) {
yading@10:         av_log(avctx, AV_LOG_ERROR, "Invalid data start offset\n");
yading@10:         return AVERROR_INVALIDDATA;
yading@10:     }
yading@10:     // Need to end in 0x304 offset from start of file
yading@10:     buf = avpkt->data + 0x304;
yading@10:     w = read32(&buf, endian);
yading@10:     h = read32(&buf, endian);
yading@10:     if ((ret = av_image_check_size(w, h, 0, avctx)) < 0)
yading@10:         return ret;
yading@10: 
yading@10:     if (w != avctx->width || h != avctx->height)
yading@10:         avcodec_set_dimensions(avctx, w, h);
yading@10: 
yading@10:     // Need to end in 0x320 to read the descriptor
yading@10:     buf += 20;
yading@10:     descriptor = buf[0];
yading@10: 
yading@10:     // Need to end in 0x323 to read the bits per color
yading@10:     buf += 3;
yading@10:     avctx->bits_per_raw_sample =
yading@10:     bits_per_color = buf[0];
yading@10:     buf++;
yading@10:     packing = *((uint16_t*)buf);
yading@10: 
yading@10:     buf += 824;
yading@10:     avctx->sample_aspect_ratio.num = read32(&buf, endian);
yading@10:     avctx->sample_aspect_ratio.den = read32(&buf, endian);
yading@10:     if (avctx->sample_aspect_ratio.num > 0 && avctx->sample_aspect_ratio.den > 0)
yading@10:         av_reduce(&avctx->sample_aspect_ratio.num, &avctx->sample_aspect_ratio.den,
yading@10:                    avctx->sample_aspect_ratio.num,  avctx->sample_aspect_ratio.den,
yading@10:                   0x10000);
yading@10:     else
yading@10:         avctx->sample_aspect_ratio = (AVRational){ 0, 1 };
yading@10: 
yading@10:     switch (descriptor) {
yading@10:         case 51: // RGBA
yading@10:             elements = 4;
yading@10:             break;
yading@10:         case 50: // RGB
yading@10:             elements = 3;
yading@10:             break;
yading@10:         default:
yading@10:             av_log(avctx, AV_LOG_ERROR, "Unsupported descriptor %d\n", descriptor);
yading@10:             return AVERROR_INVALIDDATA;
yading@10:     }
yading@10: 
yading@10:     switch (bits_per_color) {
yading@10:         case 8:
yading@10:             if (elements == 4) {
yading@10:                 avctx->pix_fmt = AV_PIX_FMT_RGBA;
yading@10:             } else {
yading@10:                 avctx->pix_fmt = AV_PIX_FMT_RGB24;
yading@10:             }
yading@10:             total_size = avctx->width * avctx->height * elements;
yading@10:             break;
yading@10:         case 10:
yading@10:             if (!packing) {
yading@10:                 av_log(avctx, AV_LOG_ERROR, "Packing to 32bit required\n");
yading@10:                 return -1;
yading@10:             }
yading@10:             avctx->pix_fmt = AV_PIX_FMT_GBRP10;
yading@10:             total_size = (avctx->width * elements + 2) / 3 * 4 * avctx->height;
yading@10:             break;
yading@10:         case 12:
yading@10:             if (!packing) {
yading@10:                 av_log(avctx, AV_LOG_ERROR, "Packing to 16bit required\n");
yading@10:                 return -1;
yading@10:             }
yading@10:             if (endian) {
yading@10:                 avctx->pix_fmt = AV_PIX_FMT_GBRP12BE;
yading@10:             } else {
yading@10:                 avctx->pix_fmt = AV_PIX_FMT_GBRP12LE;
yading@10:             }
yading@10:             total_size = 2 * avctx->width * avctx->height * elements;
yading@10:             break;
yading@10:         case 16:
yading@10:             if (endian) {
yading@10:                 avctx->pix_fmt = elements == 4 ? AV_PIX_FMT_RGBA64BE : AV_PIX_FMT_RGB48BE;
yading@10:             } else {
yading@10:                 avctx->pix_fmt = elements == 4 ? AV_PIX_FMT_RGBA64LE : AV_PIX_FMT_RGB48LE;
yading@10:             }
yading@10:             total_size = 2 * avctx->width * avctx->height * elements;
yading@10:             break;
yading@10:         default:
yading@10:             av_log(avctx, AV_LOG_ERROR, "Unsupported color depth : %d\n", bits_per_color);
yading@10:             return AVERROR_INVALIDDATA;
yading@10:     }
yading@10: 
yading@10:     if ((ret = ff_get_buffer(avctx, p, 0)) < 0)
yading@10:         return ret;
yading@10: 
yading@10:     // Move pointer to offset from start of file
yading@10:     buf =  avpkt->data + offset;
yading@10: 
yading@10:     for (i=0; i<AV_NUM_DATA_POINTERS; i++)
yading@10:         ptr[i] = p->data[i];
yading@10: 
yading@10:     if (total_size + (int64_t)offset > avpkt->size) {
yading@10:         av_log(avctx, AV_LOG_ERROR, "Overread buffer. Invalid header?\n");
yading@10:         return AVERROR_INVALIDDATA;
yading@10:     }
yading@10:     switch (bits_per_color) {
yading@10:     case 10:
yading@10:         for (x = 0; x < avctx->height; x++) {
yading@10:             uint16_t *dst[3] = {(uint16_t*)ptr[0],
yading@10:                                 (uint16_t*)ptr[1],
yading@10:                                 (uint16_t*)ptr[2]};
yading@10:             for (y = 0; y < avctx->width; y++) {
yading@10:                 *dst[2]++ = read10in32(&buf, &rgbBuffer,
yading@10:                                        &n_datum, endian);
yading@10:                 *dst[0]++ = read10in32(&buf, &rgbBuffer,
yading@10:                                        &n_datum, endian);
yading@10:                 *dst[1]++ = read10in32(&buf, &rgbBuffer,
yading@10:                                        &n_datum, endian);
yading@10:                 // For 10 bit, ignore alpha
yading@10:                 if (elements == 4)
yading@10:                     read10in32(&buf, &rgbBuffer,
yading@10:                                &n_datum, endian);
yading@10:             }
yading@10:             n_datum = 0;
yading@10:             for (i = 0; i < 3; i++)
yading@10:                 ptr[i] += p->linesize[i];
yading@10:         }
yading@10:         break;
yading@10:     case 12:
yading@10:         for (x = 0; x < avctx->height; x++) {
yading@10:             uint16_t *dst[3] = {(uint16_t*)ptr[0],
yading@10:                                 (uint16_t*)ptr[1],
yading@10:                                 (uint16_t*)ptr[2]};
yading@10:             for (y = 0; y < avctx->width; y++) {
yading@10:                 *dst[2] = *((uint16_t*)buf);
yading@10:                 *dst[2] = (*dst[2] >> 4) | (*dst[2] << 12);
yading@10:                 dst[2]++;
yading@10:                 buf += 2;
yading@10:                 *dst[0] = *((uint16_t*)buf);
yading@10:                 *dst[0] = (*dst[0] >> 4) | (*dst[0] << 12);
yading@10:                 dst[0]++;
yading@10:                 buf += 2;
yading@10:                 *dst[1] = *((uint16_t*)buf);
yading@10:                 *dst[1] = (*dst[1] >> 4) | (*dst[1] << 12);
yading@10:                 dst[1]++;
yading@10:                 buf += 2;
yading@10:                 // For 12 bit, ignore alpha
yading@10:                 if (elements == 4)
yading@10:                     buf += 2;
yading@10:             }
yading@10:             for (i = 0; i < 3; i++)
yading@10:                 ptr[i] += p->linesize[i];
yading@10:         }
yading@10:         break;
yading@10:     case 16:
yading@10:         elements *= 2;
yading@10:     case 8:
yading@10:         for (x = 0; x < avctx->height; x++) {
yading@10:             memcpy(ptr[0], buf, elements*avctx->width);
yading@10:             ptr[0] += p->linesize[0];
yading@10:             buf += elements*avctx->width;
yading@10:         }
yading@10:         break;
yading@10:     }
yading@10: 
yading@10:     *got_frame = 1;
yading@10: 
yading@10:     return buf_size;
yading@10: }
yading@10: 
yading@10: AVCodec ff_dpx_decoder = {
yading@10:     .name           = "dpx",
yading@10:     .type           = AVMEDIA_TYPE_VIDEO,
yading@10:     .id             = AV_CODEC_ID_DPX,
yading@10:     .decode         = decode_frame,
yading@10:     .long_name      = NULL_IF_CONFIG_SMALL("DPX image"),
yading@10:     .capabilities   = CODEC_CAP_DR1,
yading@10: };