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

[Bokul]

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

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

[klem4]

Если конечно не обязательно работать с матрицой пикселов, то есть и стандартные методы изменение масштаба картинки, вот например :

uses WinCrt, Graph;


procedure GrInit;
var
  gd, gm, ge : integer;
begin

  gd := Detect;

  InitGraph(gd, gm, '');

  ge := GraphResult;

  if ge <> grOk then begin
    writeln('Graph Rrror : ', GraphErrorMsg(ge));
    readkey;
    Halt(1);
  end;

end;

procedure ScaleChange(scale : integer);
var
  A, B : Word;
begin
  GetAspectRatio(A, B);
  SetAspectRatio(A + scale, B + scale);
end;

procedure ShowImage;
begin
  Circle(GetMaxX div 2, GetMaxY div 2, 50);
end;

begin

  GrInit;

  ShowImage;

  Delay(2000); ScaleChange(-5000);  ClearDevice; ShowImage;
  Delay(2000); ScaleChange(+5000);  ClearDevice; ShowImage;

  readkey;

  CloseGraph;
  
end.