Select Code to Download

use Math::Trig qw(atan deg2rad rad2deg);

...
    # calculate the rest
    return rad2deg atan($y/$x);
}

sub _thick_line {
    my ($image, $thickness, $color, $x1, $y1, $x2, $y2) = @_;
...
        ],
    );
}