ZoneMinder
/
zoneminder
mirror of https://github.com/ZoneMinder/zoneminder.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Removed cap on speeds 

git-svn-id: http://svn.zoneminder.com/svn/zm/trunk@1891 e3e1d417-86f3-4887-817a-d78f3d33393f
pull/27/merge
stan 2006-03-24 11:06:25 +00:00
parent abf547959d
commit 227961486a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/zmcontrol-pelco-d.pl
View File

@ -261,7 +261,7 @@ sub stop
sub moveUp
{
Debug( "Move Up\n" );
my $speed = shift || 0x3f;
my $speed = shift;
my @msg = ( $sync, $address, 0x00, 0x08, 0x00, $speed );
sendCmd( \@msg );
if ( $autostop )
@ -274,7 +274,7 @@ sub moveUp
sub moveDown
{
Debug( "Move Down\n" );
my $speed = shift || 0x3f;
my $speed = shift;
my @msg = ( $sync, $address, 0x00, 0x10, 0x00, $speed );
sendCmd( \@msg );
if ( $autostop )
@ -287,7 +287,7 @@ sub moveDown
sub moveLeft
{
Debug( "Move Left\n" );
my $speed = shift || 0x3f;
my $speed = shift;
my @msg = ( $sync, $address, 0x00, 0x04, $speed, 0x00 );
sendCmd( \@msg );
if ( $autostop )
@ -300,7 +300,7 @@ sub moveLeft
sub moveRight
{
Debug( "Move Right\n" );
my $speed = shift || 0x3f;
my $speed = shift;
my @msg = ( $sync, $address, 0x00, 0x02, $speed, 0x00 );
sendCmd( \@msg );
if ( $autostop )