webcam that can make "instant shots" Sender: Linux

On Thu, 22 Dec 2005 19:36:39 GMT, Ignoramus16420

The xawtv program does that, just select composite as your video source, but you may need a tv card.

Antways, here is a Perl script that does it, let me know if you need help getting it to run. Works fine here, but I have my camera feeding into a TV card. The way it works, is that it displays a photo( the first screenshot it finds), then you hit 'Update' to get another snapshot. When you like the shot, click "Save" and it will be saved as a timestamped jpg.

#!-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.