forked from KolibriOS/kolibrios
2090 lines
64 KiB
NASM
2090 lines
64 KiB
NASM
;;================================================================================================;;
|
|
;;//// libimg.asm //// (c) mike.dld, 2007-2008, (c) diamond, 2009 ////////////////////////////////;;
|
|
;;================================================================================================;;
|
|
;; ;;
|
|
;; This file is part of Common development libraries (Libs-Dev). ;;
|
|
;; ;;
|
|
;; Libs-Dev is free software: you can redistribute it and/or modify it under the terms of the GNU ;;
|
|
;; Lesser General Public License as published by the Free Software Foundation, either version 2.1 ;;
|
|
;; of the License, or (at your option) any later version. ;;
|
|
;; ;;
|
|
;; Libs-Dev is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without ;;
|
|
;; even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;
|
|
;; Lesser General Public License for more details. ;;
|
|
;; ;;
|
|
;; You should have received a copy of the GNU Lesser General Public License along with Libs-Dev. ;;
|
|
;; If not, see <http://www.gnu.org/licenses/>. ;;
|
|
;; ;;
|
|
;;================================================================================================;;
|
|
|
|
|
|
format MS COFF
|
|
|
|
public @EXPORT as 'EXPORTS'
|
|
|
|
include '../../../../struct.inc'
|
|
include '../../../../proc32.inc'
|
|
include '../../../../macros.inc'
|
|
purge section,mov,add,sub
|
|
|
|
include 'libimg.inc'
|
|
|
|
section '.flat' code readable align 16
|
|
|
|
include 'bmp/bmp.asm'
|
|
include 'gif/gif.asm'
|
|
include 'jpeg/jpeg.asm'
|
|
include 'png/png.asm'
|
|
include 'tga/tga.asm'
|
|
include 'z80/z80.asm'
|
|
include 'ico_cur/ico_cur.asm'
|
|
include 'pcx/pcx.asm'
|
|
include 'xcf/xcf.asm'
|
|
|
|
;;================================================================================================;;
|
|
proc lib_init ;///////////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Library entry point (called after library load) ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> eax = pointer to memory allocation routine ;;
|
|
;> ebx = pointer to memory freeing routine ;;
|
|
;> ecx = pointer to memory reallocation routine ;;
|
|
;> edx = pointer to library loading routine ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = 1 (fail) / 0 (ok) (library initialization result) ;;
|
|
;;================================================================================================;;
|
|
mov [mem.alloc], eax
|
|
mov [mem.free], ebx
|
|
mov [mem.realloc], ecx
|
|
mov [dll.load], edx
|
|
|
|
call img.initialize.jpeg
|
|
|
|
xor eax, eax
|
|
cpuid
|
|
cmp ecx, 'ntel'
|
|
jnz @f
|
|
mov dword [img._.do_rgb.handlers + (Image.bpp15-1)*4], img._.do_rgb.bpp15.intel
|
|
mov dword [img._.do_rgb.handlers + (Image.bpp16-1)*4], img._.do_rgb.bpp16.intel
|
|
@@:
|
|
|
|
.ok: xor eax,eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.is_img _data, _length ;//////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< --- TBD --- ;;
|
|
;;================================================================================================;;
|
|
push ebx
|
|
mov ebx, img._.formats_table
|
|
@@: stdcall [ebx + FormatsTableEntry.Is], [_data], [_length]
|
|
or eax, eax
|
|
jnz @f
|
|
add ebx, sizeof.FormatsTableEntry
|
|
cmp dword[ebx], 0
|
|
jnz @b
|
|
xor eax, eax
|
|
@@: pop ebx
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.info _data, _length ;////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< --- TBD --- ;;
|
|
;;================================================================================================;;
|
|
xor eax, eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.from_file _filename ;////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = 0 / pointer to image ;;
|
|
;;================================================================================================;;
|
|
xor eax, eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.to_file _img, _filename ;////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = false / true ;;
|
|
;;================================================================================================;;
|
|
xor eax, eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.from_rgb _rgb_data ;/////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = 0 / pointer to image ;;
|
|
;;================================================================================================;;
|
|
xor eax, eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.to_rgb2 _img, _out ;/////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< --- TBD --- ;;
|
|
;;================================================================================================;;
|
|
push esi edi
|
|
mov esi, [_img]
|
|
stdcall img._.validate, esi
|
|
or eax, eax
|
|
jnz .ret
|
|
mov edi, [_out]
|
|
call img._.do_rgb
|
|
.ret:
|
|
pop edi esi
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.to_rgb _img ;////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = 0 / pointer to rgb_data (array of [rgb] triplets) ;;
|
|
;;================================================================================================;;
|
|
push esi edi
|
|
mov esi, [_img]
|
|
stdcall img._.validate, esi
|
|
or eax, eax
|
|
jnz .error
|
|
|
|
mov esi, [_img]
|
|
mov ecx, [esi + Image.Width]
|
|
imul ecx, [esi + Image.Height]
|
|
lea eax, [ecx * 3 + 4 * 3]
|
|
invoke mem.alloc, eax
|
|
or eax, eax
|
|
jz .error
|
|
|
|
mov edi, eax
|
|
push eax
|
|
mov eax, [esi + Image.Width]
|
|
stosd
|
|
mov eax, [esi + Image.Height]
|
|
stosd
|
|
call img._.do_rgb
|
|
pop eax
|
|
pop edi esi
|
|
ret
|
|
|
|
.error:
|
|
xor eax, eax
|
|
pop edi esi
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img._.do_rgb ;///////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< --- TBD --- ;;
|
|
;;================================================================================================;;
|
|
mov ecx, [esi + Image.Width]
|
|
imul ecx, [esi + Image.Height]
|
|
mov eax, [esi + Image.Type]
|
|
jmp dword [.handlers + (eax-1)*4]
|
|
|
|
align 16
|
|
.bpp8:
|
|
; 8 BPP -> 24 BPP
|
|
push ebx
|
|
mov ebx, [esi + Image.Palette]
|
|
mov esi, [esi + Image.Data]
|
|
sub ecx, 1
|
|
jz .bpp8.last
|
|
@@:
|
|
movzx eax, byte [esi]
|
|
add esi, 1
|
|
mov eax, [ebx + eax*4]
|
|
mov [edi], eax
|
|
add edi, 3
|
|
sub ecx, 1
|
|
jnz @b
|
|
.bpp8.last:
|
|
movzx eax, byte [esi]
|
|
mov eax, [ebx + eax*4]
|
|
mov [edi], ax
|
|
shr eax, 16
|
|
mov [edi+2], al
|
|
pop ebx
|
|
ret
|
|
|
|
; 15 BPP -> 24 BPP
|
|
.bpp15.intel:
|
|
push ebx ebp
|
|
sub ecx, 4
|
|
jb .bpp15.tail
|
|
align 16
|
|
.bpp15.intel.loop:
|
|
repeat 2
|
|
mov ebx, [esi]
|
|
mov al, [esi]
|
|
mov ah, [esi+1]
|
|
add esi, 4
|
|
and al, 0x1F
|
|
and ah, 0x1F shl 2
|
|
mov ebp, ebx
|
|
mov dl, al
|
|
mov dh, ah
|
|
shr al, 2
|
|
shr ah, 4
|
|
shl dl, 3
|
|
shl dh, 1
|
|
and ebp, 0x1F shl 5
|
|
add al, dl
|
|
add ah, dh
|
|
shr ebp, 2
|
|
mov [edi], al
|
|
mov [edi+2], ah
|
|
mov eax, ebx
|
|
mov ebx, ebp
|
|
shr eax, 16
|
|
shr ebx, 5
|
|
add ebx, ebp
|
|
mov ebp, eax
|
|
mov [edi+1], bl
|
|
and eax, (0x1F) or (0x1F shl 10)
|
|
and ebp, 0x1F shl 5
|
|
lea edx, [eax+eax]
|
|
shr al, 2
|
|
mov ebx, ebp
|
|
shr ah, 4
|
|
shl dl, 2
|
|
shr ebx, 2
|
|
shr ebp, 7
|
|
add al, dl
|
|
add ah, dh
|
|
mov [edi+3], al
|
|
add ebx, ebp
|
|
mov [edi+5], ah
|
|
mov [edi+4], bl
|
|
add edi, 6
|
|
end repeat
|
|
sub ecx, 4
|
|
jnb .bpp15.intel.loop
|
|
.bpp15.tail:
|
|
add ecx, 4
|
|
jz .bpp15.done
|
|
@@:
|
|
movzx eax, word [esi]
|
|
mov ebx, eax
|
|
add esi, 2
|
|
and eax, (0x1F) or (0x1F shl 10)
|
|
and ebx, 0x1F shl 5
|
|
lea edx, [eax+eax]
|
|
shr al, 2
|
|
mov ebp, ebx
|
|
shr ebx, 2
|
|
shr ah, 4
|
|
shl dl, 2
|
|
shr ebp, 7
|
|
add eax, edx
|
|
add ebx, ebp
|
|
mov [edi], al
|
|
mov [edi+1], bl
|
|
mov [edi+2], ah
|
|
add edi, 3
|
|
sub ecx, 1
|
|
jnz @b
|
|
.bpp15.done:
|
|
pop ebp ebx
|
|
ret
|
|
|
|
.bpp15.amd:
|
|
push ebx ebp
|
|
sub ecx, 4
|
|
jb .bpp15.tail
|
|
align 16
|
|
.bpp15.amd.loop:
|
|
repeat 4
|
|
if (% mod 2) = 1
|
|
mov eax, dword [esi]
|
|
mov ebx, dword [esi]
|
|
else
|
|
movzx eax, word [esi]
|
|
mov ebx, eax
|
|
end if
|
|
add esi, 2
|
|
and eax, (0x1F) or (0x1F shl 10)
|
|
and ebx, 0x1F shl 5
|
|
lea edx, [eax+eax]
|
|
shr al, 2
|
|
mov ebp, ebx
|
|
shr ebx, 2
|
|
shr ah, 4
|
|
shl dl, 2
|
|
shr ebp, 7
|
|
add eax, edx
|
|
add ebx, ebp
|
|
mov [edi], al
|
|
mov [edi+1], bl
|
|
mov [edi+2], ah
|
|
add edi, 3
|
|
end repeat
|
|
sub ecx, 4
|
|
jnb .bpp15.amd.loop
|
|
jmp .bpp15.tail
|
|
|
|
; 16 BPP -> 24 BPP
|
|
.bpp16.intel:
|
|
push ebx ebp
|
|
sub ecx, 4
|
|
jb .bpp16.tail
|
|
align 16
|
|
.bpp16.intel.loop:
|
|
repeat 2
|
|
mov ebx, [esi]
|
|
mov al, [esi]
|
|
mov ah, [esi+1]
|
|
add esi, 4
|
|
and al, 0x1F
|
|
and ah, 0x1F shl 3
|
|
mov ebp, ebx
|
|
mov dl, al
|
|
mov dh, ah
|
|
shr al, 2
|
|
shr ah, 5
|
|
shl dl, 3
|
|
and ebp, 0x3F shl 5
|
|
add al, dl
|
|
add ah, dh
|
|
shr ebp, 3
|
|
mov [edi], al
|
|
mov [edi+2], ah
|
|
mov eax, ebx
|
|
mov ebx, ebp
|
|
shr eax, 16
|
|
shr ebx, 6
|
|
add ebx, ebp
|
|
mov ebp, eax
|
|
mov [edi+1], bl
|
|
and eax, (0x1F) or (0x1F shl 11)
|
|
and ebp, 0x3F shl 5
|
|
mov edx, eax
|
|
shr al, 2
|
|
mov ebx, ebp
|
|
shr ah, 5
|
|
shl dl, 3
|
|
shr ebx, 3
|
|
shr ebp, 9
|
|
add al, dl
|
|
add ah, dh
|
|
mov [edi+3], al
|
|
add ebx, ebp
|
|
mov [edi+5], ah
|
|
mov [edi+4], bl
|
|
add edi, 6
|
|
end repeat
|
|
sub ecx, 4
|
|
jnb .bpp16.intel.loop
|
|
.bpp16.tail:
|
|
add ecx, 4
|
|
jz .bpp16.done
|
|
@@:
|
|
movzx eax, word [esi]
|
|
mov ebx, eax
|
|
add esi, 2
|
|
and eax, (0x1F) or (0x1F shl 11)
|
|
and ebx, 0x3F shl 5
|
|
mov edx, eax
|
|
shr al, 2
|
|
mov ebp, ebx
|
|
shr ebx, 3
|
|
shr ah, 5
|
|
shl dl, 3
|
|
shr ebp, 9
|
|
add eax, edx
|
|
add ebx, ebp
|
|
mov [edi], al
|
|
mov [edi+1], bl
|
|
mov [edi+2], ah
|
|
add edi, 3
|
|
sub ecx, 1
|
|
jnz @b
|
|
.bpp16.done:
|
|
pop ebp ebx
|
|
ret
|
|
|
|
.bpp16.amd:
|
|
push ebx ebp
|
|
sub ecx, 4
|
|
jb .bpp16.tail
|
|
align 16
|
|
.bpp16.amd.loop:
|
|
repeat 4
|
|
if (% mod 2) = 1
|
|
mov eax, dword [esi]
|
|
mov ebx, dword [esi]
|
|
else
|
|
movzx eax, word [esi]
|
|
mov ebx, eax
|
|
end if
|
|
add esi, 2
|
|
and eax, (0x1F) or (0x1F shl 11)
|
|
and ebx, 0x3F shl 5
|
|
mov edx, eax
|
|
shr al, 2
|
|
mov ebp, ebx
|
|
shr ebx, 3
|
|
shr ah, 5
|
|
shl dl, 3
|
|
shr ebp, 9
|
|
add eax, edx
|
|
add ebx, ebp
|
|
mov [edi], al
|
|
mov [edi+1], bl
|
|
mov [edi+2], ah
|
|
add edi, 3
|
|
end repeat
|
|
sub ecx, 4
|
|
jnb .bpp16.amd.loop
|
|
jmp .bpp16.tail
|
|
|
|
align 16
|
|
.bpp24:
|
|
; 24 BPP -> 24 BPP
|
|
lea ecx, [ecx*3 + 3]
|
|
mov esi, [esi + Image.Data]
|
|
shr ecx, 2
|
|
rep movsd
|
|
ret
|
|
|
|
align 16
|
|
.bpp32:
|
|
; 32 BPP -> 24 BPP
|
|
mov esi, [esi + Image.Data]
|
|
|
|
@@:
|
|
mov eax, [esi]
|
|
mov [edi], ax
|
|
shr eax, 16
|
|
mov [edi+2], al
|
|
add esi, 4
|
|
add edi, 3
|
|
sub ecx, 1
|
|
jnz @b
|
|
|
|
@@:
|
|
ret
|
|
|
|
align 16
|
|
.bpp1:
|
|
push ebx edx
|
|
mov ebx, esi
|
|
mov esi, [ebx + Image.Data]
|
|
mov ecx, [ebx + Image.Height]
|
|
.bpp1.pre:
|
|
mov edx, [ebx + Image.Width]
|
|
mov eax, 7
|
|
.bpp1.begin:
|
|
push ecx esi
|
|
xor cx, cx
|
|
bt [esi], eax
|
|
setc cl
|
|
mov esi, [ebx + Image.Palette]
|
|
jcxz @f
|
|
add esi, 4
|
|
@@:
|
|
mov ecx, 3
|
|
cld
|
|
rep movsb
|
|
pop esi ecx
|
|
dec edx
|
|
jz .bpp1.end_line
|
|
dec eax
|
|
jns .bpp1.begin
|
|
mov eax, 7
|
|
inc esi
|
|
jmp .bpp1.begin
|
|
|
|
.bpp1.end_line:
|
|
dec ecx
|
|
jz .bpp1.quit
|
|
inc esi
|
|
jmp .bpp1.pre
|
|
|
|
.bpp1.quit:
|
|
pop edx ebx
|
|
ret
|
|
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.decode _data, _length, _options ;////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = 0 / pointer to image ;;
|
|
;;================================================================================================;;
|
|
push ebx
|
|
mov ebx, img._.formats_table
|
|
@@: stdcall [ebx + FormatsTableEntry.Is], [_data], [_length]
|
|
or eax, eax
|
|
jnz @f
|
|
add ebx, sizeof.FormatsTableEntry
|
|
cmp dword[ebx], eax ;0
|
|
jnz @b
|
|
pop ebx
|
|
ret
|
|
@@: mov eax, [ebx + FormatsTableEntry.Decode]
|
|
pop ebx
|
|
leave
|
|
jmp eax
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.encode _img, _p_length, _options ;///////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = 0 / pointer to encoded data ;;
|
|
;< [_p_length] = data length ;;
|
|
;;================================================================================================;;
|
|
xor eax, eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.create _width, _height, _type ;//////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = 0 / pointer to image ;;
|
|
;;================================================================================================;;
|
|
push ecx
|
|
|
|
stdcall img._.new
|
|
or eax, eax
|
|
jz .error
|
|
|
|
mov ecx, [_type]
|
|
mov [eax + Image.Type], ecx
|
|
|
|
push eax
|
|
|
|
stdcall img._.resize_data, eax, [_width], [_height]
|
|
or eax, eax
|
|
jz .error.2
|
|
|
|
pop eax
|
|
jmp .ret
|
|
|
|
.error.2:
|
|
; pop eax
|
|
stdcall img._.delete; eax
|
|
xor eax, eax
|
|
|
|
.error:
|
|
.ret:
|
|
pop ecx
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.destroy.layer _img ;/////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = false / true ;;
|
|
;;================================================================================================;;
|
|
mov eax, [_img]
|
|
mov edx, [eax + Image.Previous]
|
|
test edx, edx
|
|
jz @f
|
|
push [eax + Image.Next]
|
|
pop [edx + Image.Next]
|
|
@@:
|
|
mov edx, [eax + Image.Next]
|
|
test edx, edx
|
|
jz @f
|
|
push [eax + Image.Previous]
|
|
pop [edx + Image.Previous]
|
|
@@:
|
|
stdcall img._.delete, eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.destroy _img ;///////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = false / true ;;
|
|
;;================================================================================================;;
|
|
push 1
|
|
mov eax, [_img]
|
|
mov eax, [eax + Image.Previous]
|
|
.destroy_prev_loop:
|
|
test eax, eax
|
|
jz .destroy_prev_done
|
|
pushd [eax + Image.Previous]
|
|
stdcall img._.delete, eax
|
|
test eax, eax
|
|
jnz @f
|
|
mov byte [esp+4], 0
|
|
@@:
|
|
pop eax
|
|
jmp .destroy_prev_loop
|
|
.destroy_prev_done:
|
|
mov eax, [_img]
|
|
.destroy_next_loop:
|
|
pushd [eax + Image.Next]
|
|
stdcall img._.delete, eax
|
|
test eax, eax
|
|
jnz @f
|
|
mov byte [esp+4], 0
|
|
@@:
|
|
pop eax
|
|
test eax, eax
|
|
jnz .destroy_next_loop
|
|
pop eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.count _img ;/////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Get number of images in the list (e.g. in animated GIF file) ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> _img = pointer to image ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = -1 (fail) / >0 (ok) ;;
|
|
;;================================================================================================;;
|
|
push ecx edx
|
|
mov edx, [_img]
|
|
stdcall img._.validate, edx
|
|
or eax, eax
|
|
jnz .error
|
|
|
|
@@: mov eax, [edx + Image.Previous]
|
|
or eax, eax
|
|
jz @f
|
|
mov edx, eax
|
|
jmp @b
|
|
|
|
@@: xor ecx, ecx
|
|
@@: inc ecx
|
|
mov eax, [edx + Image.Next]
|
|
or eax, eax
|
|
jz .exit
|
|
mov edx, eax
|
|
jmp @b
|
|
|
|
.exit:
|
|
mov eax, ecx
|
|
pop edx ecx
|
|
ret
|
|
|
|
.error:
|
|
or eax, -1
|
|
pop edx ecx
|
|
ret
|
|
endp
|
|
|
|
;;//// image processing //////////////////////////////////////////////////////////////////////////;;
|
|
|
|
;;================================================================================================;;
|
|
proc img.lock_bits _img, _start_line, _end_line ;/////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = 0 / pointer to bits ;;
|
|
;;================================================================================================;;
|
|
xor eax, eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.unlock_bits _img, _lock ;////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = false / true ;;
|
|
;;================================================================================================;;
|
|
xor eax, eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.flip.layer _img, _flip_kind ;////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Flip image layer ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> _img = pointer to image ;;
|
|
;> _flip_kind = one of FLIP_* constants ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = false / true ;;
|
|
;;================================================================================================;;
|
|
locals
|
|
scanline_len dd ?
|
|
endl
|
|
|
|
push ebx esi edi
|
|
mov ebx, [_img]
|
|
stdcall img._.validate, ebx
|
|
or eax, eax
|
|
jnz .error
|
|
|
|
mov ecx, [ebx + Image.Height]
|
|
mov eax, [ebx + Image.Width]
|
|
call img._.get_scanline_len
|
|
mov [scanline_len], eax
|
|
|
|
test [_flip_kind], FLIP_VERTICAL
|
|
jz .dont_flip_vert
|
|
|
|
imul eax, ecx
|
|
sub eax, [scanline_len]
|
|
shr ecx, 1
|
|
mov esi, [ebx + Image.Data]
|
|
lea edi, [esi + eax]
|
|
|
|
.next_line_vert:
|
|
push ecx
|
|
|
|
mov ecx, [scanline_len]
|
|
push ecx
|
|
shr ecx, 2
|
|
@@: mov eax, [esi]
|
|
xchg eax, [edi]
|
|
mov [esi], eax
|
|
add esi, 4
|
|
add edi, 4
|
|
sub ecx, 1
|
|
jnz @b
|
|
pop ecx
|
|
and ecx, 3
|
|
jz .cont_line_vert
|
|
@@:
|
|
mov al, [esi]
|
|
xchg al, [edi]
|
|
mov [esi], al
|
|
add esi, 1
|
|
add edi, 1
|
|
dec ecx
|
|
jnz @b
|
|
.cont_line_vert:
|
|
|
|
pop ecx
|
|
mov eax, [scanline_len]
|
|
shl eax, 1
|
|
sub edi, eax
|
|
dec ecx
|
|
jnz .next_line_vert
|
|
|
|
.dont_flip_vert:
|
|
|
|
test [_flip_kind], FLIP_HORIZONTAL
|
|
jz .exit
|
|
|
|
mov ecx, [ebx + Image.Height]
|
|
mov eax, [ebx + Image.Type]
|
|
mov esi, [ebx + Image.Data]
|
|
mov edi, [scanline_len]
|
|
add edi, esi
|
|
jmp dword [.handlers_horz + (eax-1)*4]
|
|
|
|
.bpp32_horz:
|
|
sub edi, 4
|
|
|
|
.next_line_horz:
|
|
push ecx esi edi
|
|
|
|
mov ecx, [scanline_len]
|
|
shr ecx, 3
|
|
@@: mov eax, [esi]
|
|
xchg eax, [edi]
|
|
mov [esi], eax
|
|
add esi, 4
|
|
add edi, -4
|
|
sub ecx, 1
|
|
jnz @b
|
|
|
|
pop edi esi ecx
|
|
add esi, [scanline_len]
|
|
add edi, [scanline_len]
|
|
dec ecx
|
|
jnz .next_line_horz
|
|
jmp .exit
|
|
|
|
.bpp1x_horz:
|
|
sub edi, 2
|
|
.next_line_horz1x:
|
|
push ecx esi edi
|
|
|
|
mov ecx, [ebx + Image.Width]
|
|
@@: mov ax, [esi]
|
|
mov dx, [edi]
|
|
mov [edi], ax
|
|
mov [esi], dx
|
|
add esi, 2
|
|
sub edi, 2
|
|
sub ecx, 2
|
|
ja @b
|
|
|
|
pop edi esi ecx
|
|
add esi, [scanline_len]
|
|
add edi, [scanline_len]
|
|
dec ecx
|
|
jnz .next_line_horz1x
|
|
jmp .exit
|
|
|
|
.bpp8_horz:
|
|
dec edi
|
|
.next_line_horz8:
|
|
push ecx esi edi
|
|
|
|
mov ecx, [scanline_len]
|
|
shr ecx, 1
|
|
@@: mov al, [esi]
|
|
mov dl, [edi]
|
|
mov [edi], al
|
|
mov [esi], dl
|
|
add esi, 1
|
|
sub edi, 1
|
|
sub ecx, 1
|
|
jnz @b
|
|
|
|
pop edi esi ecx
|
|
add esi, [scanline_len]
|
|
add edi, [scanline_len]
|
|
dec ecx
|
|
jnz .next_line_horz8
|
|
jmp .exit
|
|
|
|
.bpp24_horz:
|
|
sub edi, 3
|
|
.next_line_horz24:
|
|
push ecx esi edi
|
|
|
|
mov ecx, [ebx + Image.Width]
|
|
@@:
|
|
mov al, [esi]
|
|
mov dl, [edi]
|
|
mov [edi], al
|
|
mov [esi], dl
|
|
mov al, [esi+1]
|
|
mov dl, [edi+1]
|
|
mov [edi+1], al
|
|
mov [esi+1], dl
|
|
mov al, [esi+2]
|
|
mov dl, [edi+2]
|
|
mov [edi+2], al
|
|
mov [esi+2], dl
|
|
add esi, 3
|
|
sub edi, 3
|
|
sub ecx, 2
|
|
ja @b
|
|
|
|
pop edi esi ecx
|
|
add esi, [scanline_len]
|
|
add edi, [scanline_len]
|
|
dec ecx
|
|
jnz .next_line_horz24
|
|
jmp .exit
|
|
|
|
.bpp1_horz:
|
|
push eax edx
|
|
mov edi, [scanline_len]
|
|
mov edx, [ebx+Image.Width]
|
|
and edx, 0x07
|
|
neg dl
|
|
add dl, 8
|
|
and dl, 0x07 ; clear if cl=8
|
|
.bpp1_horz.begin:
|
|
push ebx ecx edx esi
|
|
mov eax, 7
|
|
add edi, esi
|
|
sub edi, 1
|
|
mov ebx, [ebx+Image.Width]
|
|
shr ebx, 1
|
|
.bpp1_horz.flip_line:
|
|
xor ecx, ecx
|
|
bt [esi], eax
|
|
setc cl
|
|
bt [edi], edx
|
|
jc .bpp1_horz.one
|
|
.bpp1_horz.zero:
|
|
btr [esi], eax
|
|
jmp @f
|
|
.bpp1_horz.one:
|
|
bts [esi], eax
|
|
@@:
|
|
jecxz .bpp1_horz.reset
|
|
.bpp1_horz.set:
|
|
bts [edi], edx
|
|
jmp @f
|
|
.bpp1_horz.reset:
|
|
btr [edi], edx
|
|
@@:
|
|
inc edx
|
|
and edx, 0x07
|
|
jnz @f
|
|
dec edi
|
|
@@:
|
|
dec eax
|
|
jns @f
|
|
mov eax, 7
|
|
inc esi
|
|
@@:
|
|
dec ebx
|
|
jnz .bpp1_horz.flip_line
|
|
|
|
pop esi edx ecx ebx
|
|
add esi, [scanline_len]
|
|
mov edi, [scanline_len]
|
|
dec ecx
|
|
jnz .bpp1_horz.begin
|
|
pop edx eax
|
|
|
|
.exit:
|
|
xor eax, eax
|
|
inc eax
|
|
pop edi esi ebx
|
|
ret
|
|
|
|
.error:
|
|
xor eax, eax
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.flip _img, _flip_kind ;//////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Flip all layers of image ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> _img = pointer to image ;;
|
|
;> _flip_kind = one of FLIP_* constants ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = false / true ;;
|
|
;;================================================================================================;;
|
|
push 1
|
|
mov ebx, [_img]
|
|
@@:
|
|
mov eax, [ebx + Image.Previous]
|
|
test eax, eax
|
|
jz .loop
|
|
mov ebx, eax
|
|
jmp @b
|
|
.loop:
|
|
stdcall img.flip.layer, ebx, [_flip_kind]
|
|
test eax, eax
|
|
jnz @f
|
|
mov byte [esp], 0
|
|
@@:
|
|
mov ebx, [ebx + Image.Next]
|
|
test ebx, ebx
|
|
jnz .loop
|
|
pop eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.rotate.layer _img, _rotate_kind ;////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Rotate image layer ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> _img = pointer to image ;;
|
|
;> _rotate_kind = one of ROTATE_* constants ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = false / true ;;
|
|
;;================================================================================================;;
|
|
locals
|
|
scanline_len_old dd ?
|
|
scanline_len_new dd ?
|
|
scanline_pixels_new dd ?
|
|
line_buffer dd ?
|
|
pixels_ptr dd ?
|
|
endl
|
|
|
|
mov [line_buffer], 0
|
|
|
|
push ebx esi edi
|
|
mov ebx, [_img]
|
|
stdcall img._.validate, ebx
|
|
or eax, eax
|
|
jnz .error
|
|
|
|
cmp [_rotate_kind], ROTATE_90_CCW
|
|
je .rotate_ccw_low
|
|
cmp [_rotate_kind], ROTATE_90_CW
|
|
je .rotate_cw_low
|
|
cmp [_rotate_kind], ROTATE_180
|
|
je .flip
|
|
jmp .exit
|
|
|
|
.rotate_ccw_low:
|
|
mov eax, [ebx + Image.Height]
|
|
mov [scanline_pixels_new], eax
|
|
call img._.get_scanline_len
|
|
mov [scanline_len_new], eax
|
|
|
|
invoke mem.alloc, eax
|
|
or eax, eax
|
|
jz .error
|
|
mov [line_buffer], eax
|
|
|
|
mov eax, [ebx + Image.Width]
|
|
mov ecx, eax
|
|
call img._.get_scanline_len
|
|
mov [scanline_len_old], eax
|
|
|
|
mov eax, [scanline_len_new]
|
|
imul eax, ecx
|
|
add eax, [ebx + Image.Data]
|
|
mov [pixels_ptr], eax
|
|
|
|
cmp [ebx + Image.Type], Image.bpp1
|
|
jz .rotate_ccw1
|
|
cmp [ebx + Image.Type], Image.bpp8
|
|
jz .rotate_ccw8
|
|
cmp [ebx + Image.Type], Image.bpp24
|
|
jz .rotate_ccw24
|
|
cmp [ebx + Image.Type], Image.bpp32
|
|
jz .rotate_ccw32
|
|
|
|
.next_column_ccw_low1x:
|
|
dec ecx
|
|
js .exchange_dims
|
|
push ecx
|
|
|
|
mov edx, [scanline_len_old]
|
|
add [scanline_len_old], -2
|
|
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [ebx + Image.Data]
|
|
mov edi, [line_buffer]
|
|
@@: mov ax, [esi]
|
|
mov [edi], ax
|
|
add esi, edx
|
|
add edi, 2
|
|
sub ecx, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_pixels_new]
|
|
mov edi, [ebx + Image.Data]
|
|
lea esi, [edi + 2]
|
|
mov edx, [scanline_len_old]
|
|
@@: mov ecx, edx
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, edx
|
|
and ecx, 3
|
|
rep movsb
|
|
add esi, 1
|
|
sub eax, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_len_new]
|
|
sub [pixels_ptr], eax
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [line_buffer]
|
|
mov edi, [pixels_ptr]
|
|
mov edx, ecx
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, edx
|
|
and ecx, 3
|
|
rep movsb
|
|
|
|
pop ecx
|
|
jmp .next_column_ccw_low1x
|
|
|
|
.rotate_ccw32:
|
|
.next_column_ccw_low:
|
|
dec ecx
|
|
js .exchange_dims
|
|
push ecx
|
|
|
|
mov edx, [scanline_len_old]
|
|
add [scanline_len_old], -4
|
|
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [ebx + Image.Data]
|
|
mov edi, [line_buffer]
|
|
@@: mov eax, [esi]
|
|
stosd
|
|
add esi, edx
|
|
dec ecx
|
|
jnz @b
|
|
|
|
mov eax, [scanline_pixels_new]
|
|
mov edi, [ebx + Image.Data]
|
|
lea esi, [edi + 4]
|
|
mov edx, [scanline_len_old]
|
|
shr edx, 2
|
|
@@: mov ecx, edx
|
|
rep movsd
|
|
add esi, 4
|
|
dec eax
|
|
jnz @b
|
|
|
|
mov eax, [scanline_len_new]
|
|
sub [pixels_ptr], eax
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [line_buffer]
|
|
mov edi, [pixels_ptr]
|
|
rep movsd
|
|
|
|
pop ecx
|
|
jmp .next_column_ccw_low
|
|
|
|
.rotate_ccw8:
|
|
.next_column_ccw_low8:
|
|
dec ecx
|
|
js .exchange_dims
|
|
push ecx
|
|
|
|
mov edx, [scanline_len_old]
|
|
add [scanline_len_old], -1
|
|
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [ebx + Image.Data]
|
|
mov edi, [line_buffer]
|
|
@@: mov al, [esi]
|
|
mov [edi], al
|
|
add esi, edx
|
|
add edi, 1
|
|
sub ecx, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_pixels_new]
|
|
mov edi, [ebx + Image.Data]
|
|
lea esi, [edi + 1]
|
|
mov edx, [scanline_len_old]
|
|
@@: mov ecx, edx
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, edx
|
|
and ecx, 3
|
|
rep movsb
|
|
add esi, 1
|
|
sub eax, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_len_new]
|
|
sub [pixels_ptr], eax
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [line_buffer]
|
|
mov edi, [pixels_ptr]
|
|
mov edx, ecx
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, edx
|
|
and ecx, 3
|
|
rep movsb
|
|
|
|
pop ecx
|
|
jmp .next_column_ccw_low8
|
|
|
|
.rotate_ccw24:
|
|
.next_column_ccw_low24:
|
|
dec ecx
|
|
js .exchange_dims
|
|
push ecx
|
|
|
|
mov edx, [scanline_len_old]
|
|
add [scanline_len_old], -3
|
|
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [ebx + Image.Data]
|
|
mov edi, [line_buffer]
|
|
@@: mov al, [esi]
|
|
mov [edi], al
|
|
mov al, [esi+1]
|
|
mov [edi+1], al
|
|
mov al, [esi+2]
|
|
mov [edi+2], al
|
|
add esi, edx
|
|
add edi, 3
|
|
sub ecx, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_pixels_new]
|
|
mov edi, [ebx + Image.Data]
|
|
lea esi, [edi + 3]
|
|
mov edx, [scanline_len_old]
|
|
@@: mov ecx, edx
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, edx
|
|
and ecx, 3
|
|
rep movsb
|
|
add esi, 3
|
|
sub eax, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_len_new]
|
|
sub [pixels_ptr], eax
|
|
mov ecx, eax
|
|
mov esi, [line_buffer]
|
|
mov edi, [pixels_ptr]
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, eax
|
|
and ecx, 3
|
|
rep movsb
|
|
|
|
pop ecx
|
|
jmp .next_column_ccw_low24
|
|
|
|
.rotate_ccw1:
|
|
push ecx edx
|
|
|
|
mov eax, [ebx+Image.Height]
|
|
add eax, 7
|
|
shr eax, 3
|
|
mul word[ebx+Image.Width]
|
|
shl eax, 16
|
|
shrd eax, edx, 16
|
|
push eax ; save new data size
|
|
|
|
invoke mem.alloc, eax
|
|
or eax, eax
|
|
jz .error
|
|
push eax ; save pointer to new data
|
|
|
|
mov ecx, [ebx+Image.Width]
|
|
and ecx, 0x07
|
|
neg cl
|
|
add cl, 8
|
|
and cl, 0x07 ; clear if cl=8
|
|
|
|
mov esi, eax
|
|
mov edi, [ebx+Image.Data]
|
|
mov eax, 7
|
|
mov edx, [scanline_len_old]
|
|
dec edx
|
|
add edi, edx
|
|
|
|
.rotate_ccw1.begin:
|
|
bt [edi], ecx
|
|
jc .rotate_ccw1.one
|
|
.rotate_ccw1.zero:
|
|
btr [esi], eax
|
|
jmp @f
|
|
.rotate_ccw1.one:
|
|
bts [esi], eax
|
|
@@:
|
|
add edi, [scanline_len_old]
|
|
dec [scanline_pixels_new]
|
|
jz .rotate_ccw1.end_of_line
|
|
dec eax
|
|
jns .rotate_ccw1.begin
|
|
mov eax, 7
|
|
inc esi
|
|
jmp .rotate_ccw1.begin
|
|
|
|
.rotate_ccw1.end_of_line:
|
|
inc esi
|
|
mov eax, 7
|
|
mov edi, [ebx+Image.Height]
|
|
mov [scanline_pixels_new], edi
|
|
inc ecx
|
|
and cl, 0x07
|
|
jz @f
|
|
mov edi, [ebx+Image.Data]
|
|
add edi, edx
|
|
jmp .rotate_ccw1.begin
|
|
@@:
|
|
dec edx
|
|
js .rotate_ccw1.quit
|
|
mov edi, [ebx+Image.Data]
|
|
add edi, edx
|
|
jmp .rotate_ccw1.begin
|
|
|
|
.rotate_ccw1.quit:
|
|
pop eax ; get pointer to new data
|
|
mov esi, eax
|
|
mov edi, [ebx + Image.Data]
|
|
pop ecx ; get new data size
|
|
rep movsb
|
|
|
|
invoke mem.free, eax
|
|
|
|
pop edx ecx
|
|
jmp .exchange_dims
|
|
|
|
.rotate_cw_low:
|
|
mov eax, [ebx + Image.Height]
|
|
mov [scanline_pixels_new], eax
|
|
call img._.get_scanline_len
|
|
mov [scanline_len_new], eax
|
|
|
|
invoke mem.alloc, eax
|
|
or eax, eax
|
|
jz .error
|
|
mov [line_buffer], eax
|
|
|
|
mov eax, [ebx + Image.Width]
|
|
mov ecx, eax
|
|
call img._.get_scanline_len
|
|
mov [scanline_len_old], eax
|
|
|
|
mov eax, [scanline_len_new]
|
|
imul eax, ecx
|
|
add eax, [ebx + Image.Data]
|
|
mov [pixels_ptr], eax
|
|
|
|
cmp [ebx + Image.Type], Image.bpp1
|
|
jz .rotate_cw1
|
|
cmp [ebx + Image.Type], Image.bpp8
|
|
jz .rotate_cw8
|
|
cmp [ebx + Image.Type], Image.bpp24
|
|
jz .rotate_cw24
|
|
cmp [ebx + Image.Type], Image.bpp32
|
|
jz .rotate_cw32
|
|
|
|
.next_column_cw_low1x:
|
|
dec ecx
|
|
js .exchange_dims
|
|
push ecx
|
|
|
|
mov edx, [scanline_len_old]
|
|
add [scanline_len_old], -2
|
|
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [pixels_ptr]
|
|
add esi, -2
|
|
mov edi, [line_buffer]
|
|
@@: mov ax, [esi]
|
|
mov [edi], ax
|
|
sub esi, edx
|
|
add edi, 2
|
|
sub ecx, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_pixels_new]
|
|
dec eax
|
|
mov edi, [ebx + Image.Data]
|
|
add edi, [scanline_len_old]
|
|
lea esi, [edi + 2]
|
|
mov edx, [scanline_len_old]
|
|
@@: mov ecx, edx
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, edx
|
|
and ecx, 3
|
|
rep movsb
|
|
add esi, 3
|
|
sub eax, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_len_new]
|
|
sub [pixels_ptr], eax
|
|
mov ecx, eax
|
|
mov esi, [line_buffer]
|
|
mov edi, [pixels_ptr]
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, eax
|
|
and ecx, 3
|
|
rep movsb
|
|
|
|
pop ecx
|
|
jmp .next_column_cw_low1x
|
|
|
|
.rotate_cw32:
|
|
.next_column_cw_low:
|
|
dec ecx
|
|
js .exchange_dims
|
|
push ecx
|
|
|
|
mov edx, [scanline_len_old]
|
|
add [scanline_len_old], -4
|
|
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [pixels_ptr]
|
|
add esi, -4
|
|
mov edi, [line_buffer]
|
|
@@: mov eax, [esi]
|
|
stosd
|
|
sub esi, edx
|
|
dec ecx
|
|
jnz @b
|
|
|
|
mov eax, [scanline_pixels_new]
|
|
dec eax
|
|
mov edi, [ebx + Image.Data]
|
|
add edi, [scanline_len_old]
|
|
lea esi, [edi + 4]
|
|
mov edx, [scanline_len_old]
|
|
shr edx, 2
|
|
@@: mov ecx, edx
|
|
rep movsd
|
|
add esi, 4
|
|
dec eax
|
|
jnz @b
|
|
|
|
mov eax, [scanline_len_new]
|
|
sub [pixels_ptr], eax
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [line_buffer]
|
|
mov edi, [pixels_ptr]
|
|
rep movsd
|
|
|
|
pop ecx
|
|
jmp .next_column_cw_low
|
|
|
|
.rotate_cw8:
|
|
.next_column_cw_low8:
|
|
dec ecx
|
|
js .exchange_dims
|
|
push ecx
|
|
|
|
mov edx, [scanline_len_old]
|
|
add [scanline_len_old], -1
|
|
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [pixels_ptr]
|
|
add esi, -1
|
|
mov edi, [line_buffer]
|
|
@@: mov al, [esi]
|
|
mov [edi], al
|
|
sub esi, edx
|
|
add edi, 1
|
|
sub ecx, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_pixels_new]
|
|
dec eax
|
|
mov edi, [ebx + Image.Data]
|
|
add edi, [scanline_len_old]
|
|
lea esi, [edi + 1]
|
|
mov edx, [scanline_len_old]
|
|
@@: mov ecx, edx
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, edx
|
|
and ecx, 3
|
|
rep movsb
|
|
add esi, 1
|
|
sub eax, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_len_new]
|
|
sub [pixels_ptr], eax
|
|
mov ecx, eax
|
|
mov esi, [line_buffer]
|
|
mov edi, [pixels_ptr]
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, eax
|
|
and ecx, 3
|
|
rep movsb
|
|
|
|
pop ecx
|
|
jmp .next_column_cw_low8
|
|
|
|
.rotate_cw24:
|
|
.next_column_cw_low24:
|
|
dec ecx
|
|
js .exchange_dims
|
|
push ecx
|
|
|
|
mov edx, [scanline_len_old]
|
|
add [scanline_len_old], -3
|
|
|
|
mov ecx, [scanline_pixels_new]
|
|
mov esi, [pixels_ptr]
|
|
add esi, -3
|
|
mov edi, [line_buffer]
|
|
@@: mov al, [esi]
|
|
mov [edi], al
|
|
mov al, [esi+1]
|
|
mov [edi+1], al
|
|
mov al, [esi+2]
|
|
mov [edi+2], al
|
|
sub esi, edx
|
|
add edi, 3
|
|
sub ecx, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_pixels_new]
|
|
dec eax
|
|
mov edi, [ebx + Image.Data]
|
|
add edi, [scanline_len_old]
|
|
lea esi, [edi + 3]
|
|
mov edx, [scanline_len_old]
|
|
@@: mov ecx, edx
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, edx
|
|
and ecx, 3
|
|
rep movsb
|
|
add esi, 3
|
|
sub eax, 1
|
|
jnz @b
|
|
|
|
mov eax, [scanline_len_new]
|
|
sub [pixels_ptr], eax
|
|
mov ecx, eax
|
|
mov esi, [line_buffer]
|
|
mov edi, [pixels_ptr]
|
|
shr ecx, 2
|
|
rep movsd
|
|
mov ecx, eax
|
|
and ecx, 3
|
|
rep movsb
|
|
|
|
pop ecx
|
|
jmp .next_column_cw_low24
|
|
|
|
.rotate_cw1:
|
|
push ecx edx
|
|
|
|
mov eax, [ebx+Image.Height]
|
|
add eax, 7
|
|
shr eax, 3
|
|
mul word[ebx+Image.Width]
|
|
shl eax, 16
|
|
shrd eax, edx, 16
|
|
|
|
push eax ; save new data size
|
|
|
|
invoke mem.alloc, eax
|
|
or eax, eax
|
|
jz .error
|
|
push eax ; save pointer to new data
|
|
|
|
mov ecx, 7
|
|
|
|
mov edx, [ebx+Image.Width]
|
|
mov [pixels_ptr], edx ; we don't use pixels_ptr as it do other procedures, we save there [ebx+Image.Width]
|
|
mov esi, eax
|
|
mov edi, [ebx+Image.Data]
|
|
mov eax, [ebx+Image.Height]
|
|
dec eax
|
|
mul [scanline_len_old]
|
|
add edi, eax
|
|
mov eax, 7
|
|
mov edx, 0
|
|
|
|
.rotate_cw1.begin:
|
|
bt [edi], ecx
|
|
jc .rotate_cw1.one
|
|
.rotate_cw1.zero:
|
|
btr [esi], eax
|
|
jmp @f
|
|
.rotate_cw1.one:
|
|
bts [esi], eax
|
|
@@:
|
|
sub edi, [scanline_len_old]
|
|
dec [scanline_pixels_new]
|
|
jz .rotate_cw1.end_of_line
|
|
dec eax
|
|
jns .rotate_cw1.begin
|
|
mov eax, 7
|
|
inc esi
|
|
jmp .rotate_cw1.begin
|
|
|
|
.rotate_cw1.end_of_line:
|
|
dec [pixels_ptr]
|
|
jz .rotate_cw1.quit
|
|
inc esi
|
|
mov eax, [ebx+Image.Height]
|
|
mov [scanline_pixels_new], eax
|
|
mov eax, 7
|
|
dec ecx
|
|
js @f
|
|
mov edi, [ebx+Image.Height]
|
|
dec edi
|
|
imul edi, [scanline_len_old]
|
|
add edi, [ebx+Image.Data]
|
|
add edi, edx
|
|
jmp .rotate_cw1.begin
|
|
@@:
|
|
mov ecx, 7
|
|
inc edx
|
|
cmp edx, [scanline_len_old]
|
|
je .rotate_cw1.quit
|
|
mov edi, [ebx+Image.Height]
|
|
dec edi
|
|
imul edi, [scanline_len_old]
|
|
add edi, [ebx+Image.Data]
|
|
add edi, edx
|
|
jmp .rotate_cw1.begin
|
|
|
|
.rotate_cw1.quit:
|
|
pop eax ; get pointer to new data
|
|
mov esi, eax
|
|
mov edi, [ebx + Image.Data]
|
|
pop ecx ; get new data size
|
|
rep movsb
|
|
|
|
invoke mem.free, eax
|
|
|
|
pop edx ecx
|
|
jmp .exchange_dims
|
|
|
|
.flip:
|
|
jmp .exit
|
|
|
|
.exchange_dims:
|
|
push [ebx + Image.Width] [ebx + Image.Height]
|
|
pop [ebx + Image.Width] [ebx + Image.Height]
|
|
|
|
.exit:
|
|
invoke mem.free, [line_buffer]
|
|
xor eax, eax
|
|
inc eax
|
|
pop edi esi ebx
|
|
ret
|
|
|
|
.error:
|
|
invoke mem.free, [line_buffer]
|
|
xor eax, eax
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.rotate _img, _rotate_kind ;//////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Rotate all layers of image ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> _img = pointer to image ;;
|
|
;> _rotate_kind = one of ROTATE_* constants ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = false / true ;;
|
|
;;================================================================================================;;
|
|
push 1
|
|
mov ebx, [_img]
|
|
@@:
|
|
mov eax, [ebx + Image.Previous]
|
|
test eax, eax
|
|
jz .loop
|
|
mov ebx, eax
|
|
jmp @b
|
|
.loop:
|
|
stdcall img.rotate.layer, ebx, [_rotate_kind]
|
|
test eax, eax
|
|
jnz @f
|
|
mov byte [esp], 0
|
|
@@:
|
|
mov ebx, [ebx + Image.Next]
|
|
test ebx, ebx
|
|
jnz .loop
|
|
pop eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img.draw _img, _x, _y, _width, _height, _xpos, _ypos ;///////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? Draw image in the window ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> _img = pointer to image ;;
|
|
;>_x = x-coordinate in the window ;;
|
|
;>_y = y-coordinate in the window ;;
|
|
;>_width = maximum width to draw ;;
|
|
;>_height = maximum height to draw ;;
|
|
;>_xpos = offset in image by x-axis ;;
|
|
;>_ypos = offset in image by y-axis ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< no return value ;;
|
|
;;================================================================================================;;
|
|
push ebx esi edi
|
|
mov ebx, [_img]
|
|
stdcall img._.validate, ebx
|
|
test eax, eax
|
|
jnz .done
|
|
mov ecx, [ebx + Image.Width]
|
|
sub ecx, [_xpos]
|
|
jbe .done
|
|
cmp ecx, [_width]
|
|
jb @f
|
|
mov ecx, [_width]
|
|
@@:
|
|
mov edx, [ebx + Image.Height]
|
|
sub edx, [_ypos]
|
|
jbe .done
|
|
cmp edx, [_height]
|
|
jb @f
|
|
mov edx, [_height]
|
|
@@:
|
|
mov eax, [ebx + Image.Width]
|
|
sub eax, ecx
|
|
call img._.get_scanline_len
|
|
shl ecx, 16
|
|
add ecx, edx
|
|
push eax
|
|
mov eax, [ebx + Image.Width]
|
|
imul eax, [_ypos]
|
|
add eax, [_xpos]
|
|
call img._.get_scanline_len
|
|
add eax, [ebx + Image.Data]
|
|
mov edx, [_x - 2]
|
|
mov dx, word [_y]
|
|
mov esi, [ebx + Image.Type]
|
|
mov esi, [type2bpp + (esi-1)*4]
|
|
mov edi, [ebx + Image.Palette]
|
|
xchg eax, ebx
|
|
pop eax
|
|
push ebp
|
|
push 65
|
|
pop ebp
|
|
xchg eax, ebp
|
|
int 40h
|
|
pop ebp
|
|
.done:
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;================================================================================================;;
|
|
;! Below are private procs you should never call directly from your code ;;
|
|
;;================================================================================================;;
|
|
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;================================================================================================;;
|
|
|
|
|
|
;;================================================================================================;;
|
|
proc img._.validate, _img ;///////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< --- TBD --- ;;
|
|
;;================================================================================================;;
|
|
xor eax, eax
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img._.new ;//////////////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = 0 / pointer to image ;;
|
|
;;================================================================================================;;
|
|
invoke mem.alloc, sizeof.Image
|
|
test eax, eax
|
|
jz @f
|
|
push ecx
|
|
xor ecx, ecx
|
|
mov [eax + Image.Data], ecx
|
|
mov [eax + Image.Type], ecx
|
|
mov [eax + Image.Flags], ecx
|
|
mov [eax + Image.Extended], ecx
|
|
mov [eax + Image.Previous], ecx
|
|
mov [eax + Image.Next], ecx
|
|
pop ecx
|
|
@@:
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img._.delete _img ;//////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< eax = false / true ;;
|
|
;;================================================================================================;;
|
|
push edx
|
|
mov edx, [_img]
|
|
cmp [edx + Image.Data], 0
|
|
je @f
|
|
invoke mem.free, [edx + Image.Data]
|
|
@@: cmp [edx + Image.Extended], 0
|
|
je @f
|
|
invoke mem.free, [edx + Image.Extended]
|
|
@@: invoke mem.free, edx
|
|
pop edx
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
proc img._.resize_data _img, _width, _height ;////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< --- TBD --- ;;
|
|
;;================================================================================================;;
|
|
push ebx esi
|
|
mov ebx, [_img]
|
|
mov eax, [_height]
|
|
; our memory is limited, [_width]*[_height] must not overflow
|
|
; image with width or height greater than 65535 is most likely bogus
|
|
cmp word [_width+2], 0
|
|
jnz .error
|
|
cmp word [_height+2], 0
|
|
jnz .error
|
|
imul eax, [_width]
|
|
test eax, eax
|
|
jz .error
|
|
; do not allow images which require too many memory
|
|
cmp eax, 4000000h
|
|
jae .error
|
|
cmp [ebx + Image.Type], Image.bpp1
|
|
jz .bpp1
|
|
cmp [ebx + Image.Type], Image.bpp8
|
|
jz .bpp8
|
|
cmp [ebx + Image.Type], Image.bpp24
|
|
jz .bpp24
|
|
.bpp32:
|
|
shl eax, 2
|
|
jmp @f
|
|
.bpp24:
|
|
lea eax, [eax*3]
|
|
jmp @f
|
|
.bpp8:
|
|
add eax, 256*4 ; for palette
|
|
jmp @f
|
|
.bpp1:
|
|
mov eax, [_width]
|
|
add eax, 7
|
|
shr eax, 3
|
|
mul word[_height]
|
|
shl eax, 16
|
|
mov ax, dx
|
|
ror eax, 16
|
|
|
|
push ebx
|
|
mov ebx, eax
|
|
|
|
mov eax, [_height]
|
|
add eax, 7
|
|
shr eax, 3
|
|
mul word[_width]
|
|
shl eax, 16
|
|
mov ax, dx
|
|
ror eax, 16
|
|
|
|
cmp eax, ebx
|
|
jge .bpp1.skip
|
|
mov eax, ebx
|
|
.bpp1.skip:
|
|
pop ebx
|
|
|
|
add eax, 2*4 ; for palette
|
|
@@:
|
|
mov esi, eax
|
|
invoke mem.realloc, [ebx + Image.Data], eax
|
|
or eax, eax
|
|
jz .error
|
|
|
|
mov [ebx + Image.Data], eax
|
|
push [_width]
|
|
pop [ebx + Image.Width]
|
|
push [_height]
|
|
pop [ebx + Image.Height]
|
|
cmp [ebx + Image.Type], Image.bpp8
|
|
jnz @f
|
|
lea esi, [eax + esi - 256*4]
|
|
mov [ebx + Image.Palette], esi
|
|
jmp .ret
|
|
@@:
|
|
cmp [ebx + Image.Type], Image.bpp1
|
|
jnz .ret
|
|
lea esi, [eax + esi - 2*4]
|
|
mov [ebx + Image.Palette], esi
|
|
jmp .ret
|
|
|
|
.error:
|
|
xor eax, eax
|
|
.ret:
|
|
pop esi ebx
|
|
ret
|
|
endp
|
|
|
|
;;================================================================================================;;
|
|
img._.get_scanline_len: ;/////////////////////////////////////////////////////////////////////////;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;? --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;> --- TBD --- ;;
|
|
;;------------------------------------------------------------------------------------------------;;
|
|
;< --- TBD --- ;;
|
|
;;================================================================================================;;
|
|
cmp [ebx + Image.Type], Image.bpp1
|
|
jz .bpp1.1
|
|
cmp [ebx + Image.Type], Image.bpp8
|
|
jz .bpp8.1
|
|
cmp [ebx + Image.Type], Image.bpp24
|
|
jz .bpp24.1
|
|
add eax, eax
|
|
cmp [ebx + Image.Type], Image.bpp32
|
|
jnz .quit
|
|
add eax, eax
|
|
jmp .quit
|
|
.bpp24.1:
|
|
lea eax, [eax*3]
|
|
jmp .quit
|
|
.bpp1.1:
|
|
add eax, 7
|
|
shr eax, 3
|
|
.bpp8.1:
|
|
.quit:
|
|
ret
|
|
|
|
|
|
;;================================================================================================;;
|
|
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;================================================================================================;;
|
|
;! Below is private data you should never use directly from your code ;;
|
|
;;================================================================================================;;
|
|
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;================================================================================================;;
|
|
|
|
align 4
|
|
img._.formats_table:
|
|
.bmp dd img.is.bmp, img.decode.bmp, img.encode.bmp
|
|
.ico dd img.is.ico, img.decode.ico_cur, img.encode.ico
|
|
.cur dd img.is.cur, img.decode.ico_cur, img.encode.cur
|
|
.gif dd img.is.gif, img.decode.gif, img.encode.gif
|
|
.png dd img.is.png, img.decode.png, img.encode.png
|
|
.jpg dd img.is.jpg, img.decode.jpg, img.encode.jpg
|
|
.tga dd img.is.tga, img.decode.tga, img.encode.tga
|
|
.pcx dd img.is.pcx, img.decode.pcx, img.encode.pcx
|
|
.xcf dd img.is.xcf, img.decode.xcf, img.encode.xcf
|
|
.z80 dd img.is.z80, img.decode.z80, img.encode.z80 ;this must be the last entry as there are no
|
|
;signatures in z80 screens at all
|
|
dd 0
|
|
|
|
align 4
|
|
type2bpp dd 8, 24, 32, 15, 16, 1
|
|
img._.do_rgb.handlers:
|
|
dd img._.do_rgb.bpp8
|
|
dd img._.do_rgb.bpp24
|
|
dd img._.do_rgb.bpp32
|
|
dd img._.do_rgb.bpp15.amd ; can be overwritten in lib_init
|
|
dd img._.do_rgb.bpp16.amd ; can be overwritten in lib_init
|
|
dd img._.do_rgb.bpp1
|
|
|
|
img.flip.layer.handlers_horz:
|
|
dd img.flip.layer.bpp8_horz
|
|
dd img.flip.layer.bpp24_horz
|
|
dd img.flip.layer.bpp32_horz
|
|
dd img.flip.layer.bpp1x_horz
|
|
dd img.flip.layer.bpp1x_horz
|
|
dd img.flip.layer.bpp1_horz
|
|
|
|
;;================================================================================================;;
|
|
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;================================================================================================;;
|
|
;! Exported functions section ;;
|
|
;;================================================================================================;;
|
|
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;================================================================================================;;
|
|
|
|
|
|
align 4
|
|
@EXPORT:
|
|
|
|
export \
|
|
lib_init , 'lib_init' , \
|
|
0x00050007 , 'version' , \
|
|
img.is_img , 'img_is_img' , \
|
|
img.info , 'img_info' , \
|
|
img.from_file , 'img_from_file' , \
|
|
img.to_file , 'img_to_file' , \
|
|
img.from_rgb , 'img_from_rgb' , \
|
|
img.to_rgb , 'img_to_rgb' , \
|
|
img.to_rgb2 , 'img_to_rgb2' , \
|
|
img.decode , 'img_decode' , \
|
|
img.encode , 'img_encode' , \
|
|
img.create , 'img_create' , \
|
|
img.destroy , 'img_destroy' , \
|
|
img.destroy.layer, 'img_destroy_layer', \
|
|
img.count , 'img_count' , \
|
|
img.lock_bits , 'img_lock_bits' , \
|
|
img.unlock_bits , 'img_unlock_bits' , \
|
|
img.flip , 'img_flip' , \
|
|
img.flip.layer , 'img_flip_layer' , \
|
|
img.rotate , 'img_rotate' , \
|
|
img.rotate.layer, 'img_rotate_layer', \
|
|
img.draw , 'img_draw'
|
|
|
|
; import from deflate unpacker
|
|
; is initialized only when PNG loading is requested
|
|
align 4
|
|
@IMPORT:
|
|
|
|
library archiver, 'archiver.obj'
|
|
import archiver, \
|
|
deflate_unpack2, 'deflate_unpack2'
|
|
|
|
align 4
|
|
; mutex for unpacker loading
|
|
deflate_loader_mutex dd 0
|
|
|
|
; default palette for GIF - b&w
|
|
gif_default_palette:
|
|
db 0, 0, 0
|
|
db 0xFF, 0xFF, 0xFF
|
|
|
|
section '.data' data readable writable align 16
|
|
; uninitialized data - global constant tables
|
|
mem.alloc dd ?
|
|
mem.free dd ?
|
|
mem.realloc dd ?
|
|
dll.load dd ?
|
|
|
|
; data for YCbCr -> RGB translation
|
|
color_table_1 rd 256
|
|
color_table_2 rd 256
|
|
color_table_3 rd 256
|
|
color_table_4 rd 256
|