sub parse_geometry_string {
    my $geometry = shift;
    my @extends = (0, 0, 0, 0);
    if ($geometry =~ /([-+]?\d+)x([-+]?\d+)/) {
        $extends[GEOMETRY_WIDTH] = $1;
        $extends[GEOMETRY_HEIGHT] = $2;
    }
    if ($geometry =~ /[-+]([-+]?\d+)[-+]([-+]?\d+)/) {
        $extends[GEOMETRY_X] = $1;
        $extends[GEOMETRY_Y] = $2;
    }
    @extends;
}