a64multienc.c 13.7 KB
Newer Older
1 2 3 4
/*
 * a64 video encoder - multicolor modes
 * Copyright (c) 2009 Tobias Bindhammer
 *
5
 * This file is part of Libav.
6
 *
7
 * Libav is free software; you can redistribute it and/or
8 9 10 11
 * 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.
 *
12
 * Libav is distributed in the hope that it will be useful,
13 14 15 16 17
 * 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
18
 * License along with Libav; if not, write to the Free Software
19 20 21 22 23 24 25 26 27
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */

/**
 * @file
 * a64 video encoder - multicolor modes
 */

#include "a64enc.h"
28
#include "a64colors.h"
29 30
#include "a64tables.h"
#include "elbg.h"
31
#include "internal.h"
32
#include "libavutil/common.h"
33 34
#include "libavutil/intreadwrite.h"

35 36
#define DITHERSTEPS   8
#define CHARSET_CHARS 256
37
#define INTERLACED    1
38
#define CROP_SCREENS  1
39 40 41

/* gray gradient */
static const int mc_colors[5]={0x0,0xb,0xc,0xf,0x1};
42

43 44 45 46
/* other possible gradients - to be tested */
//static const int mc_colors[5]={0x0,0x8,0xa,0xf,0x7};
//static const int mc_colors[5]={0x0,0x9,0x8,0xa,0x3};

47 48
static void to_meta_with_crop(AVCodecContext *avctx,
                              const AVFrame *p, int *dest)
49 50 51
{
    int blockx, blocky, x, y;
    int luma = 0;
Tobias Bindhammer's avatar
Tobias Bindhammer committed
52 53
    int height = FFMIN(avctx->height, C64YRES);
    int width  = FFMIN(avctx->width , C64XRES);
54 55
    uint8_t *src = p->data[0];

56
    for (blocky = 0; blocky < C64YRES; blocky += 8) {
57
        for (blockx = 0; blockx < C64XRES; blockx += 8) {
Tobias Bindhammer's avatar
Tobias Bindhammer committed
58 59
            for (y = blocky; y < blocky + 8 && y < C64YRES; y++) {
                for (x = blockx; x < blockx + 8 && x < C64XRES; x += 2) {
60
                    if(x < width && y < height) {
61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
                        /* build average over 2 pixels */
                        luma = (src[(x + 0 + y * p->linesize[0])] +
                                src[(x + 1 + y * p->linesize[0])]) / 2;
                        /* write blocks as linear data now so they are suitable for elbg */
                        dest[0] = luma;
                    }
                    dest++;
                }
            }
        }
    }
}

static void render_charset(AVCodecContext *avctx, uint8_t *charset,
                           uint8_t *colrammap)
{
    A64Context *c = avctx->priv_data;
78
    uint8_t row1, row2;
79
    int charpos, x, y;
80 81
    int a, b;
    uint8_t pix;
82 83
    int lowdiff, highdiff;
    int *best_cb = c->mc_best_cb;
84 85 86 87 88
    static uint8_t index1[256];
    static uint8_t index2[256];
    static uint8_t dither[256];
    int i;
    int distance;
89

90 91 92
    /* generate lookup-tables for dither and index before looping */
    i = 0;
    for (a=0; a < 256; a++) {
Tobias Bindhammer's avatar
Tobias Bindhammer committed
93 94
        if(i < c->mc_pal_size -1 && a == c->mc_luma_vals[i + 1]) {
            distance = c->mc_luma_vals[i + 1] - c->mc_luma_vals[i];
95
            for(b = 0; b <= distance; b++) {
Tobias Bindhammer's avatar
Tobias Bindhammer committed
96
                  dither[c->mc_luma_vals[i] + b] = b * (DITHERSTEPS - 1) / distance;
97 98 99
            }
            i++;
        }
100
        if(i >= c->mc_pal_size - 1) dither[a] = 0;
101
        index1[a] = i;
Tobias Bindhammer's avatar
Tobias Bindhammer committed
102
        index2[a] = FFMIN(i + 1, c->mc_pal_size - 1);
103
    }
Tobias Bindhammer's avatar
Tobias Bindhammer committed
104

105
    /* and render charset */
106
    for (charpos = 0; charpos < CHARSET_CHARS; charpos++) {
107 108 109
        lowdiff  = 0;
        highdiff = 0;
        for (y = 0; y < 8; y++) {
110
            row1 = 0; row2 = 0;
111 112 113
            for (x = 0; x < 4; x++) {
                pix = best_cb[y * 4 + x];

114 115 116 117 118
                /* accumulate error for brightest/darkest color */
                if (index1[pix] >= 3)
                    highdiff += pix - c->mc_luma_vals[3];
                if (index1[pix] < 1)
                    lowdiff += c->mc_luma_vals[1] - pix;
119 120

                row1 <<= 2;
121

Tobias Bindhammer's avatar
Tobias Bindhammer committed
122
                if (INTERLACED) {
123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139
                    row2 <<= 2;
                    if (interlaced_dither_patterns[dither[pix]][(y & 3) * 2 + 0][x & 3])
                        row1 |= 3-(index2[pix] & 3);
                    else
                        row1 |= 3-(index1[pix] & 3);

                    if (interlaced_dither_patterns[dither[pix]][(y & 3) * 2 + 1][x & 3])
                        row2 |= 3-(index2[pix] & 3);
                    else
                        row2 |= 3-(index1[pix] & 3);
                }
                else {
                    if (multi_dither_patterns[dither[pix]][(y & 3)][x & 3])
                        row1 |= 3-(index2[pix] & 3);
                    else
                        row1 |= 3-(index1[pix] & 3);
                }
140
            }
141
            charset[y+0x000] = row1;
Tobias Bindhammer's avatar
Tobias Bindhammer committed
142
            if (INTERLACED) charset[y+0x800] = row2;
143
        }
144
        /* do we need to adjust pixels? */
145
        if (highdiff > 0 && lowdiff > 0 && c->mc_use_5col) {
146 147
            if (lowdiff > highdiff) {
                for (x = 0; x < 32; x++)
148
                    best_cb[x] = FFMIN(c->mc_luma_vals[3], best_cb[x]);
149 150
            } else {
                for (x = 0; x < 32; x++)
151
                    best_cb[x] = FFMAX(c->mc_luma_vals[1], best_cb[x]);
152
            }
153 154
            charpos--;          /* redo now adjusted char */
        /* no adjustment needed, all fine */
155 156 157 158 159
        } else {
            /* advance pointers */
            best_cb += 32;
            charset += 8;

160
            /* remember colorram value */
161
            colrammap[charpos] = (highdiff > 0);
162 163 164 165 166 167 168 169 170
        }
    }
}

static av_cold int a64multi_close_encoder(AVCodecContext *avctx)
{
    A64Context *c = avctx->priv_data;
    av_free(c->mc_meta_charset);
    av_free(c->mc_best_cb);
171
    av_free(c->mc_charset);
172 173
    av_free(c->mc_charmap);
    av_free(c->mc_colram);
174 175 176
    return 0;
}

177
static av_cold int a64multi_encode_init(AVCodecContext *avctx)
178 179
{
    A64Context *c = avctx->priv_data;
180
    int a;
181 182 183 184 185 186 187 188 189 190
    av_lfg_init(&c->randctx, 1);

    if (avctx->global_quality < 1) {
        c->mc_lifetime = 4;
    } else {
        c->mc_lifetime = avctx->global_quality /= FF_QP2LAMBDA;
    }

    av_log(avctx, AV_LOG_INFO, "charset lifetime set to %d frame(s)\n", c->mc_lifetime);

191
    c->mc_frame_counter = 0;
192
    c->mc_use_5col      = avctx->codec->id == AV_CODEC_ID_A64_MULTI5;
193 194
    c->mc_pal_size      = 4 + c->mc_use_5col;

195
    /* precalc luma values for later use */
196
    for (a = 0; a < c->mc_pal_size; a++) {
197 198 199 200 201
        c->mc_luma_vals[a]=a64_palette[mc_colors[a]][0] * 0.30 +
                           a64_palette[mc_colors[a]][1] * 0.59 +
                           a64_palette[mc_colors[a]][2] * 0.11;
    }

Tobias Bindhammer's avatar
Tobias Bindhammer committed
202 203 204 205 206
    if (!(c->mc_meta_charset = av_malloc(32000 * c->mc_lifetime * sizeof(int))) ||
       !(c->mc_best_cb       = av_malloc(CHARSET_CHARS * 32 * sizeof(int)))     ||
       !(c->mc_charmap       = av_mallocz(1000 * c->mc_lifetime * sizeof(int))) ||
       !(c->mc_colram        = av_mallocz(CHARSET_CHARS * sizeof(uint8_t)))     ||
       !(c->mc_charset       = av_malloc(0x800 * (INTERLACED+1) * sizeof(uint8_t)))) {
207 208 209
        av_log(avctx, AV_LOG_ERROR, "Failed to allocate buffer memory.\n");
        return AVERROR(ENOMEM);
    }
210

211
    /* set up extradata */
212
    if (!(avctx->extradata = av_mallocz(8 * 4 + AV_INPUT_BUFFER_PADDING_SIZE))) {
213 214 215
        av_log(avctx, AV_LOG_ERROR, "Failed to allocate memory for extradata.\n");
        return AVERROR(ENOMEM);
    }
216 217
    avctx->extradata_size = 8 * 4;
    AV_WB32(avctx->extradata, c->mc_lifetime);
Tobias Bindhammer's avatar
Tobias Bindhammer committed
218
    AV_WB32(avctx->extradata + 16, INTERLACED);
219

220 221
#if FF_API_CODED_FRAME
FF_DISABLE_DEPRECATION_WARNINGS
222
    avctx->coded_frame->pict_type = AV_PICTURE_TYPE_I;
223
    avctx->coded_frame->key_frame = 1;
224 225
FF_ENABLE_DEPRECATION_WARNINGS
#endif
226 227 228
    if (!avctx->codec_tag)
         avctx->codec_tag = AV_RL32("a64m");

229 230
    c->next_pts = AV_NOPTS_VALUE;

231 232 233
    return 0;
}

234 235 236 237 238 239 240 241 242 243
static void a64_compress_colram(unsigned char *buf, int *charmap, uint8_t *colram)
{
    int a;
    uint8_t temp;
    /* only needs to be done in 5col mode */
    /* XXX could be squeezed to 0x80 bytes */
    for (a = 0; a < 256; a++) {
        temp  = colram[charmap[a + 0x000]] << 0;
        temp |= colram[charmap[a + 0x100]] << 1;
        temp |= colram[charmap[a + 0x200]] << 2;
Tobias Bindhammer's avatar
Tobias Bindhammer committed
244
        if (a < 0xe8) temp |= colram[charmap[a + 0x300]] << 3;
245 246 247 248
        buf[a] = temp << 2;
    }
}

249 250
static int a64multi_encode_frame(AVCodecContext *avctx, AVPacket *pkt,
                                 const AVFrame *pict, int *got_packet)
251 252 253 254
{
    A64Context *c = avctx->priv_data;

    int frame;
255 256 257
    int x, y;
    int b_height;
    int b_width;
258

259 260
    int req_size, ret;
    uint8_t *buf;
261

Tobias Bindhammer's avatar
Tobias Bindhammer committed
262 263 264 265 266
    int *charmap     = c->mc_charmap;
    uint8_t *colram  = c->mc_colram;
    uint8_t *charset = c->mc_charset;
    int *meta        = c->mc_meta_charset;
    int *best_cb     = c->mc_best_cb;
267

268 269
    int charset_size = 0x800 * (INTERLACED + 1);
    int colram_size  = 0x100 * c->mc_use_5col;
Tobias Bindhammer's avatar
Tobias Bindhammer committed
270
    int screen_size;
271

272 273 274 275 276 277 278 279 280 281
    if(CROP_SCREENS) {
        b_height = FFMIN(avctx->height,C64YRES) >> 3;
        b_width  = FFMIN(avctx->width ,C64XRES) >> 3;
        screen_size = b_width * b_height;
    } else {
        b_height = C64YRES >> 3;
        b_width  = C64XRES >> 3;
        screen_size = 0x400;
    }

282
    /* no data, means end encoding asap */
283
    if (!pict) {
284
        /* all done, end encoding */
Tobias Bindhammer's avatar
Tobias Bindhammer committed
285
        if (!c->mc_lifetime) return 0;
286
        /* no more frames in queue, prepare to flush remaining frames */
Tobias Bindhammer's avatar
Tobias Bindhammer committed
287 288
        if (!c->mc_frame_counter) {
            c->mc_lifetime = 0;
289 290
        }
        /* still frames in queue so limit lifetime to remaining frames */
Tobias Bindhammer's avatar
Tobias Bindhammer committed
291
        else c->mc_lifetime = c->mc_frame_counter;
292
    /* still new data available */
Tobias Bindhammer's avatar
Tobias Bindhammer committed
293
    } else {
294 295
        /* fill up mc_meta_charset with data until lifetime exceeds */
        if (c->mc_frame_counter < c->mc_lifetime) {
296 297
#if FF_API_CODED_FRAME
FF_DISABLE_DEPRECATION_WARNINGS
298 299
            avctx->coded_frame->pict_type = AV_PICTURE_TYPE_I;
            avctx->coded_frame->key_frame = 1;
300 301
FF_ENABLE_DEPRECATION_WARNINGS
#endif
302
            to_meta_with_crop(avctx, pict, meta + 32000 * c->mc_frame_counter);
303
            c->mc_frame_counter++;
304 305
            if (c->next_pts == AV_NOPTS_VALUE)
                c->next_pts = pict->pts;
306 307 308
            /* lifetime is not reached so wait for next frame first */
            return 0;
        }
309 310
    }

311 312
    /* lifetime reached so now convert X frames at once */
    if (c->mc_frame_counter == c->mc_lifetime) {
313
        req_size = 0;
314
        /* any frames to encode? */
Tobias Bindhammer's avatar
Tobias Bindhammer committed
315
        if (c->mc_lifetime) {
316 317 318 319 320 321 322
            req_size = charset_size + c->mc_lifetime*(screen_size + colram_size);
            if ((ret = ff_alloc_packet(pkt, req_size)) < 0) {
                av_log(avctx, AV_LOG_ERROR, "Error getting output packet of size %d.\n", req_size);
                return ret;
            }
            buf = pkt->data;

323
            /* calc optimal new charset + charmaps */
324 325 326 327 328 329 330 331
            ret = ff_init_elbg(meta, 32, 1000 * c->mc_lifetime, best_cb,
                               CHARSET_CHARS, 50, charmap, &c->randctx);
            if (ret < 0)
                return ret;
            ret = ff_do_elbg(meta, 32, 1000 * c->mc_lifetime, best_cb,
                             CHARSET_CHARS, 50, charmap, &c->randctx);
            if (ret < 0)
                return ret;
332 333 334 335

            /* create colorram map and a c64 readable charset */
            render_charset(avctx, charset, colram);

336
            /* copy charset to buf */
337
            memcpy(buf, charset, charset_size);
338 339

            /* advance pointers */
340 341
            buf      += charset_size;
            charset  += charset_size;
342
        }
343

344
        /* write x frames to buf */
345
        for (frame = 0; frame < c->mc_lifetime; frame++) {
346
            /* copy charmap to buf. buf is uchar*, charmap is int*, so no memcpy here, sorry */
347 348 349 350
            for (y = 0; y < b_height; y++) {
                for (x = 0; x < b_width; x++) {
                    buf[y * b_width + x] = charmap[y * b_width + x];
                }
351
            }
352
            /* advance pointers */
353 354
            buf += screen_size;
            req_size += screen_size;
355

356
            /* compress and copy colram to buf */
Tobias Bindhammer's avatar
Tobias Bindhammer committed
357 358
            if (c->mc_use_5col) {
                a64_compress_colram(buf, charmap, colram);
359
                /* advance pointers */
360 361
                buf += colram_size;
                req_size += colram_size;
362 363 364
            }

            /* advance to next charmap */
365 366
            charmap += 1000;
        }
367

Tobias Bindhammer's avatar
Tobias Bindhammer committed
368 369 370
        AV_WB32(avctx->extradata + 4,  c->mc_frame_counter);
        AV_WB32(avctx->extradata + 8,  charset_size);
        AV_WB32(avctx->extradata + 12, screen_size + colram_size);
371

372 373 374
        /* reset counter */
        c->mc_frame_counter = 0;

375 376 377 378 379 380
        pkt->pts = pkt->dts = c->next_pts;
        c->next_pts         = AV_NOPTS_VALUE;

        pkt->size   = req_size;
        pkt->flags |= AV_PKT_FLAG_KEY;
        *got_packet = !!req_size;
381 382 383 384
    }
    return 0;
}

385
AVCodec ff_a64multi_encoder = {
386
    .name           = "a64multi",
387
    .long_name      = NULL_IF_CONFIG_SMALL("Multicolor charset for Commodore 64"),
388
    .type           = AVMEDIA_TYPE_VIDEO,
389
    .id             = AV_CODEC_ID_A64_MULTI,
390
    .priv_data_size = sizeof(A64Context),
391
    .init           = a64multi_encode_init,
392
    .encode2        = a64multi_encode_frame,
393
    .close          = a64multi_close_encoder,
394
    .pix_fmts       = (const enum AVPixelFormat[]) {AV_PIX_FMT_GRAY8, AV_PIX_FMT_NONE},
395
    .capabilities   = AV_CODEC_CAP_DELAY,
396 397
};

398
AVCodec ff_a64multi5_encoder = {
399
    .name           = "a64multi5",
400
    .long_name      = NULL_IF_CONFIG_SMALL("Multicolor charset for Commodore 64, extended with 5th color (colram)"),
401
    .type           = AVMEDIA_TYPE_VIDEO,
402
    .id             = AV_CODEC_ID_A64_MULTI5,
403
    .priv_data_size = sizeof(A64Context),
404
    .init           = a64multi_encode_init,
405
    .encode2        = a64multi_encode_frame,
406
    .close          = a64multi_close_encoder,
407
    .pix_fmts       = (const enum AVPixelFormat[]) {AV_PIX_FMT_GRAY8, AV_PIX_FMT_NONE},
408
    .capabilities   = AV_CODEC_CAP_DELAY,
409
};