Подготовка фотографий для отправки по почте 2

[Tin]

Была уже у меня такая программка, которая не нашла своего применения. Так зачем нужна эта, спросити Вы? Есть несколько пунктов, почему я её выкладываю здесь:
1. Уменьшение фотографий происходит без потери качества самих фотографий
2. Сорцы . Данная программка интересна только алгоритмом уменьшения картинок.

[alibek]

1. Уменьшение фотографий происходит без потери качества самих фотографий

Если под фотографиями подразумевается не векторные изображения, то это невозможно.

[Tin]

Я имел ввиду, что без всяких искажений и корозий... Типа сблюреная

[Kovu]

Частый OverFlow

[Tin]

В каком месте кода? И какой размер исходной картинки

[tyomitch]

Tin, у меня где-то лежал гораздо более опрятный (и, наверное, быстрый) ресэмплинг. (Кажется, даже биквадратный, хотя может и нет.)
И на vbAccelerator такой тоже лежал.

[Naked]

точно точно, оверфлоу
размер картинки не важен, беру любую

ошибка в PaintSmallPic3

Код: Выделить всё

Dim ReadyY() As Integer

DX = W - 1
EX = 0
DEX = NW - 1
ReDim Ready(0 To DEX)
For XP = 0 To DX
    Ready(XP2) = Ready(XP2) + 1
    EX = EX + DEX
    If 2 * EX >= DEX Then  'тута
        XP2 = XP2 + 1
        EX = EX - DX
    End If
Next