#include "../libzmpeg3.h"

zcc_t::
cc_t(video_t *video)
 : svc(this)
{
  this->video = video;
  reset();
}

zcc_t::
~cc_t()
{
}

void zcc_t::
reset()
{
//zmsg(" cc\n");
  frs_history = 0;
  text_cb = 0;
  font_size = fsz_normal;
  video->reset_subtitles();
  int sid = video->subtitle_track+1;
  if( sid <= 0 || sid > MX_SVC ) sid = 1;
  svc.reset(sid, this);
}

void zcc_t::
get_atsc_data(zbits_t *s)
{
  /* xfer data to data[0], first byte = total size */
  /*   <dat[1]=isz,dat[2..isz+1]=input, ...,0> */
  int b = s->get_bits(8) & 0x1f;
  int len = b & 0x1f;
  uint8_t *dat = &data[0][0];
  dat[0] = 0;
  uint8_t *bp = dat+1;
  uint8_t *cp = bp+1;
//zmsgs(" len=%d\n",len);
  s->get_bits(8); /* rsvd */

  for( int i=0; i<len; ++i ) {
    int typ = s->get_bits(8);
    if( (typ & 0xf8) != 0xf8 ) return;
    int valid = typ & 0x04;
    int ch1 = s->get_bits(8);
    int ch2 = s->get_bits(8);
//zmsgs("*** typ %02x  %02x %02x\n",typ,ch1,ch2);
    int isz = cp-bp - 1;
    switch( typ &= 0x03 ) {
    case 0x02: /* dvb_data */
      if( isz == 0 ) continue; /* missed start */
      break;
    case 0x03: /* dvb_start */
      if( isz > 0 ) { *bp = isz;  bp = cp++; }
      break;
    case 0x00: /* ntsc_f1 */
    case 0x01: /* ntsc_f2 */
      continue;
    }
    if( !valid ) continue;
    if( cp-dat+2 > 128 ) {
      zerr("closed caption data ovfl\n");
      return;
    }
    *cp++ = ch1;
    *cp++ = ch2;
  }
  /* terminate last recd */
  if( (*bp = cp-bp - 1) > 0 ) *cp++ = 0;
  /* dat[0] = total size */
  dat[0] = cp - dat;
//zmsgs("***** size %d\n",dat[0]);
  if( s->get_bits(8) == 0xff ) decode();
}

void zcc_t::
decode()
{
  int isz = *data[0];
//zmsgs("seq %d, isz=%d, pict_type %c, pict_struct %3.3s %d\n",
//  data[0][1]>>6,isz," IPBD"[video->pict_type],
//  &"    TOP BTM FRM "[4*video->pict_struct],video->framenum);
  switch( video->pict_type ) {
  case pic_type_I:
  case pic_type_P:
    switch( video->pict_struct ) {
    case pics_TOP_FIELD:
      if( (frs_history & (frs_tf1 | frs_frm)) ) {
        decode(1);
        frs_history &= ~(frs_tf1 | frs_frm);
      }
      memcpy(&data[1],&data[0],isz);
      frs_history |= frs_tf1;
      break;
    case pics_BOTTOM_FIELD:
      if( (frs_history & frs_frm) ) {
        decode(1);
        frs_history &= ~frs_frm;
      }
      else if( (frs_history & frs_bf2) ) {
        decode(2);
        frs_history &= ~frs_bf2;
      }
      memcpy(&data[2],&data[1],isz);
      frs_history |= frs_bf2;
      break;
    case pics_FRAME_PICTURE:
      if( (frs_history & (frs_tf1 | frs_frm)) ) {
        decode(1);
        frs_history &= ~(frs_tf1 | frs_frm);
      }
      if( frs_history & frs_bf2 ) {
        decode(2);
        frs_history &= ~frs_bf2;
      }
      memcpy(&data[1],&data[0],isz);
      frs_history = frs_frm;
      break;
    }
    break;
  case pic_type_B:
    if( frs_history == frs_tf1 || frs_history == frs_bf2 )
      frs_history = 0;
    decode(0);
    break;
  }
  frs_history |= frs_prc;
  *data[0] = 0;
}

void zcc_t::
reorder()
{
  if( frs_history ) {
    if( !(frs_history & frs_prc) )
      decode();
    frs_history &= ~frs_prc;
  }
}

void zcc_t::
decode(int k)
{
  int isz;
  uint8_t *dat = &data[k][1];
  while( (isz = *dat++) > 0 ) {
    uint8_t *bp = dat;
    uint8_t b = *bp;
    int sz = 2 * (b & 0x03f);
#if 0
    int seq = b >> 6;
    zmsgs("cc decode seq %d size %d/%d -",seq,isz,sz);
    int n = isz;
    for( int i=0; i<n; ++i ) printf(" %02x",dat[i]);
    printf("  ");
    for( int i=0; i<n; ++i ) printf(" %c",dat[i]>=0x20&&dat[i]<0x7f?dat[i]:'.');
    printf("\n");
#endif
    if( sz > isz ) return;
    uint8_t *ep = sz + bp++;
    while( bp < ep ) {
      b = *bp++;
      if( !b ) continue;
      int svc_nr = b >> 5, blksz = b & 0x1f;
      if( svc_nr == 0x07 ) {
        if( bp >= ep ) break;
        svc_nr = *bp++;
        if( svc_nr < 7 || svc_nr > 63 ) break;
      }
      if( svc_nr == svc.id() && bp+blksz <= ep )
        svc.append(bp,blksz);
      bp += blksz;
    }
    dat += isz;
  }
  svc.decode();
}

zsvc_t::
svc_t(zcc_t *cc)
{
  size = 0;
  bfrs = 0;
  sid = 1;
  this->cc = cc;
};

zsvc_t::
~svc_t()
{
  reset(sid, cc);
}

void zsvc_t::
reset(int sid, zcc_t *cc)
{
//zmsgs(" svc %d\n",sid);
  size = 0;
  this->sid = sid;
  int ctrk = sid-1;
  if( ctrk < 0 ) ctrk = MX_SVC-1;
  this->ctrk = ctrk;
  this->cc = cc;
  for( int sid=0; sid<MX_WIN; ++sid )
    win[sid].reset(sid, this);
  for( chr_t *bfr; (bfr=get_bfr()); ) delete [] bfr;
//  win[0].default_window();
//  curw = &win[0];
  curw = 0;
}

zchr_t *zsvc_t::
get_bfr()
{
  chr_t *bfr = bfrs;
  if( bfr ) bfrs = *(chr_t **)bfr;
  return bfr;
}

void zsvc_t::
bfr_put(chr_t *&bfr)
{
  if( !bfr ) return;
  *(chr_t **)bfr = bfrs;
  bfrs = bfr;
  bfr = 0;
}

void zsvc_t::
append(uint8_t *bp, int len)
{
  int n = size+len;
  if( n > isizeof(data) ) n = isizeof(data);
  for( int i=size; i<n; data[i++]=*bp++);
  size = n;
}

void zsvc_t::
decode()
{
  if( size == 0 ) return;
  bp = data;  ep = bp+size;  size = 0;
//zmsgs(" size=%d,sid=%d\n",(int)(ep-bp),sid);
  while( bp < ep ) {
    int b = *bp++;
    if( (b&0x7f) >= 0x20 ) { // group G0/G1 ascii/latin chars
      if( curw && curw->st > st_unmap ) curw->store(b);
      continue;
    }
    if( b < 0x10 || b >= 0x80 ) { // group C0/C1
      if( command(b) ) break;
      continue;
    }
    if( b == 0x10 ) {  // ETX1 escape C2/C3, G2/G3
      if( bp >= ep ) break;
      b = *bp++;       // no valid codes, just skip rsvd bytes
      if( b < 0x08 ) continue;                 // 0x00-0x07 C2
      if( b < 0x10 ) { bp += 1; continue; }    // 0x08-0x0f C2
      if( b < 0x18 ) { bp += 2; continue; }    // 0x10-0x17 C2
      if( b < 0x20 ) { bp += 3;  continue; }   // 0x18-0x1f C2
      if( b < 0x80 ) continue;  /* misc */     // 0x20-0x7f G2
      if( b < 0x88 ) { bp += 4;  continue; }   // 0x80-0x87 C3
      if( b < 0x90 ) { bp += 5;  continue; }   // 0x88-0x8f C3
      continue;
    }
    int bb = b & 0x07;          // one byte >ETX1 0x11-0x17
    if( bp >= ep ) break;
    bb = (bb << 8) | *bp++;
    if( b >= 0x18 ) {           // two byte >=P16 0x18-0x20
      if( bp >= ep ) break;
      bb = (bb << 8) | *bp++;
    }
    if( curw && curw->st > st_unmap ) curw->store(bb);
  }
  render();
}

int zsvc_t::
render()
{
  /* render dirty windows */
  for( int iw=0; iw<MX_WIN; ++iw ) {
    win_t *wp = &win[iw];
    if( wp->dirty ) {
      wp->render();
      wp->dirty = 0;
    }
  }
  return 0;
}

int zsvc_t::
command(int cmd)
{
  if( cmd == 0x00 || cmd == 0x03 || // nuisance
      cmd == 0x8d || cmd == 0x8e ) return 0;
#define CMD(fn,args...) return fn(args)
//zmsgs("cmd %02x svc %d ",cmd,sid);
//#define CMD(fn,args...) printf("%s\n",#fn); return fn(args)
  switch( cmd ) {
  case 0x03: CMD(ETX);      /* End of text, render */
  case 0x08: CMD(BS);       /* Backspace */
  case 0x0C: CMD(FF);       /* Form Feed */
  case 0x0D: CMD(CR);       /* Carriage Return */
  case 0x0E: CMD(HCR);      /* Horizontal Carriage Return */
  case 0x80 ... 0x87:
    CMD(CWx,cmd & 0x07);    /* SetCurrentWindow */
  case 0x88: CMD(CLW);      /* ClearWindows */
  case 0x89: CMD(DSW);      /* DisplayWindows */
  case 0x8A: CMD(HDW);      /* HideWindows */
  case 0x8B: CMD(TGW);      /* ToggleWindows */
  case 0x8C: CMD(DLW);      /* DeleteWindows */
  case 0x8D: CMD(DLY);      /* Delay */
  case 0x8E: CMD(DLC);      /* Delay Cancel */
  case 0x8F: CMD(RST);      /* Reset */
  case 0x90: CMD(SPA);      /* SetPenAttributes */
  case 0x91: CMD(SPC);      /* SetPenColor */
  case 0x92: CMD(SPL);      /* SetPenLocation */
  case 0x93 ... 0x96:
    CMD(RSVD);              /* reserved */
  case 0x97: CMD(SWA);      /* SetWindowAttributes */
  case 0x98 ... 0x9F:
    CMD(DFx,cmd & 0x07);    /* DFx DefineWindow */
  }
  zerrs("unkn %02x\n",cmd);
  return 1;
}

static inline int RGB2Y(int r,int g,int b)
{
  return ( 257*r+504*g+ 98*b+ 16500)/1000;
}

static inline int RGB2Cr(int r,int g,int b)
{
  return ( 439*r-368*g- 71*b+128500)/1000;
}

static inline int RGB2Cb(int r,int g,int b)
{
  return (-148*r-291*g+439*b+128500)/1000;
}

uint32_t zsvc_t::
pen_yuva(int color, int opacity)
{
  int r, g, b, y, u, v, a;
  r = ((color>>4) & 0x03) * 255 / 3;
  g = ((color>>2) & 0x03) * 255 / 3;
  b = ((color>>0) & 0x03) * 255 / 3;
  a = 255;
  switch( opacity ) {
  case oty_transparent:  a =   0;  break;
  case oty_translucent:  a = 128;  break;
  case oty_flash:        a = 208;  break;
  case oty_solid:        a = 255;  break;
  }
  y = RGB2Y(r,g,b);
  u = RGB2Cr(r,g,b);
  v = RGB2Cb(r,g,b);
  return (y<<24) | (u<<16) | (v<<8) | (a<<0);
}

static inline int put_utf8(unsigned int v, uint8_t *cp, int n)
{
  if( v >= 0x80 ) {
    int l = v < 0x0800 ? 2 : v < 0x00010000 ? 3 :
      v < 0x00200000 ? 4 : v < 0x04000000 ? 5 : 6;
    if( l > n ) return -1;
    int m = 0xff00 >> l, i = l;
    *cp++ = (v>>(6*--i)) | m;
    for( ; --i>=0; ++cp ) *cp = ((v>>(6*i)) & 0x3f) | 0x80;
    return l;
  }
  if( n < 1 ) return -1;
  *cp = v;
  return 1;
}

zwin_t::
win_t()
{
  bfr = 0;
  dirty = 0;
  subtitle = 0;
}

zwin_t::
~win_t()
{
  delete [] bfr;
  delete subtitle;
}

void zwin_t::
output_text()
{
  if( st < st_visible ) return;
  end_frame = svc->cc->video->framenum;
  if( !svc->cc->text_cb ) return;
  if( !bfr ) return;
  char txt[1024];
  uint8_t *cp = (uint8_t *)txt, *ep = cp + sizeof(txt)-1;
  for( int iy=0; iy<ch; ++iy ) {
    if( iy && cp < ep ) *cp++ = '|';
    chr_t *bp = &bfr[iy * MX_CX];
    for( int ix=0; ix<cw && cp<ep; ++ix,++bp ) {
      if( !bp->glyph ) continue;
      int n = put_utf8(bp->glyph, cp, ep-cp);
      if( n < 0 ) break;
      cp += n;
    }
  }
  *cp = 0;
  svc->cc->text_cb(svc->sid, id, start_frame, end_frame, txt);
  start_frame = end_frame;
}

void zwin_t::
set_state(int8_t st)
{
  if( this->st == st ) return;
//zmsgs("win %d was %d, now %d %s\n", id, this->st, st,
//  st==st_unmap ? "unmapped" : st==st_hidden ? "hidden" :
//  st==st_visible ? "visible" : "err");
  output_text();
  if( this->st < st_visible && st >= st_visible )
    start_frame = svc->cc->video->framenum;
  this->st = st;
  dirty = 1;
}

void zwin_t::
reset(int i, zsvc_t *svc)
{
  this->id = i;
  this->svc = svc;
//zmsgs("win %d\n",id);
  scale = 1;
  cx = cy = cw = ch = 0;
  x = y = 0;
  pdir = dir_rt;
  sdir = dir_up;
  svc->bfr_put(bfr);
  st = st_unmap;
}

int zwin_t::
is_breakable(int b)
{
  return b == ' ' || b == '-' || b == '\r';
}

int zwin_t::
wrap()
{
  switch( pdir ) {
  case dir_rt: {
    chr_t line[MX_CX];  int ix = cx-1;
    chr_t *cp = &line[ix], *sp = cp;
    while( ix >= 0 ) {
      chr_t *bp = &bfr[cy*MX_CX + ix];
      if( is_breakable(bp->glyph) ) break;
      *cp-- = *bp;  bp->glyph = 0;  --ix;
    }
    if( ix >= 0 ) CR();
    for( ; cx<cw && cp<sp; ++cx )
      bfr[cy*MX_CX + cx] = *++cp;
    if( ix < 0 ) CR();
    break; }

  case dir_lt: {
    chr_t line[MX_CX];  int ix = cx+1;
    chr_t *cp = &line[ix], *sp = cp;
    while( ix < cw ) {
      chr_t *bp = &bfr[cy*MX_CX + ix];
      if( is_breakable(bp->glyph) ) break;
      *cp++ = *bp;  bp->glyph = 0;  ++ix;
    }
    if( ix < cw ) CR();
    for( ; cx>=0 && cp>sp; --cx )
      bfr[cy*MX_CX + cx] = *--cp;
    if( ix >= cw ) CR();
    break; }

  case dir_dn: {
    chr_t line[MX_CY];  int iy = cy-1;
    chr_t *cp = &line[iy], *sp = cp;
    while( iy >= 0 ) {
      chr_t *bp = &bfr[iy*MX_CX + cx];
      if( is_breakable(bp->glyph) ) break;
      *cp-- = *bp;  bp->glyph = 0;  --iy;
    }
    if( iy >= 0 ) CR();
    for( ; cy<ch && cp<sp; ++cy )
      bfr[cy*MX_CX + cx] = *++cp;
    if( iy < 0 ) CR();
    break; }

  case dir_up: {
    chr_t line[MX_CY];  int iy = cy+1;
    chr_t *cp = &line[iy], *sp = cp;
    while( iy < ch ) {
      chr_t *bp = &bfr[iy*MX_CX + cx];
      if( is_breakable(bp->glyph) ) break;
      *cp++ = *bp;  bp->glyph = 0;  ++iy;
    }
    if( iy < ch ) CR();
    for( ; cy>=0 && cp>sp; --cy )
      bfr[cy*MX_CX + cx] = *--cp;
    if( iy >= ch ) CR();
    break; }
  }

  return 0;
}

int zwin_t::
ovfl()
{
  if( !col_lock && !resize(cx+1, ch) ) return 0;
  if( !row_lock ) return 1;
  if( wordwrap ) return wrap();
  return CR();
}

int zwin_t::
store(int b)
{
//zmsgs("%02x ** \"%c\" at %d,%d win %d\n",
//  b, b>=0x20 && b<0x7f ? b : '.',cx,cy,id);
  if( !bfr ) return 1;
  switch( pdir ) {
  case dir_rt:  if( cx >= cw && ovfl() ) return 1;  break;
  case dir_lt:  if( cx < 0 && ovfl() )   return 1;  break;
  case dir_dn:  if( cy >= ch && ovfl() ) return 1;  break;
  case dir_up:  if( cy < 0 && ovfl() )   return 1;  break;
  }
  if( cx >= 0 && cx < cw && cy >= 0 && cy < ch ) {
    chr_t *chr = &bfr[cy*MX_CX + cx];
    chr->glyph = b;
    chr->fg_opacity = fg_opacity;
    chr->fg_color = fg_color;
    chr->bg_opacity = bg_opacity;
    chr->bg_color = bg_color;
    chr->pen_size = pen_size;
    chr->edge_color = edge_color;
    chr->italics = italics;
    chr->edge_type = edge_type;
    chr->underline = underline;
    chr->font_style = font_style;
    chr->font_size = svc->cc->font_size;
    chr->offset = offset;
    chr->text_tag = text_tag;
    dirty = 1;
  }
  switch( pdir ) {
  case dir_rt:  ++cx;  break;
  case dir_lt:  --cx;  break;
  case dir_dn:  ++cy;  break;
  case dir_up:  --cy;  break;
  }
  return 0;
}

int zsvc_t::
ETX() /* end of text */
{
//zmsgs("svc %d,win %d\n",sid, curw ? curw->id : -1);
//  if( curw ) curw->render();
  return 0;
}

int zwin_t::
BS() /* Backspace */
{
  switch( pdir ) {
  case dir_rt:  if( cx > 0 ) --cx;   break;
  case dir_lt:  if( cx < cw-1 ) ++cx;  break;
  case dir_dn:  if( cy > 0 ) --cy;   break;
  case dir_up:  if( cy < ch-1 ) ++cy;  break;
  }
  return 0;
}

int zsvc_t::
BS() /* Backspace */
{
  if( !curw || curw->st == st_unmap ) return 0;
//zmsgs("svc %d,win %d\n",sid,curw->id);
  return curw->BS();
}

int zwin_t::
FF() /* Form Feed */
{
  int n = cw*sizeof(*bfr);
  for( int iy=0; iy<ch; ++iy )
    memset(&bfr[iy*MX_CX],0,n);
  cx = cy = 0;
  dirty = 1;
  return 0;
}

int zsvc_t::
FF() /* Form Feed */
{
  if( !curw || curw->st == st_unmap ) return 0;
//zmsgs("svc %d,win %d\n",sid,curw->id);
  return curw->FF();
}

int zwin_t::
CR() /* Carriage Return */
{
  int n = (cw-1)*sizeof(*bfr);
  int m = cw*sizeof(*bfr);
  int scrolled = 0;
  switch( sdir ) {
  case dir_rt:
    cy = 0;
    if( cx > 0 ) { --cx;  break; }
    for( int i=0; i<ch; ++i ) {
      memmove(&bfr[i*MX_CX+1],&bfr[i*MX_CX],n);
      memset(&bfr[i*MX_CX],0,sizeof(*bfr));
    }
    cx = 0;
    scrolled = 1;
    break;
  case dir_lt:
    cy = 0;
    if( cx+1 < cw ) { ++cx;  break; }
    for( int i=0; i<ch; ++i ) {
      memmove(&bfr[i*MX_CX],&bfr[i*MX_CX+1],n);
      memset(&bfr[i*MX_CX+cw-1],0,sizeof(*bfr));
    }
    cx = cw-1;
    scrolled = 1;
    break;
  case dir_dn:
    cx = 0;
    if( cy > 0 ) { --cy;  break; }
    for( int i=ch; --i>0; )
      memmove(&bfr[i*MX_CX],&bfr[(i-1)*MX_CX],m);
    memset(&bfr[0],0,m);
    cy = 0;
    scrolled = 1;
    break;
  case dir_up:
    cx = 0;
    if( cy+1 < ch ) { ++cy;  break; }
    for( int i=1; i<ch; ++i )
      memmove(&bfr[(i-1)*MX_CX],&bfr[i*MX_CX],m);
    memset(&bfr[(ch-1)*MX_CX],0,m);
    cy = ch-1;
    scrolled = 1;
    break;
  }
  if( scrolled ) {
    output_text();
    dirty = 1;
  }
  return 0;
}

int zsvc_t::
CR() /* Carriage Return */
{
  if( !curw || curw->st == st_unmap ) return 0;
//zmsgs("svc %d,win %d\n",sid,curw->id);
  return curw->CR();
}

int zwin_t::
HCR() /* Horizontal Carriage Return */
{
  switch( pdir ) {
  case dir_rt:
  case dir_lt:
    memset(&bfr[cy*MX_CX],0,cw*sizeof(*bfr));
    cy = pdir == dir_rt ? 0 : cw-1;
    dirty = 1;
    break;
  case dir_up:
  case dir_dn:
    for( int i=0; i<ch; ++i ) memset(&bfr[i*MX_CX+cx],0,sizeof(*bfr));
    cx = pdir == dir_dn ? 0 : ch-1;
    dirty = 1;
    break;
  }
  return 0;
}

int zsvc_t::
HCR() /* Horizontal Carriage Return */
{
  if( !curw || curw->st == st_unmap ) return 0;
//zmsgs("svc %d,win %d\n",sid,curw->id);
  return curw->HCR();
}

int zsvc_t::
CLW()  /* ClearWindows */
{
  if( bp >= ep ) return 1;
  int map = *bp++;  // 1
//zmsgs("map %02x svc %d\n",map,sid);
  for( int iw=0; iw<MX_WIN; ++iw ) {
    if( !(map & (1<<iw)) ) continue;
    win_t *wp = &win[iw];
    if( wp->st > st_unmap ) {
      wp->output_text();
//zmsgs("  clear win %d\n",wp->id);
      int n = wp->cw*sizeof(*wp->bfr);
      for( int iy=0; iy<wp->ch; ++iy )
        memset(&wp->bfr[iy*MX_CX],0,n);
      wp->dirty = 1;
    }
  }
  return 0;
}

int zsvc_t::
DSW() /* DisplayWindows */
{
  if( bp >= ep ) return 1;
  int map = *bp++;  // 1
//zmsgs("map %02x svc %d\n",map,sid);
  for( int iw=0; iw<MX_WIN; ++iw ) {
    if( !(map & (1<<iw)) ) continue;
    win_t *wp = &win[iw];
    if( wp->st > st_unmap ) {
      wp->set_state(st_visible);
    }
  }
  return 0;
}

int zsvc_t::
HDW() /* HideWindows */
{
  if( bp >= ep ) return 1;
  int map = *bp++;  // 1
//zmsgs("map %02x svc %d\n",map,sid);
  for( int iw=0; iw<MX_WIN; ++iw ) {
    if( !(map & (1<<iw)) ) continue;
    win_t *wp = &win[iw];
    if( wp->st > st_unmap ) {
      wp->set_state(st_hidden);
    }
  }
  return 0;
}

int zsvc_t::
TGW() /* ToggleWindows */
{
  if( bp >= ep ) return 1;
  int map = *bp++;  // 1
//zmsgs("map %02x svc %d\n",map,sid);
  for( int iw=0; iw<MX_WIN; ++iw ) {
    if( !(map & (1<<iw)) ) continue;
    win_t *wp = &win[iw];
    if( wp->st > st_unmap ) {
      int8_t st = wp->st == st_visible ? st_hidden : st_visible;
      wp->set_state(st);
    }
  }
  return 0;
}

int zsvc_t::
DLW() /* DeleteWindows */
{
  if( bp >= ep ) return 1;
  int map = *bp++;  // 1
//zmsgs("map %02x svc %d\n",map,sid);
  for( int iw=0; iw<MX_WIN; ++iw ) {
    if( !(map & (1<<iw)) ) continue;
    win_t *wp = &win[iw];
    if( wp->st == st_unmap ) continue;
//zmsgs("  delete %d\n",wp->id);
    wp->set_state(st_unmap);
    if( wp == curw ) curw = 0;
    bfr_put(wp->bfr);
  }
  return 0;
}

int zsvc_t::
DLY() /* delay */
{
  if( bp >= ep ) return 1;
//zmsgs(" svc %d (%d)\n",sid, *bp);
  ++bp;  // 1
  return 0;
}

int zsvc_t::
DLC() /* delay cancel */
{
//zmsg("\n");
  return 0;
}

int zsvc_t::
RST() /* Reset */
{
//zmsgs("svc %d\n",sid);
  reset(sid, cc);
  return 0;
}

int zsvc_t::
SPA() /* SetPenAttributes */
{
  if( bp+2 > ep ) return 1;
  int b = *bp++;  // 1
  int text_tag = b>>4;
  int offset = (b>>2) & 0x03;
  int pen_size = b & 0x03;
  b = *bp++;  // 2
  int italics = b>>7;
  int underline = (b>>6) & 0x01;
  int edge_type = (b>>3) & 0x07;
  int font_style = b & 0x07;
  if( pen_size >= 3 ) return 0;
  if( offset >= 3 ) return 0;
  if( edge_type >= 6 ) return 0;
  win_t *wp = curw;
  if( wp && wp->st > st_unmap ) {
    wp->text_tag = text_tag;
    wp->offset = offset;
    wp->pen_size = pen_size;
    wp->italics = italics;
    wp->underline = underline;
    wp->edge_type = edge_type;
    wp->font_style = font_style;
//zmsgs("txttag=%d,offset=%d,pen_size=%d,ital=%d,undl=%d,"
//  "edge=%d,ftstyl=%d,win %d,svc %d\n",text_tag,offset,
//  pen_size,italics,underline,edge_type,font_style,wp->id,sid);
  }
  return 0;
}

int zsvc_t::
SPC() /* SetPenColor */
{
  if( bp+3 > ep ) return 1;
  int b = *bp++;  // 1
  int fg_opacity = b >> 6;
  int fg_color = b & 0x3f;
  b = *bp++;  // 2
  int bg_opacity = b >> 6;
  int bg_color = b & 0x3f;
  b = *bp++;  // 3
  int edge_color = b;
  win_t *wp = curw;
  if( wp && wp->st > st_unmap ) {
    wp->fg_opacity = fg_opacity;
    wp->fg_color = fg_color;
    wp->edge_color = edge_color;
    wp->bg_opacity = bg_opacity;
    wp->bg_color = bg_color;
    wp->fg_yuva = pen_yuva(fg_color,fg_opacity);
    wp->edge_yuva = pen_yuva(edge_color,fg_opacity);
    wp->bg_yuva = pen_yuva(bg_color,bg_opacity);
//zmsgs("fgopc=%d,fgclr=%02x,bgopc=%d,bgclr=%02x,egclr=%02x,"
//  "win %d,svc %d\n",fg_opacity,fg_color,bg_opacity,bg_color,
//  edge_color,wp->id,sid);
  }
  return 0;
}

int zsvc_t::
SPL() /* SetPenLocation */
{
  if( bp+2 > ep ) return 1;
  int b = *bp++;  // 1
  int row = b;
  b = *bp++;  // 2
  int column = b;
  if( row >= MX_CY ) return 0;
  if( column >= MX_CX ) return 0;
  win_t *wp = curw;
  if( wp && wp->st > st_unmap ) {
    if( column >= wp->cw || row >= wp->ch ) return 1;
    wp->cx = column;  wp->cy = row;
//zmsgs("row=%d,col=%d,win %d,svc %d\n",row,column,wp->id,sid);
  }
  return 0;
}

int zsvc_t::
RSVD() /* reserved */
{
//zmsgs("sid %d\n",sid);
  return 0;
}

int zsvc_t::
SWA() /* SetWindowAttributes */
{
  if( bp+4 > ep ) return 1;
  int b = *bp++;  // 1
  int fill_opacity = b>>6;
  int fill_color = b & 0x3f;
  b = *bp++;  // 2
  int border_color = b & 0x3f;
  int border_type = b>>6;
  b = *bp++;  // 3
  int wordwrap = (b>>6) & 0x01;
  border_type |= (b>>5) & 0x04;
  int print_direction = (b>>4) & 0x03;
  int scroll_direction = (b>>2) & 0x03;
  int justify = b & 0x03;
  b = *bp++;  // 4
  int effect_speed = b>>4;
  int effect_direction = (b>>2) & 0x3;
  int display_effect = b & 0x03;
  if( border_type >= 6 ) return 0;
  if( display_effect >= 3 ) return 0;

  win_t *wp = curw;
  if( wp && wp->st > st_unmap ) {
    wp->fill_opacity = fill_opacity;
    wp->fill_color = fill_color;
    wp->border_color = border_color;
    wp->fill_yuva = pen_yuva(fill_color,fill_opacity);
    wp->border_yuva = pen_yuva(border_color,fill_opacity);
    wp->wordwrap = wordwrap;
    wp->pdir = print_direction;
    wp->sdir = scroll_direction;
    wp->justify = justify;
    wp->effect_speed = effect_speed;
    wp->effect_direction = effect_direction;
    wp->display_effect = display_effect;
    wp->dirty = 1;
//zmsgs("fopc=%d,fclr=%02x,bclr=%02x,wrap=%d,pdir=%d,sdir=%d,just=%d"
//  "espd=%d,edir=%d,deft=%d,win %d,svc %d\n",fill_opacity,fill_color,
//  border_color,wordwrap,print_direction,scroll_direction,justify,
//  effect_speed,effect_direction,display_effect,wp->id,sid);
  }
  return 0;
}

int zsvc_t::
CWx(int id) /* SetCurrentWindow */
{
  win_t *wp = &win[id];
  curw = wp->st == st_unmap ? 0 : wp;
//zmsgs("== win %d,svc %d\n",wp->id,sid);
  return 0;
}

int zsvc_t::
DFz(int id) /* DFx DefineWindow */
{
  if( bp+6 > ep ) return 1;
  win_t *wp = &win[id];
  int b = *bp++; // 1
  int visible = (b>>5) & 0x01;
  int row_lock = (b>>4) & 0x01;
  int col_lock = (b>>3) & 0x01;
  int priority = b & 0x07;
  b = *bp++; // 2
  int anchor_relative = (b>>7) & 0x01;
  int anchor_vertical = b & 0x7f;
  b = *bp++; // 3
  int anchor_horizontal = b;
  b = *bp++; // 4
  int anchor_point = b>>4;
  int ch = (b & 0x0f) + 1;
  b = *bp++; // 5
  int cw = b + 1;
  b = *bp++; // 6
  int window_style = (b>>3) & 0x07;
  int pen_style = b & 0x07;
//zmsgs("%dx%d vis=%d,rowlk=%d,collk=%d,pri=%d,an_rel=%d,\n"
//  "an_hor=%d,an_vert=%d,an_pnt=%d,wsty=%d,psty=%d,win %d,svc %d\n",
//  cw,ch,visible,row_lock,col_lock,priority,anchor_relative,
//  anchor_horizontal,anchor_vertical,anchor_point,window_style,
//  pen_style,wp->id,sid);
  if( anchor_relative ) {
    if( anchor_vertical >= 75 ) return -1;
    if( anchor_horizontal >= 210 ) return -1;
  }
  else {
    if( anchor_vertical >= 100 ) return -1;
    if( anchor_horizontal >= 100 ) return -1;
  }
  if( anchor_point >= 9 ) return -1;
  if( cw > MX_CX ) return -1;
  if( ch > MX_CY ) return -1;

  wp->row_lock = row_lock;
  wp->col_lock = col_lock;
  wp->priority = priority;
  wp->anchor_relative = anchor_relative;
  wp->anchor_vertical = anchor_vertical;
  wp->anchor_horizontal = anchor_horizontal;
  wp->anchor_point = anchor_point;
  if( wp->st == st_unmap )
    wp->set_window_style(window_style);
  if( wp->st == st_unmap )
    wp->set_pen_style(pen_style);
  int bw = wp->border_type != edg_none ? bdr_width : 0;
  wp->bw = (bw+3) & ~4;  // yuv 422 macro pixels
  if( wp->st == st_unmap )
    wp->init(cw, ch);
  else
    wp->resize(cw, ch);
  wp->set_state(visible ? st_visible : st_hidden);
  curw = wp;
  wp->dirty = 1;
  int scale = cc->video->coded_picture_height/360;
  if( scale < 1 ) scale = 1;
  wp->scale = scale;
  return 0;
}

int zsvc_t::
DFx(int id) /* DFx DefineWindow wrapper */
{
  int ret = DFz(id);
  if( ret < 0 ) {
    zmsgs("failed to validate cc win %d\n",id);
    ret = 0;
  }
  return ret;
}

int zwin_t::
init(int ncw, int nch)
{
//zmsgs("  init %d, %dx%d\n", id, ncw, nch);
  if( ncw > MX_CX ) return 1;
  if( nch > MX_CY ) return 1;
  bfr = svc->get_bfr();
  if( !bfr )
    bfr = new chr_t[MX_CX*MX_CY];
  cw = ncw;  ch = nch;
  int n = cw*sizeof(*bfr);
  for( int iy=0; iy<ch; ++iy )
    memset(&bfr[iy*MX_CX],0,n);
  text_tag = 0;
  cx = cy = 0;
  x = y = 0;
  return 0;
}

int zwin_t::
resize(int ncw, int nch)
{
//zmsgs("  resize %d, %dx%d %s\n", id, ncw, nch, cw!=ncw || ch!=nch ? "*" : "");
  if( ncw > MX_CX ) return 1;
  if( nch > MX_CY ) return 1;
  int dx = ncw-cw, dy = nch-ch;
  if( !dx && !dy ) return 0;
  int n = cw*sizeof(*bfr);
  switch( sdir ) {
  case dir_rt:
    if( dx > 0 ) { // scroll right, expanding
      int m = dx*sizeof(*bfr);
      for( int iy=0; iy<ch; ++iy ) {
        chr_t *bp = &bfr[iy*MX_CX], *cp = bp+dx;
        memmove(cp,bp,n);
        memset(bp,0,m);
      }
      dx = 0;
    }
    break;
  case dir_lt:
    if( dx < 0 ) { // scroll left, contracting
      for( int iy=0; iy<ch; ++iy ) {
        chr_t *bp = &bfr[iy*MX_CX], *cp = bp-dx;
        memmove(bp,cp,n);
      }
      dx = 0;
    }
    break;
  case dir_dn:
    if( dy > 0 ) { // scroll down, expanding
      for( int iy=ch; --iy>=dy; ) {
        chr_t *bp = &bfr[iy*MX_CX], *cp = bp-dy*MX_CX;
        memmove(bp,cp,n);
      }
      memset(&bfr[0],0,dy*n);
      dy = 0;
    }
    break;
  case dir_up:
    if( dy < 0 ) { // scroll up, contracting
      for( int iy=dy; iy>ch; ++iy ) {
        chr_t *bp = &bfr[iy*MX_CX], *cp = bp+dy*MX_CX;
        memmove(cp,bp,n);
      }
      dy = 0;
    }
    break;
  }

  if( dx > 0 ) {
    int m = dx*sizeof(*bfr);
    for( int iy=0; iy<ch; ++iy ) {
      chr_t *bp = &bfr[iy*MX_CX] + cw;
      memset(bp,0,m);
    }
  }
  if( dy > 0 ) {
    n = ncw*sizeof(*bfr);
    for( int iy=ch; iy<nch; ++iy ) {
      chr_t *bp = &bfr[iy*MX_CX];
      memset(bp,0,n);
    }
  }
  cw = ncw;  ch = nch;
  return 0;
}

void zwin_t::
set_pen_style(int i)
{
  pen_style = i > 0 ? i : 1;
  pen_size = psz_standard;
  font_style = pen_style <= 5 ? pen_style-1 : pen_style-3;
  offset = ofs_normal;
  italics = underline = 0;
  fg_opacity = oty_solid;
  fg_color = 0x3f;
  edge_type = pen_style <= 5 ? edg_none : edg_uniform;
  edge_color = 0x00;
  bg_opacity = pen_style <= 5 ? oty_solid : oty_transparent;
  bg_color = 0x00;
  fg_yuva = pen_yuva(fg_color,fg_opacity);
  edge_yuva = pen_yuva(edge_color,fg_opacity);
  bg_yuva = pen_yuva(bg_color,bg_opacity);
  text_tag = tag_dialog;
}
 
void zwin_t::
set_window_style(int i)
{
  window_style = i > 0 ? i : 1;
  justify = ((0x48>>window_style) & 1) ? jfy_center : jfy_left;
  pdir = window_style < 7 ? dir_rt : dir_dn;
  sdir = window_style < 7 ? dir_up : dir_lt;
  wordwrap = (0x70>>window_style) & 1;
  display_effect = eft_snap;
  effect_speed = 0;
  effect_direction = dir_rt;
  fill_opacity = oty_solid;
  fill_color = 0x00;
  border_type = edg_none;
  border_color = 0x00;
  fill_yuva = pen_yuva(fill_color,fill_opacity);
  border_yuva = pen_yuva(border_color,fill_opacity);
}

#if 0
void zwin_t::
default_window()
{
  if( !bfr ) return;
  row_lock = col_lock = 0;
  priority = 0;
  anchor_relative = 0;
  anchor_vertical = 24;
  anchor_horizontal = 12;
  anchor_point = 0;
  set_window_style(1);
  set_pen_style(1);
  text_tag = 0;
  ch = 1;  cw = 32;
  int n = cw*sizeof(*bfr);
  for( int iy=0; iy<ch; ++iy)
    memset(&bfr[iy*MX_CX],0,n);
  cx = cy = 0;
  st = st_visible;
}
#endif

void zwin_t::
print_buffer()
{
  if( !bfr ) return;
  zmsgs("bfr %d\n",id);
  for( int iy=0; iy<ch; ++iy ) {
    int ofs = iy*MX_CX;
    for( int ix=0; ix<cw; ++ix ) {
      int b = bfr[ofs++].glyph;
      printf("%c", b>=0x20 && b<0x7f ? b : '.');
    }
    printf("\n");
  }
}

void zwin_t::
put_chr(chr_t *chr)
{
  if( !subtitle ) return;
  uint16_t bb = chr->glyph;
  bitfont_t *font = chr_font(chr, scale);
  if( bb >= font->nch ) return;
//zmsgs("%02x \"%c\" at %d,%d in %d\n",bb,bb>=0x20&&bb<0x7f?bb:'.',x,y,id);
  int ww = subtitle->w - 2*bw;
  int hh = subtitle->h - 2*bw;
  int dx = 0, dy = 0;
  bitfont_t::bitchar_t *cp = &font->chrs[bb];
  uint8_t *bmap = cp->bitmap;
  if( bmap || cp->ch == ' ' ) {
    /* cell origin = (x,y) addressed (0,0) to (x2,y2) */
    /* char data box (x0,y0) to (x1,y1), may exceed cell box */
    int x0, ix0, y0, iy0;
    int x1, x2, y1, y2;
    x0 = ix0 = cp->left;
    y0 = iy0 = font->imy - cp->ascent;
    x1 = cp->right;
    y1 = font->imy + cp->decent;
    x2 = font->idx;  y2 = font->idy;
    if( bmap ) {
      switch( pdir ) {
      case dir_rt:  x2 = dx = cp->right;  break;
      case dir_lt:  x2 = dx = cp->left;   break;
      case dir_dn:  y2 = dy = cp->decent;  break;
      case dir_up:  y2 = dy = cp->ascent;  break;
      }
    }
    else { /* blank */
      switch( pdir ) {
      case dir_rt: case dir_lt:  dx = font->idx;  break;
      case dir_dn: case dir_up:  dy = font->idy;  break;
      }
    }
    if( x+x0 < 0 ) x0 = -x;
    if( y+y0 < 0 ) y0 = -y;
    int mx = ww - x;
    if( x0 > mx ) x0 = mx;
    if( x1 > mx ) x1 = mx;
    if( x2 > mx ) x2 = mx;
    int my = hh - y;
    if( y0 > my ) y0 = my;
    if( y1 > my ) y1 = my;
    if( y2 > my ) y2 = my;

    class pix_t {  /* address char cell */
      uint8_t *image_y, *image_u, *image_v, *image_a;
      uint8_t *img_y, *img_u, *img_v, *img_a;  int w;
    public:
      void set_line(int n) {
        int ofs = w * n;
        img_y = image_y + ofs;
        img_u = image_u + ofs;
        img_v = image_v + ofs;
        img_a = image_a + ofs;
      }
      pix_t(subtitle_t *subtitle, int x, int y) {
        w = subtitle->w;
        int ofs = y*w + x;
        image_y = subtitle->image_y + ofs;
        image_u = subtitle->image_u + ofs;
        image_v = subtitle->image_v + ofs;
        image_a = subtitle->image_a + ofs;
      }
      void write(int i, uint32_t yuva) {
        img_y[i] = yuva >> 24;
        img_u[i] = yuva >> 16;
        img_v[i] = yuva >> 8;
        img_a[i] = yuva >> 0;
      }
      void fill_box(uint32_t yuva, int x0,int y0, int x1,int y1) {
        if( x0 >= x1 ) return;
        while( y0 < y1 ) {
          set_line(y0++);
          for( int ix=x0; ix<x1; ++ix ) write(ix,yuva);
        }
      }
    } pix(subtitle, x+bw, y+bw); /* origin inside border */
    /* dont fill left of cell */
    pix.fill_box(bg_yuva,  0, 0, x2,y0);  /* fill top */
    pix.fill_box(bg_yuva,  0,y0, x0,y1);  /* fill left */
    pix.fill_box(bg_yuva, x1,y0, x2,y1);  /* fill right */
    pix.fill_box(bg_yuva,  0,y1, x2,y2);  /* fill bottom */

    int wsz = (cp->right-cp->left+7) / 8;
    int rx = x0 - ix0;
    int ry = y0 - iy0;
    /* render char box */
    for( int iy=y0; iy<y1; ++iy,++ry ) {
      pix.set_line(iy);
      uint8_t *row = &bmap[ry*wsz];
      int i = rx, ix = x0;
      /* dont render bg left of cell */
      while( ix < 0 ) {
        if( ((row[i>>3] >> (i&7)) & 1) ) pix.write(ix, fg_yuva);
        ++ix;  ++i;
      }
      /* render fg/bg inside of cell */
      while( ix < x1 ) {
        pix.write(ix, ((row[i>>3] >> (i&7)) & 1) ? fg_yuva : bg_yuva);
        ++ix;  ++i;
      }
    }
    if( chr->underline ) {
      int uy0 = font->imy;
      if( uy0 < y2 ) {
        int uy1 = uy0 + (y2+23)/24;
        if( uy1 > y2 ) uy1 = y2;
        pix.fill_box(fg_yuva, 0,uy0, x2,uy1);
      }
    }
  }
  else {
    /* no bitmap and not blank */
    switch( pdir ) {
    case dir_rt:  dx = font->idx;  dy = 0;  break;
    case dir_lt:  dx = font->idy;  dy = 0;  break;
    case dir_dn:  dx = 0;  dy = font->idy;  break;
    case dir_up:  dx = 0;  dy = font->idy;  break;
    }
  }
  x += dx;  y += dy;
}

void zwin_t::
hbar(int x, int y, int ww, int hh, int lm, int rm, int clr)
{
/* w,h = widget dims, ww,hh = bar dims */
/* x,y = widget coord, lm,rm = lt/rt miter, clr = color */
  int w = subtitle->w;
  int h = subtitle->h;
  if( y < 0 ) { hh += y;  y = 0; }
  if( y+hh > h ) hh = h - y;
  uint32_t yuva = border_yuva;
  for( int ih=hh; --ih>=0; ++y ) {
    int iw = ww, ix = x;
    if( ix < 0 ) { iw += ix;  ix = 0; }
    if( ix+iw > w ) iw = w - ix;
    int ofs = w*y + ix;
    uint8_t *img_y = &subtitle->image_y[ofs];
    uint8_t *img_u = &subtitle->image_u[ofs];
    uint8_t *img_v = &subtitle->image_v[ofs];
    uint8_t *img_a = &subtitle->image_a[ofs];
    while( --iw >= 0 ) {
      *img_y = clr;         ++img_y;
      *img_u = yuva >> 16;  ++img_u;
      *img_v = yuva >> 8;   ++img_v;
      *img_a = yuva >> 0;   ++img_a;
    }
    x += lm;  ww -= lm-rm;
  }
}

void zwin_t::
vbar(int x, int y, int ww, int hh, int tm, int bm, int clr)
{
/* w,h = widget dims, ww,hh = bar dims */
/* x,y = widget coord, lm,rm = lt/rt miter, clr = color */
  int w = subtitle->w;
  int h = subtitle->h;
  if( x < 0 ) { ww += x;  x = 0; }
  if( x+ww > w ) ww = w - x;
  uint32_t yuva = border_yuva;
  for( int iw=ww; --iw>=0; ++x ) {
    int ih = hh, iy = y;
    if( iy < 0 ) { ih += iy;  iy = 0; }
    if( iy+ih > h ) ih = h - iy;
    int ofs = w*iy + x;
    uint8_t *img_y = &subtitle->image_y[ofs];
    uint8_t *img_u = &subtitle->image_u[ofs];
    uint8_t *img_v = &subtitle->image_v[ofs];
    uint8_t *img_a = &subtitle->image_a[ofs];
    while( --ih >= 0 ) {
      *img_y = clr;         img_y += w;
      *img_u = yuva >> 16;  img_u += w;
      *img_v = yuva >> 8;   img_v += w;
      *img_a = yuva >> 0;   img_a += w;
    }
    y += tm;  hh -= tm-bm;
  }
}

void zwin_t::
border(int ilt, int olt, int irt, int ort,
       int iup, int oup, int idn, int odn)
{
/* i/o = inside/outside + lt/rt/up/dn = colors */
  if( !bw || !subtitle ) return;
  int w = subtitle->w;
  int h = subtitle->h;
  int sbw = bw * scale;
  int zo = sbw / 2;  // outside width
  int zi = sbw - zo;  // inside width
  hbar(0,0,w,zo,1,-1,oup);
  hbar(zo,zo,w-2*zo,zi,1,-1,iup);
  hbar(sbw-1,h-sbw,w-2*sbw+2,zi,-1,1,idn);
  hbar(zo-1,h-zo,w-2*zo+2,zo,-1,1,odn);
  vbar(0,1,zo,h-2,1,-1,olt);
  vbar(zo,zo+1,zi,h-2*zo-2,1,-1,ilt);
  vbar(w-sbw,sbw,zi,h-2*sbw,-1,1,irt);
  vbar(w-zo,zo,zo,h-2*zo,-1,1,ort);
}

void zwin_t::
render()
{
  if( st < st_visible || !bfr ) {
    if( subtitle ) subtitle->draw = -1;
    return;
  }
  /* get bounding box */
  int wd = 2*bw;
  int ht = 2*bw;
  int fw = 0, fh = 0, zz = 0;
  switch( pdir ) {
  case dir_rt:
  case dir_lt:
    for( int iy=0; iy<ch; ++iy ) {
      int ww = 0;
      for( int ix=0; ix<cw; ++ix ) {
        chr_t *chr = &bfr[iy*MX_CX + ix];
        bitfont_t *font = chr_font(chr, scale);
        if( font->idy > fh ) fh = font->idy;
        int b = chr->glyph;
        if( b >= font->nch ) continue;
        bitfont_t::bitchar_t *cp = &font->chrs[b];
        int sz = !cp->bitmap ? font->idx :
          pdir == dir_rt ? cp->right : cp->left;
        ww += sz;
      }
      if( ww > zz ) zz = ww;
    }
    wd += zz;
    ht += ch * fh;
    break;
  case dir_up:
  case dir_dn:
    for( int ix=0; ix<cw; ++ix ) {
      int hh = 0;
      for( int iy=0; iy<ch; ++iy ) {
        chr_t *chr = &bfr[iy*MX_CX + ix];
        bitfont_t *font = chr_font(chr, scale);
        if( font->idx > fw ) fw = font->idx;
        int b = chr->glyph;
        if( b >= font->nch ) continue;
        bitfont_t::bitchar_t *cp = &font->chrs[b];
        int sz = !cp->bitmap ? font->idy :
          pdir == dir_dn ? cp->decent : cp->ascent;
        hh += sz;
      }
      if( hh > zz ) zz = hh;
    }
    wd += cw * fw;
    ht += zz;
    break;
  }
  video_t *video = svc->cc->video;
//zmsgs(" an_horz=%d, an_vert=%d, an_rela=%d, %dx%d\n",
//  anchor_horizontal, anchor_vertical, anchor_relative,
//  video->coded_picture_width, video->coded_picture_height);
  int ax = ((anchor_horizontal+10) * video->coded_picture_width) / 200;
  int ay = ((anchor_vertical+10) * video->coded_picture_height) / 100;
  if( anchor_relative ) { ax += ax; ay += ay; }
  switch( anchor_point ) {
  case 0x00:                            break;  /* nw */
  case 0x01:  ax -= wd/2;               break;  /* n */
  case 0x02:  ax -= wd;                 break;  /* ne */
  case 0x03:  ax -= wd;    ay -= ht/2;  break;  /* e */
  case 0x04:  ax -= wd;    ay -= ht;    break;  /* se */
  case 0x05:  ax -= wd/2;  ay -= ht;    break;  /* s */
  case 0x06:               ay -= ht;    break;  /* sw */
  case 0x07:               ay -= ht/2;  break;  /* w */
  case 0x08:  ax -= wd/2;  ay -= ht/2;  break;  /* center */
  }

  zmpeg3_t *src = video->src;
  strack_t *strack = src->create_strack(svc->ctrk, video);
  if( !subtitle )
    subtitle = new subtitle_t(id, wd, ht);
  if( subtitle->done < 0 ) {
    if( strack->append_subtitle(subtitle,0) ) {
      delete subtitle;  subtitle = 0;
      return;
    }
  }
  subtitle->set_image_size(wd, ht);
  subtitle->x1 = ax;  subtitle->x2 = ax + wd;
  subtitle->y1 = ay;  subtitle->y2 = ay + ht;
  subtitle->draw = 1;
  subtitle->frame_time = video->frame_time;
//print_buffer();
  uint8_t yy = fill_yuva >> 24;
  uint8_t uu = fill_yuva >> 16;
  uint8_t vv = fill_yuva >> 8;
  uint8_t aa = fill_yuva >> 0;
  aa = 0xff - aa;  // this is probably wrong
  int w = subtitle->w;
  int h = subtitle->h;
  int sz = w * h;
  memset(subtitle->image_y, yy, sz);
  memset(subtitle->image_u, uu, sz);
  memset(subtitle->image_v, vv, sz);
  memset(subtitle->image_a, aa, sz);
  yy = border_yuva >> 24;
  int hi_y, lo_y;
  if( (hi_y = yy + 0x60) > 0xff ) hi_y = 0xff;
  if( (lo_y = yy - 0x60) < 0x10 ) lo_y = 0x10;
  switch( border_type ) {
  case 0x01: /* raised */
    border(hi_y, yy, hi_y, yy, hi_y, yy, hi_y, yy);
    break;
  case 0x02: /* depressed */
    border(lo_y, yy, lo_y, yy, lo_y, yy, lo_y, yy);
    break;
  case 0x03: /* uniform */
    border(yy, yy, yy, yy, yy, yy, yy, yy);
    break;
  case 0x04: /* shadowl */
    border(lo_y, lo_y, hi_y, hi_y, hi_y, lo_y, hi_y, lo_y);
    break;
  case 0x05: /* shadowr */
    border(hi_y, hi_y, lo_y, lo_y, hi_y, lo_y, hi_y, lo_y);
    break;
  default:
  case 0x00: /* none */
    break;
  }
  /* render character data */
  switch( pdir ) {
  case dir_rt:
    for( int iy=0; iy<ch; ++iy ) {
      x = 0;  y = iy * fh;
      chr_t *bp = &bfr[iy * MX_CX];
      for( int ix=0; ix<cw; ++ix, ++bp ) {
        put_chr(bp);
      }
    }
    break;
  case dir_lt:
    for( int iy=0; iy<ch; ++iy ) {
      x = w;  y = iy * fh;
      chr_t *bp = &bfr[iy*MX_CX + cw];
      for( int ix=cw; --ix>=0; )
        put_chr(--bp);
    }
    break;
  case dir_dn:
    for( int ix=0; ix<cw; ++ix ) {
      x = ix * fw;  y = 0;
      chr_t *bp = &bfr[ix];
      for( int iy=0; iy<ch; ++iy, bp+=MX_CX )
        put_chr(bp);
    }
    break;
  case dir_up:
    for( int ix=0; ix<cw; ++ix ) {
      x = ix * fw;  y = h;
      chr_t *bp = &bfr[ch*MX_CX - cw + ix];
      for( int iy=ch; --iy>=0; ) {
        put_chr(bp -= MX_CX);
      }
    }
    break;
  }
}