sub angdiff($$) {
    my ($a, $b) = @_;
    return abs($a - $b) % 180;
}