#!/bin/sh
xdrag | perl -e '$_=<STDIN>;chomp;($id, $x0, $y0) = split / /, $_; $_=<STDIN>;chomp;($id2, $x1, $y1) = split / /, $_; $dx = $x1-$x0; $dy = $y1-$y0; print "$id $dx $dy\n"'