libavcodec/dvbsub.c
240c1657
 /*
124e2884
  * DVB subtitle encoding
406792e7
  * Copyright (c) 2005 Fabrice Bellard
240c1657
  *
b78e7197
  * This file is part of FFmpeg.
  *
  * FFmpeg is free software; you can redistribute it and/or
240c1657
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
b78e7197
  * version 2.1 of the License, or (at your option) any later version.
240c1657
  *
b78e7197
  * FFmpeg is distributed in the hope that it will be useful,
240c1657
  * 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
b78e7197
  * License along with FFmpeg; if not, write to the Free Software
5509bffa
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
240c1657
  */
 #include "avcodec.h"
67a5daf0
 #include "bytestream.h"
2b4abbd6
 #include "libavutil/colorspace.h"
240c1657
 
 typedef struct DVBSubtitleContext {
     int hide_state;
     int object_version;
 } DVBSubtitleContext;
 
 #define PUTBITS2(val)\
 {\
     bitbuf |= (val) << bitcnt;\
     bitcnt -= 2;\
     if (bitcnt < 0) {\
         bitcnt = 6;\
         *q++ = bitbuf;\
         bitbuf = 0;\
     }\
 }
 
 static void dvb_encode_rle2(uint8_t **pq,
                             const uint8_t *bitmap, int linesize,
                             int w, int h)
 {
     uint8_t *q;
     unsigned int bitbuf;
     int bitcnt;
     int x, y, len, x1, v, color;
 
     q = *pq;
115329f1
 
240c1657
     for(y = 0; y < h; y++) {
         *q++ = 0x10;
         bitbuf = 0;
         bitcnt = 6;
115329f1
 
240c1657
         x = 0;
         while (x < w) {
             x1 = x;
             color = bitmap[x1++];
             while (x1 < w && bitmap[x1] == color)
                 x1++;
             len = x1 - x;
             if (color == 0 && len == 2) {
                 PUTBITS2(0);
                 PUTBITS2(0);
                 PUTBITS2(1);
             } else if (len >= 3 && len <= 10) {
                 v = len - 3;
                 PUTBITS2(0);
                 PUTBITS2((v >> 2) | 2);
                 PUTBITS2(v & 3);
                 PUTBITS2(color);
             } else if (len >= 12 && len <= 27) {
                 v = len - 12;
                 PUTBITS2(0);
                 PUTBITS2(0);
                 PUTBITS2(2);
                 PUTBITS2(v >> 2);
                 PUTBITS2(v & 3);
                 PUTBITS2(color);
             } else if (len >= 29) {
                 /* length = 29 ... 284 */
                 if (len > 284)
                     len = 284;
                 v = len - 29;
                 PUTBITS2(0);
                 PUTBITS2(0);
                 PUTBITS2(3);
                 PUTBITS2((v >> 6));
                 PUTBITS2((v >> 4) & 3);
                 PUTBITS2((v >> 2) & 3);
                 PUTBITS2(v & 3);
                 PUTBITS2(color);
             } else {
                 PUTBITS2(color);
                 if (color == 0) {
                     PUTBITS2(1);
                 }
                 len = 1;
             }
             x += len;
         }
         /* end of line */
         PUTBITS2(0);
         PUTBITS2(0);
         PUTBITS2(0);
         if (bitcnt != 6) {
             *q++ = bitbuf;
         }
         *q++ = 0xf0;
         bitmap += linesize;
     }
     *pq = q;
 }
 
 #define PUTBITS4(val)\
 {\
     bitbuf |= (val) << bitcnt;\
     bitcnt -= 4;\
     if (bitcnt < 0) {\
         bitcnt = 4;\
         *q++ = bitbuf;\
         bitbuf = 0;\
     }\
 }
 
 /* some DVB decoders only implement 4 bits/pixel */
 static void dvb_encode_rle4(uint8_t **pq,
                             const uint8_t *bitmap, int linesize,
                             int w, int h)
 {
     uint8_t *q;
     unsigned int bitbuf;
     int bitcnt;
     int x, y, len, x1, v, color;
 
     q = *pq;
115329f1
 
240c1657
     for(y = 0; y < h; y++) {
         *q++ = 0x11;
         bitbuf = 0;
         bitcnt = 4;
115329f1
 
240c1657
         x = 0;
         while (x < w) {
             x1 = x;
             color = bitmap[x1++];
             while (x1 < w && bitmap[x1] == color)
                 x1++;
             len = x1 - x;
             if (color == 0 && len == 2) {
                 PUTBITS4(0);
                 PUTBITS4(0xd);
             } else if (color == 0 && (len >= 3 && len <= 9)) {
                 PUTBITS4(0);
                 PUTBITS4(len - 2);
             } else if (len >= 4 && len <= 7) {
                 PUTBITS4(0);
                 PUTBITS4(8 + len - 4);
                 PUTBITS4(color);
             } else if (len >= 9 && len <= 24) {
                 PUTBITS4(0);
                 PUTBITS4(0xe);
                 PUTBITS4(len - 9);
                 PUTBITS4(color);
             } else if (len >= 25) {
                 if (len > 280)
                     len = 280;
                 v = len - 25;
                 PUTBITS4(0);
                 PUTBITS4(0xf);
                 PUTBITS4(v >> 4);
                 PUTBITS4(v & 0xf);
                 PUTBITS4(color);
             } else {
                 PUTBITS4(color);
                 if (color == 0) {
                     PUTBITS4(0xc);
                 }
                 len = 1;
             }
             x += len;
         }
         /* end of line */
         PUTBITS4(0);
         PUTBITS4(0);
         if (bitcnt != 4) {
             *q++ = bitbuf;
         }
         *q++ = 0xf0;
         bitmap += linesize;
     }
     *pq = q;
 }
 
8a6799d2
 static void dvb_encode_rle8(uint8_t **pq,
                             const uint8_t *bitmap, int linesize,
                             int w, int h)
 {
     uint8_t *q;
     int x, y, len, x1, f, color;
 
     q = *pq;
 
     for (y = 0; y < h; y++) {
         *q++ = 0x12;
 
         x = 0;
         f = 0;
         while (x < w) {
             x1 = x;
             color = bitmap[x1++];
             while (x1 < w && bitmap[x1] == color)
                 x1++;
             len = x1 - x;
             if (len == 1 && color) {
                 // 00000001 to 11111111           1 pixel in colour x
                 *q++ = color;
             } else {
                 if (color == 0x00) {
                     // 00000000 0LLLLLLL          L pixels (1-127) in colour 0 (L > 0)
                     len = FFMIN(len, 127);
                     *q++ = 0x00;
                     *q++ = len;
                 } else if (len > 2) {
                     // 00000000 1LLLLLLL CCCCCCCC L pixels (3-127) in colour C (L > 2)
                     len = FFMIN(len, 127);
                     *q++ = 0x00;
                     *q++ = 0x80+len;
                     *q++ = color;
                 }
                 else if (len == 2) {
                     *q++ = color;
                     *q++ = color;
                 } else {
                     *q++ = color;
                     len = 1;
                 }
             }
             x += len;
         }
         /* end of line */
         // 00000000 00000000 end of 8-bit/pixel_code_string
         *q++ = 0x00;
         *q++ = 0x00;
         bitmap += linesize;
     }
     *pq = q;
 }
 
115329f1
 static int encode_dvb_subtitles(DVBSubtitleContext *s,
240c1657
                                 uint8_t *outbuf, AVSubtitle *h)
 {
     uint8_t *q, *pseg_len;
     int page_id, region_id, clut_id, object_id, i, bpp_index, page_state;
 
 
     q = outbuf;
 
     page_id = 1;
c6ec28b1
 
     if (h->num_rects == 0 || h->rects == NULL)
240c1657
         return -1;
 
     *q++ = 0x00; /* subtitle_stream_id */
 
     /* page composition segment */
 
     *q++ = 0x0f; /* sync_byte */
     *q++ = 0x10; /* segment_type */
67a5daf0
     bytestream_put_be16(&q, page_id);
240c1657
     pseg_len = q;
     q += 2; /* segment length */
     *q++ = 30; /* page_timeout (seconds) */
     if (s->hide_state)
         page_state = 0; /* normal case */
     else
         page_state = 2; /* mode change */
     /* page_version = 0 + page_state */
41bb47bf
     *q++ = (s->object_version << 4) | (page_state << 2) | 3;
c6ec28b1
 
     for (region_id = 0; region_id < h->num_rects; region_id++) {
         *q++ = region_id;
         *q++ = 0xff; /* reserved */
db4fac64
         bytestream_put_be16(&q, h->rects[region_id]->x); /* left pos */
         bytestream_put_be16(&q, h->rects[region_id]->y); /* top pos */
c6ec28b1
     }
240c1657
 
67a5daf0
     bytestream_put_be16(&pseg_len, q - pseg_len - 2);
240c1657
 
     if (!s->hide_state) {
c6ec28b1
         for (clut_id = 0; clut_id < h->num_rects; clut_id++) {
 
             /* CLUT segment */
 
db4fac64
             if (h->rects[clut_id]->nb_colors <= 4) {
c6ec28b1
                 /* 2 bpp, some decoders do not support it correctly */
                 bpp_index = 0;
db4fac64
             } else if (h->rects[clut_id]->nb_colors <= 16) {
c6ec28b1
                 /* 4 bpp, standard encoding */
                 bpp_index = 1;
8a6799d2
             } else if (h->rects[clut_id]->nb_colors <= 256) {
                 /* 8 bpp, standard encoding */
                 bpp_index = 2;
c6ec28b1
             } else {
                 return -1;
             }
 
294ea2cf
 
             /* CLUT segment */
c6ec28b1
             *q++ = 0x0f; /* sync byte */
             *q++ = 0x12; /* CLUT definition segment */
67a5daf0
             bytestream_put_be16(&q, page_id);
c6ec28b1
             pseg_len = q;
             q += 2; /* segment length */
             *q++ = clut_id;
             *q++ = (0 << 4) | 0xf; /* version = 0 */
 
db4fac64
             for(i = 0; i < h->rects[clut_id]->nb_colors; i++) {
c6ec28b1
                 *q++ = i; /* clut_entry_id */
                 *q++ = (1 << (7 - bpp_index)) | (0xf << 1) | 1; /* 2 bits/pixel full range */
                 {
                     int a, r, g, b;
25b4c651
                     uint32_t x= ((uint32_t*)h->rects[clut_id]->pict.data[1])[i];
                     a = (x >> 24) & 0xff;
                     r = (x >> 16) & 0xff;
                     g = (x >>  8) & 0xff;
                     b = (x >>  0) & 0xff;
c6ec28b1
 
                     *q++ = RGB_TO_Y_CCIR(r, g, b);
                     *q++ = RGB_TO_V_CCIR(r, g, b, 0);
                     *q++ = RGB_TO_U_CCIR(r, g, b, 0);
                     *q++ = 255 - a;
                 }
             }
 
67a5daf0
             bytestream_put_be16(&pseg_len, q - pseg_len - 2);
c6ec28b1
         }
     }
 
     for (region_id = 0; region_id < h->num_rects; region_id++) {
 
         /* region composition segment */
115329f1
 
db4fac64
         if (h->rects[region_id]->nb_colors <= 4) {
c6ec28b1
             /* 2 bpp, some decoders do not support it correctly */
             bpp_index = 0;
db4fac64
         } else if (h->rects[region_id]->nb_colors <= 16) {
c6ec28b1
             /* 4 bpp, standard encoding */
             bpp_index = 1;
         } else {
             return -1;
         }
 
         *q++ = 0x0f; /* sync_byte */
         *q++ = 0x11; /* segment_type */
67a5daf0
         bytestream_put_be16(&q, page_id);
240c1657
         pseg_len = q;
         q += 2; /* segment length */
c6ec28b1
         *q++ = region_id;
         *q++ = (s->object_version << 4) | (0 << 3) | 0x07; /* version , no fill */
db4fac64
         bytestream_put_be16(&q, h->rects[region_id]->w); /* region width */
         bytestream_put_be16(&q, h->rects[region_id]->h); /* region height */
c6ec28b1
         *q++ = ((1 + bpp_index) << 5) | ((1 + bpp_index) << 2) | 0x03;
         *q++ = region_id; /* clut_id == region_id */
         *q++ = 0; /* 8 bit fill colors */
         *q++ = 0x03; /* 4 bit and 2 bit fill colors */
 
         if (!s->hide_state) {
67a5daf0
             bytestream_put_be16(&q, region_id); /* object_id == region_id */
c6ec28b1
             *q++ = (0 << 6) | (0 << 4);
             *q++ = 0;
             *q++ = 0xf0;
             *q++ = 0;
240c1657
         }
 
67a5daf0
         bytestream_put_be16(&pseg_len, q - pseg_len - 2);
240c1657
     }
 
     if (!s->hide_state) {
115329f1
 
c6ec28b1
         for (object_id = 0; object_id < h->num_rects; object_id++) {
7fa1f02c
             void (*dvb_encode_rle)(uint8_t **pq,
                                     const uint8_t *bitmap, int linesize,
                                     int w, int h);
c6ec28b1
 
7fa1f02c
             /* bpp_index maths */
db4fac64
             if (h->rects[object_id]->nb_colors <= 4) {
c6ec28b1
                 /* 2 bpp, some decoders do not support it correctly */
7fa1f02c
                 dvb_encode_rle = dvb_encode_rle2;
db4fac64
             } else if (h->rects[object_id]->nb_colors <= 16) {
c6ec28b1
                 /* 4 bpp, standard encoding */
7fa1f02c
                 dvb_encode_rle = dvb_encode_rle4;
8a6799d2
             } else if (h->rects[object_id]->nb_colors <= 256) {
                 /* 8 bpp, standard encoding */
                 dvb_encode_rle = dvb_encode_rle8;
c6ec28b1
             } else {
                 return -1;
             }
240c1657
 
294ea2cf
             /* Object Data segment */
c6ec28b1
             *q++ = 0x0f; /* sync byte */
             *q++ = 0x13;
67a5daf0
             bytestream_put_be16(&q, page_id);
c6ec28b1
             pseg_len = q;
             q += 2; /* segment length */
240c1657
 
67a5daf0
             bytestream_put_be16(&q, object_id);
c6ec28b1
             *q++ = (s->object_version << 4) | (0 << 2) | (0 << 1) | 1; /* version = 0,
                                                                        onject_coding_method,
                                                                        non_modifying_color_flag */
             {
                 uint8_t *ptop_field_len, *pbottom_field_len, *top_ptr, *bottom_ptr;
7fa1f02c
 
c6ec28b1
                 ptop_field_len = q;
                 q += 2;
                 pbottom_field_len = q;
                 q += 2;
 
                 top_ptr = q;
25b4c651
                 dvb_encode_rle(&q, h->rects[object_id]->pict.data[0], h->rects[object_id]->w * 2,
db4fac64
                                     h->rects[object_id]->w, h->rects[object_id]->h >> 1);
c6ec28b1
                 bottom_ptr = q;
25b4c651
                 dvb_encode_rle(&q, h->rects[object_id]->pict.data[0] + h->rects[object_id]->w,
db4fac64
                                     h->rects[object_id]->w * 2, h->rects[object_id]->w,
                                     h->rects[object_id]->h >> 1);
c6ec28b1
 
67a5daf0
                 bytestream_put_be16(&ptop_field_len, bottom_ptr - top_ptr);
                 bytestream_put_be16(&pbottom_field_len, q - bottom_ptr);
c6ec28b1
             }
 
67a5daf0
             bytestream_put_be16(&pseg_len, q - pseg_len - 2);
c6ec28b1
         }
240c1657
     }
 
     /* end of display set segment */
 
     *q++ = 0x0f; /* sync_byte */
     *q++ = 0x80; /* segment_type */
67a5daf0
     bytestream_put_be16(&q, page_id);
240c1657
     pseg_len = q;
     q += 2; /* segment length */
 
67a5daf0
     bytestream_put_be16(&pseg_len, q - pseg_len - 2);
240c1657
 
     *q++ = 0xff; /* end of PES data */
 
     s->object_version = (s->object_version + 1) & 0xf;
     s->hide_state = !s->hide_state;
     return q - outbuf;
 }
 
 static int dvbsub_encode(AVCodecContext *avctx,
                        unsigned char *buf, int buf_size, void *data)
 {
     DVBSubtitleContext *s = avctx->priv_data;
     AVSubtitle *sub = data;
     int ret;
 
     ret = encode_dvb_subtitles(s, buf, sub);
     return ret;
 }
 
e7e2df27
 AVCodec ff_dvbsub_encoder = {
ec6402b7
     .name           = "dvbsub",
     .type           = AVMEDIA_TYPE_SUBTITLE,
     .id             = CODEC_ID_DVB_SUBTITLE,
     .priv_data_size = sizeof(DVBSubtitleContext),
     .encode         = dvbsub_encode,
fe4bf374
     .long_name = NULL_IF_CONFIG_SMALL("DVB subtitles"),
240c1657
 };