#!/usr/bin/perl -w
# 
# $Id: zero,v 1.2 2001/11/04 05:18:34 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 $version = q$Id: zero,v 1.2 2001/11/04 05:18:34 tramm Exp $;

Servo->new( 255, '/dev/ttyS0' )->set( 0 );

my $value = shift || 0;

$_->set( $value ) for map { Servo->new( $_ ) } 0..8;
