|
ru.algorithms- RU.ALGORITHMS ---------------------------------------------------------------- From : Dmitry Kalinin 2:5009/5.43 19 Aug 2001 09:03:28 To : Alexander Barychev Subject : Re^2: .jpg -------------------------------------------------------------------------------- 16 Авг 01 01:47, Alexander Barychev -> Vadim Guchenko: AB> *** Ответ на письмо из эхи MY.LOCAL (Моя локальная эха). AB> Понятно... Вопpос номеp 2. Как масштабиpовать bmp? Есть ли y AB> кого-нибyдь готовый исходник/алгоpитм? AB> И как кодиpовать/декодиpовать bmp -> jpg? Как всегда, по странике, линейно интреполирушеь ширину, по нужной ширине и то же самое с высотой u, v : Single; color : DWord; ... dxx = width / new_width; dyy = height / new_height xn := 0; yn := 0; for y := 0 to new_height - 1 do begin for x := 0 to new_width - 1 do begin color := bitmap[round(u), round(v)]; {Тут можно всунуть билинейную фильтрацию для более хорошого качества при масштабирование (только для увеличиния)} new_bitmap[x, y] := color; u := u + dxx; end; v := v + dyy; end; AB> Пpосто все это дело бyдет писаться на asp :-(, то есть нyжны AB> именно алгоpитмы... Dmitry ... "Дай мне сойти с ума, ведь с безумца и спроса нет" (c) 1991 Ария. Бесы --- 0f 0f 0e 0e 0e 0e 0c 0c 0a 09 09 06 03 00 00 00 ДВБВДБДДВДДДДДБДДДДД * Origin: bESt reGUARdS (2:5009/5.43) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.algorithms/27843b7f4a40.html, оценка из 5, голосов 10
|