ThinkPad 健身操：通过翻转和摇动笔记本电脑控制应用程序

                
#!/usr/local/bin/perl -w
# hdapsGoogleEarth.pl - control google earth by the pitch and roll of a thinkpad
use strict;
use Time::HiRes  qw( usleep );
use X11::GUITest qw( :ALL );

my $threshMove = 3;    # lower limit indicating motion
my $shakMin = 20;      # amount of a shake required to indicate change in mode
my $timeThreshold = 1; # number of seconds between mode changes
my $maxMove = 25;      # maximum movement of mouse from center point
my @avgX = ();         # array of 10 recent hdaps X values for shake detection
my $lastTime = time;   # record time of last mode change
my $slptim = 25000;    # microseconds to pause between data reads
my $maxTip = 100;      # turn thinkpad on its' side to exit the program
my $restX = 0;         # `resting' positiong of X axis accelerometer
my $restY = 0;         # `resting' positiong of Y axis accelerometer
my @windows;           # array of window id's associated with google earth
my $hdapsFN = "/sys/devices/platform/hdaps/position"; # hdaps sensor

                
@windows = FindWindowLike("Google Earth");
die "No google earth windows found" unless( scalar(@windows) > 0 );
my ( $geX, $geY, $geW, $geH, undef, undef ) = GetWindowPos( $windows[0] );

# rose center is left 110 from geX+geW, down 135 from geY
# zoom center is left 22 from geX+geW, down 135 from geY
my $cntrCompX = ($geX + $geW) - 110;
my $cntrCompY = $geY + 135;

my $centerZoomX = ($geX + $geW) - 22;
my $centerZoomY = $geY + 135;

my $maxZoomTop    = $centerZoomY - $maxMove;
my $maxZoomBottom = $centerZoomY + $maxMove;

my $maxLeft   = $cntrCompX - $maxMove;
my $maxRight  = $cntrCompX + $maxMove;
my $maxTop    = $cntrCompY - $maxMove;
my $maxBottom = $cntrCompY + $maxMove;

my $mouseX = $cntrCompX;
my $mouseY = $cntrCompY;

my $controlMode = "movement";

MoveMouseAbs( $cntrCompX, $cntrCompY );
PressMouseButton M_LEFT;

($restX, $restY ) = readPosition();

                
sub readPosition {

  my ($posX, $posY) = "";

  open(FH," $hdapsFN") or die "can't open hdaps file";

    while(my $hdapsLine = <FH>)
    {
      $hdapsLine =~ s/(\(|\))//g; # remove parens
      ($posX, $posY) = split ",", $hdapsLine;
    }# while hdaps line read 

  close(FH);

  return( $posX, $posY );

}#readPosition

                
while(1)
{   
  # get accelerometer values
  my ($currX, $currY) = readPosition();
  $currX -= $restX;  # adjust for rest data state
  $currY -= $restY;
    
  # exit loop if ThinkPad tipped past 'exit' range
  last if( abs($currX) > $maxTip || abs($currY) > $maxTip );

  my $testX = abs($currX);  # keep original values for trending
  my $testY = abs($currY);
  
  if( $controlMode eq "movement" ) 
  {
    #  stay at the maximum distance to move even if severely tipped
    if( $testX > $maxMove ){ $testX = $maxMove }
    if( $testY > $maxMove ){ $testY = $maxMove }
      
    $mouseX = ($cntrCompX - $testX) if( $currX < -$threshMove );
    $mouseX = ($cntrCompX + $testX) if( $currX > $threshMove );
    $mouseY = ($cntrCompY - $testY) if( $currY < -$threshMove );
    $mouseY = ($cntrCompY + $testY) if( $currY > $threshMove );
    
    if( $mouseX < $maxLeft )  {  $mouseX = $maxLeft   }
    if( $mouseX > $maxRight ) {  $mouseX = $maxRight  }
    if( $mouseY < $maxTop )   {  $mouseY = $maxTop    }
    if( $mouseY > $maxBottom ){  $mouseY = $maxBottom }

    # reset the mouse to the center if the current reading is not past
    # the threshold
    $mouseY = $cntrCompY if( $currY < $threshMove && $currY > -$threshMove );
    $mouseX = $cntrCompX if( $currX < $threshMove && $currX > -$threshMove );

                
  }else
  {

    # zoom control - move up and down only
    $mouseY = ( $centerZoomY - $testY ) if( $currY < -$threshMove );
    $mouseY = ( $centerZoomY + $testY ) if( $currY > $threshMove  );
    if( $mouseY < $maxZoomTop ){  $mouseY = $maxZoomTop }
    if( $mouseY > $maxZoomBottom ){  $mouseY = $maxZoomBottom }

    $mouseX = $centerZoomX;
    $mouseY = $centerZoomY if( $currY < $threshMove && $currY > -$threshMove )

  }#if in zoom mode

  MoveMouseAbs( $mouseX, $mouseY);  # move the mouse after coordinates computed

                
  # mode switch by shaking, only if at least timeThreshold seconds have passed
  # since last mode switch
  if( shakeCheck( $currX ) == 1 && abs($lastTime - time) > $timeThreshold)
  {
    $lastTime = time;
    if( $controlMode eq "movement" )
    {
      $controlMode = "zoomRotate";
      $mouseX = $centerZoomX;
      $mouseY = $centerZoomY;
    }else
    {
      $controlMode = "movement";
      $mouseX = $cntrCompX;
      $mouseY = $cntrCompY;
    }#if movement or zoomRotate mode

    ReleaseMouseButton(M_LEFT) if( IsMouseButtonPressed(M_LEFT) );
    MoveMouseAbs( $mouseX, $mouseY);
    PressMouseButton( M_LEFT );

    print "$controlMode mode\n";

  }# if a large enough shake in X dimension detected

  usleep($slptim);

}#while

ReleaseMouseButton M_LEFT;   # let go of button on exit

                
sub shakeCheck
{
  my $xVal  = $_[0];
  push @avgX, $xVal;
  # build an array of 10 samples before attempting processing
  return(0) if( @avgX < 10 );

  my $currAvg = 0;
  for my $eachX ( @avgX ){ $currAvg += $eachX };
  $currAvg = $currAvg /10;
  shift @avgX;

  # if current value is a big enough deviation from average value
  return(1) if( abs($currAvg - $xVal) > $shakMin );
  return(0);

}#shakeCheck