github/mpv
1
Fork 0
mirror of https://github.com/mpv-player/mpv synced 2025-03-11 04:44:32 +01:00
Code Releases Activity

Cinepak and RoqA/V are now in ffmpeg

Browse Source 
git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@12829 b3059339-0415-0410-9bf9-f77b7e298cf2
This commit is contained in:
rtognimp 2004-07-15 20:44:39 +00:00
parent a91fe9f18a
commit 54af37cddd
2 changed files with 0 additions and 1563 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

886
libmpcodecs/native/cinepak.c
View File

@ -1,886 +0,0 @@
/* ------------------------------------------------------------------------
* Radius Cinepak Video Decoder
*
* Dr. Tim Ferguson, 2001.
* For more details on the algorithm:
* http://www.csse.monash.edu.au/~timf/videocodec.html
*
* This is basically a vector quantiser with adaptive vector density. The
* frame is segmented into 4x4 pixel blocks, and each block is coded using
* either 1 or 4 vectors.
*
* There are still some issues with this code yet to be resolved. In
* particular with decoding in the strip boundaries.
* ------------------------------------------------------------------------ */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <unistd.h>
#include <math.h>
#include "config.h"
#include "mp_msg.h"
#include "bswap.h"
#include "img_format.h"
#include "mp_image.h"
#define DBUG 0
#define MAX_STRIPS 32
/* ------------------------------------------------------------------------ */
typedef struct
{
unsigned char y0, y1, y2, y3;
char u, v;
// These variables are for YV12 output: The v1 vars are for
// when the vector is doublesized and used by itself to paint a
// 4x4 block.
// This quad (y0 y0 y1 y1) is used on the 2 upper rows.
unsigned long yv12_v1_u;
// This quad (y2 y2 y3 y3) is used on the 2 lower rows.
unsigned long yv12_v1_l;
// The v4 vars are for when the vector is used as 1 of 4 vectors
// to paint a 4x4 block.
// Upper pair (y0 y1):
unsigned short yv12_v4_u;
// Lower pair (y2 y3):
unsigned short yv12_v4_l;
// These longs are for YUY2 output: The v1 vars are for when the
// vector is doublesized and used by itself to paint a 4x4 block.
// The names stand for the upper-left, upper-right,
// lower-left, and lower-right YUY2 pixel pairs.
unsigned long yuy2_v1_ul, yuy2_v1_ur;
unsigned long yuy2_v1_ll, yuy2_v1_lr;
// The v4 vars are for when the vector is used as 1 of 4 vectors
// to paint a 4x4 block. The names stand for upper and lower
// YUY2 pixel pairs.
unsigned long yuy2_v4_u, yuy2_v4_l;
// These longs are for BGR32 output
unsigned long rgb0, rgb1, rgb2, rgb3;
// These char arrays are for BGR24 output
unsigned char r[4], g[4], b[4];
} cvid_codebook;
typedef struct {
cvid_codebook *v4_codebook[MAX_STRIPS];
cvid_codebook *v1_codebook[MAX_STRIPS];
unsigned long strip_num;
} cinepak_info;
/* ------------------------------------------------------------------------ */
static unsigned char *in_buffer, uiclip[1024], *uiclp = NULL;
#define SCALEBITS 16
#define ONE_HALF ((long) 1 << (SCALEBITS-1))
#define FIX(x) ((long) ((x) * (1L<<SCALEBITS) + 0.5))
static long CU_Y_tab[256], CV_Y_tab[256], CU_Cb_tab[256], CV_Cb_tab[256],
CU_Cr_tab[256], CV_Cr_tab[256];
#define get_byte() *(in_buffer++)
#define skip_byte() in_buffer++
#define get_word() ((unsigned short)(in_buffer += 2, \
(in_buffer[-2] << 8 | in_buffer[-1])))
#define get_long() ((unsigned long)(in_buffer += 4, \
(in_buffer[-4] << 24 | in_buffer[-3] << 16 | in_buffer[-2] << 8 | in_buffer[-1])))
/* ---------------------------------------------------------------------- */
// This PACKing macro packs the luminance bytes as y1-y1-y0-y0, which is
// stored on a little endian machine as y0-y0-y1-y1. Therefore, treat it as
// a little endian number and rearrange the bytes on big endian machines
// using the built-in byte order macros.
#define PACK_YV12_V1_Y(cb,y0,y1) le2me_32((((unsigned char)cb->y1)<<24)|(cb->y1<<16)|(((unsigned char)cb->y0)<<8)|(cb->y0))
#define PACK_YV12_V4_Y(cb,y0,y1) le2me_16((((unsigned char)cb->y1)<<8)|(cb->y0))
static inline void read_codebook_yv12(cvid_codebook *c, int mode)
{
unsigned char y0, y1, y2, y3, u, v;
int y_uv;
if(mode) /* black and white */
{
c->y0 = get_byte();
c->y1 = get_byte();
c->y2 = get_byte();
c->y3 = get_byte();
c->u = c->v = 128;
}
else /* colour */
{
y0 = get_byte(); /* luma */
y1 = get_byte();
y2 = get_byte();
y3 = get_byte();
u = 128+get_byte(); /* chroma */
v = 128+get_byte();
/* YUV * inv(CinYUV)
* | Y | | 1 -0.0655 0.0110 | | CY |
* | Cb | = | 0 1.1656 -0.0062 | | CU |
* | Cr | | 0 0.0467 1.4187 | | CV |
*/
y_uv = (int)((CU_Y_tab[u] + CV_Y_tab[v]) >> SCALEBITS);
c->y0 = uiclp[y0 + y_uv];
c->y1 = uiclp[y1 + y_uv];
c->y2 = uiclp[y2 + y_uv];
c->y3 = uiclp[y3 + y_uv];
c->u = uiclp[(int)((CU_Cb_tab[u] + CV_Cb_tab[v]) >> SCALEBITS)];
c->v = uiclp[(int)((CU_Cr_tab[u] + CV_Cr_tab[v]) >> SCALEBITS)];
c->yv12_v1_u = PACK_YV12_V1_Y(c, y0, y1);
c->yv12_v1_l = PACK_YV12_V1_Y(c, y2, y3);
c->yv12_v4_u = PACK_YV12_V4_Y(c, y0, y1);
c->yv12_v4_l = PACK_YV12_V4_Y(c, y2, y3);
}
}
/* ---------------------------------------------------------------------- */
inline void cvid_v1_yv12(mp_image_t *mpi, unsigned int x, unsigned int y, cvid_codebook *cb)
{
unsigned char *p;
int stride;
if(y+3>=(unsigned int)mpi->height) return; // avoid sig11
// take care of the luminance
stride = mpi->stride[0];
p = mpi->planes[0]+y*stride+x;
*((unsigned int*)p)=cb->yv12_v1_u;
*((unsigned int*)(p+stride))=cb->yv12_v1_u;
*((unsigned int*)(p+stride*2))=cb->yv12_v1_l;
*((unsigned int*)(p+stride*3))=cb->yv12_v1_l;
// now for the chrominance
x/=2; y/=2;
stride = mpi->stride[1];
p = mpi->planes[1]+y*stride+x;
p[0]=p[1]=p[stride]=p[stride+1]=cb->u;
stride = mpi->stride[2];
p = mpi->planes[2]+y*stride+x;
p[0]=p[1]=p[stride]=p[stride+1]=cb->v;
}
/* ---------------------------------------------------------------------- */
inline void cvid_v4_yv12(mp_image_t *mpi, unsigned int x, unsigned int y, cvid_codebook *cb0,
cvid_codebook *cb1, cvid_codebook *cb2, cvid_codebook *cb3)
{
unsigned char *p;
int stride;
if(y+3>=(unsigned int)mpi->height) return; // avoid sig11
// take care of the luminance
stride = mpi->stride[0];
p = mpi->planes[0]+y*stride+x;
((unsigned short*)p)[0]=cb0->yv12_v4_u;
((unsigned short*)p)[1]=cb1->yv12_v4_u;
((unsigned short*)(p+stride))[0]=cb0->yv12_v4_l;
((unsigned short*)(p+stride))[1]=cb1->yv12_v4_l;
((unsigned short*)(p+stride*2))[0]=cb2->yv12_v4_u;
((unsigned short*)(p+stride*2))[1]=cb3->yv12_v4_u;
((unsigned short*)(p+stride*3))[0]=cb2->yv12_v4_l;
((unsigned short*)(p+stride*3))[1]=cb3->yv12_v4_l;
// now for the chrominance
x/=2; y/=2;
stride = mpi->stride[1];
p = mpi->planes[1]+y*stride+x;
p[0]=cb0->u; p[1]=cb1->u;
p[stride]=cb2->u; p[stride+1]=cb3->u;
stride = mpi->stride[2];
p = mpi->planes[2]+y*stride+x;
p[0]=cb0->v; p[1]=cb1->v;
p[stride]=cb2->v; p[stride+1]=cb3->v;
}
/* ---------------------------------------------------------------------- */
#define PACK_YUY2(cb,y0,y1,u,v) le2me_32(((((unsigned char)cb->v)<<24)|(cb->y1<<16)|(((unsigned char)cb->u)<<8)|(cb->y0)))
static inline void read_codebook_yuy2(cvid_codebook *c, int mode)
{
unsigned char y0, y1, y2, y3, u, v;
int y_uv;
if(mode) /* black and white */
{
c->y0 = get_byte();
c->y1 = get_byte();
c->y2 = get_byte();
c->y3 = get_byte();
c->u = c->v = 128;
}
else /* colour */
{
y0 = get_byte(); /* luma */
y1 = get_byte();
y2 = get_byte();
y3 = get_byte();
u = 128+get_byte(); /* chroma */
v = 128+get_byte();
/* YUV * inv(CinYUV)
* | Y | | 1 -0.0655 0.0110 | | CY |
* | Cb | = | 0 1.1656 -0.0062 | | CU |
* | Cr | | 0 0.0467 1.4187 | | CV |
*/
y_uv = (int)((CU_Y_tab[u] + CV_Y_tab[v]) >> SCALEBITS);
c->y0 = uiclp[y0 + y_uv];
c->y1 = uiclp[y1 + y_uv];
c->y2 = uiclp[y2 + y_uv];
c->y3 = uiclp[y3 + y_uv];
c->u = uiclp[(int)((CU_Cb_tab[u] + CV_Cb_tab[v]) >> SCALEBITS)];
c->v = uiclp[(int)((CU_Cr_tab[u] + CV_Cr_tab[v]) >> SCALEBITS)];
c->yuy2_v4_u = PACK_YUY2(c, y0, y1, u, v);
c->yuy2_v4_l = PACK_YUY2(c, y2, y3, u, v);
c->yuy2_v1_ul = PACK_YUY2(c, y0, y0, u, v);
c->yuy2_v1_ur = PACK_YUY2(c, y1, y1, u, v);
c->yuy2_v1_ll = PACK_YUY2(c, y2, y2, u, v);
c->yuy2_v1_lr = PACK_YUY2(c, y3, y3, u, v);
}
}
/* ------------------------------------------------------------------------ */
inline void cvid_v1_yuy2(mp_image_t *mpi, unsigned int x, unsigned int y, cvid_codebook *cb)
{
int stride = mpi->stride[0] / 2;
unsigned long *vptr = (unsigned long *)mpi->planes[0];
if(y+3>=(unsigned int)mpi->height) return; // avoid sig11
vptr += (y * mpi->stride[0] + x) / 2;
vptr[0] = cb->yuy2_v1_ul;
vptr[1] = cb->yuy2_v1_ur;
vptr += stride;
vptr[0] = cb->yuy2_v1_ul;
vptr[1] = cb->yuy2_v1_ur;
vptr += stride;
vptr[0] = cb->yuy2_v1_ll;
vptr[1] = cb->yuy2_v1_lr;
vptr += stride;
vptr[0] = cb->yuy2_v1_ll;
vptr[1] = cb->yuy2_v1_lr;
}
/* ------------------------------------------------------------------------ */
inline void cvid_v4_yuy2(mp_image_t *mpi, unsigned int x, unsigned int y, cvid_codebook *cb0,
cvid_codebook *cb1, cvid_codebook *cb2, cvid_codebook *cb3)
{
int stride = mpi->stride[0] / 2;
unsigned long *vptr = (unsigned long *)mpi->planes[0];
if(y+3>=(unsigned int)mpi->height) return; // avoid sig11
vptr += (y * mpi->stride[0] + x) / 2;
vptr[0] = cb0->yuy2_v4_u;
vptr[1] = cb1->yuy2_v4_u;
vptr += stride;
vptr[0] = cb0->yuy2_v4_l;
vptr[1] = cb1->yuy2_v4_l;
vptr += stride;
vptr[0] = cb2->yuy2_v4_u;
vptr[1] = cb3->yuy2_v4_u;
vptr += stride;
vptr[0] = cb2->yuy2_v4_l;
vptr[1] = cb3->yuy2_v4_l;
}
/* ---------------------------------------------------------------------- */
static inline void read_codebook_32(cvid_codebook *c, int mode)
{
int uvr, uvg, uvb;
if(mode) /* black and white */
{
c->y0 = get_byte();
c->y1 = get_byte();
c->y2 = get_byte();
c->y3 = get_byte();
c->u = c->v = 0;
c->rgb0 = (c->y0 << 16) | (c->y0 << 8) | c->y0;
c->rgb1 = (c->y1 << 16) | (c->y1 << 8) | c->y1;
c->rgb2 = (c->y2 << 16) | (c->y2 << 8) | c->y2;
c->rgb3 = (c->y3 << 16) | (c->y3 << 8) | c->y3;
}
else /* colour */
{
c->y0 = get_byte(); /* luma */
c->y1 = get_byte();
c->y2 = get_byte();
c->y3 = get_byte();
c->u = get_byte(); /* chroma */
c->v = get_byte();
uvr = c->v << 1;
uvg = -((c->u+1) >> 1) - c->v;
uvb = c->u << 1;
c->rgb0 = le2me_32((uiclp[c->y0 + uvr] << 16) | (uiclp[c->y0 + uvg] << 8) | uiclp[c->y0 + uvb]);
c->rgb1 = le2me_32((uiclp[c->y1 + uvr] << 16) | (uiclp[c->y1 + uvg] << 8) | uiclp[c->y1 + uvb]);
c->rgb2 = le2me_32((uiclp[c->y2 + uvr] << 16) | (uiclp[c->y2 + uvg] << 8) | uiclp[c->y2 + uvb]);
c->rgb3 = le2me_32((uiclp[c->y3 + uvr] << 16) | (uiclp[c->y3 + uvg] << 8) | uiclp[c->y3 + uvb]);
}
}
/* ------------------------------------------------------------------------ */
inline void cvid_v1_32(mp_image_t *mpi, unsigned int x, unsigned int y, cvid_codebook *cb)
{
int stride = mpi->stride[0]/4;
unsigned long *vptr = (unsigned long *)mpi->planes[0];
unsigned long rgb;
if(y+3>=(unsigned int)mpi->height) return; // avoid sig11
vptr += (y * stride + x);
vptr[0] = rgb = cb->rgb0; vptr[1] = rgb;
vptr[2] = rgb = cb->rgb1; vptr[3] = rgb;
vptr += stride;
vptr[0] = rgb = cb->rgb0; vptr[1] = rgb;
vptr[2] = rgb = cb->rgb1; vptr[3] = rgb;
vptr += stride;
vptr[0] = rgb = cb->rgb2; vptr[1] = rgb;
vptr[2] = rgb = cb->rgb3; vptr[3] = rgb;
vptr += stride;
vptr[0] = rgb = cb->rgb2; vptr[1] = rgb;
vptr[2] = rgb = cb->rgb3; vptr[3] = rgb;
}
/* ------------------------------------------------------------------------ */
inline void cvid_v4_32(mp_image_t *mpi, unsigned int x, unsigned int y, cvid_codebook *cb0,
cvid_codebook *cb1, cvid_codebook *cb2, cvid_codebook *cb3)
{
int stride = mpi->stride[0]/4;
unsigned long *vptr = (unsigned long *)mpi->planes[0];
if(y+3>=(unsigned int)mpi->height) return; // avoid sig11
vptr += (y * stride + x);
vptr[0] = cb0->rgb0;
vptr[1] = cb0->rgb1;
vptr[2] = cb1->rgb0;
vptr[3] = cb1->rgb1;
vptr += stride;
vptr[0] = cb0->rgb2;
vptr[1] = cb0->rgb3;
vptr[2] = cb1->rgb2;
vptr[3] = cb1->rgb3;
vptr += stride;
vptr[0] = cb2->rgb0;
vptr[1] = cb2->rgb1;
vptr[2] = cb3->rgb0;
vptr[3] = cb3->rgb1;
vptr += stride;
vptr[0] = cb2->rgb2;
vptr[1] = cb2->rgb3;
vptr[2] = cb3->rgb2;
vptr[3] = cb3->rgb3;
}
/* ---------------------------------------------------------------------- */
static inline void read_codebook_24(cvid_codebook *c, int mode)
{
int uvr, uvg, uvb;
if(mode) /* black and white */
{
c->y0 = get_byte();
c->y1 = get_byte();
c->y2 = get_byte();
c->y3 = get_byte();
c->u = c->v = 0;
c->r[0] = c->g[0] = c->b[0] = c->y0;
c->r[1] = c->g[1] = c->b[1] = c->y1;
c->r[2] = c->g[2] = c->b[2] = c->y2;
c->r[3] = c->g[3] = c->b[3] = c->y3;
}
else /* colour */
{
c->y0 = get_byte(); /* luma */
c->y1 = get_byte();
c->y2 = get_byte();
c->y3 = get_byte();
c->u = get_byte(); /* chroma */
c->v = get_byte();
uvr = c->v << 1;
uvg = -((c->u+1) >> 1) - c->v;
uvb = c->u << 1;
c->r[0] = uiclp[c->y0 + uvr]; c->g[0] = uiclp[c->y0 + uvg]; c->b[0] = uiclp[c->y0 + uvb];
c->r[1] = uiclp[c->y1 + uvr]; c->g[1] = uiclp[c->y1 + uvg]; c->b[1] = uiclp[c->y1 + uvb];
c->r[2] = uiclp[c->y2 + uvr]; c->g[2] = uiclp[c->y2 + uvg]; c->b[2] = uiclp[c->y2 + uvb];
c->r[3] = uiclp[c->y3 + uvr]; c->g[3] = uiclp[c->y3 + uvg]; c->b[3] = uiclp[c->y3 + uvb];
}
}
/* ------------------------------------------------------------------------ */
inline void cvid_v1_24(mp_image_t *mpi, unsigned int x, unsigned int y, cvid_codebook *cb)
{
unsigned char r, g, b;
int stride = (mpi->stride[0])-4*3;
unsigned char *vptr = mpi->planes[0] + (y * mpi->stride[0]) + x * 3;
if(y+3>=(unsigned int)mpi->height) return; // avoid sig11
*vptr++ = b = cb->b[0]; *vptr++ = g = cb->g[0]; *vptr++ = r = cb->r[0];
*vptr++ = b; *vptr++ = g; *vptr++ = r;
*vptr++ = b = cb->b[1]; *vptr++ = g = cb->g[1]; *vptr++ = r = cb->r[1];
*vptr++ = b; *vptr++ = g; *vptr++ = r;
vptr += stride;
*vptr++ = b = cb->b[0]; *vptr++ = g = cb->g[0]; *vptr++ = r = cb->r[0];
*vptr++ = b; *vptr++ = g; *vptr++ = r;
*vptr++ = b = cb->b[1]; *vptr++ = g = cb->g[1]; *vptr++ = r = cb->r[1];
*vptr++ = b; *vptr++ = g; *vptr++ = r;
vptr += stride;
*vptr++ = b = cb->b[2]; *vptr++ = g = cb->g[2]; *vptr++ = r = cb->r[2];
*vptr++ = b; *vptr++ = g; *vptr++ = r;
*vptr++ = b = cb->b[3]; *vptr++ = g = cb->g[3]; *vptr++ = r = cb->r[3];
*vptr++ = b; *vptr++ = g; *vptr++ = r;
vptr += stride;
*vptr++ = b = cb->b[2]; *vptr++ = g = cb->g[2]; *vptr++ = r = cb->r[2];
*vptr++ = b; *vptr++ = g; *vptr++ = r;
*vptr++ = b = cb->b[3]; *vptr++ = g = cb->g[3]; *vptr++ = r = cb->r[3];
*vptr++ = b; *vptr++ = g; *vptr++ = r;
}
/* ------------------------------------------------------------------------ */
inline void cvid_v4_24(mp_image_t *mpi, unsigned int x, unsigned int y, cvid_codebook *cb0,
cvid_codebook *cb1, cvid_codebook *cb2, cvid_codebook *cb3)
{
int stride = (mpi->stride[0])-4*3;
unsigned char *vptr = mpi->planes[0] + (y * mpi->stride[0]) + x * 3;
if(y+3>=(unsigned int)mpi->height) return; // avoid sig11
*vptr++ = cb0->b[0]; *vptr++ = cb0->g[0]; *vptr++ = cb0->r[0];
*vptr++ = cb0->b[1]; *vptr++ = cb0->g[1]; *vptr++ = cb0->r[1];
*vptr++ = cb1->b[0]; *vptr++ = cb1->g[0]; *vptr++ = cb1->r[0];
*vptr++ = cb1->b[1]; *vptr++ = cb1->g[1]; *vptr++ = cb1->r[1];
vptr += stride;
*vptr++ = cb0->b[2]; *vptr++ = cb0->g[2]; *vptr++ = cb0->r[2];
*vptr++ = cb0->b[3]; *vptr++ = cb0->g[3]; *vptr++ = cb0->r[3];
*vptr++ = cb1->b[2]; *vptr++ = cb1->g[2]; *vptr++ = cb1->r[2];
*vptr++ = cb1->b[3]; *vptr++ = cb1->g[3]; *vptr++ = cb1->r[3];
vptr += stride;
*vptr++ = cb2->b[0]; *vptr++ = cb2->g[0]; *vptr++ = cb2->r[0];
*vptr++ = cb2->b[1]; *vptr++ = cb2->g[1]; *vptr++ = cb2->r[1];
*vptr++ = cb3->b[0]; *vptr++ = cb3->g[0]; *vptr++ = cb3->r[0];
*vptr++ = cb3->b[1]; *vptr++ = cb3->g[1]; *vptr++ = cb3->r[1];
vptr += stride;
*vptr++ = cb2->b[2]; *vptr++ = cb2->g[2]; *vptr++ = cb2->r[2];
*vptr++ = cb2->b[3]; *vptr++ = cb2->g[3]; *vptr++ = cb2->r[3];
*vptr++ = cb3->b[2]; *vptr++ = cb3->g[2]; *vptr++ = cb3->r[2];
*vptr++ = cb3->b[3]; *vptr++ = cb3->g[3]; *vptr++ = cb3->r[3];
}
/* ------------------------------------------------------------------------
* Call this function once at the start of the sequence and save the
* returned context for calls to decode_cinepak().
*/
void *decode_cinepak_init(void)
{
cinepak_info *cvinfo;
int i, x;
if((cvinfo = calloc(sizeof(cinepak_info), 1)) == NULL) return NULL;
cvinfo->strip_num = 0;
if(uiclp == NULL)
{
uiclp = uiclip+512;
for(i = -512; i < 512; i++)
uiclp[i] = (i < 0 ? 0 : (i > 255 ? 255 : i));
}
for(i = 0, x = -128; i < 256; i++, x++)
{
CU_Y_tab[i] = (-FIX(0.0655)) * x;
CV_Y_tab[i] = (FIX(0.0110)) * x + ONE_HALF;
CU_Cb_tab[i] = (FIX(1.1656)) * x;
CV_Cb_tab[i] = (-FIX(0.0062)) * x + ONE_HALF + FIX(128);
CU_Cr_tab[i] = (FIX(0.0467)) * x;
CV_Cr_tab[i] = (FIX(1.4187)) * x + ONE_HALF + FIX(128);
}
return (void *)cvinfo;
}
/* ------------------------------------------------------------------------
* This function decodes a buffer containing a Cinepak encoded frame.
*
* context - the context created by decode_cinepak_init().
* buf - the input buffer to be decoded
* size - the size of the input buffer
* frame - the output frame buffer
* width - the width of the output frame
* height - the height of the output frame
* bit_per_pixel - the number of bits per pixel allocated to the output
* frame; depths support:
* 32: BGR32
* 24: BGR24
* 16: YUY2
* 12: YV12
*/
void decode_cinepak(void *context, unsigned char *buf, int size, mp_image_t *mpi)
{
cinepak_info *cvinfo = (cinepak_info *)context;
cvid_codebook *v4_codebook, *v1_codebook, *codebook = NULL;
unsigned long x, y, y_bottom, frame_flags, strips, cv_width, cv_height, cnum,
strip_id, chunk_id, x0, y0, x1, y1, ci, flag, mask;
long len, top_size, chunk_size;
unsigned int i, cur_strip, d0, d1, d2, d3;
int modulo;
void (*read_codebook)(cvid_codebook *c, int mode) = NULL;
void (*cvid_v1)(mp_image_t *mpi, unsigned int x, unsigned int y, cvid_codebook *cb) = NULL;
void (*cvid_v4)(mp_image_t *mpi, unsigned int x, unsigned int y, cvid_codebook *cb0,
cvid_codebook *cb1, cvid_codebook *cb2, cvid_codebook *cb3) = NULL;
x = y = 0;
y_bottom = 0;
in_buffer = buf;
frame_flags = get_byte();
len = get_byte() << 16;
len |= get_byte() << 8;
len |= get_byte();
switch(mpi->imgfmt)
{
case IMGFMT_I420:
case IMGFMT_IYUV:
case IMGFMT_YV12: // YV12
read_codebook = read_codebook_yv12;
cvid_v1 = cvid_v1_yv12;
cvid_v4 = cvid_v4_yv12;
break;
case IMGFMT_YUY2: // YUY2
read_codebook = read_codebook_yuy2;
cvid_v1 = cvid_v1_yuy2;
cvid_v4 = cvid_v4_yuy2;
break;
case IMGFMT_BGR24: // BGR24
read_codebook = read_codebook_24;
cvid_v1 = cvid_v1_24;
cvid_v4 = cvid_v4_24;
break;
case IMGFMT_BGR32: // BGR32
read_codebook = read_codebook_32;
cvid_v1 = cvid_v1_32;
cvid_v4 = cvid_v4_32;
break;
}
if(len != size)
{
if(len & 0x01) len++; /* AVIs tend to have a size mismatch */
if(len != size)
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN, "CVID: corruption %d (QT/AVI) != %ld (CV)\n", size, len);
// return;
}
}
cv_width = get_word();
cv_height = get_word();
strips = get_word();
if(strips > cvinfo->strip_num)
{
if(strips >= MAX_STRIPS)
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN, "CVID: strip overflow (more than %d)\n", MAX_STRIPS);
return;
}
for(i = cvinfo->strip_num; i < strips; i++)
{
if((cvinfo->v4_codebook[i] = (cvid_codebook *)calloc(sizeof(cvid_codebook), 260)) == NULL)
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN, "CVID: codebook v4 alloc err\n");
return;
}
if((cvinfo->v1_codebook[i] = (cvid_codebook *)calloc(sizeof(cvid_codebook), 260)) == NULL)
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN, "CVID: codebook v1 alloc err\n");
return;
}
}
}
cvinfo->strip_num = strips;
#if DBUG
mp_msg(MSGT_DECVIDEO, MSGL_WARN, "CVID: <%ld,%ld> strips %ld\n", cv_width, cv_height, strips);
#endif
for(cur_strip = 0; cur_strip < strips; cur_strip++)
{
v4_codebook = cvinfo->v4_codebook[cur_strip];
v1_codebook = cvinfo->v1_codebook[cur_strip];
if((cur_strip > 0) && (!(frame_flags & 0x01)))
{
memcpy(cvinfo->v4_codebook[cur_strip], cvinfo->v4_codebook[cur_strip-1], 260 * sizeof(cvid_codebook));
memcpy(cvinfo->v1_codebook[cur_strip], cvinfo->v1_codebook[cur_strip-1], 260 * sizeof(cvid_codebook));
}
strip_id = get_word(); /* 1000 = key strip, 1100 = iter strip */
top_size = get_word();
y0 = get_word(); /* FIXME: most of these are ignored at the moment */
x0 = get_word();
y1 = get_word();
x1 = get_word();
y_bottom += y1;
top_size -= 12;
x = 0;
// if(x1 != (unsigned int)mpi->width)
// mp_msg(MSGT_DECVIDEO, MSGL_WARN, "CVID: Warning x1 (%ld) != width (%d)\n", x1, mpi->width);
//x1 = mpi->width;
#if DBUG
mp_msg(MSGT_DECVIDEO, MSGL_WARN, " %d) %04lx %04ld <%ld,%ld> <%ld,%ld> yt %ld %d\n",
cur_strip, strip_id, top_size, x0, y0, x1, y1, y_bottom);
#endif
while(top_size > 0)
{
chunk_id = get_word();
chunk_size = get_word();
#if DBUG
mp_msg(MSGT_DECVIDEO, MSGL_WARN, " %04lx %04ld\n", chunk_id, chunk_size);
#endif
top_size -= chunk_size;
chunk_size -= 4;
switch(chunk_id)
{
/* -------------------- Codebook Entries -------------------- */
case 0x2000:
case 0x2200:
modulo = chunk_size % 6;
codebook = (chunk_id == 0x2200 ? v1_codebook : v4_codebook);
cnum = (chunk_size - modulo) / 6;
for(i = 0; i < cnum; i++) read_codebook(codebook+i, 0);
while (modulo--)
in_buffer++;
break;
case 0x2400:
case 0x2600: /* 8 bit per pixel */
codebook = (chunk_id == 0x2600 ? v1_codebook : v4_codebook);
cnum = chunk_size/4;
for(i = 0; i < cnum; i++) read_codebook(codebook+i, 1);
break;
case 0x2100:
case 0x2300:
codebook = (chunk_id == 0x2300 ? v1_codebook : v4_codebook);
ci = 0;
while(chunk_size > 3)
{
flag = get_long();
chunk_size -= 4;
for(i = 0; i < 32; i++)
{
if(flag & 0x80000000)
{
chunk_size -= 6;
read_codebook(codebook+ci, 0);
}
ci++;
flag <<= 1;
}
}
while(chunk_size > 0) { skip_byte(); chunk_size--; }
break;
case 0x2500:
case 0x2700: /* 8 bit per pixel */
codebook = (chunk_id == 0x2700 ? v1_codebook : v4_codebook);
ci = 0;
while(chunk_size > 0)
{
flag = get_long();
chunk_size -= 4;
for(i = 0; i < 32; i++)
{
if(flag & 0x80000000)
{
chunk_size -= 4;
read_codebook(codebook+ci, 1);
}
ci++;
flag <<= 1;
}
}
while(chunk_size > 0) { skip_byte(); chunk_size--; }
break;
/* -------------------- Frame -------------------- */
case 0x3000:
while((chunk_size > 0) && (y < y_bottom))
{
flag = get_long();
chunk_size -= 4;
for(i = 0; i < 32; i++)
{
if(y >= y_bottom) break;
if(flag & 0x80000000) /* 4 bytes per block */
{
d0 = get_byte();
d1 = get_byte();
d2 = get_byte();
d3 = get_byte();
chunk_size -= 4;
cvid_v4(mpi, x, y, v4_codebook+d0, v4_codebook+d1, v4_codebook+d2, v4_codebook+d3);
}
else /* 1 byte per block */
{
cvid_v1(mpi, x, y, v1_codebook + get_byte());
chunk_size--;
}
x += 4;
if(x >= (unsigned int)x1)
{
x = 0;
y += 4;
}
flag <<= 1;
}
}
while(chunk_size > 0) { skip_byte(); chunk_size--; }
break;
case 0x3100:
while((chunk_size > 0) && (y < y_bottom))
{
/* ---- flag bits: 0 = SKIP, 10 = V1, 11 = V4 ---- */
flag = (unsigned long)get_long();
chunk_size -= 4;
mask = 0x80000000;
while((mask) && (y < y_bottom))
{
if(flag & mask)
{
if(mask == 1)
{
if(chunk_size < 0) break;
flag = (unsigned long)get_long();
chunk_size -= 4;
mask = 0x80000000;
}
else mask >>= 1;
if(flag & mask) /* V4 */
{
d0 = get_byte();
d1 = get_byte();
d2 = get_byte();
d3 = get_byte();
chunk_size -= 4;
cvid_v4(mpi, x, y, v4_codebook+d0, v4_codebook+d1, v4_codebook+d2, v4_codebook+d3);
}
else /* V1 */
{
chunk_size--;
cvid_v1(mpi, x, y, v1_codebook + get_byte());
}
} /* else SKIP */
mask >>= 1;
x += 4;
if(x >= (unsigned int)x1)
{
x = 0;
y += 4;
}
}
}
while(chunk_size > 0) { skip_byte(); chunk_size--; }
break;
case 0x3200: /* each byte is a V1 codebook */
while((chunk_size > 0) && (y < y_bottom))
{
cvid_v1(mpi, x, y, v1_codebook + get_byte());
chunk_size--;
x += 4;
if(x >= (unsigned int)x1)
{
x = 0;
y += 4;
}
}
while(chunk_size > 0) { skip_byte(); chunk_size--; }
break;
default:
mp_msg(MSGT_DECVIDEO, MSGL_WARN, "CVID: unknown chunk_id %08lx\n", chunk_id);
while(chunk_size > 0) { skip_byte(); chunk_size--; }
break;
}
}
}
if(len != size)
{
if(len & 0x01) len++; /* AVIs tend to have a size mismatch */
if(len != size)
{
long xlen;
skip_byte();
xlen = get_byte() << 16;
xlen |= get_byte() << 8;
xlen |= get_byte(); /* Read Len */
mp_msg(MSGT_DECVIDEO, MSGL_WARN, "CVID: END INFO chunk size %d cvid size1 %ld cvid size2 %ld\n", size, len, xlen);
}
}
}

677
libmpcodecs/native/roqav.c
View File

@ -1,677 +0,0 @@
/*
RoQ A/V decoder for the MPlayer program
by Mike Melanson
based on Dr. Tim Ferguson's RoQ document and accompanying source
code found at:
http://www.csse.monash.edu.au/~timf/videocodec.html
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "config.h"
#include "bswap.h"
#include "mp_msg.h"
#include "mp_image.h"
#define LE_16(x) (le2me_16(*(unsigned short *)(x)))
#define LE_32(x) (le2me_32(*(unsigned int *)(x)))
#define CLAMP_S16(x) if (x < -32768) x = -32768; \
else if (x > 32767) x = 32767;
#define SE_16BIT(x) if (x & 0x8000) x -= 0x10000;
// RoQ chunk types
#define RoQ_INFO 0x1001
#define RoQ_QUAD_CODEBOOK 0x1002
#define RoQ_QUAD_VQ 0x1011
#define RoQ_SOUND_MONO 0x1020
#define RoQ_SOUND_STEREO 0x1021
#define MAX_ROQ_CODEBOOK_SIZE 256
// codebook entry for 2x2 vector
typedef struct
{
// upper and lower luminance value pairs of 2x2 vector: [y0 y1], [y2 y3]
unsigned short v2_y_u;
unsigned short v2_y_l;
// chrominance components
unsigned char u, v;
// these variables are for rendering a doublesized 8x8 block; e.g.:
// v2_y_rows12 = [y0 y0 y1 y1]
// v2_y_rows34 = [y2 y2 y3 y3]
unsigned long v2d_y_rows_12;
unsigned long v2d_y_rows_34;
// ex: v2_u_row1 = [u u]
// v2_v_row2 = [v v]
unsigned short v2d_u_rows_12;
unsigned short v2d_v_rows_12;
// maintain separate bytes for the luminance values as well
unsigned char y0, y1, y2, y3;
} roq_v2_codebook;
// codebook entry for 4x4 vector
typedef struct
{
unsigned char v2_index[4];
} roq_v4_codebook;
typedef struct
{
roq_v2_codebook v2[MAX_ROQ_CODEBOOK_SIZE];
roq_v4_codebook v4[MAX_ROQ_CODEBOOK_SIZE];
mp_image_t *prev_frame;
uint32_t numframe;
} roqvideo_info;
// This function fills in the missing information for a v2 vector after
// loading the Y, U and V values.
inline void prep_v2(roq_v2_codebook *v2)
{
v2->v2_y_u = be2me_16((v2->y0 << 8) | v2->y1);
v2->v2_y_l = be2me_16((v2->y2 << 8) | v2->y3);
v2->v2d_y_rows_12 = be2me_32((v2->y0 << 24) | (v2->y0 << 16) |
(v2->y1 << 8) | v2->y1);
v2->v2d_y_rows_34 = be2me_32((v2->y2 << 24) | (v2->y2 << 16) |
(v2->y3 << 8) | v2->y3);
// no reason to swap these for endianness since they're the same bytes
v2->v2d_u_rows_12 = (v2->u << 8) | v2->u;
v2->v2d_v_rows_12 = (v2->v << 8) | v2->v;
}
inline void paint_v2double_block(
unsigned char *y_plane,
unsigned char *u_plane,
unsigned char *v_plane,
roq_v2_codebook *v2,
unsigned int y_stride,
unsigned int u_stride,
unsigned int v_stride)
{
// render the luminance components
*(unsigned int *)y_plane = v2->v2d_y_rows_12;
y_plane += y_stride;
*(unsigned int *)y_plane = v2->v2d_y_rows_12;
y_plane += y_stride;
*(unsigned int *)y_plane = v2->v2d_y_rows_34;
y_plane += y_stride;
*(unsigned int *)y_plane = v2->v2d_y_rows_34;
// render the color planes
*(unsigned short *)u_plane = v2->v2d_u_rows_12;
u_plane += u_stride;
*(unsigned short *)u_plane = v2->v2d_u_rows_12;
*(unsigned short *)v_plane = v2->v2d_v_rows_12;
v_plane += v_stride;
*(unsigned short *)v_plane = v2->v2d_v_rows_12;
}
inline void paint_v4_block(
unsigned char *y_plane,
unsigned char *u_plane,
unsigned char *v_plane,
unsigned int y_stride,
unsigned int u_stride,
unsigned int v_stride,
roq_v2_codebook *v2_a,
roq_v2_codebook *v2_b,
roq_v2_codebook *v2_c,
roq_v2_codebook *v2_d)
{
// render luminance components
((unsigned short *)y_plane)[0] = v2_a->v2_y_u;
((unsigned short *)y_plane)[1] = v2_b->v2_y_u;
y_plane += y_stride;
((unsigned short *)y_plane)[0] = v2_a->v2_y_l;
((unsigned short *)y_plane)[1] = v2_b->v2_y_l;
y_plane += y_stride;
((unsigned short *)y_plane)[0] = v2_c->v2_y_u;
((unsigned short *)y_plane)[1] = v2_d->v2_y_u;
y_plane += y_stride;
((unsigned short *)y_plane)[0] = v2_c->v2_y_l;
((unsigned short *)y_plane)[1] = v2_d->v2_y_l;
// render the color planes
u_plane[0] = v2_a->u;
u_plane[1] = v2_b->u;
u_plane += u_stride;
u_plane[0] = v2_c->u;
u_plane[1] = v2_d->u;
v_plane[0] = v2_a->v;
v_plane[1] = v2_b->v;
v_plane += v_stride;
v_plane[0] = v2_c->v;
v_plane[1] = v2_d->v;
}
// This function copies the 4x4 block from the prev_*_planes to the
// current *_planes.
inline void copy_4x4_block(
unsigned char *y_plane,
unsigned char *u_plane,
unsigned char *v_plane,
unsigned char *prev_y_plane,
unsigned char *prev_u_plane,
unsigned char *prev_v_plane,
unsigned int y_stride,
unsigned int u_stride,
unsigned int v_stride)
{
int i;
// copy over the luminance components (4 rows, 1 uint each)
for (i = 0; i < 4; i++)
{
*(unsigned int *)y_plane = *(unsigned int *)prev_y_plane;
y_plane += y_stride;
prev_y_plane += y_stride;
}
// copy the chrominance values
for (i = 0; i < 2; i++)
{
*(unsigned short*)u_plane = *(unsigned short*)prev_u_plane;
u_plane += u_stride;
prev_u_plane += u_stride;
*(unsigned short*)v_plane = *(unsigned short*)prev_v_plane;
v_plane += v_stride;
prev_v_plane += v_stride;
}
}
// This function copies the 8x8 block from the prev_*_planes to the
// current *_planes.
inline void copy_8x8_block(
unsigned char *y_plane,
unsigned char *u_plane,
unsigned char *v_plane,
unsigned char *prev_y_plane,
unsigned char *prev_u_plane,
unsigned char *prev_v_plane,
unsigned int y_stride,
unsigned int u_stride,
unsigned int v_stride)
{
int i;
// copy over the luminance components (8 rows, 2 uints each)
for (i = 0; i < 8; i++)
{
((unsigned int *)y_plane)[0] = ((unsigned int *)prev_y_plane)[0];
((unsigned int *)y_plane)[1] = ((unsigned int *)prev_y_plane)[1];
y_plane += y_stride;
prev_y_plane += y_stride;
}
// copy the chrominance values
for (i = 0; i < 4; i++)
{
*(unsigned int*)u_plane = *(unsigned int*)prev_u_plane;
u_plane += u_stride;
prev_u_plane += u_stride;
*(unsigned int*)v_plane = *(unsigned int*)prev_v_plane;
v_plane += v_stride;
prev_v_plane += v_stride;
}
}
// This function creates storage space for the vector codebooks.
void *roq_decode_video_init(void)
{
roqvideo_info *info =
(roqvideo_info *)calloc(sizeof(roqvideo_info), 1);
info->prev_frame = NULL;
info->numframe=0;
return info;
}
#define EMPTY_ROQ_CODEWORD 0xFFFF0000
#define FETCH_NEXT_CODE() \
if (current_roq_codeword == EMPTY_ROQ_CODEWORD) \
{ \
if (stream_ptr + 2 > encoded_size) \
{ \
mp_msg(MSGT_DECVIDEO, MSGL_WARN, \
"RoQ video: stream pointer just went out of bounds (1)\n"); \
return; \
} \
current_roq_codeword = (0x0000FFFF) | \
(encoded[stream_ptr + 0] << 16) | \
(encoded[stream_ptr + 1] << 24); \
stream_ptr += 2; \
} \
roq_code = ((current_roq_codeword >> 30) & 0x03); \
current_roq_codeword <<= 2;
#define FETCH_NEXT_ARGUMENT() \
if (stream_ptr + 1 > encoded_size) \
{ \
mp_msg(MSGT_DECVIDEO, MSGL_WARN, \
"RoQ video: stream pointer just went out of bounds (2)\n"); \
return; \
} \
argument = encoded[stream_ptr++];
#define CHECK_PREV_FRAME() \
if (!info->prev_frame) \
{ \
mp_msg(MSGT_DECVIDEO, MSGL_WARN, \
"RoQ video: can't handle motion vector when there's no previous frame\n"); \
return; \
}
void roq_decode_video(void *context, unsigned char *encoded,
int encoded_size, mp_image_t *mpi)
{
roqvideo_info *info = (roqvideo_info *)context;
int stream_ptr = 0;
int i, j;
int chunk_length;
int v2_count;
int v4_count;
int roq_code;
unsigned int current_roq_codeword = EMPTY_ROQ_CODEWORD;
unsigned char argument = 0;
char mean_motion_x;
char mean_motion_y;
int mx, my; // for calculating the motion vector
int mblock_x = 0;
int mblock_y = 0;
int quad8_x, quad8_y; // for pointing to 8x8 blocks in a macroblock
int quad4_x, quad4_y; // for pointing to 4x4 blocks in an 8x8 block
unsigned char *y_plane;
unsigned char *u_plane;
unsigned char *v_plane;
unsigned char *prev_y_plane;
unsigned char *prev_u_plane;
unsigned char *prev_v_plane;
unsigned int y_stride = mpi->stride[0];
unsigned int u_stride = mpi->stride[1];
unsigned int v_stride = mpi->stride[2];
roq_v4_codebook v4;
// make sure the encoded chunk is of minimal acceptable length
if (encoded_size < 8)
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN,
"RoQ video: chunk isn't even 8 bytes long (minimum acceptable length)\n");
return;
}
// make sure the resolution checks out
if ((mpi->width % 16 != 0) || (mpi->height % 16 != 0))
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN,
"RoQ video resolution: %d x %d; expected dimensions divisible by 16\n",
mpi->width, mpi->height);
return;
}
if (LE_16(&encoded[stream_ptr]) == RoQ_QUAD_CODEBOOK)
{
stream_ptr += 2;
chunk_length = LE_32(&encoded[stream_ptr]);
stream_ptr += 4;
v4_count = encoded[stream_ptr++];
v2_count = encoded[stream_ptr++];
if (v2_count == 0)
v2_count = 256;
if ((v4_count == 0) && (v2_count * 6 < chunk_length))
v4_count = 256;
// make sure the lengths agree with each other
if (((v2_count * 6) + (v4_count * 4)) != chunk_length)
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN,
"RoQ video: encountered quad codebook chunk with weird lengths (1)\n");
return;
}
if ((v2_count * 6) > (encoded_size - stream_ptr))
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN,
"RoQ video: encountered quad codebook chunk with weird lengths (2)\n");
return;
}
// load the 2x2 vectors
for (i = 0; i < v2_count; i++)
{
info->v2[i].y0 = encoded[stream_ptr++];
info->v2[i].y1 = encoded[stream_ptr++];
info->v2[i].y2 = encoded[stream_ptr++];
info->v2[i].y3 = encoded[stream_ptr++];
info->v2[i].u = encoded[stream_ptr++];
info->v2[i].v = encoded[stream_ptr++];
prep_v2(&info->v2[i]);
}
if ((v4_count * 4) > (encoded_size - stream_ptr))
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN,
"RoQ video: encountered quad codebook chunk with weird lengths (3)\n");
return;
}
// load the 4x4 vectors
for (i = 0; i < v4_count; i++)
{
info->v4[i].v2_index[0] = encoded[stream_ptr++];
info->v4[i].v2_index[1] = encoded[stream_ptr++];
info->v4[i].v2_index[2] = encoded[stream_ptr++];
info->v4[i].v2_index[3] = encoded[stream_ptr++];
}
}
if (LE_16(&encoded[stream_ptr]) == RoQ_QUAD_VQ)
{
stream_ptr += 2;
chunk_length = LE_32(&encoded[stream_ptr]);
stream_ptr += 4;
mean_motion_y = encoded[stream_ptr++];
mean_motion_x = encoded[stream_ptr++];
//RoQ reuses its buffers so a transparent block keeps content
//from 2 frames ago. The only exception is 2'd frame (#1)
if(info->numframe==1)
{
CHECK_PREV_FRAME();
memcpy(mpi->planes[0], info->prev_frame->planes[0],
mpi->width * mpi->height);
memcpy(mpi->planes[1], info->prev_frame->planes[1],
(mpi->width * mpi->height) / 4);
memcpy(mpi->planes[2], info->prev_frame->planes[2],
(mpi->width * mpi->height) / 4);
}
// iterate through the 16x16 macroblocks
for (mblock_y = 0; mblock_y < mpi->height; mblock_y += 16)
{
for (mblock_x = 0; mblock_x < mpi->width; mblock_x += 16)
{
// iterate through the 4 quadrants of the macroblock
for (i = 0; i < 4; i++)
{
quad8_x = mblock_x;
quad8_y = mblock_y;
if (i & 0x01) quad8_x += 8;
if (i & 0x02) quad8_y += 8;
// set up the planes
y_plane = mpi->planes[0] + quad8_y * y_stride + quad8_x;
u_plane = mpi->planes[1] + (quad8_y / 2) * u_stride + (quad8_x / 2);
v_plane = mpi->planes[2] + (quad8_y / 2) * v_stride + (quad8_x / 2);
// decide how to handle this 8x8 quad
FETCH_NEXT_CODE();
switch(roq_code)
{
// 8x8 block is the same as in the previous frame;
// skip it
case 0:
break;
// 8x8 block is painted with an 8x8 block from the last frame
// (i.e., motion compensation)
case 1:
CHECK_PREV_FRAME();
// prepare the pointers to the planes in the previous frame
FETCH_NEXT_ARGUMENT(); // argument contains motion vectors
// figure out the motion vectors
mx = quad8_x + 8 - (argument >> 4) - mean_motion_x;
my = quad8_y + 8 - (argument & 0x0F) - mean_motion_y;
prev_y_plane = info->prev_frame->planes[0] +
my * y_stride + mx;
prev_u_plane = info->prev_frame->planes[1] +
(my / 2) * u_stride + (mx + 1) / 2;
prev_v_plane = info->prev_frame->planes[2] +
(my / 2) * v_stride + (mx + 1) / 2;
// sanity check before rendering
copy_8x8_block(
y_plane,
u_plane,
v_plane,
prev_y_plane,
prev_u_plane,
prev_v_plane,
y_stride,
u_stride,
v_stride
);
break;
// 8x8 block is painted with a doublesized 4x4 vector
case 2:
FETCH_NEXT_ARGUMENT();
v4 = info->v4[argument];
// sanity check before rendering
// iterate through 4 4x4 blocks
for (j = 0; j < 4; j++)
{
quad4_x = quad8_x;
quad4_y = quad8_y;
if (j & 0x01) quad4_x += 4;
if (j & 0x02) quad4_y += 4;
// set up the planes
y_plane = mpi->planes[0] + quad4_y * y_stride + quad4_x;
u_plane = mpi->planes[1] +
(quad4_y / 2) * u_stride + (quad4_x / 2);
v_plane = mpi->planes[2] +
(quad4_y / 2) * v_stride + (quad4_x / 2);
paint_v2double_block(
y_plane,
u_plane,
v_plane,
&info->v2[v4.v2_index[j]],
y_stride,
u_stride,
v_stride
);
}
break;
// 8x8 block is broken down into 4 4x4 blocks and painted using
// 4 different codes.
case 3:
// iterate through 4 4x4 blocks
for (j = 0; j < 4; j++)
{
quad4_x = quad8_x;
quad4_y = quad8_y;
if (j & 0x01) quad4_x += 4;
if (j & 0x02) quad4_y += 4;
// set up the planes
y_plane = mpi->planes[0] + quad4_y * y_stride + quad4_x;
u_plane = mpi->planes[1] +
(quad4_y / 2) * u_stride + (quad4_x / 2);
v_plane = mpi->planes[2] +
(quad4_y / 2) * v_stride + (quad4_x / 2);
// decide how to handle this 4x4 quad
FETCH_NEXT_CODE();
switch(roq_code)
{
// 4x4 block is the same as in the previous frame;
// skip it
case 0:
break;
// 4x4 block is motion compensated from the previous frame
case 1:
CHECK_PREV_FRAME();
// prepare the pointers to the planes in the previous frame
FETCH_NEXT_ARGUMENT(); // argument contains motion vectors
// figure out the motion vectors
mx = quad4_x + 8 - (argument >> 4) - mean_motion_x;
my = quad4_y + 8 - (argument & 0x0F) - mean_motion_y;
prev_y_plane = info->prev_frame->planes[0] +
my * y_stride + mx;
prev_u_plane = info->prev_frame->planes[1] +
(my / 2) * u_stride + (mx + 1) / 2;
prev_v_plane = info->prev_frame->planes[2] +
(my / 2) * u_stride + (mx + 1) / 2;
// sanity check before rendering
copy_4x4_block(
y_plane,
u_plane,
v_plane,
prev_y_plane,
prev_u_plane,
prev_v_plane,
y_stride,
u_stride,
v_stride
);
break;
// 4x4 block is copied directly from v4 vector table
case 2:
FETCH_NEXT_ARGUMENT();
v4 = info->v4[argument];
paint_v4_block(
y_plane,
u_plane,
v_plane,
y_stride,
u_stride,
v_stride,
&info->v2[v4.v2_index[0]],
&info->v2[v4.v2_index[1]],
&info->v2[v4.v2_index[2]],
&info->v2[v4.v2_index[3]]);
break;
// 4x4 block is built from 4 2x2 vectors
case 3:
if (stream_ptr + 4 > encoded_size)
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN,
"RoQ video: stream pointer just went out of bounds (2)\n");
return;
}
paint_v4_block(
y_plane,
u_plane,
v_plane,
y_stride,
u_stride,
v_stride,
&info->v2[encoded[stream_ptr + 0]],
&info->v2[encoded[stream_ptr + 1]],
&info->v2[encoded[stream_ptr + 2]],
&info->v2[encoded[stream_ptr + 3]]);
stream_ptr += 4;
break;
}
}
break;
}
}
}
}
}
// one last sanity check on the way out
// (apparently, it's not unusual to have 2 bytes left over after decode)
if (stream_ptr < encoded_size - 2)
{
mp_msg(MSGT_DECVIDEO, MSGL_WARN,
"RoQ video: completed frame decode with bytes left over (%d < %d)\n",
stream_ptr, encoded_size);
}
// save the current frame as the previous frame for the next iteration
info->numframe++;
info->prev_frame = mpi;
}
// Initialize the RoQ audio decoder, which is to say, initialize the table
// of squares.
void *roq_decode_audio_init(void)
{
short *square_array;
short square;
int i;
square_array = (short *)malloc(256 * sizeof(short));
if (!square_array)
return NULL;
for (i = 0; i < 128; i++)
{
square = i * i;
square_array[i] = square;
square_array[i + 128] = -square;
}
return square_array;
}
int roq_decode_audio(
unsigned short *output,
unsigned char *input,
int encoded_size,
int channels,
void *context)
{
short *square_array = (short *)context;
int i;
int predictor[2];
int channel_number = 0;
// prepare the initial predictors
if (channels == 1)
predictor[0] = LE_16(&input[0]);
else
{
predictor[0] = input[1] << 8;
predictor[1] = input[0] << 8;
}
SE_16BIT(predictor[0]);
SE_16BIT(predictor[1]);
// decode the samples
for (i = 2; i < encoded_size; i++)
{
predictor[channel_number] += square_array[input[i]];
CLAMP_S16(predictor[channel_number]);
output[i - 2] = predictor[channel_number];
// toggle channel
channel_number ^= channels - 1;
}
// return the number of samples decoded
return (encoded_size - 2);
}