Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

Умный алгоритм уменьшения картинки.   Найти похожие ветки 

 
Blacki ©   (2002-07-30 12:40) [0]

Подскажите пожалуйста хороший алгоритм уменьшения картинки, чтобы он был быстрый, и качество было не намного хуже фотошоповского.


 
Skier ©   (2002-07-30 12:43) [1]

>Blacki
Обратись к разработчикам Фотошопа.
Они тебе обязательно помогут.


 
Opuhshii ©   (2002-07-30 12:43) [2]

"уменьшения картинки"?
геометрия (размеры высота - ширина) или размер данных,.?


 
Dmitry Toropov   (2002-07-30 13:39) [3]

TImage
Stretch:=true;


 
nick_sniper ©   (2002-07-30 22:22) [4]

Здесь есть прекрасній алгоритм, но придется покопаться в исходниках:
http://g32.org/g32/index.html


 
Jeer ©   (2002-07-30 23:10) [5]

>и качество было не намного хуже

На сколько и как это оценивать будем ?


 
Dmk ©   (2002-07-30 23:27) [6]

На тебе алгоритм уменьшения. Писал сам, ни у кого не содрал.
Уменьшает ровно в 2 раза. В 1.5 раза шустрее Shop"a. Ето смотря как ты его применишь.
Работает правда только для 32-ух бит.

Function Scale_x2_Bicubic_32_MMX(const NewData:fgInfo):fgInfo;
var EndX,EndY:LongWord;
yy:integer;
//...
DestLine:LongWord;
SourcePos:LongWord;
SourceOffs:LongWord;
DoubleWidth:LongWord;
AddonWidth:LongWord;
LineLenOfDIB:LongWord;
ScaledStartOffs:LongWord;


begin
EndY := NewData.fgHeight-1;
EndX := NewData.fgWidth;

LineLenOfDIB := NewData.fgScanLineLength;
AddonWidth := NewData.fgScanLineLength;
DoubleWidth := NewData.fgScanLineLength * 2; //


 
Dmk ©   (2002-07-31 00:55) [7]

А вот тебе еще один только для 1 битных картинок. Правда без MMX. Сам перепишешь. :)

Function Scale_x2_Bicubic_1(NewData:fgInfo):fgInfo;
var
EndX,EndY: DWord;
x,y: DWord;
DestLine: DWord;
ScaledStartOffs: DWord;
SourcePos: DWord;
SourceOffs: DWord;
DoubleWidth: DWord;
LineLenOfDIB: DWord;

begin
EndX := NewData.fgWidth shr 3 - 1;
EndY := NewData.fgHeight - 1;

LineLenOfDIB := NewData.fgRealImageWidth shr 3;
DoubleWidth := LineLenOfDIB shl 1;

SourcePos := NewData.fgAddress;
DestLine := NewData.fgAddress;
ScaledStartOffs := NewData.fgAddress;

//..
For y := 0 to EndY do
begin
SourceOffs := 0;
For x := 0 to EndX do
begin
asm
push esi
push edi
push ebx

mov esi,SourcePos
add esi,SourceOffs

xor bx,bx
Lodsw
xchg al,ah

shld bx,ax,1
rol ax,2
shld bx,ax,1
rol ax,2

shld bx,ax,1
rol ax,2

shld bx,ax,1
rol ax,2

shld bx,ax,1
rol ax,2

shld bx,ax,1
rol ax,2

shld bx,ax,1
rol ax,2

shld bx,ax,1
rol ax,2


add SourceOffs,2


mov edx,DestLine
mov [edx],bx
add DestLine,1

pop ebx
pop edi
pop esi
end;
end;

ScaledStartOffs := ScaledStartOffs + LineLenOfDIB;
DestLine := ScaledStartOffs;
Inc(SourcePos, DoubleWidth);
end;
//....
Result := NewData;
end;



 
Dmk ©   (2002-07-31 01:34) [8]

Еще есть для 8 бит :)



Страницы: 1 вся ветка

Текущий архив: 2002.08.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.024 c
3-35206
Друпи
2002-07-19 08:06
2002.08.12
Как мне сделать...


14-35452
Oleg_Gashev
2002-07-16 01:00
2002.08.12
Как нас учат


14-35412
AlexGreG
2002-07-04 07:24
2002.08.12
методы отображения записей пользователю


3-35134
RDA
2002-07-20 20:24
2002.08.12
Простой вопрос


1-35341
SS1
2002-07-29 12:05
2002.08.12
A call to an OS......