libavcodec/sgienc.c - third_party/ffmpeg - Git at Google

 /*
  * SGI image encoder
  * Todd Kirby <doubleshot@pacbell.net>
  *
  * 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
  */

 #include "libavutil/opt.h"

 #include "avcodec.h"
 #include "bytestream.h"
 #include "internal.h"
 #include "sgi.h"
 #include "rle.h"

 #define SGI_SINGLE_CHAN 2
 #define SGI_MULTI_CHAN 3

 typedef struct SgiContext {
     AVClass *class;

     int rle;
 } SgiContext;

 static av_cold int encode_init(AVCodecContext *avctx)
 {
     if (avctx->width > 65535 || avctx->height > 65535) {
         av_log(avctx, AV_LOG_ERROR,
                "Unsupported resolution %dx%d.\n", avctx->width, avctx->height);
         av_log(avctx, AV_LOG_ERROR, "SGI does not support resolutions above 65535x65535\n");
         return AVERROR_INVALIDDATA;
     }

     return 0;
 }

 static int sgi_rle_encode(PutByteContext *pbc, const uint8_t *src,
                           int w, int bpp)
 {
     int val, count, x, start = bytestream2_tell_p(pbc);
     void (*bytestream2_put)(PutByteContext *, unsigned int);

     if (bpp == 1)
         bytestream2_put = bytestream2_put_byte;
     else
         bytestream2_put = bytestream2_put_be16;

     for (x = 0; x < w; x += count) {
         /* see if we can encode the next set of pixels with RLE */
         count = ff_rle_count_pixels(src, w - x, bpp, 1);
         if (count > 1) {
             if (bytestream2_get_bytes_left_p(pbc) < bpp * 2)
                 return AVERROR_INVALIDDATA;

             val = bpp == 1 ? *src : AV_RB16(src);
             bytestream2_put(pbc, count);
             bytestream2_put(pbc, val);
         } else {
             int i;
             /* fall back on uncompressed */
             count = ff_rle_count_pixels(src, w - x, bpp, 0);
             if (bytestream2_get_bytes_left_p(pbc) < bpp * (count + 1))
                 return AVERROR_INVALIDDATA;

             bytestream2_put(pbc, count + 0x80);
             for (i = 0; i < count; i++) {
                 val = bpp == 1 ? src[i] : AV_RB16(src + i * bpp);
                 bytestream2_put(pbc, val);
             }
         }

         src += count * bpp;
     }

     return bytestream2_tell_p(pbc) - start;
 }

 static int encode_frame(AVCodecContext *avctx, AVPacket *pkt,
                         const AVFrame *frame, int *got_packet)
 {
     SgiContext *s = avctx->priv_data;
     const AVFrame * const p = frame;
     PutByteContext pbc;
     uint8_t *in_buf, *encode_buf;
     int x, y, z, length, tablesize, ret, i;
     unsigned int width, height, depth, dimension;
     unsigned int bytes_per_channel, pixmax, put_be;

 #if FF_API_CODED_FRAME
 FF_DISABLE_DEPRECATION_WARNINGS
     avctx->coded_frame->pict_type = AV_PICTURE_TYPE_I;
     avctx->coded_frame->key_frame = 1;
 FF_ENABLE_DEPRECATION_WARNINGS
 #endif

 #if FF_API_CODER_TYPE
 FF_DISABLE_DEPRECATION_WARNINGS
     if (avctx->coder_type == FF_CODER_TYPE_RAW)
         s->rle = 0;
 FF_ENABLE_DEPRECATION_WARNINGS
 #endif

     width  = avctx->width;
     height = avctx->height;
     bytes_per_channel = 1;
     pixmax = 0xFF;
     put_be = HAVE_BIGENDIAN;

     switch (avctx->pix_fmt) {
     case AV_PIX_FMT_GRAY8:
         dimension = SGI_SINGLE_CHAN;
         depth     = SGI_GRAYSCALE;
         break;
     case AV_PIX_FMT_RGB24:
         dimension = SGI_MULTI_CHAN;
         depth     = SGI_RGB;
         break;
     case AV_PIX_FMT_RGBA:
         dimension = SGI_MULTI_CHAN;
         depth     = SGI_RGBA;
         break;
     case AV_PIX_FMT_GRAY16LE:
         put_be = !HAVE_BIGENDIAN;
     case AV_PIX_FMT_GRAY16BE:
         bytes_per_channel = 2;
         pixmax = 0xFFFF;
         dimension = SGI_SINGLE_CHAN;
         depth     = SGI_GRAYSCALE;
         break;
     case AV_PIX_FMT_RGB48LE:
         put_be = !HAVE_BIGENDIAN;
     case AV_PIX_FMT_RGB48BE:
         bytes_per_channel = 2;
         pixmax = 0xFFFF;
         dimension = SGI_MULTI_CHAN;
         depth     = SGI_RGB;
         break;
     case AV_PIX_FMT_RGBA64LE:
         put_be = !HAVE_BIGENDIAN;
     case AV_PIX_FMT_RGBA64BE:
         bytes_per_channel = 2;
         pixmax = 0xFFFF;
         dimension = SGI_MULTI_CHAN;
         depth     = SGI_RGBA;
         break;
     default:
         return AVERROR_INVALIDDATA;
     }

     tablesize = depth * height * 4;
     length = SGI_HEADER_SIZE;
     if (!s->rle)
         length += depth * height * width;
     else // assume sgi_rle_encode() produces at most 2x size of input
         length += tablesize * 2 + depth * height * (2 * width + 1);

     if ((ret = ff_alloc_packet2(avctx, pkt, bytes_per_channel * length, 0)) < 0)
         return ret;

     bytestream2_init_writer(&pbc, pkt->data, pkt->size);

     /* Encode header. */
     bytestream2_put_be16(&pbc, SGI_MAGIC);
     bytestream2_put_byte(&pbc, s->rle); /* RLE 1 - VERBATIM 0 */
     bytestream2_put_byte(&pbc, bytes_per_channel);
     bytestream2_put_be16(&pbc, dimension);
     bytestream2_put_be16(&pbc, width);
     bytestream2_put_be16(&pbc, height);
     bytestream2_put_be16(&pbc, depth);

     bytestream2_put_be32(&pbc, 0L); /* pixmin */
     bytestream2_put_be32(&pbc, pixmax);
     bytestream2_put_be32(&pbc, 0L); /* dummy */

     /* name */
     for (i = 0; i < 80; i++)
         bytestream2_put_byte(&pbc, 0L);

     /* colormap */
     bytestream2_put_be32(&pbc, 0L);

     /* The rest of the 512 byte header is unused. */
     for (i = 0; i < 404; i++)
         bytestream2_put_byte(&pbc, 0L);

     if (s->rle) {
         PutByteContext taboff_pcb, tablen_pcb;

         /* Skip RLE offset table. */
         bytestream2_init_writer(&taboff_pcb, pbc.buffer, tablesize);
         bytestream2_skip_p(&pbc, tablesize);

         /* Skip RLE length table. */
         bytestream2_init_writer(&tablen_pcb, pbc.buffer, tablesize);
         bytestream2_skip_p(&pbc, tablesize);

         /* Make an intermediate consecutive buffer. */
         if (!(encode_buf = av_malloc(width * bytes_per_channel)))
             return AVERROR(ENOMEM);

         for (z = 0; z < depth; z++) {
             in_buf = p->data[0] + p->linesize[0] * (height - 1) + z * bytes_per_channel;

             for (y = 0; y < height; y++) {
                 bytestream2_put_be32(&taboff_pcb, bytestream2_tell_p(&pbc));

                 for (x = 0; x < width * bytes_per_channel; x += bytes_per_channel)
                     encode_buf[x] = in_buf[depth * x];

                 length = sgi_rle_encode(&pbc, encode_buf, width,
                                         bytes_per_channel);
                 if (length < 1) {
                     av_free(encode_buf);
                     return AVERROR_INVALIDDATA;
                 }

                 bytestream2_put_be32(&tablen_pcb, length);
                 in_buf -= p->linesize[0];
             }
         }

         av_free(encode_buf);
     } else {
         for (z = 0; z < depth; z++) {
             in_buf = p->data[0] + p->linesize[0] * (height - 1) + z * bytes_per_channel;

             for (y = 0; y < height; y++) {
                 for (x = 0; x < width * depth; x += depth)
                     if (bytes_per_channel == 1)
                         bytestream2_put_byte(&pbc, in_buf[x]);
                     else
                         if (put_be)
                             bytestream2_put_be16(&pbc, ((uint16_t *)in_buf)[x]);
                         else
                             bytestream2_put_le16(&pbc, ((uint16_t *)in_buf)[x]);

                 in_buf -= p->linesize[0];
             }
         }
     }

     /* total length */
     pkt->size   = bytestream2_tell_p(&pbc);
     pkt->flags |= AV_PKT_FLAG_KEY;
     *got_packet = 1;

     return 0;
 }

 #define OFFSET(x) offsetof(SgiContext, x)
 #define VE AV_OPT_FLAG_VIDEO_PARAM | AV_OPT_FLAG_ENCODING_PARAM
 static const AVOption options[] = {
     { "rle", "Use run-length compression", OFFSET(rle), AV_OPT_TYPE_INT, { .i64 = 1 }, 0, 1, VE },

     { NULL },
 };

 static const AVClass sgi_class = {
     .class_name = "sgi",
     .item_name  = av_default_item_name,
     .option     = options,
     .version    = LIBAVUTIL_VERSION_INT,
 };

 AVCodec ff_sgi_encoder = {
     .name      = "sgi",
     .long_name = NULL_IF_CONFIG_SMALL("SGI image"),
     .type      = AVMEDIA_TYPE_VIDEO,
     .id        = AV_CODEC_ID_SGI,
     .priv_data_size = sizeof(SgiContext),
     .priv_class = &sgi_class,
     .init      = encode_init,
     .encode2   = encode_frame,
     .pix_fmts  = (const enum AVPixelFormat[]) {
         AV_PIX_FMT_RGB24, AV_PIX_FMT_RGBA,
         AV_PIX_FMT_RGB48LE, AV_PIX_FMT_RGB48BE,
         AV_PIX_FMT_RGBA64LE, AV_PIX_FMT_RGBA64BE,
         AV_PIX_FMT_GRAY16LE, AV_PIX_FMT_GRAY16BE, AV_PIX_FMT_GRAY8,
         AV_PIX_FMT_NONE
     },
 };
	/*
	* SGI image encoder
	* Todd Kirby <doubleshot@pacbell.net>
	*
	* 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
	*/

	#include "libavutil/opt.h"

	#include "avcodec.h"
	#include "bytestream.h"
	#include "internal.h"
	#include "sgi.h"
	#include "rle.h"

	#define SGI_SINGLE_CHAN 2
	#define SGI_MULTI_CHAN 3

	typedef struct SgiContext {
	AVClass *class;

	int rle;
	} SgiContext;

	static av_cold int encode_init(AVCodecContext *avctx)
	{
	if (avctx->width > 65535 \|\| avctx->height > 65535) {
	av_log(avctx, AV_LOG_ERROR,
	"Unsupported resolution %dx%d.\n", avctx->width, avctx->height);
	av_log(avctx, AV_LOG_ERROR, "SGI does not support resolutions above 65535x65535\n");
	return AVERROR_INVALIDDATA;
	}

	return 0;
	}

	static int sgi_rle_encode(PutByteContext pbc, const uint8_t src,
	int w, int bpp)
	{
	int val, count, x, start = bytestream2_tell_p(pbc);
	void (bytestream2_put)(PutByteContext , unsigned int);

	if (bpp == 1)
	bytestream2_put = bytestream2_put_byte;
	else
	bytestream2_put = bytestream2_put_be16;

	for (x = 0; x < w; x += count) {
	/* see if we can encode the next set of pixels with RLE */
	count = ff_rle_count_pixels(src, w - x, bpp, 1);
	if (count > 1) {
	if (bytestream2_get_bytes_left_p(pbc) < bpp * 2)
	return AVERROR_INVALIDDATA;

	val = bpp == 1 ? *src : AV_RB16(src);
	bytestream2_put(pbc, count);
	bytestream2_put(pbc, val);
	} else {
	int i;
	/* fall back on uncompressed */
	count = ff_rle_count_pixels(src, w - x, bpp, 0);
	if (bytestream2_get_bytes_left_p(pbc) < bpp * (count + 1))
	return AVERROR_INVALIDDATA;

	bytestream2_put(pbc, count + 0x80);
	for (i = 0; i < count; i++) {
	val = bpp == 1 ? src[i] : AV_RB16(src + i * bpp);
	bytestream2_put(pbc, val);
	}
	}

	src += count * bpp;
	}

	return bytestream2_tell_p(pbc) - start;
	}

	static int encode_frame(AVCodecContext avctx, AVPacket pkt,
	const AVFrame frame, int got_packet)
	{
	SgiContext *s = avctx->priv_data;
	const AVFrame * const p = frame;
	PutByteContext pbc;
	uint8_t in_buf, encode_buf;
	int x, y, z, length, tablesize, ret, i;
	unsigned int width, height, depth, dimension;
	unsigned int bytes_per_channel, pixmax, put_be;

	#if FF_API_CODED_FRAME
	FF_DISABLE_DEPRECATION_WARNINGS
	avctx->coded_frame->pict_type = AV_PICTURE_TYPE_I;
	avctx->coded_frame->key_frame = 1;
	FF_ENABLE_DEPRECATION_WARNINGS
	#endif

	#if FF_API_CODER_TYPE
	FF_DISABLE_DEPRECATION_WARNINGS
	if (avctx->coder_type == FF_CODER_TYPE_RAW)
	s->rle = 0;
	FF_ENABLE_DEPRECATION_WARNINGS
	#endif

	width = avctx->width;
	height = avctx->height;
	bytes_per_channel = 1;
	pixmax = 0xFF;
	put_be = HAVE_BIGENDIAN;

	switch (avctx->pix_fmt) {
	case AV_PIX_FMT_GRAY8:
	dimension = SGI_SINGLE_CHAN;
	depth = SGI_GRAYSCALE;
	break;
	case AV_PIX_FMT_RGB24:
	dimension = SGI_MULTI_CHAN;
	depth = SGI_RGB;
	break;
	case AV_PIX_FMT_RGBA:
	dimension = SGI_MULTI_CHAN;
	depth = SGI_RGBA;
	break;
	case AV_PIX_FMT_GRAY16LE:
	put_be = !HAVE_BIGENDIAN;
	case AV_PIX_FMT_GRAY16BE:
	bytes_per_channel = 2;
	pixmax = 0xFFFF;
	dimension = SGI_SINGLE_CHAN;
	depth = SGI_GRAYSCALE;
	break;
	case AV_PIX_FMT_RGB48LE:
	put_be = !HAVE_BIGENDIAN;
	case AV_PIX_FMT_RGB48BE:
	bytes_per_channel = 2;
	pixmax = 0xFFFF;
	dimension = SGI_MULTI_CHAN;
	depth = SGI_RGB;
	break;
	case AV_PIX_FMT_RGBA64LE:
	put_be = !HAVE_BIGENDIAN;
	case AV_PIX_FMT_RGBA64BE:
	bytes_per_channel = 2;
	pixmax = 0xFFFF;
	dimension = SGI_MULTI_CHAN;
	depth = SGI_RGBA;
	break;
	default:
	return AVERROR_INVALIDDATA;
	}

	tablesize = depth * height * 4;
	length = SGI_HEADER_SIZE;
	if (!s->rle)
	length += depth * height * width;
	else // assume sgi_rle_encode() produces at most 2x size of input
	length += tablesize * 2 + depth * height * (2 * width + 1);

	if ((ret = ff_alloc_packet2(avctx, pkt, bytes_per_channel * length, 0)) < 0)
	return ret;

	bytestream2_init_writer(&pbc, pkt->data, pkt->size);

	/* Encode header. */
	bytestream2_put_be16(&pbc, SGI_MAGIC);
	bytestream2_put_byte(&pbc, s->rle); /* RLE 1 - VERBATIM 0 */
	bytestream2_put_byte(&pbc, bytes_per_channel);
	bytestream2_put_be16(&pbc, dimension);
	bytestream2_put_be16(&pbc, width);
	bytestream2_put_be16(&pbc, height);
	bytestream2_put_be16(&pbc, depth);

	bytestream2_put_be32(&pbc, 0L); /* pixmin */
	bytestream2_put_be32(&pbc, pixmax);
	bytestream2_put_be32(&pbc, 0L); /* dummy */

	/* name */
	for (i = 0; i < 80; i++)
	bytestream2_put_byte(&pbc, 0L);

	/* colormap */
	bytestream2_put_be32(&pbc, 0L);

	/* The rest of the 512 byte header is unused. */
	for (i = 0; i < 404; i++)
	bytestream2_put_byte(&pbc, 0L);

	if (s->rle) {
	PutByteContext taboff_pcb, tablen_pcb;

	/* Skip RLE offset table. */
	bytestream2_init_writer(&taboff_pcb, pbc.buffer, tablesize);
	bytestream2_skip_p(&pbc, tablesize);

	/* Skip RLE length table. */
	bytestream2_init_writer(&tablen_pcb, pbc.buffer, tablesize);
	bytestream2_skip_p(&pbc, tablesize);

	/* Make an intermediate consecutive buffer. */
	if (!(encode_buf = av_malloc(width * bytes_per_channel)))
	return AVERROR(ENOMEM);

	for (z = 0; z < depth; z++) {
	in_buf = p->data[0] + p->linesize[0] * (height - 1) + z * bytes_per_channel;

	for (y = 0; y < height; y++) {
	bytestream2_put_be32(&taboff_pcb, bytestream2_tell_p(&pbc));

	for (x = 0; x < width * bytes_per_channel; x += bytes_per_channel)
	encode_buf[x] = in_buf[depth * x];

	length = sgi_rle_encode(&pbc, encode_buf, width,
	bytes_per_channel);
	if (length < 1) {
	av_free(encode_buf);
	return AVERROR_INVALIDDATA;
	}

	bytestream2_put_be32(&tablen_pcb, length);
	in_buf -= p->linesize[0];
	}
	}

	av_free(encode_buf);
	} else {
	for (z = 0; z < depth; z++) {
	in_buf = p->data[0] + p->linesize[0] * (height - 1) + z * bytes_per_channel;

	for (y = 0; y < height; y++) {
	for (x = 0; x < width * depth; x += depth)
	if (bytes_per_channel == 1)
	bytestream2_put_byte(&pbc, in_buf[x]);
	else
	if (put_be)
	bytestream2_put_be16(&pbc, ((uint16_t *)in_buf)[x]);
	else
	bytestream2_put_le16(&pbc, ((uint16_t *)in_buf)[x]);

	in_buf -= p->linesize[0];
	}
	}
	}

	/* total length */
	pkt->size = bytestream2_tell_p(&pbc);
	pkt->flags \|= AV_PKT_FLAG_KEY;
	*got_packet = 1;

	return 0;
	}

	#define OFFSET(x) offsetof(SgiContext, x)
	#define VE AV_OPT_FLAG_VIDEO_PARAM \| AV_OPT_FLAG_ENCODING_PARAM
	static const AVOption options[] = {
	{ "rle", "Use run-length compression", OFFSET(rle), AV_OPT_TYPE_INT, { .i64 = 1 }, 0, 1, VE },

	{ NULL },
	};

	static const AVClass sgi_class = {
	.class_name = "sgi",
	.item_name = av_default_item_name,
	.option = options,
	.version = LIBAVUTIL_VERSION_INT,
	};

	AVCodec ff_sgi_encoder = {
	.name = "sgi",
	.long_name = NULL_IF_CONFIG_SMALL("SGI image"),
	.type = AVMEDIA_TYPE_VIDEO,
	.id = AV_CODEC_ID_SGI,
	.priv_data_size = sizeof(SgiContext),
	.priv_class = &sgi_class,
	.init = encode_init,
	.encode2 = encode_frame,
	.pix_fmts = (const enum AVPixelFormat[]) {
	AV_PIX_FMT_RGB24, AV_PIX_FMT_RGBA,
	AV_PIX_FMT_RGB48LE, AV_PIX_FMT_RGB48BE,
	AV_PIX_FMT_RGBA64LE, AV_PIX_FMT_RGBA64BE,
	AV_PIX_FMT_GRAY16LE, AV_PIX_FMT_GRAY16BE, AV_PIX_FMT_GRAY8,
	AV_PIX_FMT_NONE
	},
	};