#mplayer "$1" -nosound -vo null -ss $2 -frames 10 -vop cropdetect
mplayer "$1" -nosound -vo null -ss $2 -frames 10 -vop cropdetect 2> /dev/null | perl -ne '
if(/(\d+)\:(\d+)\:(\d+)\:(\d+)/) {
  ($x,$y,$a,$b)=($1-0,$2-0,$3+0,$4+0); 
  #print $x,":",$y,":",$a,":",$b,"\n";
  ($xx,$yy)=(int($x/16)*16,int($y/16)*16);
  $a=$a+sprintf"%.0f",(($x-$xx)/2);
  $b=$b+sprintf"%.0f",(($y-$yy)/2);
  print $xx,":",$yy,":",$a,":",$b,"\n";
}

' | tail -1 | perl -pe 's/\n//'
