The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
NAME
    Device::Video::PWC

SYNOPSIS
            use Device::Video::PWC;
        
            my $cam = Device::Video::PWC->new( '/dev/video0' );
            $cam->set_pan (  3000 );
            $cam->set_tilt( -1000 );
            $cam->set_framerate( 15 );
            $cam->set electronic sharpness( 35000 );
            $cam->dump_current_settings;
            $cam->restore_factory_settings;

DESCRIPTION
    This module is an adaptation of source code of "setpwm" program. With
    this tool, you can only set settings specific to the Philips WebCams.

SUBROUTINES/METHODS
    new( '/path/to/video/device' )
        Constructor. The parameter is a path to video devices. Default value
        is set to "/dev/video0".

    set_device( '/path/to/video/device' )
        This method allows to change used device.

    dump_current_settings()
        Dump current settings.

    set_framerate( $framerate )
        Set framerate. Parameter $framerate has to be in a range 0 - 63.

    set_dimensions_and_framerate( $width, $height, $framerate)
        Set dimensions and framerate. All parameters must be set. Framerate
        has to be in a range 0 - 63.

    flash_settings()
        Store settings in nonvolatile RAM.

    restore_settings()
        Restore settings from nonvolatile RAM.

    restore_factory_settins()
        Restore factory settings.

    set_compression_preference( $val )
        Set compression preference. Value has to be in a range 0 - 3.

    set_automatic_gain_control( $val )
        Set automatic gain control. Value has to be in a range 0 - 65535.

    set_shutter_speed( $val )
        Set shutter speed. Value has to be in a range 1 - 65535.

    set_automatic_white_balance_mode( $val )
        Set automatic white balance mode. Value has to be one of
        "auto/manual/indoor/outdoor/fl" .

    red_balance( $val )
        Set red balance (only if white balance mode is set to "manual").
        Value has to be in a range 0 - 65535.

    blue_balance( $val )
        Set blue balance (only if white balance mode is set to "manual").
        Value has to be in a range 0 - 65535.

    set_automatic_white_balance_speed( $val )
        Set speed of automatic white balance. Value has to be in a range 1 -
        65535.

    set_automatic_white_balance_delay( $val )
        Set delay for automatic white balance. Value has to be in a range 1
        - 65535.

    set_led_on_time( $val )
        Set led on time in ms. Value has to be in a range 0 - 25500.

    set_led_off_time( $val )
        Set led off-time.

    set_electronic_sharpness( $val )
        Set electronic sharpness. Value has t obe in a range 0 - 65535.

    set_backlight_compensation( $val )
        Set backlight compensation. Possible values are 0 (for off) and 1
        (for on).

    set_antiflicker_mode( $val )
        Set antiflicker mode. Possible values are 0 (for off) and 1 (for
        on).

    set_noise_reduction($val)
        Set noise reduction mode. Possible values are from 0 (none) to 3
        (high).

    reset_pan()
        Reset pan.

    reset_tilt()
        Reset tilt.

    query_pan_tilt_status()
        Query pan/tilt status.

    set_pan( $val )
        Set pan position.

    set_tilt
        Set tilt position.

DEPENDENCIES
    None.

INCOMPATIBILITIES
    None known.

BUGS AND LIMITATIONS
    None. I hope.

THANKS
    Thanks to Folkert van Heusden <folkert@vanheusden.com>, who is an author
    of original source code for "setpwc".

AUTHOR
    Strzelecki Lukasz <lukasz@strzeleccy.eu>

LICENCE AND COPYRIGHT
    This program is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.

    See http://www.perl.com/perl/misc/Artistic.html