#!/usr/bin/perl -w
# 
# $Id: sweep,v 1.2 2001/10/26 00:32:54 tramm Exp $
#
# Zeros the servos for further testing
#
# This file is licensed under the GPL.  Please see the file "LICENSE" in
# the root directory of this project for terms and conditions.
# (c) 2001 by Trammell Hudson <hudson@swcp.com>
#
use strict;
use FindBin;
use lib "$FindBin::Bin/lib";

use Servo;
my $servo_num = shift;
$servo_num = 0 unless defined $servo_num;

my $version = q$Id: sweep,v 1.2 2001/10/26 00:32:54 tramm Exp $;
my $servo = Servo->new( $servo_num );


for( my $i = -100 ; $i < 100 ; $i+=4 )
{
	print "moving to $i\n";
	$servo->set( $i );
	select undef, undef, undef, 0.2;
}

$servo->set( 0 );
