Convert BGR images to RGB Sender: Linux

Perl to the rescue!! :-)

I don't know about streamer, but I ran into that problem when I was trying to make a perlTk snapshot grabber. The perl Imager module does color flipping. There are a couple of ways to swap the B and R values, I use "reverse" to reverse the BGR sets, but the the pics are "up-side-down"!! So then you need to "flip" them.

You could write a post-processor, to feed your images to, and do the reverse and flip. Like I said there are other ways to manipulate the color matrix in Imager, but "reverse and flip" is about the fastest.

ImageMagick may be able to do it, and there is probably some c code floating around out there, to do it.

Here is my grabber: #!-usr-bin-perl use warnings; use strict; use Video::Capture::V4l; use Imager; use Tk; use Tk::JPEG; use MIME::Base64;

my $timestamp; my $temp = '';

sub grabone { $temp = ''; $timestamp = scalar(localtime); $timestamp =~ tr--; $ = 1;

my $grab = new Video::Capture::V4l or die "Unable to open Videodevice: $!";

# the following initializes the camera for NTSC

my $frame = 0; my $count = 0;

for ( 0 .. 1 ) {

unless ( $count == 0 ) {

# save $fr now, as it contains the raw BGR data $temp = ''; print JP "P6-n320 240-n255-n"; #header $nfr = reverse $nfr; print JP $nfr; close JP;

} $count++; $frame = 1 - $frame; $fr = $nfr; } }

grabone();

my $label =

MainLoop;

sub saveit { print JP $temp; close JP; }

sub update { grabone(); }

END

-- I'm not really a human, but I play one on earth.