badpork/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

libimg:

Browse Source 
introduce img.convert + example
update tga decoder
img.to_rgb and img.to_rgb2 are deprecated


git-svn-id: svn://kolibrios.org@3055 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Ivan Baravy 2012-11-18 16:10:28 +00:00
parent 5a0f87bd4c
commit e9998d7f13
7 changed files with 407 additions and 163 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
programs/develop/libraries/libs-dev/.test/003/test003.asm
View File

@ -75,8 +75,8 @@ START:
dec ecx dec ecx
jnz @b jnz @b
stdcall [img.encode], [image_to_rgb2], (LIBIMG_FORMAT_ID_PNM), 0 stdcall [img.encode], [image_to_rgb2], (LIBIMG_FORMAT_PNM), 0
; stdcall [img.encode], [image_initial], (LIBIMG_FORMAT_ID_PNM), 0 ; stdcall [img.encode], [image_initial], (LIBIMG_FORMAT_PNM), 0
test eax, eax test eax, eax
jz exit jz exit
mov [encoded_file], eax mov [encoded_file], eax

BIN
programs/develop/libraries/libs-dev/.test/005/kolibri_logo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 17 KiB

184
programs/develop/libraries/libs-dev/.test/005/test005.asm Normal file
View File

@ -0,0 +1,184 @@
use32
org 0x0
db 'MENUET01'
dd 0x01, START, I_END, E_END, E_END, 0, 0
;-----------------------------------------------------------------------------
include '../../../../../proc32.inc'
include '../../../../../macros.inc'
include '../../../../../dll.inc'
;include '../../../../../debug.inc'
include '../../libio/libio.inc'
include '../../libimg/libimg.inc'
;-----------------------------------------------------------------------------
START:
mcall 68, 11
stdcall dll.Load, @IMPORT
or eax, eax
jnz exit
invoke file.open, input_file, O_READ
or eax, eax
jz exit
mov [fh], eax
invoke file.size, input_file
mov [img_data_len], ebx
stdcall mem.Alloc, ebx
or eax, eax
jz exit
mov [img_data], eax
invoke file.read, [fh], eax, [img_data_len]
cmp eax, -1
je exit
cmp eax, [img_data_len]
jne exit
invoke file.close, [fh]
inc eax
jz exit
invoke img.decode, [img_data], [img_data_len], 0
or eax, eax
jz exit
mov [image_initial], eax
;pushfd
;pushad
;mov ebx, [image_initial]
;debug_print_dec dword[ebx + Image.Type]
;newline
;popad
;popfd
stdcall mem.Free, [img_data]
test eax, eax
jz exit
invoke img.convert, [image_initial], 0, Image.bpp8g, 0, 0
test eax, eax
jz exit
mov [image_converted], eax
invoke img.destroy, [image_initial]
mov ebx, [image_converted]
mov eax, [ebx + Image.Width]
add eax, 200*0x10000 + 5*2 - 1 ; window x position + 10 pixels width for skin borders
mov [window_width], eax
mcall 48, 4 ; get skin height
mov ebx, [image_converted]
add eax, [ebx + Image.Height]
add eax, 100*0x10000 + 5 - 1 ; window y position + 5 pixels height for skin bottom border
mov [window_height], eax
;-----------------------------------------------------------------------------
still:
mcall 10
cmp eax, 1
je .draw_window
cmp eax, 2
je .key
cmp eax, 3
je .button
jmp still
.draw_window:
mcall 12, 1
mcall 0, [window_width], [window_height], 0x74FFFFFF, 0x00000000, window_title
call draw_image
mcall 12, 2
jmp still
.key:
mcall 2
jmp still
.button:
mcall 17
shr eax, 8
cmp eax, 1
jne still
exit:
invoke img.destroy, [image_converted]
mcall -1
proc draw_image
mov ebx, [image_converted]
invoke img.draw, ebx, 0, 0, [ebx + Image.Width], [ebx + Image.Height], 0, 0
ret
endp
;-----------------------------------------------------------------------------
window_title db 'img.convert example',0
input_file:
db '/hd0/1/kolibri_logo.jpg',0
; db '/hd0/1/tga/CTC16.TGA',0
; db '/hd0/1/indexed_packbits_le_test_00.tiff',0
; db '/hd0/1/graya_123x123.tiff',0
; db '/hd0/1/bilevel_00.wbmp',0
; db '/hd0/1/rgb_af.jpg',0
; db '/hd0/1/gray_5x7.tiff',0
; db '/hd0/1/rgb_lzw_le_2x2.tiff',0
; db '/hd0/1/grayscale_123x123.tiff',0
; db '/hd0/1/grayscale_357x357.tiff',0
; db '/hd0/1/grayscale_620x620.tiff',0
; db '/hd0/1/rgb_220.jpg',0
; db '/hd0/1/rgba_217.tiff',0
; db '/hd0/1/rgb_7x9.tiff',0
; db '/hd0/1/rgba_7x9.tiff',0
; db '/hd0/1/gray_7x9.tiff',0
; db '/hd0/1/rgb_70x90.png',0
;-----------------------------------------------------------------------------
align 4
@IMPORT:
library \
libio , 'libio.obj' , \
libimg , 'libimg.obj'
import libio , \
libio.init , 'lib_init' , \
file.size , 'file_size' , \
file.open , 'file_open' , \
file.read , 'file_read' , \
file.close , 'file_close'
import libimg , \
libimg.init , 'lib_init' , \
img.decode , 'img_decode' , \
img.destroy , 'img_destroy' , \
img.draw , 'img_draw' , \
img.convert , 'img_convert' , \
img.types_table , 'img_types_table'
;-----------------------------------------------------------------------------
I_END:
fh dd ?
img_data_len dd ?
img_data dd ?
image_initial dd ?
image_converted dd ?
window_width dd ?
window_height dd ?
rd 0x1000 ; stack
E_END:

15
programs/develop/libraries/libs-dev/libimg/libimg.asm
View File

@ -47,7 +47,7 @@ include 'pnm/pnm.asm'
include 'wbmp/wbmp.asm' include 'wbmp/wbmp.asm'
include 'scale.asm' include 'scale.asm'
;include 'convert.asm' include 'convert.asm'
;include 'transform.asm' ;include 'transform.asm'
;;================================================================================================;; ;;================================================================================================;;
@ -1929,6 +1929,18 @@ img.formats_table:
.z80 dd LIBIMG_FORMAT_Z80, img.is.z80, img.decode.z80, img.encode.z80, 0 ;this must be the last entry as there are no signatures in z80 screens at all .z80 dd LIBIMG_FORMAT_Z80, img.is.z80, img.decode.z80, img.encode.z80, 0 ;this must be the last entry as there are no signatures in z80 screens at all
dd 0 dd 0
align 4
img.types_table: ; entries order must correspond to type defnitions in libimg.inc
dd 0 ; there is no Image.bpp* = 0
.bpp8i dd (1 SHL Image.bpp24)
.bpp24 dd (1 SHL Image.bpp24) OR (1 SHL Image.bpp8g)
.bpp32 dd (1 SHL Image.bpp24)
.bpp15 dd (1 SHL Image.bpp24)
.bpp16 dd (1 SHL Image.bpp24)
.bpp1 dd (1 SHL Image.bpp24)
.bpp8g dd (1 SHL Image.bpp24) OR (1 SHL Image.bpp1 )
.bpp8a dd (1 SHL Image.bpp24)
;;================================================================================================;; ;;================================================================================================;;
;;////////////////////////////////////////////////////////////////////////////////////////////////;; ;;////////////////////////////////////////////////////////////////////////////////////////////////;;
;;================================================================================================;; ;;================================================================================================;;
@ -2206,6 +2218,7 @@ export \
img.rotate.layer , 'img_rotate_layer' , \ img.rotate.layer , 'img_rotate_layer' , \
img.draw , 'img_draw' , \ img.draw , 'img_draw' , \
img.scale , 'img_scale' , \ img.scale , 'img_scale' , \
img.convert , 'img_convert' , \
img.formats_table, 'img_formats_table' img.formats_table, 'img_formats_table'
; import from deflate unpacker ; import from deflate unpacker

2
programs/develop/libraries/libs-dev/libimg/libimg.inc
View File

@ -67,7 +67,7 @@ LIBIMG_ENCODE_DELETE_ALPHA = 0x08
LIBIMG_ENCODE_FLUSH_ALPHA = 0x10 LIBIMG_ENCODE_FLUSH_ALPHA = 0x10
; convert flags ; convert flags
LIBIMG_CONVERT_IN_PLACE = 0x01 ; do not create new image, store result in _src ; TBD
struct FormatsTableEntry struct FormatsTableEntry
Format_id dd ? Format_id dd ?

326
programs/develop/libraries/libs-dev/libimg/tga/tga.asm
View File

@ -1,5 +1,5 @@
;;================================================================================================;; ;;================================================================================================;;
;;//// tga.asm //// (c) Nable, 2007-2008 /////////////////////////////////////////////////////////;; ;;//// tga.asm //// (c) Nable, 2007-2008, (c) dunkaist, 2012 /////////////////////////////////////;;
;;================================================================================================;; ;;================================================================================================;;
;; ;; ;; ;;
;; This file is part of Common development libraries (Libs-Dev). ;; ;; This file is part of Common development libraries (Libs-Dev). ;;
@ -19,6 +19,8 @@
;; ;; ;; ;;
;; References: ;; ;; References: ;;
;; 1. Hiview 1.2 by Mohammad A. REZAEI ;; ;; 1. Hiview 1.2 by Mohammad A. REZAEI ;;
;; 2. Truevision TGA FILE FORMAT SPECIFICATION Version 2.0 ;;
;; Technical Manual Version 2.2 January, 1991 ;;
;; ;; ;; ;;
;;================================================================================================;; ;;================================================================================================;;
@ -34,46 +36,49 @@ proc img.is.tga _data, _length ;////////////////////////////////////////////////
;;------------------------------------------------------------------------------------------------;; ;;------------------------------------------------------------------------------------------------;;
;< eax = false / true ;; ;< eax = false / true ;;
;;================================================================================================;; ;;================================================================================================;;
push ebx push ebx
cmp [_length], 18 cmp [_length], 18
jbe .nope jbe .nope
mov eax, [_data] mov ebx, [_data]
mov ebx,[eax+1] ;bl=cmatype,bh=subtype mov eax, dword[ebx + tga_header.colormap_type]
cmp bl,1 ;cmatype is in [0..1] cmp al, 1
ja .nope ja .nope
cmp bh,11 ;subtype is in [1..3] (non-rle) or in [9..11] (rle) cmp ah, 11
ja .nope ja .nope
cmp bh,9 cmp ah, 9
jae .cont1 jae .cont1
cmp bh,3 cmp ah, 3
ja .nope ja .nope
.cont1: ;continue testing .cont1:
mov ebx,[eax+16] ;bl=bpp, bh=flags //image descriptor mov eax, dword[ebx + tga_header.image_spec.depth]
test ebx,111b ;bpp must be 8, 15, 16, 24 or 32 test eax, 111b ; bpp must be 8, 15, 16, 24 or 32
jnz .maybe15 jnz .maybe15
shr bl,3 shr al, 3
cmp bl,4 cmp al, 4
ja .nope ja .nope
jmp .cont2 jmp .cont2
.maybe15: .maybe15:
cmp bl,15 cmp al, 15
jne .nope jne .nope
.cont2: ;continue testing .cont2: ; continue testing
test bh,tga.flags.interlace_type ;deinterlacing is not supported yet movzx eax, byte[ebx + tga_header.colormap_spec.entry_size] ; palette bpp
jnz .nope cmp eax, 0
cmp byte[eax+7],24 ;test palette bpp - only 24 and 32 are supported
je .yep je .yep
cmp byte[eax+7],32 ;test palette bpp - only 24 and 32 are supported cmp eax, 16
je .yep je .yep
.nope: cmp eax, 24
je .yep
cmp eax, 32
je .yep
.nope:
xor eax, eax xor eax, eax
pop ebx pop ebx
ret ret
.yep: .yep:
xor eax, eax xor eax, eax
inc eax inc eax
pop ebx pop ebx
ret ret
endp endp
@ -88,131 +93,167 @@ proc img.decode.tga _data, _length, _options ;//////////////////////////////////
;< eax = 0 (error) or pointer to image ;; ;< eax = 0 (error) or pointer to image ;;
;;================================================================================================;; ;;================================================================================================;;
locals locals
IMGwidth dd ? width dd ?
IMGheight dd ? height dd ?
IMGbpp dd ? bytes_per_pixel dd ?
DupPixelCount dd ? retvalue dd ?
TgaBlockCount dd ?
endl endl
pushad push ebx esi edi
cld ;paranoia mov ebx, [_data]
and [DupPixelCount],0 ;prepare variables movzx esi, byte[ebx]
and [TgaBlockCount],0 ;prepare variables lea esi, [esi + ebx + sizeof.tga_header] ; skip comment and header
mov eax,[_data] mov edx, dword[ebx + tga_header.image_spec.width]
movzx esi,byte[eax] movzx ecx, dx ; ecx = width
lea esi,[esi+eax+18] ;skip comment and header shr edx, 16 ; edx = height
mov ebx,[eax+12] mov [width], ecx
movzx ecx,bx ;ecx=width mov [height], edx
shr ebx,16 ;ebx=height movzx eax, byte[ebx + tga_header.image_spec.depth]
mov [IMGwidth],ecx add eax, 7
mov [IMGheight],ebx shr eax, 3
movzx edx,byte[eax+16] mov [bytes_per_pixel], eax
cmp edx,16 movzx eax, byte[ebx + tga_header.image_spec.depth]
jnz @f
dec edx ;16bpp tga images are really 15bpp ARGB cmp eax, 8
@@: jne @f
sub edx, 16 - Image.bpp16 ; 15 -> Image.bpp15, 16 -> Image.bpp16 mov eax, Image.bpp8i
mov [IMGbpp],edx jmp .type_defined
stdcall img.create,ecx,ebx,edx @@:
mov [esp+28],eax ;save return value cmp eax, 15
test eax,eax ;failed to allocate? jne @f
jz .locret ;then exit mov eax, Image.bpp15
cmp edx,8 jmp .type_defined
@@:
cmp eax, 16
jne @f
mov eax, Image.bpp15 ; 16bpp tga images are really 15bpp ARGB
jmp .type_defined
@@:
cmp eax, 24
jne @f
mov eax, Image.bpp24
jmp .type_defined
@@:
cmp eax, 32
jne @f
mov eax, Image.bpp32
jmp .type_defined
@@:
.type_defined:
stdcall img.create, ecx, edx, eax
mov [retvalue], eax
test eax, eax ; failed to allocate?
jz .done ; then exit
mov ebx, eax
cmp dword[ebx + Image.Type], Image.bpp8i
jne .palette_parsed jne .palette_parsed
mov edi,[eax+Image.Palette] mov edi, [ebx + Image.Palette]
mov ecx,[_data] mov ecx, [_data]
cmp byte[ecx+2],3 ;we also have grayscale subtype cmp byte[ecx + tga_header.image_type], 3 ; we also have grayscale subtype
jz .write_grayscale_palette ;that don't hold palette in file jz .write_grayscale_palette ; that don't hold palette in file
cmp byte[ecx+2],11 cmp byte[ecx + tga_header.image_type], 11
jz .write_grayscale_palette jz .write_grayscale_palette
mov dh,[ecx+7] ;size of colormap entries in bits movzx eax, byte[ecx + tga_header.colormap_spec.entry_size] ; size of colormap entries in bits
movzx ecx,word[ecx+5] ;number of colormap entries movzx ecx, word[ecx + tga_header.colormap_spec.colormap_length] ; number of colormap entries
cmp dh,24 cmp eax, 24
jz .skip_24bpp_palette ;test if colormap entries are 24bpp je .24bpp_palette
rep movsd ;else they are 32 bpp cmp eax, 16
je .16bpp_palette
rep movsd ; else they are 32 bpp
jmp .palette_parsed jmp .palette_parsed
.write_grayscale_palette: .write_grayscale_palette:
push eax mov ecx, 0x100
mov ecx,0x100 xor eax, eax
xor eax,eax @@:
@@:
stosd stosd
add eax,0x010101 add eax, 0x010101
loop @b loop @b
pop eax
jmp .palette_parsed jmp .palette_parsed
.skip_24bpp_palette: .16bpp_palette: ; FIXME: code copypasted from img.do_rgb, should use img.convert
push eax push ebx edx ebp
@@: @@:
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, 4
loop @b
pop ebp edx ebx
jmp .palette_parsed
.24bpp_palette:
@@:
lodsd lodsd
dec esi dec esi
and eax,0xFFFFFF and eax, 0xffffff
; bswap eax
; shr eax,8
stosd stosd
loop @b loop @b
pop eax .palette_parsed:
.palette_parsed: mov edi, [ebx + Image.Data]
mov edi,[eax+Image.Data] mov ebx, [width]
imul ebx,[IMGwidth] ;ebx=width*height imul ebx, [height]
mov edx, [bytes_per_pixel]
mov edx,[IMGbpp] mov eax, [_data]
add edx,7 test byte[eax + tga_header.image_type], 0x08
shr edx,3 ;edx=bytes per pixel jz .uncompressed
mov dh,dl ;dh=dl=bytes per pixel .next_rle_packet:
xor eax, eax
mov eax,[_data] lodsb
cmp byte[eax+2],9 btr ax, 7 ; Run-length packet?
jb .not_an_rle jnc .raw_packet
.tga_read_rle_pixel: add eax, 1
cmp [DupPixelCount],0 ;Duplicate previously read pixel? sub ebx, eax
jg .duplicate_previously_read_pixel @@:
dec [TgaBlockCount] ;Decrement pixels remaining in block mov ecx, edx
jns .read_non_rle_pixel rep movsb
xor eax,eax sub esi, edx
lodsb sub eax, 1
test al,al ;Start of duplicate-pixel block? jnz @b
jns .2 add esi, edx
and al,0x7f test ebx, ebx
mov [DupPixelCount],eax ;Number of duplications after this one jnz .next_rle_packet
and [TgaBlockCount],0 ;Then read new block header jmp .done
jmp .read_non_rle_pixel .raw_packet:
.2: mov ecx, eax
mov dword[TgaBlockCount],eax add ecx, 1
.read_non_rle_pixel: sub ebx, ecx
xor eax,eax imul ecx, edx
mov dl,dh rep movsb
@@: test ebx, ebx
shl eax,8 jnz .next_rle_packet
lodsb .uncompressed:
dec dl imul edx, ebx
jnz @b mov ecx, edx
cmp dh,3 rep movsb
jne .put_pixel .done:
bswap eax xor ebx, ebx
shr eax,8 mov esi, [_data]
jmp .put_pixel test byte[esi + tga_header.image_spec.descriptor], TGA_START_TOP
.duplicate_previously_read_pixel: jnz @f
dec [DupPixelCount] or ebx, FLIP_VERTICAL
.put_pixel: @@:
mov dl,dh test byte[esi + tga_header.image_spec.descriptor], TGA_START_RIGHT
push eax jz @f
@@: or ebx, FLIP_HORIZONTAL
stosb @@:
shr eax,8 test ebx, ebx
dec dl jz @f
jnz @b stdcall img.flip, [retvalue], ebx
pop eax @@:
dec ebx pop edi esi ebx
jnz .tga_read_rle_pixel mov eax, [retvalue]
jmp .locret
.not_an_rle:
movzx edx,dl ;dh contains bpp too (for decoding needs)
imul edx,ebx
mov ecx,edx
rep movsb ;just copy the image
.locret:
popad
ret ret
endp endp
@ -230,7 +271,6 @@ proc img.encode.tga _img, _p_length, _options ;/////////////////////////////////
ret ret
endp endp
;;================================================================================================;; ;;================================================================================================;;
;;////////////////////////////////////////////////////////////////////////////////////////////////;; ;;////////////////////////////////////////////////////////////////////////////////////////////////;;
;;================================================================================================;; ;;================================================================================================;;
@ -246,5 +286,3 @@ endp
;;================================================================================================;; ;;================================================================================================;;
;;////////////////////////////////////////////////////////////////////////////////////////////////;; ;;////////////////////////////////////////////////////////////////////////////////////////////////;;
;;================================================================================================;; ;;================================================================================================;;
;

39
programs/develop/libraries/libs-dev/libimg/tga/tga.inc
View File

@ -1,5 +1,5 @@
;;================================================================================================;; ;;================================================================================================;;
;;//// tga.inc //// (c) Nable, 2007-2008 /////////////////////////////////////////////////////////;; ;;//// tga.inc //// (c) Nable, 2007-2008, (c) dunkaist, 2012 /////////////////////////////////////;;
;;================================================================================================;; ;;================================================================================================;;
;; ;; ;; ;;
;; This file is part of Common development libraries (Libs-Dev). ;; ;; This file is part of Common development libraries (Libs-Dev). ;;
@ -17,19 +17,28 @@
;; ;; ;; ;;
;;================================================================================================;; ;;================================================================================================;;
struct tga.FileHeader struct tga_colormap_spec
CommentLength db ? first_entry_index dw ?
ColormapType db ? colormap_length dw ?
SubType db ? entry_size db ?
DontKnow1 dw ?
ColormapSize dw ?
ColormapBpp db ?
DontKnow2 dd ?
Width dw ?
Height dw ?
BitPerPixel db ?
DontKnow3 db ?
ends ends
tga.flags.top_down_row_order equ 32 ;bit5 struct tga_image_spec
tga.flags.interlace_type equ 192;bits6/7 x_origin dw ?
y_origin dw ?
width dw ?
height dw ?
depth db ?
descriptor db ?
ends
struct tga_header
id_length db ?
colormap_type db ?
image_type db ?
colormap_spec tga_colormap_spec
image_spec tga_image_spec
ends
TGA_START_TOP = 0x20
TGA_START_RIGHT = 0x10