[FFmpeg-devel] [PATCH 1/2] avcodec: add photocd decoder
Paul B Mahol
onemda at gmail.com
Wed Dec 19 22:32:03 EET 2018
Signed-off-by: Paul B Mahol <onemda at gmail.com>
---
libavcodec/Makefile | 1 +
libavcodec/allcodecs.c | 1 +
libavcodec/avcodec.h | 1 +
libavcodec/codec_desc.c | 7 +
libavcodec/photocd.c | 445 ++++++++++++++++++++++++++++++++++++++++
5 files changed, 455 insertions(+)
create mode 100644 libavcodec/photocd.c
diff --git a/libavcodec/Makefile b/libavcodec/Makefile
index d53b8ff330..d32761559e 100644
--- a/libavcodec/Makefile
+++ b/libavcodec/Makefile
@@ -508,6 +508,7 @@ OBJS-$(CONFIG_PGM_ENCODER) += pnmenc.o
OBJS-$(CONFIG_PGMYUV_DECODER) += pnmdec.o pnm.o
OBJS-$(CONFIG_PGMYUV_ENCODER) += pnmenc.o
OBJS-$(CONFIG_PGSSUB_DECODER) += pgssubdec.o
+OBJS-$(CONFIG_PHOTOCD_DECODER) += photocd.o
OBJS-$(CONFIG_PICTOR_DECODER) += pictordec.o cga_data.o
OBJS-$(CONFIG_PIXLET_DECODER) += pixlet.o
OBJS-$(CONFIG_PJS_DECODER) += textdec.o ass.o
diff --git a/libavcodec/allcodecs.c b/libavcodec/allcodecs.c
index d70646e91a..db2071f980 100644
--- a/libavcodec/allcodecs.c
+++ b/libavcodec/allcodecs.c
@@ -227,6 +227,7 @@ extern AVCodec ff_pgm_encoder;
extern AVCodec ff_pgm_decoder;
extern AVCodec ff_pgmyuv_encoder;
extern AVCodec ff_pgmyuv_decoder;
+extern AVCodec ff_photocd_decoder;
extern AVCodec ff_pictor_decoder;
extern AVCodec ff_pixlet_decoder;
extern AVCodec ff_png_encoder;
diff --git a/libavcodec/avcodec.h b/libavcodec/avcodec.h
index 3922e89331..ffa3a5ddbd 100644
--- a/libavcodec/avcodec.h
+++ b/libavcodec/avcodec.h
@@ -452,6 +452,7 @@ enum AVCodecID {
AV_CODEC_ID_MWSC,
AV_CODEC_ID_WCMV,
AV_CODEC_ID_RASC,
+ AV_CODEC_ID_PHOTOCD,
/* various PCM "codecs" */
AV_CODEC_ID_FIRST_AUDIO = 0x10000, ///< A dummy id pointing at the start of audio codecs
diff --git a/libavcodec/codec_desc.c b/libavcodec/codec_desc.c
index 73f343ce24..0af51e5c2f 100644
--- a/libavcodec/codec_desc.c
+++ b/libavcodec/codec_desc.c
@@ -1691,6 +1691,13 @@ static const AVCodecDescriptor codec_descriptors[] = {
.long_name = NULL_IF_CONFIG_SMALL("RemotelyAnywhere Screen Capture"),
.props = AV_CODEC_PROP_LOSSY,
},
+ {
+ .id = AV_CODEC_ID_PHOTOCD,
+ .type = AVMEDIA_TYPE_VIDEO,
+ .name = "photocd",
+ .long_name = NULL_IF_CONFIG_SMALL("Kodak Photo CD"),
+ .props = AV_CODEC_PROP_LOSSY,
+ },
/* various PCM "codecs" */
{
diff --git a/libavcodec/photocd.c b/libavcodec/photocd.c
new file mode 100644
index 0000000000..043fd28533
--- /dev/null
+++ b/libavcodec/photocd.c
@@ -0,0 +1,445 @@
+/*
+ * Kodak PhotoCD (a.k.a. ImagePac) image decoder
+ *
+ * Copyright (c) 1996-2002 Gerd Knorr
+ * Copyright (c) 2010 Kenneth Vermeirsch
+ *
+ * This file is part of FFmpeg.
+ *
+ * FFmpeg is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * FFmpeg is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with FFmpeg; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ */
+
+/**
+ * @file
+ * Kodak PhotoCD (a.k.a. ImagePac) image decoder
+ *
+ * Supports resolutions up to 3072x2048.
+ */
+
+#include "libavutil/avassert.h"
+#include "libavutil/intreadwrite.h"
+#include "libavutil/opt.h"
+#include "avcodec.h"
+#include "bytestream.h"
+#include "get_bits.h"
+#include "internal.h"
+
+typedef struct PhotoCDContext {
+ AVClass *class;
+ int lowres;
+
+ GetByteContext gb;
+ int thumbnails; //* number of thumbnails; 0 for normal image */
+ int resolution;
+ int orientation;
+
+ const uint8_t *stream;
+ int streampos;
+
+ uint8_t *seq [3]; //* huffman tables */
+ uint8_t *bits[3];
+} PhotoCDContext;
+
+static const uint32_t img_start [] = { 0 /*dummy */ , 8192, 47104, 196608 };
+static const uint16_t def_width [] = { 0 /*dummy */ , 192, 384, 768, 1536, 3072, 6144 };
+static const uint16_t def_height[] = { 0 /*dummy */ , 128, 256, 512, 1024, 2048, 4096 };
+
+#define HTABLE_SIZE 0x10000
+
+static av_always_inline void interp_lowres(PhotoCDContext *s, AVFrame *picture,
+ int width, int height)
+{
+ GetByteContext *gb = &s->gb;
+ int start = s->streampos + img_start[3];
+ uint8_t *ptr, *ptr1, *ptr2;
+ uint8_t *dest;
+ int fill;
+
+ ptr = picture->data[0];
+ ptr1 = picture->data[1];
+ ptr2 = picture->data[2];
+
+ bytestream2_seek(gb, start, SEEK_SET);
+
+ for (int y = 0; y < height; y += 2) {
+ dest = ptr;
+ for (int x = 0; x < width - 1; x++) {
+ fill = bytestream2_get_byte(gb);
+ *(dest++) = fill;
+ *(dest++) = (fill + bytestream2_peek_byte(gb) + 1) >> 1;
+ }
+ fill = bytestream2_get_byte(gb);
+ *(dest++) = fill;
+ *(dest++) = fill;
+
+ ptr += picture->linesize[0] << 1;
+
+ dest = ptr;
+ for (int x = 0; x < width - 1; x++) {
+ fill = bytestream2_get_byte(gb);
+ *(dest++) = fill;
+ *(dest++) = (fill + bytestream2_peek_byte(gb) + 1) >> 1;
+ }
+ fill = bytestream2_get_byte(gb);
+ *(dest++) = fill;
+ *(dest++) = fill;
+
+ ptr += picture->linesize[0] << 1;
+
+ dest = ptr1;
+ for (int x = 0; x < (width >> 1) - 1; x++) {
+ fill = bytestream2_get_byte(gb);
+ *(dest++) = fill;
+ *(dest++) = (fill + bytestream2_peek_byte(gb) + 1) >> 1;
+ }
+ fill = bytestream2_get_byte(gb);
+ *(dest++) = fill;
+ *(dest++) = fill;
+
+ ptr1 += picture->linesize[1] << 1;
+
+ dest = ptr2;
+ for (int x = 0; x < (width >> 1) - 1; x++) {
+ fill = bytestream2_get_byte(gb);
+ *(dest++) = fill;
+ *(dest++) = (fill + bytestream2_peek_byte(gb) + 1) >> 1;
+ }
+ fill = bytestream2_get_byte(gb);
+ *(dest++) = fill;
+ *(dest++) = fill;
+
+ ptr2 += picture->linesize[2] << 1;
+ }
+
+ s->streampos += bytestream2_tell(gb) - start;
+}
+
+static void interp_lines(uint8_t *ptr, int linesize, int width, int height)
+{
+ uint8_t *src1, *src2, *dest;
+ int x;
+
+ for (int y = 0; y < height - 2; y += 2) {
+ src1 = ptr;
+ dest = src1 + linesize;
+ src2 = dest + linesize;
+ for (x = 0; x < width - 2; x += 2) {
+ dest[x] = (src1[x] + src2[x] + 1) >> 1;
+ dest[x + 1] = (src1[x] + src2[x] + src1[x + 2] + src2[x + 2] + 2) >> 2;
+ }
+ dest[x] = dest[x + 1] = (src1[x] + src2[x] + 1) >> 1;
+
+ ptr += linesize << 1;
+ }
+
+ src1 = ptr;
+ dest = ptr + linesize;
+ for (x = 0; x < width - 2; x += 2) {
+ dest[x] = src1[x];
+ dest[x + 1] = (src1[x] + src1[x + 2] + 1) >> 1;
+ }
+ dest[x] = dest[x + 1] = src1[x];
+}
+
+static void interp_pixels(uint8_t *ptr, int linesize, int width, int height)
+{
+ uint8_t *src, *dest;
+
+ for (int y = height - 2; y >= 0; y -= 2) {
+ src = ptr + (y >> 1) * linesize;
+ dest = ptr + y * linesize;
+
+ dest[width - 2] = dest[width - 1] = src[(width >> 1) - 1];
+ for (int x = width - 4; x >= 0; x -= 2) {
+ dest[x] = src[x >> 1];
+ dest[x + 1] = (src[x >> 1] + src[(x >> 1) + 1] + 1) >> 1;
+ }
+ }
+}
+
+static int read_hufftable(AVCodecContext *avctx, uint8_t **aseq, uint8_t **abits)
+{
+ PhotoCDContext *s = avctx->priv_data;
+ GetByteContext *gb = &s->gb;
+ int start = s->streampos;
+ int len, j;
+
+ bytestream2_seek(gb, start, SEEK_SET);
+
+ len = bytestream2_get_byte(gb);
+
+ if (!*aseq)
+ *aseq = av_malloc(HTABLE_SIZE * sizeof(uint8_t));
+ if (!*abits)
+ *abits = av_malloc(HTABLE_SIZE * sizeof(uint8_t));
+
+ memset(*aseq, 0, HTABLE_SIZE * sizeof(uint8_t));
+ memset(*abits, 0, HTABLE_SIZE * sizeof(uint8_t));
+
+ for (; len >= 0; len--) {
+ const int bits = bytestream2_get_byte(gb) + 1;
+ const int seq = bytestream2_get_be16(gb);
+ const int seq2 = seq + (0x10000 >> bits);
+ const int fill = bytestream2_get_byte(gb);
+ for (j = seq; j < seq2; j++) {
+ if ((*abits)[j]) {
+ av_log(avctx, AV_LOG_ERROR, "invalid huffmann code table #%x\n", j);
+ return -1;
+ }
+ (*aseq )[j] = fill;
+ (*abits)[j] = bits;
+ }
+ }
+
+ s->streampos = bytestream2_tell(gb);
+ return 0;
+}
+
+static int decode_huff(AVCodecContext *avctx, AVFrame *frame,
+ int target_res, int curr_res)
+{
+ PhotoCDContext *s = avctx->priv_data;
+ GetBitContext g;
+ GetByteContext *gb = &s->gb;
+ int y = 0, type, height, y2;
+ int start = s->streampos;
+ unsigned shiftreg, bit;
+ const int scaling = target_res - curr_res;
+ const uint8_t type2idx[] = { 0, 0xff, 1, 2 };
+
+ bytestream2_seek(gb, start, SEEK_SET);
+ init_get_bits8(&g, gb->buffer, bytestream2_get_bytes_left(gb));
+
+ height = def_height[curr_res];
+ y2 = avctx->height >> scaling;
+
+ while (y < height) {
+ uint8_t *data;
+ uint8_t *seq;
+ uint8_t *bits;
+ int x2, idx;
+
+ bit = 0;
+ for (; get_bits_left(&g) > 0;) {
+ if ((show_bits_long(&g, 32) & 0x00fff000) == 0xfff000)
+ break;
+ skip_bits(&g, 8);
+ }
+
+ shiftreg = show_bits_long(&g, 32) & 0xffffff00;
+ while (shiftreg != 0xfffffe00) {
+ if (get_bits_left(&g) <= 0)
+ return -1;
+ skip_bits(&g, 1);
+ shiftreg = show_bits_long(&g, 32) & 0xffffff00;
+ }
+ skip_bits(&g, 16);
+ y = (show_bits_long(&g, 32) >> 9) & 0x1fff;
+ skip_bits(&g, 8);
+ if (y >= height)
+ break;
+ type = show_bits_long(&g, 32) >> 30;
+ skip_bits(&g, 16);
+
+ if (type == 1)
+ return -1;
+ idx = type2idx[type];
+ seq = s->seq [idx];
+ bits = s->bits[idx];
+ if (!bits)
+ return -1;
+ if (!seq)
+ return -1;
+
+ data = frame->data[idx] + (y >> !!type) * frame->linesize[idx];
+
+ x2 = avctx->width >> (scaling + !!type);
+ for (int x = 0; x < x2; x++) {
+ if (get_bits_left(&g) <= 0)
+ return -1;
+ int n = show_bits_long(&g, 32) & 0xffff;
+ int b = bits[n];
+ int m = show_bits_long(&g, 32) & (1 << b);
+ skip_bits_long(&g, b);
+ data[x] = av_clip_uint8((int)data[x] + (int)seq[m]);
+ }
+ }
+
+ s->streampos += (get_bits_count(&g) + 7) >> 3;
+ s->streampos = (s->streampos + 0x6000 + 2047) & ~0x7ff;
+
+ return 0;
+}
+
+static int photocd_decode_frame(AVCodecContext *avctx, void *data,
+ int *got_frame, AVPacket *avpkt)
+{
+ PhotoCDContext *s = avctx->priv_data;
+ const uint8_t *buf = avpkt->data;
+ GetByteContext *gb = &s->gb;
+ AVFrame *p = data;
+ uint8_t *ptr, *ptr1, *ptr2;
+ int ret;
+
+ if (avpkt->size < 7)
+ return AVERROR_INVALIDDATA;
+
+ bytestream2_init(gb, avpkt->data, avpkt->size);
+
+ if (!strncmp("PCD_OPA", buf, 7)) {
+ s->thumbnails = AV_RL16(buf + 10);
+ av_log(avctx, AV_LOG_WARNING, "this is a thumbnails file, "
+ "reading first thumbnail only\n");
+ } else if (avpkt->size < 786432) {
+ return AVERROR_INVALIDDATA;
+ }
+
+ s->orientation = s->thumbnails ? buf[12] & 3 : buf[0x48] & 3;
+
+ if (s->thumbnails)
+ s->resolution = 1;
+ else if (avpkt->size <= 788480)
+ s->resolution = 3;
+ else
+ s->resolution = av_clip(5 - s->lowres, 1, 5);
+
+ avctx->width = def_width [s->resolution];
+ avctx->height = def_height[s->resolution];
+
+ if ((ret = ff_get_buffer(avctx, p, 0)) < 0)
+ return ret;
+ p->pict_type = AV_PICTURE_TYPE_I;
+ p->key_frame = 1;
+
+ if (s->resolution < 4) {
+ ptr = p->data[0];
+ ptr1 = p->data[1];
+ ptr2 = p->data[2];
+
+ if (s->thumbnails) {
+ bytestream2_seek(gb, 10240, SEEK_SET);
+ } else {
+ bytestream2_seek(gb, img_start[s->resolution], SEEK_SET);
+ }
+
+ for (int y = 0; y < avctx->height; y += 2) {
+ bytestream2_get_buffer(gb, ptr, avctx->width);
+ ptr += p->linesize[0];
+
+ bytestream2_get_buffer(gb, ptr, avctx->width);
+ ptr += p->linesize[0];
+
+ bytestream2_get_buffer(gb, ptr1, avctx->width >> 1);
+ ptr1 += p->linesize[1];
+
+ bytestream2_get_buffer(gb, ptr2, avctx->width >> 1);
+ ptr2 += p->linesize[2];
+ }
+ } else {
+ s->stream = buf;
+ s->streampos = 0;
+ ptr = p->data[0];
+ ptr1 = p->data[1];
+ ptr2 = p->data[2];
+
+ interp_lowres(s, p, def_width[3], def_height[3]);
+
+ interp_lines(ptr1, p->linesize[1], def_width[3], def_height[3]);
+ interp_lines(ptr2, p->linesize[2], def_width[3], def_height[3]);
+
+ if (s->resolution == 5) {
+ interp_pixels(ptr1, p->linesize[1], def_width[4], def_height[4]);
+ interp_lines (ptr1, p->linesize[1], def_width[4], def_height[4]);
+ interp_pixels(ptr2, p->linesize[2], def_width[4], def_height[4]);
+ interp_lines (ptr2, p->linesize[2], def_width[4], def_height[4]);
+ }
+
+ interp_lines(ptr, p->linesize[0], def_width[4], def_height[4]);
+
+ s->streampos = 0xc2000;
+ if (read_hufftable(avctx, &s->seq[0], &s->bits[0]) < 0)
+ return AVERROR_INVALIDDATA;
+ s->streampos = (s->streampos + 2047) & ~0x3ff;
+ if (decode_huff(avctx, p, s->resolution, 4) < 0)
+ return AVERROR_INVALIDDATA;
+
+ if (s->resolution == 5) {
+ interp_pixels(ptr, p->linesize[0], def_width[5], def_height[5]);
+ interp_lines (ptr, p->linesize[0], def_width[5], def_height[5]);
+
+ for (int n = 0; n < 3; n++) {
+ if (read_hufftable(avctx, &s->seq[n], &s->bits[n]) < 0)
+ return AVERROR_INVALIDDATA;
+ }
+ s->streampos = (s->streampos + 2047) & ~0x3ff;
+ if (decode_huff(avctx, p, 5, 5) < 0)
+ return AVERROR_INVALIDDATA;
+ }
+ }
+
+ *got_frame = 1;
+
+ return bytestream2_tell(gb);
+}
+
+static av_cold int photocd_decode_init(AVCodecContext *avctx)
+{
+ avctx->pix_fmt = AV_PIX_FMT_YUV420P;
+
+ return 0;
+}
+
+static av_cold int photocd_decode_close(AVCodecContext *avctx)
+{
+ PhotoCDContext *s = avctx->priv_data;
+
+ av_free(s->seq [0]);
+ av_free(s->bits[0]);
+ av_free(s->seq [1]);
+ av_free(s->bits[1]);
+ av_free(s->seq [2]);
+ av_free(s->bits[2]);
+
+ return 0;
+}
+
+#define OFFSET(x) offsetof(PhotoCDContext, x)
+#define VD AV_OPT_FLAG_VIDEO_PARAM | AV_OPT_FLAG_DECODING_PARAM
+
+static const AVOption options[] = {
+ { "lowres", "Lower the decoding resolution by a power of two",
+ OFFSET(lowres), AV_OPT_TYPE_INT, { .i64 = 0 }, 0, 4, VD },
+ { NULL },
+};
+
+static const AVClass photocd_class = {
+ .class_name = "photocd",
+ .item_name = av_default_item_name,
+ .option = options,
+ .version = LIBAVUTIL_VERSION_INT,
+};
+
+AVCodec ff_photocd_decoder = {
+ .name = "photocd",
+ .type = AVMEDIA_TYPE_VIDEO,
+ .id = AV_CODEC_ID_PHOTOCD,
+ .priv_data_size = sizeof (PhotoCDContext),
+ .priv_class = &photocd_class,
+ .init = photocd_decode_init,
+ .close = photocd_decode_close,
+ .decode = photocd_decode_frame,
+ .capabilities = AV_CODEC_CAP_DR1,
+ .long_name = NULL_IF_CONFIG_SMALL("Kodak Photo CD"),
+};
--
2.17.1
More information about the ffmpeg-devel
mailing list