synfig-core/trunk/src/modules/mod_libavcodec/libavformat/grab.c

   1 /*
   2  * Linux video grab interface
   3  * Copyright (c) 2000,2001 Fabrice Bellard.
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18  */
  19 #include "avformat.h"
  20 #include <unistd.h>
  21 #include <fcntl.h>
  22 #include <sys/ioctl.h>
  23 #include <sys/mman.h>
  24 #include <sys/time.h>
  25 #define _LINUX_TIME_H 1
  26 #include <linux/videodev.h>
  27 #include <time.h>
  28
  29 typedef struct {
  30     int fd;
  31     int frame_format; /* see VIDEO_PALETTE_xxx */
  32     int use_mmap;
  33     int width, height;
  34     int frame_rate;
  35     int frame_rate_base;
  36     int64_t time_frame;
  37     int frame_size;
  38     struct video_capability video_cap;
  39     struct video_audio audio_saved;
  40     uint8_t *video_buf;
  41     struct video_mbuf gb_buffers;
  42     struct video_mmap gb_buf;
  43     int gb_frame;
  44
  45     /* ATI All In Wonder specific stuff */
  46     /* XXX: remove and merge in libavcodec/imgconvert.c */
  47     int aiw_enabled;
  48     int deint;
  49     int halfw;
  50     uint8_t *src_mem;
  51     uint8_t *lum_m4_mem;
  52 } VideoData;
  53
  54 static int aiw_init(VideoData *s);
  55 static int aiw_read_picture(VideoData *s, uint8_t *data);
  56 static int aiw_close(VideoData *s);
  57
  58 static int grab_read_header(AVFormatContext *s1, AVFormatParameters *ap)
  59 {
  60     VideoData *s = s1->priv_data;
  61     AVStream *st;
  62     int width, height;
  63     int video_fd, frame_size;
  64     int ret, frame_rate, frame_rate_base;
  65     int desired_palette;
  66     struct video_tuner tuner;
  67     struct video_audio audio;
  68     const char *video_device;
  69
  70     if (!ap || ap->width <= 0 || ap->height <= 0 || ap->frame_rate <= 0)
  71         return -1;
  72
  73     width = ap->width;
  74     height = ap->height;
  75     frame_rate      = ap->frame_rate;
  76     frame_rate_base = ap->frame_rate_base;
  77
  78     st = av_new_stream(s1, 0);
  79     if (!st)
  80         return -ENOMEM;
  81
  82     s->width = width;
  83     s->height = height;
  84     s->frame_rate      = frame_rate;
  85     s->frame_rate_base = frame_rate_base;
  86
  87     video_device = ap->device;
  88     if (!video_device)
  89         video_device = "/dev/video";
  90     video_fd = open(video_device, O_RDWR);
  91     if (video_fd < 0) {
  92         perror(video_device);
  93         goto fail;
  94     }
  95
  96     if (ioctl(video_fd,VIDIOCGCAP, &s->video_cap) < 0) {
  97         perror("VIDIOCGCAP");
  98         goto fail;
  99     }
 100
 101     if (!(s->video_cap.type & VID_TYPE_CAPTURE)) {
 102         fprintf(stderr, "Fatal: grab device does not handle capture\n");
 103         goto fail;
 104     }
 105
 106     desired_palette = -1;
 107     if (st->codec.pix_fmt == PIX_FMT_YUV420P) {
 108         desired_palette = VIDEO_PALETTE_YUV420P;
 109     } else if (st->codec.pix_fmt == PIX_FMT_YUV422) {
 110         desired_palette = VIDEO_PALETTE_YUV422;
 111     } else if (st->codec.pix_fmt == PIX_FMT_BGR24) {
 112         desired_palette = VIDEO_PALETTE_RGB24;
 113     }
 114
 115     /* set tv standard */
 116     if (ap->standard && !ioctl(video_fd, VIDIOCGTUNER, &tuner)) {
 117         if (!strcasecmp(ap->standard, "pal"))
 118             tuner.mode = VIDEO_MODE_PAL;
 119         else if (!strcasecmp(ap->standard, "secam"))
 120             tuner.mode = VIDEO_MODE_SECAM;
 121         else
 122             tuner.mode = VIDEO_MODE_NTSC;
 123         ioctl(video_fd, VIDIOCSTUNER, &tuner);
 124     }
 125
 126     /* unmute audio */
 127     audio.audio = 0;
 128     ioctl(video_fd, VIDIOCGAUDIO, &audio);
 129     memcpy(&s->audio_saved, &audio, sizeof(audio));
 130     audio.flags &= ~VIDEO_AUDIO_MUTE;
 131     ioctl(video_fd, VIDIOCSAUDIO, &audio);
 132
 133     ret = ioctl(video_fd,VIDIOCGMBUF,&s->gb_buffers);
 134     if (ret < 0) {
 135         /* try to use read based access */
 136         struct video_window win;
 137         struct video_picture pict;
 138         int val;
 139
 140         win.x = 0;
 141         win.y = 0;
 142         win.width = width;
 143         win.height = height;
 144         win.chromakey = -1;
 145         win.flags = 0;
 146
 147         ioctl(video_fd, VIDIOCSWIN, &win);
 148
 149         ioctl(video_fd, VIDIOCGPICT, &pict);
 150 #if 0
 151         printf("v4l: colour=%d hue=%d brightness=%d constrast=%d whiteness=%d\n",
 152                pict.colour,
 153                pict.hue,
 154                pict.brightness,
 155                pict.contrast,
 156                pict.whiteness);
 157 #endif
 158         /* try to choose a suitable video format */
 159         pict.palette = desired_palette;
 160         if (desired_palette == -1 || (ret = ioctl(video_fd, VIDIOCSPICT, &pict)) < 0) {
 161             pict.palette=VIDEO_PALETTE_YUV420P;
 162             ret = ioctl(video_fd, VIDIOCSPICT, &pict);
 163             if (ret < 0) {
 164                 pict.palette=VIDEO_PALETTE_YUV422;
 165                 ret = ioctl(video_fd, VIDIOCSPICT, &pict);
 166                 if (ret < 0) {
 167                     pict.palette=VIDEO_PALETTE_RGB24;
 168                     ret = ioctl(video_fd, VIDIOCSPICT, &pict);
 169                     if (ret < 0)
 170                         goto fail1;
 171                 }
 172             }
 173         }
 174
 175         s->frame_format = pict.palette;
 176
 177         val = 1;
 178         ioctl(video_fd, VIDIOCCAPTURE, &val);
 179
 180         s->time_frame = av_gettime();
 181         s->use_mmap = 0;
 182
 183         /* ATI All In Wonder automatic activation */
 184         if (!strcmp(s->video_cap.name, "Km")) {
 185             if (aiw_init(s) < 0)
 186                 goto fail;
 187             s->aiw_enabled = 1;
 188             /* force 420P format because convertion from YUV422 to YUV420P
 189                is done in this driver (ugly) */
 190             s->frame_format = VIDEO_PALETTE_YUV420P;
 191         }
 192     } else {
 193         s->video_buf = mmap(0,s->gb_buffers.size,PROT_READ|PROT_WRITE,MAP_SHARED,video_fd,0);
 194         if ((unsigned char*)-1 == s->video_buf) {
 195             perror("mmap");
 196             goto fail;
 197         }
 198         s->gb_frame = 0;
 199         s->time_frame = av_gettime();
 200
 201         /* start to grab the first frame */
 202         s->gb_buf.frame = s->gb_frame % s->gb_buffers.frames;
 203         s->gb_buf.height = height;
 204         s->gb_buf.width = width;
 205         s->gb_buf.format = desired_palette;
 206
 207         if (desired_palette == -1 || (ret = ioctl(video_fd, VIDIOCMCAPTURE, &s->gb_buf)) < 0) {
 208             s->gb_buf.format = VIDEO_PALETTE_YUV420P;
 209
 210             ret = ioctl(video_fd, VIDIOCMCAPTURE, &s->gb_buf);
 211             if (ret < 0 && errno != EAGAIN) {
 212                 /* try YUV422 */
 213                 s->gb_buf.format = VIDEO_PALETTE_YUV422;
 214
 215                 ret = ioctl(video_fd, VIDIOCMCAPTURE, &s->gb_buf);
 216                 if (ret < 0 && errno != EAGAIN) {
 217                     /* try RGB24 */
 218                     s->gb_buf.format = VIDEO_PALETTE_RGB24;
 219                     ret = ioctl(video_fd, VIDIOCMCAPTURE, &s->gb_buf);
 220                 }
 221             }
 222         }
 223         if (ret < 0) {
 224             if (errno != EAGAIN) {
 225             fail1:
 226                 fprintf(stderr, "Fatal: grab device does not support suitable format\n");
 227             } else {
 228                 fprintf(stderr,"Fatal: grab device does not receive any video signal\n");
 229             }
 230             goto fail;
 231         }
 232         s->frame_format = s->gb_buf.format;
 233         s->use_mmap = 1;
 234     }
 235
 236     switch(s->frame_format) {
 237     case VIDEO_PALETTE_YUV420P:
 238         frame_size = (width * height * 3) / 2;
 239         st->codec.pix_fmt = PIX_FMT_YUV420P;
 240         break;
 241     case VIDEO_PALETTE_YUV422:
 242         frame_size = width * height * 2;
 243         st->codec.pix_fmt = PIX_FMT_YUV422;
 244         break;
 245     case VIDEO_PALETTE_RGB24:
 246         frame_size = width * height * 3;
 247         st->codec.pix_fmt = PIX_FMT_BGR24; /* NOTE: v4l uses BGR24, not RGB24 ! */
 248         break;
 249     default:
 250         goto fail;
 251     }
 252     s->fd = video_fd;
 253     s->frame_size = frame_size;
 254
 255     st->codec.codec_type = CODEC_TYPE_VIDEO;
 256     st->codec.codec_id = CODEC_ID_RAWVIDEO;
 257     st->codec.width = width;
 258     st->codec.height = height;
 259     st->codec.frame_rate      = frame_rate;
 260     st->codec.frame_rate_base = frame_rate_base;
 261
 262     av_set_pts_info(s1, 48, 1, 1000000); /* 48 bits pts in us */
 263
 264     return 0;
 265  fail:
 266     if (video_fd >= 0)
 267         close(video_fd);
 268     av_free(st);
 269     return -EIO;
 270 }
 271
 272 static int v4l_mm_read_picture(VideoData *s, uint8_t *buf)
 273 {
 274     uint8_t *ptr;
 275
 276     /* Setup to capture the next frame */
 277     s->gb_buf.frame = (s->gb_frame + 1) % s->gb_buffers.frames;
 278     if (ioctl(s->fd, VIDIOCMCAPTURE, &s->gb_buf) < 0) {
 279         if (errno == EAGAIN)
 280             fprintf(stderr,"Cannot Sync\n");
 281         else
 282             perror("VIDIOCMCAPTURE");
 283         return -EIO;
 284     }
 285
 286     while (ioctl(s->fd, VIDIOCSYNC, &s->gb_frame) < 0 &&
 287            (errno == EAGAIN || errno == EINTR));
 288
 289     ptr = s->video_buf + s->gb_buffers.offsets[s->gb_frame];
 290     memcpy(buf, ptr, s->frame_size);
 291
 292     /* This is now the grabbing frame */
 293     s->gb_frame = s->gb_buf.frame;
 294
 295     return s->frame_size;
 296 }
 297
 298 static int grab_read_packet(AVFormatContext *s1, AVPacket *pkt)
 299 {
 300     VideoData *s = s1->priv_data;
 301     int64_t curtime, delay;
 302     struct timespec ts;
 303     int64_t per_frame = (int64_t_C(1000000) * s->frame_rate_base) / s->frame_rate;
 304
 305     /* Calculate the time of the next frame */
 306     s->time_frame += per_frame;
 307
 308     /* wait based on the frame rate */
 309     for(;;) {
 310         curtime = av_gettime();
 311         delay = s->time_frame - curtime;
 312         if (delay <= 0) {
 313             if (delay < -per_frame) {
 314                 /* printf("grabbing is %d frames late (dropping)\n", (int) -(delay / 16666)); */
 315                 s->time_frame += per_frame;
 316             }
 317             break;
 318         }
 319         ts.tv_sec = delay / 1000000;
 320         ts.tv_nsec = (delay % 1000000) * 1000;
 321         nanosleep(&ts, NULL);
 322     }
 323
 324     if (av_new_packet(pkt, s->frame_size) < 0)
 325         return -EIO;
 326
 327     pkt->pts = curtime & ((1LL << 48) - 1);
 328
 329     /* read one frame */
 330     if (s->aiw_enabled) {
 331         return aiw_read_picture(s, pkt->data);
 332     } else if (s->use_mmap) {
 333         return v4l_mm_read_picture(s, pkt->data);
 334     } else {
 335         if (read(s->fd, pkt->data, pkt->size) != pkt->size)
 336             return -EIO;
 337         return s->frame_size;
 338     }
 339 }
 340
 341 static int grab_read_close(AVFormatContext *s1)
 342 {
 343     VideoData *s = s1->priv_data;
 344
 345     if (s->aiw_enabled)
 346         aiw_close(s);
 347
 348     if (s->use_mmap)
 349         munmap(s->video_buf, s->gb_buffers.size);
 350
 351     /* mute audio. we must force it because the BTTV driver does not
 352        return its state correctly */
 353     s->audio_saved.flags |= VIDEO_AUDIO_MUTE;
 354     ioctl(s->fd, VIDIOCSAUDIO, &s->audio_saved);
 355
 356     close(s->fd);
 357     return 0;
 358 }
 359
 360 static AVInputFormat video_grab_device_format = {
 361     "video4linux",
 362     "video grab",
 363     sizeof(VideoData),
 364     NULL,
 365     grab_read_header,
 366     grab_read_packet,
 367     grab_read_close,
 368     .flags = AVFMT_NOFILE,
 369 };
 370
 371 /* All in Wonder specific stuff */
 372 /* XXX: remove and merge in libavcodec/imgconvert.c */
 373
 374 static int aiw_init(VideoData *s)
 375 {
 376     int width, height;
 377
 378     width = s->width;
 379     height = s->height;
 380
 381     if ((width == s->video_cap.maxwidth && height == s->video_cap.maxheight) ||
 382         (width == s->video_cap.maxwidth && height == s->video_cap.maxheight*2) ||
 383         (width == s->video_cap.maxwidth/2 && height == s->video_cap.maxheight)) {
 384
 385         s->deint=0;
 386         s->halfw=0;
 387         if (height == s->video_cap.maxheight*2) s->deint=1;
 388         if (width == s->video_cap.maxwidth/2) s->halfw=1;
 389     } else {
 390         fprintf(stderr,"\nIncorrect Grab Size Supplied - Supported Sizes Are:\n");
 391         fprintf(stderr," %dx%d  %dx%d %dx%d\n\n",
 392                 s->video_cap.maxwidth,s->video_cap.maxheight,
 393                 s->video_cap.maxwidth,s->video_cap.maxheight*2,
 394                 s->video_cap.maxwidth/2,s->video_cap.maxheight);
 395         goto fail;
 396     }
 397
 398     if (s->halfw == 0) {
 399         s->src_mem = av_malloc(s->width*2);
 400     } else {
 401         s->src_mem = av_malloc(s->width*4);
 402     }
 403     if (!s->src_mem) goto fail;
 404
 405     s->lum_m4_mem = av_malloc(s->width);
 406     if (!s->lum_m4_mem)
 407         goto fail;
 408     return 0;
 409  fail:
 410     av_freep(&s->src_mem);
 411     av_freep(&s->lum_m4_mem);
 412     return -1;
 413 }
 414
 415 #ifdef HAVE_MMX
 416 #include "../libavcodec/i386/mmx.h"
 417
 418 #define LINE_WITH_UV \
 419                     movq_m2r(ptr[0],mm0); \
 420                     movq_m2r(ptr[8],mm1);  \
 421                     movq_r2r(mm0, mm4); \
 422                     punpcklbw_r2r(mm1,mm0); \
 423                     punpckhbw_r2r(mm1,mm4); \
 424                     movq_r2r(mm0,mm5); \
 425                     punpcklbw_r2r(mm4,mm0); \
 426                     punpckhbw_r2r(mm4,mm5); \
 427                     movq_r2r(mm0,mm1); \
 428                     punpcklbw_r2r(mm5,mm1); \
 429                     movq_r2m(mm1,lum[0]); \
 430                     movq_m2r(ptr[16],mm2); \
 431                     movq_m2r(ptr[24],mm1); \
 432                     movq_r2r(mm2,mm4); \
 433                     punpcklbw_r2r(mm1,mm2); \
 434                     punpckhbw_r2r(mm1,mm4); \
 435                     movq_r2r(mm2,mm3); \
 436                     punpcklbw_r2r(mm4,mm2); \
 437                     punpckhbw_r2r(mm4,mm3); \
 438                     movq_r2r(mm2,mm1); \
 439                     punpcklbw_r2r(mm3,mm1); \
 440                     movq_r2m(mm1,lum[8]); \
 441                     punpckhdq_r2r(mm2,mm0); \
 442                     punpckhdq_r2r(mm3,mm5); \
 443                     movq_r2m(mm0,cb[0]); \
 444                     movq_r2m(mm5,cr[0]);
 445
 446 #define LINE_NO_UV \
 447                     movq_m2r(ptr[0],mm0);\
 448                     movq_m2r(ptr[8],mm1);\
 449                     movq_r2r(mm0, mm4);\
 450                     punpcklbw_r2r(mm1,mm0); \
 451                     punpckhbw_r2r(mm1,mm4);\
 452                     movq_r2r(mm0,mm5);\
 453                     punpcklbw_r2r(mm4,mm0);\
 454                     punpckhbw_r2r(mm4,mm5);\
 455                     movq_r2r(mm0,mm1);\
 456                     punpcklbw_r2r(mm5,mm1);\
 457                     movq_r2m(mm1,lum[0]);\
 458                     movq_m2r(ptr[16],mm2);\
 459                     movq_m2r(ptr[24],mm1);\
 460                     movq_r2r(mm2,mm4);\
 461                     punpcklbw_r2r(mm1,mm2);\
 462                     punpckhbw_r2r(mm1,mm4);\
 463                     movq_r2r(mm2,mm3);\
 464                     punpcklbw_r2r(mm4,mm2);\
 465                     punpckhbw_r2r(mm4,mm3);\
 466                     movq_r2r(mm2,mm1);\
 467                     punpcklbw_r2r(mm3,mm1);\
 468                     movq_r2m(mm1,lum[8]);
 469
 470 #define LINE_WITHUV_AVG \
 471                     movq_m2r(ptr[0], mm0);\
 472                     movq_m2r(ptr[8], mm1);\
 473                     movq_r2r(mm0, mm4);\
 474                     punpcklbw_r2r(mm1,mm0);\
 475                     punpckhbw_r2r(mm1,mm4);\
 476                     movq_r2r(mm0,mm5);\
 477                     punpcklbw_r2r(mm4,mm0);\
 478                     punpckhbw_r2r(mm4,mm5);\
 479                     movq_r2r(mm0,mm1);\
 480                     movq_r2r(mm5,mm2);\
 481                     punpcklbw_r2r(mm7,mm1);\
 482                     punpcklbw_r2r(mm7,mm2);\
 483                     paddw_r2r(mm6,mm1);\
 484                     paddw_r2r(mm2,mm1);\
 485                     psraw_i2r(1,mm1);\
 486                     packuswb_r2r(mm7,mm1);\
 487                     movd_r2m(mm1,lum[0]);\
 488                     movq_m2r(ptr[16],mm2);\
 489                     movq_m2r(ptr[24],mm1);\
 490                     movq_r2r(mm2,mm4);\
 491                     punpcklbw_r2r(mm1,mm2);\
 492                     punpckhbw_r2r(mm1,mm4);\
 493                     movq_r2r(mm2,mm3);\
 494                     punpcklbw_r2r(mm4,mm2);\
 495                     punpckhbw_r2r(mm4,mm3);\
 496                     movq_r2r(mm2,mm1);\
 497                     movq_r2r(mm3,mm4);\
 498                     punpcklbw_r2r(mm7,mm1);\
 499                     punpcklbw_r2r(mm7,mm4);\
 500                     paddw_r2r(mm6,mm1);\
 501                     paddw_r2r(mm4,mm1);\
 502                     psraw_i2r(1,mm1);\
 503                     packuswb_r2r(mm7,mm1);\
 504                     movd_r2m(mm1,lum[4]);\
 505                     punpckhbw_r2r(mm7,mm0);\
 506                     punpckhbw_r2r(mm7,mm2);\
 507                     paddw_r2r(mm6,mm0);\
 508                     paddw_r2r(mm2,mm0);\
 509                     psraw_i2r(1,mm0);\
 510                     packuswb_r2r(mm7,mm0);\
 511                     punpckhbw_r2r(mm7,mm5);\
 512                     punpckhbw_r2r(mm7,mm3);\
 513                     paddw_r2r(mm6,mm5);\
 514                     paddw_r2r(mm3,mm5);\
 515                     psraw_i2r(1,mm5);\
 516                     packuswb_r2r(mm7,mm5);\
 517                     movd_r2m(mm0,cb[0]);\
 518                     movd_r2m(mm5,cr[0]);
 519
 520 #define LINE_NOUV_AVG \
 521                     movq_m2r(ptr[0],mm0);\
 522                     movq_m2r(ptr[8],mm1);\
 523                     pand_r2r(mm5,mm0);\
 524                     pand_r2r(mm5,mm1);\
 525                     pmaddwd_r2r(mm6,mm0);\
 526                     pmaddwd_r2r(mm6,mm1);\
 527                     packssdw_r2r(mm1,mm0);\
 528                     paddw_r2r(mm6,mm0);\
 529                     psraw_i2r(1,mm0);\
 530                     movq_m2r(ptr[16],mm2);\
 531                     movq_m2r(ptr[24],mm3);\
 532                     pand_r2r(mm5,mm2);\
 533                     pand_r2r(mm5,mm3);\
 534                     pmaddwd_r2r(mm6,mm2);\
 535                     pmaddwd_r2r(mm6,mm3);\
 536                     packssdw_r2r(mm3,mm2);\
 537                     paddw_r2r(mm6,mm2);\
 538                     psraw_i2r(1,mm2);\
 539                     packuswb_r2r(mm2,mm0);\
 540                     movq_r2m(mm0,lum[0]);
 541
 542 #define DEINT_LINE_LUM(ptroff) \
 543                     movd_m2r(lum_m4[(ptroff)],mm0);\
 544                     movd_m2r(lum_m3[(ptroff)],mm1);\
 545                     movd_m2r(lum_m2[(ptroff)],mm2);\
 546                     movd_m2r(lum_m1[(ptroff)],mm3);\
 547                     movd_m2r(lum[(ptroff)],mm4);\
 548                     punpcklbw_r2r(mm7,mm0);\
 549                     movd_r2m(mm2,lum_m4[(ptroff)]);\
 550                     punpcklbw_r2r(mm7,mm1);\
 551                     punpcklbw_r2r(mm7,mm2);\
 552                     punpcklbw_r2r(mm7,mm3);\
 553                     punpcklbw_r2r(mm7,mm4);\
 554                     psllw_i2r(2,mm1);\
 555                     psllw_i2r(1,mm2);\
 556                     paddw_r2r(mm6,mm1);\
 557                     psllw_i2r(2,mm3);\
 558                     paddw_r2r(mm2,mm1);\
 559                     paddw_r2r(mm4,mm0);\
 560                     paddw_r2r(mm3,mm1);\
 561                     psubusw_r2r(mm0,mm1);\
 562                     psrlw_i2r(3,mm1);\
 563                     packuswb_r2r(mm7,mm1);\
 564                     movd_r2m(mm1,lum_m2[(ptroff)]);
 565
 566 #else
 567 #include "../libavcodec/dsputil.h"
 568
 569 #define LINE_WITH_UV \
 570                     lum[0]=ptr[0];lum[1]=ptr[2];lum[2]=ptr[4];lum[3]=ptr[6];\
 571                     cb[0]=ptr[1];cb[1]=ptr[5];\
 572                     cr[0]=ptr[3];cr[1]=ptr[7];\
 573                     lum[4]=ptr[8];lum[5]=ptr[10];lum[6]=ptr[12];lum[7]=ptr[14];\
 574                     cb[2]=ptr[9];cb[3]=ptr[13];\
 575                     cr[2]=ptr[11];cr[3]=ptr[15];\
 576                     lum[8]=ptr[16];lum[9]=ptr[18];lum[10]=ptr[20];lum[11]=ptr[22];\
 577                     cb[4]=ptr[17];cb[5]=ptr[21];\
 578                     cr[4]=ptr[19];cr[5]=ptr[23];\
 579                     lum[12]=ptr[24];lum[13]=ptr[26];lum[14]=ptr[28];lum[15]=ptr[30];\
 580                     cb[6]=ptr[25];cb[7]=ptr[29];\
 581                     cr[6]=ptr[27];cr[7]=ptr[31];
 582
 583 #define LINE_NO_UV \
 584                     lum[0]=ptr[0];lum[1]=ptr[2];lum[2]=ptr[4];lum[3]=ptr[6];\
 585                     lum[4]=ptr[8];lum[5]=ptr[10];lum[6]=ptr[12];lum[7]=ptr[14];\
 586                     lum[8]=ptr[16];lum[9]=ptr[18];lum[10]=ptr[20];lum[11]=ptr[22];\
 587                     lum[12]=ptr[24];lum[13]=ptr[26];lum[14]=ptr[28];lum[15]=ptr[30];
 588
 589 #define LINE_WITHUV_AVG \
 590                     sum=(ptr[0]+ptr[2]+1) >> 1;lum[0]=sum; \
 591                     sum=(ptr[4]+ptr[6]+1) >> 1;lum[1]=sum; \
 592                     sum=(ptr[1]+ptr[5]+1) >> 1;cb[0]=sum; \
 593                     sum=(ptr[3]+ptr[7]+1) >> 1;cr[0]=sum; \
 594                     sum=(ptr[8]+ptr[10]+1) >> 1;lum[2]=sum; \
 595                     sum=(ptr[12]+ptr[14]+1) >> 1;lum[3]=sum; \
 596                     sum=(ptr[9]+ptr[13]+1) >> 1;cb[1]=sum; \
 597                     sum=(ptr[11]+ptr[15]+1) >> 1;cr[1]=sum; \
 598                     sum=(ptr[16]+ptr[18]+1) >> 1;lum[4]=sum; \
 599                     sum=(ptr[20]+ptr[22]+1) >> 1;lum[5]=sum; \
 600                     sum=(ptr[17]+ptr[21]+1) >> 1;cb[2]=sum; \
 601                     sum=(ptr[19]+ptr[23]+1) >> 1;cr[2]=sum; \
 602                     sum=(ptr[24]+ptr[26]+1) >> 1;lum[6]=sum; \
 603                     sum=(ptr[28]+ptr[30]+1) >> 1;lum[7]=sum; \
 604                     sum=(ptr[25]+ptr[29]+1) >> 1;cb[3]=sum; \
 605                     sum=(ptr[27]+ptr[31]+1) >> 1;cr[3]=sum;
 606
 607 #define LINE_NOUV_AVG \
 608                     sum=(ptr[0]+ptr[2]+1) >> 1;lum[0]=sum; \
 609                     sum=(ptr[4]+ptr[6]+1) >> 1;lum[1]=sum; \
 610                     sum=(ptr[8]+ptr[10]+1) >> 1;lum[2]=sum; \
 611                     sum=(ptr[12]+ptr[14]+1) >> 1;lum[3]=sum; \
 612                     sum=(ptr[16]+ptr[18]+1) >> 1;lum[4]=sum; \
 613                     sum=(ptr[20]+ptr[22]+1) >> 1;lum[5]=sum; \
 614                     sum=(ptr[24]+ptr[26]+1) >> 1;lum[6]=sum; \
 615                     sum=(ptr[28]+ptr[30]+1) >> 1;lum[7]=sum;
 616
 617 #define DEINT_LINE_LUM(ptroff) \
 618                     sum=(-lum_m4[(ptroff)]+(lum_m3[(ptroff)]<<2)+(lum_m2[(ptroff)]<<1)+(lum_m1[(ptroff)]<<2)-lum[(ptroff)]); \
 619                     lum_m4[(ptroff)]=lum_m2[(ptroff)];\
 620                     lum_m2[(ptroff)]=cm[(sum+4)>>3];\
 621                     sum=(-lum_m4[(ptroff)+1]+(lum_m3[(ptroff)+1]<<2)+(lum_m2[(ptroff)+1]<<1)+(lum_m1[(ptroff)+1]<<2)-lum[(ptroff)+1]); \
 622                     lum_m4[(ptroff)+1]=lum_m2[(ptroff)+1];\
 623                     lum_m2[(ptroff)+1]=cm[(sum+4)>>3];\
 624                     sum=(-lum_m4[(ptroff)+2]+(lum_m3[(ptroff)+2]<<2)+(lum_m2[(ptroff)+2]<<1)+(lum_m1[(ptroff)+2]<<2)-lum[(ptroff)+2]); \
 625                     lum_m4[(ptroff)+2]=lum_m2[(ptroff)+2];\
 626                     lum_m2[(ptroff)+2]=cm[(sum+4)>>3];\
 627                     sum=(-lum_m4[(ptroff)+3]+(lum_m3[(ptroff)+3]<<2)+(lum_m2[(ptroff)+3]<<1)+(lum_m1[(ptroff)+3]<<2)-lum[(ptroff)+3]); \
 628                     lum_m4[(ptroff)+3]=lum_m2[(ptroff)+3];\
 629                     lum_m2[(ptroff)+3]=cm[(sum+4)>>3];
 630
 631 #endif
 632
 633
 634 /* Read two fields separately. */
 635 static int aiw_read_picture(VideoData *s, uint8_t *data)
 636 {
 637     uint8_t *ptr, *lum, *cb, *cr;
 638     int h;
 639 #ifndef HAVE_MMX
 640     int sum;
 641 #endif
 642     uint8_t* src = s->src_mem;
 643     uint8_t *ptrend = &src[s->width*2];
 644     lum=data;
 645     cb=&lum[s->width*s->height];
 646     cr=&cb[(s->width*s->height)/4];
 647     if (s->deint == 0 && s->halfw == 0) {
 648         while (read(s->fd,src,s->width*2) < 0) {
 649             usleep(100);
 650         }
 651         for (h = 0; h < s->height-2; h+=2) {
 652             for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16, cb+=8, cr+=8) {
 653                 LINE_WITH_UV
 654                     }
 655             read(s->fd,src,s->width*2);
 656             for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16) {
 657                 LINE_NO_UV
 658                     }
 659             read(s->fd,src,s->width*2);
 660         }
 661         /*
 662          * Do last two lines
 663          */
 664         for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16, cb+=8, cr+=8) {
 665             LINE_WITH_UV
 666                 }
 667         read(s->fd,src,s->width*2);
 668         for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16) {
 669             LINE_NO_UV
 670                 }
 671         /* drop second field */
 672         while (read(s->fd,src,s->width*2) < 0) {
 673             usleep(100);
 674         }
 675         for (h = 0; h < s->height - 1; h++) {
 676             read(s->fd,src,s->width*2);
 677         }
 678     } else if (s->halfw == 1) {
 679 #ifdef HAVE_MMX
 680         mmx_t rounder;
 681         mmx_t masker;
 682         rounder.uw[0]=1;
 683         rounder.uw[1]=1;
 684         rounder.uw[2]=1;
 685         rounder.uw[3]=1;
 686         masker.ub[0]=0xff;
 687         masker.ub[1]=0;
 688         masker.ub[2]=0xff;
 689         masker.ub[3]=0;
 690         masker.ub[4]=0xff;
 691         masker.ub[5]=0;
 692         masker.ub[6]=0xff;
 693         masker.ub[7]=0;
 694         pxor_r2r(mm7,mm7);
 695         movq_m2r(rounder,mm6);
 696 #endif
 697         while (read(s->fd,src,s->width*4) < 0) {
 698             usleep(100);
 699         }
 700         ptrend = &src[s->width*4];
 701         for (h = 0; h < s->height-2; h+=2) {
 702             for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=8, cb+=4, cr+=4) {
 703                 LINE_WITHUV_AVG
 704                     }
 705             read(s->fd,src,s->width*4);
 706 #ifdef HAVE_MMX
 707             movq_m2r(masker,mm5);
 708 #endif
 709             for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=8) {
 710                 LINE_NOUV_AVG
 711                     }
 712             read(s->fd,src,s->width*4);
 713         }
 714         /*
 715  * Do last two lines
 716  */
 717         for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=8, cb+=4, cr+=4) {
 718             LINE_WITHUV_AVG
 719                 }
 720         read(s->fd,src,s->width*4);
 721 #ifdef HAVE_MMX
 722         movq_m2r(masker,mm5);
 723 #endif
 724         for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=8) {
 725             LINE_NOUV_AVG
 726                 }
 727         /* drop second field */
 728         while (read(s->fd,src,s->width*4) < 0) {
 729             usleep(100);
 730         }
 731         for (h = 0; h < s->height - 1; h++) {
 732             read(s->fd,src,s->width*4);
 733         }
 734     } else {
 735         uint8_t *lum_m1, *lum_m2, *lum_m3, *lum_m4;
 736 #ifdef HAVE_MMX
 737         mmx_t rounder;
 738         rounder.uw[0]=4;
 739         rounder.uw[1]=4;
 740         rounder.uw[2]=4;
 741         rounder.uw[3]=4;
 742         movq_m2r(rounder,mm6);
 743         pxor_r2r(mm7,mm7);
 744 #else
 745         uint8_t *cm = cropTbl + MAX_NEG_CROP;
 746 #endif
 747
 748         /* read two fields and deinterlace them */
 749         while (read(s->fd,src,s->width*2) < 0) {
 750             usleep(100);
 751         }
 752         for (h = 0; h < (s->height/2)-2; h+=2) {
 753             for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16, cb+=8, cr+=8) {
 754                 LINE_WITH_UV
 755                     }
 756             read(s->fd,src,s->width*2);
 757             /* skip a luminance line - will be filled in later */
 758             lum += s->width;
 759             for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16, cb+=8, cr+=8) {
 760                 LINE_WITH_UV
 761                     }
 762             /* skip a luminance line - will be filled in later */
 763             lum += s->width;
 764             read(s->fd,src,s->width*2);
 765         }
 766         /*
 767  * Do last two lines
 768  */
 769         for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16, cb+=8, cr+=8) {
 770             LINE_WITH_UV
 771                 }
 772         /* skip a luminance line - will be filled in later */
 773         lum += s->width;
 774         read(s->fd,src,s->width*2);
 775         for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16, cb+=8, cr+=8) {
 776             LINE_WITH_UV
 777                 }
 778         /*
 779  *
 780  * SECOND FIELD
 781  *
 782  */
 783         lum=&data[s->width];
 784         while (read(s->fd,src,s->width*2) < 0) {
 785             usleep(10);
 786         }
 787         /* First (and last) two lines not interlaced */
 788         for (h = 0; h < 2; h++) {
 789             for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16) {
 790                 LINE_NO_UV
 791                     }
 792             read(s->fd,src,s->width*2);
 793             /* skip a luminance line */
 794             lum += s->width;
 795         }
 796         lum_m1=&lum[-s->width];
 797         lum_m2=&lum_m1[-s->width];
 798         lum_m3=&lum_m2[-s->width];
 799         memmove(s->lum_m4_mem,&lum_m3[-s->width],s->width);
 800         for (; h < (s->height/2)-1; h++) {
 801             lum_m4=s->lum_m4_mem;
 802             for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16,lum_m1+=16,lum_m2+=16,lum_m3+=16,lum_m4+=16) {
 803                 LINE_NO_UV
 804
 805                     DEINT_LINE_LUM(0)
 806                     DEINT_LINE_LUM(4)
 807                     DEINT_LINE_LUM(8)
 808                     DEINT_LINE_LUM(12)
 809                     }
 810             read(s->fd,src,s->width*2);
 811             /* skip a luminance line */
 812             lum += s->width;
 813             lum_m1 += s->width;
 814             lum_m2 += s->width;
 815             lum_m3 += s->width;
 816             //                lum_m4 += s->width;
 817         }
 818         /*
 819  * Do last line
 820  */
 821         lum_m4=s->lum_m4_mem;
 822         for (ptr = &src[0]; ptr < ptrend; ptr+=32, lum+=16, lum_m1+=16, lum_m2+=16, lum_m3+=16, lum_m4+=16) {
 823             LINE_NO_UV
 824
 825                 DEINT_LINE_LUM(0)
 826                 DEINT_LINE_LUM(4)
 827                 DEINT_LINE_LUM(8)
 828                 DEINT_LINE_LUM(12)
 829                 }
 830     }
 831 #ifdef HAVE_MMX
 832     emms();
 833 #endif
 834     return s->frame_size;
 835 }
 836
 837 static int aiw_close(VideoData *s)
 838 {
 839     av_freep(&s->lum_m4_mem);
 840     av_freep(&s->src_mem);
 841     return 0;
 842 }
 843
 844 int video_grab_init(void)
 845 {
 846     av_register_input_format(&video_grab_device_format);
 847     return 0;
 848 }