view release on metacpan or  search on metacpan

bin/uav_video_display  view on Meta::CPAN

    'in=s'     => \$FILE_IN,
    'out=s'    => \$FILE_OUT,
    'reticle'  => \$RETICLE,
    'camera=s' => \$CAMERA,
    'format=s' => \$FORMAT,
    'fps=i'    => \$FPS,
);



sub set_reticle_overlay
{
    my ($video, $window) = @_;
    my $reticle = UAV::Pilot::SDL::VideoOverlay::Reticle->new;
    $video->register_video_overlay( $reticle, $window );
    return 1;
}

sub set_driver_config
{
    my ($control, $driver, $easy_event) = @_;

    $control->send_config(
        $driver->ARDRONE_CONFIG_VIDEO_BITRATE_CONTROL_MODE,
        $driver->ARDRONE_CONFIG_VIDEO_VBC_MODE_DYNAMIC,

bin/uav_video_display  view on Meta::CPAN

    my $fh = undef;
    if( $FILE_OUT ) {
        open( $fh, '>', $FILE_OUT ) or die "Can't open file '$FILE_OUT': $!\n";
        my $file_handler = UAV::Pilot::Video::FileDump->new({
            fh => $fh,
        });
        push @h264_handlers, $file_handler;
    }

    $events->register( $window );
    set_reticle_overlay( $displays[0], $window ) if $RETICLE;

    my %video_args = (
        handlers => \@h264_handlers,
        condvar => $cv,
        driver  => $ardrone,
    );
    my $driver_video = $FILE_IN
        ? UAV::Pilot::ARDrone::Video::Mock->new({
            %video_args,
            file => $FILE_IN,