path: root/src/gallium/state_trackers/xorg/xorg_xv.c

#include "xorg_tracker.h"

#include <xf86xv.h>
#include <X11/extensions/Xv.h>
#include <fourcc.h>

#include "xorg_exa.h"
#include "xorg_renderer.h"

#include "pipe/p_screen.h"
#include "pipe/p_inlines.h"

/*XXX get these from pipe's texture limits */
#define IMAGE_MAX_WIDTH		2048
#define IMAGE_MAX_HEIGHT	2048

#define RES_720P_X 1280
#define RES_720P_Y 720


/* The ITU-R BT.601 conversion matrix for SDTV. */
static const float bt_601[] = {
    1.0, 0.0, 1.4075,
    1.0, -0.3455, -0.7169,
    1.0, 1.7790, 0.
};

/* The ITU-R BT.709 conversion matrix for HDTV. */
static const float bt_709[] = {
    1.0, 0.0, 1.581,
    1.0, -0.1881, -0.47,
    1.0, 1.8629, 0.
};

#define MAKE_ATOM(a) MakeAtom(a, sizeof(a) - 1, TRUE)

static Atom xvBrightness, xvContrast;

#define NUM_TEXTURED_ATTRIBUTES 2
static XF86AttributeRec TexturedAttributes[NUM_TEXTURED_ATTRIBUTES] = {
   {XvSettable | XvGettable, -128, 127, "XV_BRIGHTNESS"},
   {XvSettable | XvGettable, 0, 255, "XV_CONTRAST"}
};

#define NUM_FORMATS 3
static XF86VideoFormatRec Formats[NUM_FORMATS] = {
   {15, TrueColor}, {16, TrueColor}, {24, TrueColor}
};

static XF86VideoEncodingRec DummyEncoding[1] = {
   {
      0,
      "XV_IMAGE",
      IMAGE_MAX_WIDTH, IMAGE_MAX_HEIGHT,
      {1, 1}
   }
};

#define NUM_IMAGES 2
static XF86ImageRec Images[NUM_IMAGES] = {
   XVIMAGE_UYVY,
   XVIMAGE_YUY2,
};

struct xorg_xv_port_priv {
   struct xorg_renderer *r;

   RegionRec clip;

   int brightness;
   int contrast;

   int current_set;
   /* juggle two sets of seperate Y, U and V
    * textures */
   struct pipe_texture *yuv[2][3];
};


static void
stop_video(ScrnInfoPtr pScrn, pointer data, Bool shutdown)
{
   struct xorg_xv_port_priv *priv = (struct xorg_xv_port_priv *)data;

   REGION_EMPTY(pScrn->pScreen, &priv->clip);
}

static int
set_port_attribute(ScrnInfoPtr pScrn,
                   Atom attribute, INT32 value, pointer data)
{
   struct xorg_xv_port_priv *priv = (struct xorg_xv_port_priv *)data;

   if (attribute == xvBrightness) {
      if ((value < -128) || (value > 127))
         return BadValue;
      priv->brightness = value;
   } else if (attribute == xvContrast) {
      if ((value < 0) || (value > 255))
         return BadValue;
      priv->contrast = value;
   } else
      return BadMatch;

   return Success;
}

static int
get_port_attribute(ScrnInfoPtr pScrn,
                   Atom attribute, INT32 * value, pointer data)
{
   struct xorg_xv_port_priv *priv = (struct xorg_xv_port_priv *)data;

   if (attribute == xvBrightness)
      *value = priv->brightness;
   else if (attribute == xvContrast)
      *value = priv->contrast;
   else
      return BadMatch;

   return Success;
}

static void
query_best_size(ScrnInfoPtr pScrn,
                Bool motion,
                short vid_w, short vid_h,
                short drw_w, short drw_h,
                unsigned int *p_w, unsigned int *p_h, pointer data)
{
   if (vid_w > (drw_w << 1))
      drw_w = vid_w >> 1;
   if (vid_h > (drw_h << 1))
      drw_h = vid_h >> 1;

   *p_w = drw_w;
   *p_h = drw_h;
}

static INLINE struct pipe_texture *
create_component_texture(struct pipe_context *pipe,
                         int width, int height)
{
   struct pipe_screen *screen = pipe->screen;
   struct pipe_texture *tex = 0;
   struct pipe_texture templ;

   memset(&templ, 0, sizeof(templ));
   templ.target = PIPE_TEXTURE_2D;
   templ.format = PIPE_FORMAT_L8_UNORM;
   templ.last_level = 0;
   templ.width[0] = width;
   templ.height[0] = height;
   templ.depth[0] = 1;
   pf_get_block(PIPE_FORMAT_L8_UNORM, &templ.block);
   templ.tex_usage = PIPE_TEXTURE_USAGE_SAMPLER;

   tex = screen->texture_create(screen, &templ);

   return tex;
}

static int
check_yuv_textures(struct xorg_xv_port_priv *priv,  int width, int height)
{
   struct pipe_texture **dst = priv->yuv[priv->current_set];
   if (!dst[0] ||
       dst[0]->width[0] != width ||
       dst[0]->height[0] != height) {
      pipe_texture_reference(&dst[0], NULL);
   }
   if (!dst[1] ||
       dst[1]->width[0] != width ||
       dst[1]->height[0] != height) {
      pipe_texture_reference(&dst[1], NULL);
   }
   if (!dst[2] ||
       dst[2]->width[0] != width ||
       dst[2]->height[0] != height) {
      pipe_texture_reference(&dst[2], NULL);
   }

   if (!dst[0])
      dst[0] = create_component_texture(priv->r->pipe, width, height);

   if (!dst[1])
      dst[1] = create_component_texture(priv->r->pipe, width, height);

   if (!dst[2])
      dst[2] = create_component_texture(priv->r->pipe, width, height);

   if (!dst[0] || !dst[1] || !dst[2])
      return BadAlloc;

   return Success;
}

static void
copy_packed_data(ScrnInfoPtr pScrn,
                 struct xorg_xv_port_priv *port,
                 int id,
                 unsigned char *buf,
                 int srcPitch,
                 int left,
                 int top,
                 int w, int h)
{
   unsigned char *src;
   int i, j;
   struct pipe_texture **dst = port->yuv[port->current_set];
   struct pipe_transfer *ytrans, *utrans, *vtrans;
   struct pipe_screen *screen = port->r->pipe->screen;
   char *ymap, *vmap, *umap;
   unsigned char y1, y2, u, v;
   int yidx, uidx, vidx;

   src = buf + (top * srcPitch) + (left << 1);

   ytrans = screen->get_tex_transfer(screen, dst[0],
                                     0, 0, 0,
                                     PIPE_TRANSFER_WRITE,
                                     left, top, w, h);
   utrans = screen->get_tex_transfer(screen, dst[1],
                                     0, 0, 0,
                                     PIPE_TRANSFER_WRITE,
                                     left, top, w, h);
   vtrans = screen->get_tex_transfer(screen, dst[2],
                                     0, 0, 0,
                                     PIPE_TRANSFER_WRITE,
                                     left, top, w, h);

   ymap = screen->transfer_map(screen, ytrans);
   umap = screen->transfer_map(screen, utrans);
   vmap = screen->transfer_map(screen, vtrans);

   switch (id) {
   case FOURCC_YV12: {
      int y_array_size = w * h;
      for (i = 0; i < w; ++i) {
         for (j = 0; i < h; ++j) {
            /*XXX use src? */
            y1  = buf[j*w + i];
            u   = buf[(j/2) * (w/2) + i/2 + y_array_size];
            v   = buf[(j/2) * (w/2) + i/2 + y_array_size + y_array_size/4];
            ymap[yidx++] = y1;
            umap[uidx++] = u;
            vmap[vidx++] = v;
         }
      }
   }
      break;
   case FOURCC_YUY2:
      for (j = 0; j < h; ++j) {
         for (i = 0; i < w; ++i) {
            /* extracting two pixels */
            y1 = buf[0];
            u  = buf[1];
            y2 = buf[2];
            v  = buf[3];

            ymap[yidx++] = y1;
            ymap[yidx++] = y2;
            umap[uidx++] = u;
            umap[uidx++] = u;
            vmap[vidx++] = v;
            vmap[vidx++] = v;
         }
      }
      break;
   default:
      debug_assert(!"Unsupported yuv format!");
      break;
   }

   screen->transfer_unmap(screen, ytrans);
   screen->transfer_unmap(screen, utrans);
   screen->transfer_unmap(screen, vtrans);
   screen->tex_transfer_destroy(ytrans);
   screen->tex_transfer_destroy(utrans);
   screen->tex_transfer_destroy(vtrans);
}

static void
setup_video_constants(struct xorg_renderer *r, boolean hdtv)
{
   struct pipe_context *pipe = r->pipe;
   const int param_bytes = 9 * sizeof(float);
   struct pipe_constant_buffer *cbuf = &r->vs_const_buffer;

   pipe_buffer_reference(&cbuf->buffer, NULL);
   cbuf->buffer = pipe_buffer_create(pipe->screen, 16,
                                     PIPE_BUFFER_USAGE_CONSTANT,
                                     param_bytes);

   if (cbuf->buffer) {
      const float *video_constants = (hdtv) ? bt_709 : bt_601;

      pipe_buffer_write(pipe->screen, cbuf->buffer,
                        0, param_bytes, video_constants);
   }
   pipe->set_constant_buffer(pipe, PIPE_SHADER_FRAGMENT, 0, cbuf);
}

static int
display_video(ScrnInfoPtr pScrn, struct xorg_xv_port_priv *pPriv, int id,
              RegionPtr dstRegion,
              short width, short height,
              int x1, int y1, int x2, int y2,
              short src_w, short src_h, short drw_w, short drw_h,
              PixmapPtr pPixmap)
{
   BoxPtr pbox;
   int nbox;
   int dxo, dyo;
   Bool hdtv;
   float tc0[2], tc1[2], tc2[2];

   hdtv = ((src_w >= RES_720P_X) && (src_h >= RES_720P_Y));
   setup_video_constants(pPriv->r, hdtv);

   REGION_TRANSLATE(pScrn->pScreen, dstRegion, -pPixmap->screen_x,
                    -pPixmap->screen_y);

   dxo = dstRegion->extents.x1;
   dyo = dstRegion->extents.y1;

   pbox = REGION_RECTS(dstRegion);
   nbox = REGION_NUM_RECTS(dstRegion);

   while (nbox--) {
      int box_x1 = pbox->x1;
      int box_y1 = pbox->y1;
      int box_x2 = pbox->x2;
      int box_y2 = pbox->y2;

      tc0[0] = (double) (box_x1 - dxo) / (double) drw_w; /* u0 */
      tc0[1] = (double) (box_y1 - dyo) / (double) drw_h; /* v0 */
      tc1[0] = (double) (box_x2 - dxo) / (double) drw_w; /* u1 */
      tc1[1] = tc0[1];
      tc2[0] = tc0[0];
      tc2[1] = (double) (box_y2 - dyo) / (double) drw_h; /* v1 */

#if 0
      x = box_x1;
      y = box_y1;
      w = box_x2 - box_x1;
      h = box_y2 - box_y1;

      pbox++;
      draw_yuv(pScrn, x, y, w, h, &src, 1, FALSE,
               0, tc0, tc1, tc2, 1,
               pPriv->conversionData);
#endif
   }
   DamageDamageRegion(&pPixmap->drawable, dstRegion);
   return TRUE;
}

static int
put_image(ScrnInfoPtr pScrn,
          short src_x, short src_y,
          short drw_x, short drw_y,
          short src_w, short src_h,
          short drw_w, short drw_h,
          int id, unsigned char *buf,
          short width, short height,
          Bool sync, RegionPtr clipBoxes, pointer data,
          DrawablePtr pDraw)
{
   struct xorg_xv_port_priv *pPriv = (struct xorg_xv_port_priv *) data;
   ScreenPtr pScreen = screenInfo.screens[pScrn->scrnIndex];
   PixmapPtr pPixmap;
   INT32 x1, x2, y1, y2;
   int srcPitch;
   BoxRec dstBox;
   int ret;

   /* Clip */
   x1 = src_x;
   x2 = src_x + src_w;
   y1 = src_y;
   y2 = src_y + src_h;

   dstBox.x1 = drw_x;
   dstBox.x2 = drw_x + drw_w;
   dstBox.y1 = drw_y;
   dstBox.y2 = drw_y + drw_h;

   if (!xf86XVClipVideoHelper(&dstBox, &x1, &x2, &y1, &y2, clipBoxes,
			      width, height))
      return Success;

   switch (id) {
   case FOURCC_UYVY:
   case FOURCC_YUY2:
   default:
      srcPitch = width << 1;
      break;
   }

   ret = check_yuv_textures(pPriv, width, height);

   if (ret)
      return ret;

   copy_packed_data(pScrn, pPriv, id, buf, srcPitch,
                    src_x, src_y, width, height);

   if (pDraw->type == DRAWABLE_WINDOW) {
      pPixmap = (*pScreen->GetWindowPixmap)((WindowPtr)pDraw);
   } else {
      pPixmap = (PixmapPtr)pDraw;
   }

   display_video(pScrn, pPriv, id, clipBoxes, width, height,
                 x1, y1, x2, y2,
                 src_w, src_h, drw_w, drw_h, pPixmap);

   pPriv->current_set = (pPriv->current_set + 1) & 1;
   return Success;
}

static int
query_image_attributes(ScrnInfoPtr pScrn,
                       int id,
                       unsigned short *w, unsigned short *h,
                       int *pitches, int *offsets)
{
   int size;

   if (*w > IMAGE_MAX_WIDTH)
      *w = IMAGE_MAX_WIDTH;
   if (*h > IMAGE_MAX_HEIGHT)
      *h = IMAGE_MAX_HEIGHT;

   *w = (*w + 1) & ~1;
   if (offsets)
      offsets[0] = 0;

   switch (id) {
   case FOURCC_UYVY:
   case FOURCC_YUY2:
   default:
      size = *w << 1;
      if (pitches)
	 pitches[0] = size;
      size *= *h;
      break;
   }

   return size;
}

static struct xorg_xv_port_priv *
port_priv_create(struct xorg_renderer *r)
{
   struct xorg_xv_port_priv *priv = NULL;

   priv = calloc(1, sizeof(struct xorg_xv_port_priv));

   if (!priv)
      return NULL;

   priv->r = r;

   REGION_NULL(pScreen, &priv->clip);

   debug_assert(priv && priv->r);

   return priv;
}

static XF86VideoAdaptorPtr
xorg_setup_textured_adapter(ScreenPtr pScreen)
{
   ScrnInfoPtr pScrn = xf86Screens[pScreen->myNum];
   modesettingPtr ms = modesettingPTR(pScrn);
   XF86VideoAdaptorPtr adapt;
   XF86AttributePtr attrs;
   DevUnion *dev_unions;
   int nports = 16, i;
   int nattributes;

   nattributes = NUM_TEXTURED_ATTRIBUTES;

   debug_assert(ms->exa);
   debug_assert(ms->exa->renderer);

   adapt = calloc(1, sizeof(XF86VideoAdaptorRec));
   dev_unions = calloc(nports, sizeof(DevUnion));
   attrs = calloc(nattributes, sizeof(XF86AttributeRec));
   if (adapt == NULL || dev_unions == NULL || attrs == NULL) {
      free(adapt);
      free(dev_unions);
      free(attrs);
      return NULL;
   }

   adapt->type = XvWindowMask | XvInputMask | XvImageMask;
   adapt->flags = 0;
   adapt->name = "Gallium3D Textured Video";
   adapt->nEncodings = 1;
   adapt->pEncodings = DummyEncoding;
   adapt->nFormats = NUM_FORMATS;
   adapt->pFormats = Formats;
   adapt->nPorts = 0;
   adapt->pPortPrivates = dev_unions;
   adapt->nAttributes = nattributes;
   adapt->pAttributes = attrs;
   memcpy(attrs, TexturedAttributes, nattributes * sizeof(XF86AttributeRec));
   adapt->nImages = NUM_IMAGES;
   adapt->pImages = Images;
   adapt->PutVideo = NULL;
   adapt->PutStill = NULL;
   adapt->GetVideo = NULL;
   adapt->GetStill = NULL;
   adapt->StopVideo = stop_video;
   adapt->SetPortAttribute = set_port_attribute;
   adapt->GetPortAttribute = get_port_attribute;
   adapt->QueryBestSize = query_best_size;
   adapt->PutImage = put_image;
   adapt->QueryImageAttributes = query_image_attributes;

   for (i = 0; i < nports; i++) {
      struct xorg_xv_port_priv *priv =
         port_priv_create(ms->exa->renderer);

      adapt->pPortPrivates[i].ptr = (pointer) (priv);
      adapt->nPorts++;
   }

   return adapt;
}

void
xorg_init_video(ScreenPtr pScreen)
{
   ScrnInfoPtr pScrn = xf86Screens[pScreen->myNum];
   /*modesettingPtr ms = modesettingPTR(pScrn);*/
   XF86VideoAdaptorPtr *adaptors, *new_adaptors = NULL;
   XF86VideoAdaptorPtr textured_adapter;
   int num_adaptors;

   num_adaptors = xf86XVListGenericAdaptors(pScrn, &adaptors);
   new_adaptors = malloc((num_adaptors + 1) * sizeof(XF86VideoAdaptorPtr *));
   if (new_adaptors == NULL)
      return;

   memcpy(new_adaptors, adaptors, num_adaptors * sizeof(XF86VideoAdaptorPtr));
   adaptors = new_adaptors;

   /* Add the adaptors supported by our hardware.  First, set up the atoms
    * that will be used by both output adaptors.
    */
   xvBrightness = MAKE_ATOM("XV_BRIGHTNESS");
   xvContrast = MAKE_ATOM("XV_CONTRAST");

   textured_adapter = xorg_setup_textured_adapter(pScreen);

   debug_assert(textured_adapter);

   if (textured_adapter) {
      adaptors[num_adaptors++] = textured_adapter;
   }

   if (num_adaptors) {
      xf86XVScreenInit(pScreen, adaptors, num_adaptors);
   } else {
      xf86DrvMsg(pScrn->scrnIndex, X_WARNING,
                 "Disabling Xv because no adaptors could be initialized.\n");
   }

   free(adaptors);
}