Added some small boring scripts and programs writen in few last years

[mirrors/Programs.git] / bash / x-mouse / xwarppointer / swap.pl

#!/usr/bin/perl

$half = 1600;

$line = `xwarppointer get`;
chomp $line;
@c = split(/ /, $line);

if ($c[0] > $half) {
    $c[0] -= $half;
} else {
    $c[0] += $half;
}

`xwarppointer abspos $c[0] .`;