[deb_ffmpeg.git] / ffmpeg / libavcodec / roqvideodec.c

/*
 * Copyright (c) 2003 The FFmpeg Project
 *
 * 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
 * id RoQ Video Decoder by Dr. Tim Ferguson
 * For more information about the id RoQ format, visit:
 *   http://www.csse.monash.edu.au/~timf/
 */

#include "libavutil/avassert.h"
#include "avcodec.h"
#include "bytestream.h"
#include "internal.h"
#include "roqvideo.h"

static void roqvideo_decode_frame(RoqContext *ri)
{
    unsigned int chunk_id = 0, chunk_arg = 0;
    unsigned long chunk_size = 0;
    int i, j, k, nv1, nv2, vqflg = 0, vqflg_pos = -1;
    int vqid, xpos, ypos, xp, yp, x, y, mx, my;
    int frame_stats[2][4] = {{0},{0}};
    roq_qcell *qcell;
    int64_t chunk_start;

    while (bytestream2_get_bytes_left(&ri->gb) >= 8) {
        chunk_id   = bytestream2_get_le16(&ri->gb);
        chunk_size = bytestream2_get_le32(&ri->gb);
        chunk_arg  = bytestream2_get_le16(&ri->gb);

        if(chunk_id == RoQ_QUAD_VQ)
            break;
        if(chunk_id == RoQ_QUAD_CODEBOOK) {
            if((nv1 = chunk_arg >> 8) == 0)
                nv1 = 256;
            if((nv2 = chunk_arg & 0xff) == 0 && nv1 * 6 < chunk_size)
                nv2 = 256;
            for(i = 0; i < nv1; i++) {
                ri->cb2x2[i].y[0] = bytestream2_get_byte(&ri->gb);
                ri->cb2x2[i].y[1] = bytestream2_get_byte(&ri->gb);
                ri->cb2x2[i].y[2] = bytestream2_get_byte(&ri->gb);
                ri->cb2x2[i].y[3] = bytestream2_get_byte(&ri->gb);
                ri->cb2x2[i].u    = bytestream2_get_byte(&ri->gb);
                ri->cb2x2[i].v    = bytestream2_get_byte(&ri->gb);
            }
            for(i = 0; i < nv2; i++)
                for(j = 0; j < 4; j++)
                    ri->cb4x4[i].idx[j] = bytestream2_get_byte(&ri->gb);
        }
    }

    chunk_start = bytestream2_tell(&ri->gb);
    xpos = ypos = 0;

    if (chunk_size > bytestream2_get_bytes_left(&ri->gb)) {
        av_log(ri->avctx, AV_LOG_ERROR, "Chunk does not fit in input buffer\n");
        chunk_size = bytestream2_get_bytes_left(&ri->gb);
    }

    while (bytestream2_tell(&ri->gb) < chunk_start + chunk_size) {
        for (yp = ypos; yp < ypos + 16; yp += 8)
            for (xp = xpos; xp < xpos + 16; xp += 8) {
                if (bytestream2_tell(&ri->gb) >= chunk_start + chunk_size) {
                    av_log(ri->avctx, AV_LOG_VERBOSE, "Chunk is too short\n");
                    return;
                }
                if (vqflg_pos < 0) {
                    vqflg = bytestream2_get_le16(&ri->gb);
                    vqflg_pos = 7;
                }
                vqid = (vqflg >> (vqflg_pos * 2)) & 0x3;
                frame_stats[0][vqid]++;
                vqflg_pos--;

                switch(vqid) {
                case RoQ_ID_MOT:
                    break;
                case RoQ_ID_FCC: {
                    int byte = bytestream2_get_byte(&ri->gb);
                    mx = 8 - (byte >> 4) - ((signed char) (chunk_arg >> 8));
                    my = 8 - (byte & 0xf) - ((signed char) chunk_arg);
                    ff_apply_motion_8x8(ri, xp, yp, mx, my);
                    break;
                }
                case RoQ_ID_SLD:
                    qcell = ri->cb4x4 + bytestream2_get_byte(&ri->gb);
                    ff_apply_vector_4x4(ri, xp,     yp,     ri->cb2x2 + qcell->idx[0]);
                    ff_apply_vector_4x4(ri, xp + 4, yp,     ri->cb2x2 + qcell->idx[1]);
                    ff_apply_vector_4x4(ri, xp,     yp + 4, ri->cb2x2 + qcell->idx[2]);
                    ff_apply_vector_4x4(ri, xp + 4, yp + 4, ri->cb2x2 + qcell->idx[3]);
                    break;
                case RoQ_ID_CCC:
                    for (k = 0; k < 4; k++) {
                        x = xp; y = yp;
                        if(k & 0x01) x += 4;
                        if(k & 0x02) y += 4;

                        if (bytestream2_tell(&ri->gb) >= chunk_start + chunk_size) {
                            av_log(ri->avctx, AV_LOG_VERBOSE, "Chunk is too short\n");
                            return;
                        }
                        if (vqflg_pos < 0) {
                            vqflg = bytestream2_get_le16(&ri->gb);
                            vqflg_pos = 7;
                        }
                        vqid = (vqflg >> (vqflg_pos * 2)) & 0x3;
                        frame_stats[1][vqid]++;
                        vqflg_pos--;
                        switch(vqid) {
                        case RoQ_ID_MOT:
                            break;
                        case RoQ_ID_FCC: {
                            int byte = bytestream2_get_byte(&ri->gb);
                            mx = 8 - (byte >> 4) - ((signed char) (chunk_arg >> 8));
                            my = 8 - (byte & 0xf) - ((signed char) chunk_arg);
                            ff_apply_motion_4x4(ri, x, y, mx, my);
                            break;
                        }
                        case RoQ_ID_SLD:
                            qcell = ri->cb4x4 + bytestream2_get_byte(&ri->gb);
                            ff_apply_vector_2x2(ri, x,     y,     ri->cb2x2 + qcell->idx[0]);
                            ff_apply_vector_2x2(ri, x + 2, y,     ri->cb2x2 + qcell->idx[1]);
                            ff_apply_vector_2x2(ri, x,     y + 2, ri->cb2x2 + qcell->idx[2]);
                            ff_apply_vector_2x2(ri, x + 2, y + 2, ri->cb2x2 + qcell->idx[3]);
                            break;
                        case RoQ_ID_CCC:
                            ff_apply_vector_2x2(ri, x,     y,     ri->cb2x2 + bytestream2_get_byte(&ri->gb));
                            ff_apply_vector_2x2(ri, x + 2, y,     ri->cb2x2 + bytestream2_get_byte(&ri->gb));
                            ff_apply_vector_2x2(ri, x,     y + 2, ri->cb2x2 + bytestream2_get_byte(&ri->gb));
                            ff_apply_vector_2x2(ri, x + 2, y + 2, ri->cb2x2 + bytestream2_get_byte(&ri->gb));
                            break;
                        }
                    }
                    break;
                default:
                    av_assert2(0);
            }
        }

        xpos += 16;
        if (xpos >= ri->width) {
            xpos -= ri->width;
            ypos += 16;
        }
        if(ypos >= ri->height)
            break;
    }
}


static av_cold int roq_decode_init(AVCodecContext *avctx)
{
    RoqContext *s = avctx->priv_data;

    s->avctx = avctx;

    if (avctx->width % 16 || avctx->height % 16) {
        av_log(avctx, AV_LOG_ERROR,
               "Dimensions must be a multiple of 16\n");
        return AVERROR_PATCHWELCOME;
    }

    s->width = avctx->width;
    s->height = avctx->height;

    s->last_frame    = av_frame_alloc();
    s->current_frame = av_frame_alloc();
    if (!s->current_frame || !s->last_frame) {
        av_frame_free(&s->current_frame);
        av_frame_free(&s->last_frame);
        return AVERROR(ENOMEM);
    }

    avctx->pix_fmt = AV_PIX_FMT_YUVJ444P;
    avctx->color_range = AVCOL_RANGE_JPEG;

    return 0;
}

static int roq_decode_frame(AVCodecContext *avctx,
                            void *data, int *got_frame,
                            AVPacket *avpkt)
{
    const uint8_t *buf = avpkt->data;
    int buf_size = avpkt->size;
    RoqContext *s = avctx->priv_data;
    int copy= !s->current_frame->data[0];
    int ret;

    if ((ret = ff_reget_buffer(avctx, s->current_frame)) < 0)
        return ret;

    if(copy)
        av_picture_copy((AVPicture*)s->current_frame, (AVPicture*)s->last_frame,
                        avctx->pix_fmt, avctx->width, avctx->height);

    bytestream2_init(&s->gb, buf, buf_size);
    roqvideo_decode_frame(s);

    if ((ret = av_frame_ref(data, s->current_frame)) < 0)
        return ret;
    *got_frame      = 1;

    /* shuffle frames */
    FFSWAP(AVFrame *, s->current_frame, s->last_frame);

    return buf_size;
}

static av_cold int roq_decode_end(AVCodecContext *avctx)
{
    RoqContext *s = avctx->priv_data;

    av_frame_free(&s->current_frame);
    av_frame_free(&s->last_frame);

    return 0;
}

AVCodec ff_roq_decoder = {
    .name           = "roqvideo",
    .long_name      = NULL_IF_CONFIG_SMALL("id RoQ video"),
    .type           = AVMEDIA_TYPE_VIDEO,
    .id             = AV_CODEC_ID_ROQ,
    .priv_data_size = sizeof(RoqContext),
    .init           = roq_decode_init,
    .close          = roq_decode_end,
    .decode         = roq_decode_frame,
    .capabilities   = CODEC_CAP_DR1,
};
Commit	Line	Data
2ba45a60 DM	1	/*
	2	* Copyright (c) 2003 The FFmpeg Project
	3	*
	4	* This file is part of FFmpeg.
	5	*
	6	* FFmpeg is free software; you can redistribute it and/or
	7	* modify it under the terms of the GNU Lesser General Public
	8	* License as published by the Free Software Foundation; either
	9	* version 2.1 of the License, or (at your option) any later version.
	10	*
	11	* FFmpeg 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 GNU
	14	* Lesser General Public License for more details.
	15	*
	16	* You should have received a copy of the GNU Lesser General Public
	17	* License along with FFmpeg; if not, write to the Free Software
	18	* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
	19	*/
	20
	21	/**
	22	* @file
	23	* id RoQ Video Decoder by Dr. Tim Ferguson
	24	* For more information about the id RoQ format, visit:
	25	* http://www.csse.monash.edu.au/~timf/
	26	*/
	27
	28	#include "libavutil/avassert.h"
	29	#include "avcodec.h"
	30	#include "bytestream.h"
	31	#include "internal.h"
	32	#include "roqvideo.h"
	33
	34	static void roqvideo_decode_frame(RoqContext *ri)
	35	{
	36	unsigned int chunk_id = 0, chunk_arg = 0;
	37	unsigned long chunk_size = 0;
	38	int i, j, k, nv1, nv2, vqflg = 0, vqflg_pos = -1;
	39	int vqid, xpos, ypos, xp, yp, x, y, mx, my;
	40	int frame_stats[2][4] = {{0},{0}};
	41	roq_qcell *qcell;
	42	int64_t chunk_start;
	43
	44	while (bytestream2_get_bytes_left(&ri->gb) >= 8) {
	45	chunk_id = bytestream2_get_le16(&ri->gb);
	46	chunk_size = bytestream2_get_le32(&ri->gb);
	47	chunk_arg = bytestream2_get_le16(&ri->gb);
	48
	49	if(chunk_id == RoQ_QUAD_VQ)
	50	break;
	51	if(chunk_id == RoQ_QUAD_CODEBOOK) {
	52	if((nv1 = chunk_arg >> 8) == 0)
	53	nv1 = 256;
	54	if((nv2 = chunk_arg & 0xff) == 0 && nv1 * 6 < chunk_size)
	55	nv2 = 256;
	56	for(i = 0; i < nv1; i++) {
	57	ri->cb2x2[i].y[0] = bytestream2_get_byte(&ri->gb);
	58	ri->cb2x2[i].y[1] = bytestream2_get_byte(&ri->gb);
	59	ri->cb2x2[i].y[2] = bytestream2_get_byte(&ri->gb);
	60	ri->cb2x2[i].y[3] = bytestream2_get_byte(&ri->gb);
	61	ri->cb2x2[i].u = bytestream2_get_byte(&ri->gb);
	62	ri->cb2x2[i].v = bytestream2_get_byte(&ri->gb);
	63	}
	64	for(i = 0; i < nv2; i++)
65	for(j = 0; j < 4; j++)
66	ri->cb4x4[i].idx[j] = bytestream2_get_byte(&ri->gb);
67	}
68	}
69
70	chunk_start = bytestream2_tell(&ri->gb);
71	xpos = ypos = 0;
72
73	if (chunk_size > bytestream2_get_bytes_left(&ri->gb)) {
74	av_log(ri->avctx, AV_LOG_ERROR, "Chunk does not fit in input buffer\n");
75	chunk_size = bytestream2_get_bytes_left(&ri->gb);
76	}
77
78	while (bytestream2_tell(&ri->gb) < chunk_start + chunk_size) {
79	for (yp = ypos; yp < ypos + 16; yp += 8)
80	for (xp = xpos; xp < xpos + 16; xp += 8) {
81	if (bytestream2_tell(&ri->gb) >= chunk_start + chunk_size) {
82	av_log(ri->avctx, AV_LOG_VERBOSE, "Chunk is too short\n");
83	return;
84	}
85	if (vqflg_pos < 0) {
86	vqflg = bytestream2_get_le16(&ri->gb);
87	vqflg_pos = 7;
88	}
89	vqid = (vqflg >> (vqflg_pos * 2)) & 0x3;
90	frame_stats[0][vqid]++;
91	vqflg_pos--;
92
93	switch(vqid) {
94	case RoQ_ID_MOT:
95	break;
96	case RoQ_ID_FCC: {
97	int byte = bytestream2_get_byte(&ri->gb);
98	mx = 8 - (byte >> 4) - ((signed char) (chunk_arg >> 8));
99	my = 8 - (byte & 0xf) - ((signed char) chunk_arg);
100	ff_apply_motion_8x8(ri, xp, yp, mx, my);
101	break;
102	}
103	case RoQ_ID_SLD:
104	qcell = ri->cb4x4 + bytestream2_get_byte(&ri->gb);
105	ff_apply_vector_4x4(ri, xp, yp, ri->cb2x2 + qcell->idx[0]);
106	ff_apply_vector_4x4(ri, xp + 4, yp, ri->cb2x2 + qcell->idx[1]);
107	ff_apply_vector_4x4(ri, xp, yp + 4, ri->cb2x2 + qcell->idx[2]);
108	ff_apply_vector_4x4(ri, xp + 4, yp + 4, ri->cb2x2 + qcell->idx[3]);
109	break;
110	case RoQ_ID_CCC:
111	for (k = 0; k < 4; k++) {
112	x = xp; y = yp;
113	if(k & 0x01) x += 4;
114	if(k & 0x02) y += 4;
115
116	if (bytestream2_tell(&ri->gb) >= chunk_start + chunk_size) {
117	av_log(ri->avctx, AV_LOG_VERBOSE, "Chunk is too short\n");
118	return;
119	}
120	if (vqflg_pos < 0) {
121	vqflg = bytestream2_get_le16(&ri->gb);
122	vqflg_pos = 7;
123	}
124	vqid = (vqflg >> (vqflg_pos * 2)) & 0x3;
125	frame_stats[1][vqid]++;
126	vqflg_pos--;
127	switch(vqid) {
128	case RoQ_ID_MOT:
129	break;
130	case RoQ_ID_FCC: {
131	int byte = bytestream2_get_byte(&ri->gb);
132	mx = 8 - (byte >> 4) - ((signed char) (chunk_arg >> 8));
133	my = 8 - (byte & 0xf) - ((signed char) chunk_arg);
134	ff_apply_motion_4x4(ri, x, y, mx, my);
135	break;
136	}
137	case RoQ_ID_SLD:
138	qcell = ri->cb4x4 + bytestream2_get_byte(&ri->gb);
139	ff_apply_vector_2x2(ri, x, y, ri->cb2x2 + qcell->idx[0]);
140	ff_apply_vector_2x2(ri, x + 2, y, ri->cb2x2 + qcell->idx[1]);
141	ff_apply_vector_2x2(ri, x, y + 2, ri->cb2x2 + qcell->idx[2]);
142	ff_apply_vector_2x2(ri, x + 2, y + 2, ri->cb2x2 + qcell->idx[3]);
143	break;
144	case RoQ_ID_CCC:
145	ff_apply_vector_2x2(ri, x, y, ri->cb2x2 + bytestream2_get_byte(&ri->gb));
146	ff_apply_vector_2x2(ri, x + 2, y, ri->cb2x2 + bytestream2_get_byte(&ri->gb));
147	ff_apply_vector_2x2(ri, x, y + 2, ri->cb2x2 + bytestream2_get_byte(&ri->gb));
148	ff_apply_vector_2x2(ri, x + 2, y + 2, ri->cb2x2 + bytestream2_get_byte(&ri->gb));
149	break;
150	}
151	}
152	break;
153	default:
154	av_assert2(0);
155	}
156	}
157
158	xpos += 16;
159	if (xpos >= ri->width) {
160	xpos -= ri->width;
161	ypos += 16;
162	}
163	if(ypos >= ri->height)
164	break;
165	}
166	}
167
168
169	static av_cold int roq_decode_init(AVCodecContext *avctx)
170	{
171	RoqContext *s = avctx->priv_data;
172
173	s->avctx = avctx;
174
175	if (avctx->width % 16 \|\| avctx->height % 16) {
176	av_log(avctx, AV_LOG_ERROR,
177	"Dimensions must be a multiple of 16\n");
178	return AVERROR_PATCHWELCOME;
179	}
180
181	s->width = avctx->width;
182	s->height = avctx->height;
183
184	s->last_frame = av_frame_alloc();
185	s->current_frame = av_frame_alloc();
186	if (!s->current_frame \|\| !s->last_frame) {
187	av_frame_free(&s->current_frame);
188	av_frame_free(&s->last_frame);
189	return AVERROR(ENOMEM);
190	}
191
192	avctx->pix_fmt = AV_PIX_FMT_YUVJ444P;
193	avctx->color_range = AVCOL_RANGE_JPEG;
194
195	return 0;
196	}
197
198	static int roq_decode_frame(AVCodecContext *avctx,
199	void data, int got_frame,
200	AVPacket *avpkt)
201	{
202	const uint8_t *buf = avpkt->data;
203	int buf_size = avpkt->size;
204	RoqContext *s = avctx->priv_data;
205	int copy= !s->current_frame->data[0];
206	int ret;
207
208	if ((ret = ff_reget_buffer(avctx, s->current_frame)) < 0)
209	return ret;
210
211	if(copy)
212	av_picture_copy((AVPicture)s->current_frame, (AVPicture)s->last_frame,
213	avctx->pix_fmt, avctx->width, avctx->height);
214
215	bytestream2_init(&s->gb, buf, buf_size);
216	roqvideo_decode_frame(s);
217
218	if ((ret = av_frame_ref(data, s->current_frame)) < 0)
219	return ret;
220	*got_frame = 1;
221
222	/* shuffle frames */
223	FFSWAP(AVFrame *, s->current_frame, s->last_frame);
224
225	return buf_size;
226	}
227
228	static av_cold int roq_decode_end(AVCodecContext *avctx)
229	{
230	RoqContext *s = avctx->priv_data;
231
232	av_frame_free(&s->current_frame);
233	av_frame_free(&s->last_frame);
234
235	return 0;
236	}
237
238	AVCodec ff_roq_decoder = {
239	.name = "roqvideo",
240	.long_name = NULL_IF_CONFIG_SMALL("id RoQ video"),
241	.type = AVMEDIA_TYPE_VIDEO,
242	.id = AV_CODEC_ID_ROQ,
243	.priv_data_size = sizeof(RoqContext),
244	.init = roq_decode_init,
245	.close = roq_decode_end,
246	.decode = roq_decode_frame,
247	.capabilities = CODEC_CAP_DR1,
248	};