Wallpapers[ru]

# Параметры вызова:
# img_w, img_h — габариты исходной картинки (pix)
# w_max, h_max — габариты миниатюры (предельные размеры)

# Формируем миниатюру, вписанную в холст размером [$args{w_max} x $args{h_max}]
# (при этом заданная миниатюра не может быть больше оригинальной картинки)
$w_tiny = $args{img_w} > $args{w_max}? $args{w_max}: $args{img_w};
$h_tiny = My_Output::my_round($args{img_h} / $args{img_w} * $w_tiny);
if ($h_tiny > $args{h_max}) {
$h_tiny = $args{h_max};
$w_tiny = My_Output::my_round($args{img_w} / $args{img_h} * $h_tiny);
}

# Если заданный юзером размер миниатюры не превышает габариты исходного изображения:
if ($w_tiny != $args{img_w} || $h_tiny != $args{img_h}) {

# Уменьшаем исходную картинку до размера миниатюры:
$imagemagick->Thumbnail(width => $w_tiny, height => $h_tiny);
}

Применительно к нашему случаю
# img_w, img_h — габариты исходной картинки (pix)
# w_max, h_max — предельные габариты отображаемой большой картинки (pix), вычисленные как часть окна браузера (урезанный fullscreen)
# $w_tiny и $h_tiny — окончательные размеры смасштабированного изображения, вписанного в w_max, h_max