#!/usr/bin/perl
use blib;
use Video::Capture::V4l;
use Video::RTjpeg;
$outprefix = "/tmp/vstream";
require $outprefix;
$|=1;
open DATA, "<$outprefix.v0" or die;
read DATA, $buf, 4;
my ($tlen) = unpack "N*", $buf;
read DATA, $tables, $tlen;
Video::RTjpeg::init_decompress($tables, $w, $h);
while (read DATA, $buf, 8) {
my ($time, $size) = unpack "N*", $buf;
read DATA, $buf, $size;
$buf = Video::RTjpeg::decompress $buf;
$buf = Video::RTjpeg::yuvrgb $buf;
print ".$size";
#print ".",length($buf);
open DISPLAY, "| display -size ${w}x$h rgb:-" or die;
print DISPLAY $buf;
close DISPLAY;
}