Here's a way to use Image::Magick to create PNGs from the raw RGB data.
Untested code:
#!/usr/bin/perl die "Usage: $0 image1 .. imageN\nDo not include the .raw extension.\n" + unless (@ARGV); use Image::Magick; my $depth = 8; # or 16 or 24 or ... my $size = '640x480'; foreach my $file (@ARGV) { my $image = Image::Magick->new; my $x; $x = $image->Read( filename => "rgb:$file.raw", size => '640x480', depth => $depth ); warn "$x" if "$x"; # from the examples but looks funny to me ;-) $x = $image->Write("$file.png"); # or jpg or whatever warn "$x" if "$x"; }
Alternately, you could include this in your video capture script. That would enable you to save a step by converting the raw data stored in the $nfr scalar to PNG.
In reply to Re: capturing raw video with v4l
by Mr. Muskrat
in thread capturing raw video with v4l
by zentara
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |