Масштабирования растровых рисунков Опции

[Bokul]

Подскажите, пожалуйста, алгоритм масштабирования рисунков. Рисунок представляет собой двумерный массив, каждый елемент которого определяет цвет соответствующего пикселя на рисунке.

Сообщение отредактировано: Bokul - 22.08.2006 9:46

[Bokul]

С увеличениям в целое количество раз я вроде разобрался.
Вот такую операцию надо проделивать для каждого елемента массива( каждой точки начального рисунка).

Код

for y:=1 to zoomy do
      for x:=1 to zoomx do
          putpixel(zoomx*(i-1)+x,zoomy*(j-1)+y,pict[i,j]);

zoomx - во сколько надо увеличить по оси x
zoomy - во сколько надо увеличить по оси y
pict - изначальный рисунок

Вот полная процедура для увеличения рисунка.

procedure pzoom;
var i,j,y,x:byte;
begin
for i:=1 to delt do
     for j:=1 to delt do
          for y:=1 to zoomy do
               for x:=1 to zoomx do
                    putpixel(zoomx*(i-1)+x,zoomy*(j-1)+y,pict[i,j]);
end;

delt - размерность рисунка

Кому интересно проверить процедуру, может скачать прикрепленный файл с примером массива (рисунка) для использования, delt=50.


Но пока еще не понятно как увеличивать и уменьшать рисунок в не целое количество раз. Пока на ум приходит только такое: чтобы увеличить, например, в 2.5 раза надо сначала увеличить его в 5 раз, а потом уменьшить в 2.
Вроде правильно, завтра попробую реализовать. Если у кого то есть замечания или предложения, буду рад если Вы ими поделитесь.

Сообщение отредактировано: volvo - 2.11.2006 17:29