WebSVN – Kolibri OS – Diff – /programs/develop/libraries/libs-dev/libimg/libimg.asm

 include '../../../../proc32.inc'
 include '../../../../macros.inc'
 purge section,mov,add,sub
+include 'libimg.inc'
-include 'libimg.inc'
+;include '../../../../system/board/trunk/debug.inc'
 section '.flat' code readable align 16
 ;> --- TBD ---                                                                                    ;;
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
     push    ebx
-    mov ebx, img._.formats_table
+    mov ebx, img.formats_table
     @@: stdcall [ebx + FormatsTableEntry.Is], [_data], [_length]
     or  eax, eax
     jnz @f
     add ebx, sizeof.FormatsTableEntry
     cmp dword[ebx], 0
 endp
 ;;================================================================================================;;
 proc img.to_rgb2 _img, _out ;/////////////////////////////////////////////////////////////////////;;
 ;;------------------------------------------------------------------------------------------------;;
-;? --- TBD ---                                                                                    ;;
+;? decodes image data into RGB triplets and stores them where [_out] points to                    ;;
 ;;------------------------------------------------------------------------------------------------;;
+;> [_img] = pointer to source image                                                               ;;
-;> --- TBD ---                                                                                    ;;
+;> [_out] = where to store RGB triplets                                                           ;;
 ;;------------------------------------------------------------------------------------------------;;
-;< --- TBD ---                                                                                    ;;
+;< none                                                                                           ;;
 ;;================================================================================================;;
     push    esi edi
     mov esi, [_img]
     stdcall img._.validate, esi
 endp
 ;;================================================================================================;;
 proc img.to_rgb _img ;////////////////////////////////////////////////////////////////////////////;;
 ;;------------------------------------------------------------------------------------------------;;
-;? --- TBD ---                                                                                    ;;
+;? decodes image data into RGB triplets and returns pointer to memory area containing them        ;;
 ;;------------------------------------------------------------------------------------------------;;
-;> --- TBD ---                                                                                    ;;
+;> [_img] = pointer to source image                                                               ;;
 ;;------------------------------------------------------------------------------------------------;;
 ;< eax = 0 / pointer to rgb_data (array of [rgb] triplets)                                        ;;
 ;;================================================================================================;;
     push    esi edi
 endp
 ;;================================================================================================;;
 proc img._.do_rgb ;///////////////////////////////////////////////////////////////////////////////;;
 ;;------------------------------------------------------------------------------------------------;;
-;? --- TBD ---                                                                                    ;;
+;? decodes [esi + Image.Data] data into RGB triplets and stores them at [edi]                     ;;
 ;;------------------------------------------------------------------------------------------------;;
+;> esi = pointer to source image                                                                  ;;
-;> --- TBD ---                                                                                    ;;
+;> edi = pointer to memory to store RGB triplets                                                  ;;
 ;;------------------------------------------------------------------------------------------------;;
-;< --- TBD ---                                                                                    ;;
+;< none                                                                                           ;;
 ;;================================================================================================;;
     mov ecx, [esi + Image.Width]
     imul    ecx, [esi + Image.Height]
     mov eax, [esi + Image.Type]
 endp
 ;;================================================================================================;;
 proc img.decode _data, _length, _options ;////////////////////////////////////////////////////////;;
 ;;------------------------------------------------------------------------------------------------;;
-;? --- TBD ---                                                                                    ;;
+;? decodes loaded into memory graphic file                                                        ;;
 ;;------------------------------------------------------------------------------------------------;;
+;> [_data]    = pointer to file in memory                                                         ;;
+;> [_length]  = size in bytes of memory area pointed to by [_data]                                ;;
-;> --- TBD ---                                                                                    ;;
+;> [_options] = 0 / pointer to the structure of additional options                                ;;
 ;;------------------------------------------------------------------------------------------------;;
 ;< eax = 0 / pointer to image                                                                     ;;
 ;;================================================================================================;;
     push    ebx
-    mov ebx, img._.formats_table
+    mov ebx, img.formats_table
     @@: stdcall [ebx + FormatsTableEntry.Is], [_data], [_length]
     or  eax, eax
     jnz @f
     add ebx, sizeof.FormatsTableEntry
     leave
     jmp eax
 endp
 ;;================================================================================================;;
-proc img.encode _img, _p_length, _options ;///////////////////////////////////////////////////////;;
+proc img.encode _img, _common, _specific ;////////////////////////////////////////////////////////;;
 ;;------------------------------------------------------------------------------------------------;;
-;? --- TBD ---                                                                                    ;;
+;? encode image to some format                                                                    ;;
 ;;------------------------------------------------------------------------------------------------;;
+;> [_img]      = pointer to input image                                                           ;;
+;> [_common]   = some most important options                                                      ;;
+;     0x00 :  byte : format id (defined in libimg.inc)                                            ;;
+;     0x01 :  byte : fast encoding (0) / best compression ratio (255)                             ;;
+;                    0 : store uncompressed data (if supported both by the format and libimg)     ;;
+;                    1 - 255 : use compression, if supported                                      ;;
+;                    this option may be ignored if any format specific options are defined        ;;
+;                    i.e. the 0 here will be ignored if some compression algorithm is specified   ;;
+;     0x02 :  byte : flags (bitfield)                                                             ;;
+;                   0x01 : return an error if format specific conditions cannot be met            ;;
+;                   0x02 : preserve current bit depth. means 8bpp/16bpp/24bpp and so on           ;;
+;                   0x04 : delete alpha channel, if any                                           ;;
+;                   0x08 : flush alpha channel with 0xff, if any; add it if none                  ;;
+;     0x03 :  byte : reserved, must be 0                                                          ;;
+;> [_specific] = 0 / pointer to the structure of format specific options                          ;;
-;> --- TBD ---                                                                                    ;;
+;                   see .inc for description                                         ;;
 ;;------------------------------------------------------------------------------------------------;;
+;< eax = 0 / pointer to encoded data                                                              ;;
-;< eax = 0 / pointer to encoded data                                                              ;;
+;< ecx = error code / the size of encoded data                                                    ;;
+;     1 : out of memory                                                                           ;;
+;     2 : format is not supported                                                                 ;;
+;     3 : specific conditions cannot be satisfied                                                 ;;
-;< [_p_length] = data length                                                                      ;;
+;     4 : bit depth cannot be preserved                                                           ;;
+;;================================================================================================;;
+	mov	ebx, [_img]
+	movzx	eax, byte[_common]
+	dec	eax
+	imul	eax, sizeof.FormatsTableEntry
+	add	eax, FormatsTableEntry.Capabilities
+	add	eax, img.formats_table
+	mov	eax, [eax]
+	test	eax, 1				; is encoding to this format supported at all?
+	jnz	@f
+	mov	ecx, LIBIMG_ERROR_FORMAT
+	jmp	.error
+    @@:
+	mov	ecx, [ebx + Image.Type]
+	mov	edx, 1
+	shl	edx, cl
+	test	eax, edx
+	jnz	.bit_depth_ok
+	test	byte[_common+2], LIBIMG_ENCODE_STRICT_BIT_DEPTH
+	jz	@f
+	mov	ecx, LIBIMG_ERROR_BIT_DEPTH
+	jmp	.error
+    @@:
+	mov	edx, 1 SHL Image.bpp24
+	test	eax, edx
+	jnz	@f
+	mov	ecx, LIBIMG_ERROR_BIT_DEPTH
+	jmp	.error
+    @@:
+	stdcall	img.create, [ebx + Image.Width], [ebx + Image.Height], Image.bpp24
+	test	eax, eax
+	jnz	@f
+	mov	ecx, LIBIMG_ERROR_OUT_OF_MEMORY
+	jmp	.error
+    @@:
+	push	eax
+	stdcall	img.to_rgb2, ebx, [eax + Image.Data]
+	pop	ebx
+  .bit_depth_ok:
+	movzx	eax, byte[_common]
+	dec	eax
+	imul	eax, sizeof.FormatsTableEntry
+	add	eax, FormatsTableEntry.Encode
+	add	eax, img.formats_table
+	mov	eax, [eax]
+	stdcall	eax, [_img], [_common], [_specific]
+	push	eax ecx
+	cmp	ebx, [_img]
+	je	@f
+	stdcall	img.destroy, ebx
+    @@:
+	pop	ecx eax
+	jmp	.quit
-;;================================================================================================;;
+  .error:
+	xor	eax, eax
-    xor eax, eax
+  .quit:
-    ret
+	ret
 endp
 ;;================================================================================================;;
 proc img.create _width, _height, _type ;//////////////////////////////////////////////////////////;;
 ;;------------------------------------------------------------------------------------------------;;
-;? --- TBD ---                                                                                    ;;
+;? creates an Image structure and initializes some its fields                                     ;;
+;;------------------------------------------------------------------------------------------------;;
+;> [_width]  = width of an image in pixels                                                        ;;
-;;------------------------------------------------------------------------------------------------;;
+;> [_height] = height of an image in pixels                                                       ;;
-;> --- TBD ---                                                                                    ;;
+;> [_type]   = one of the Image.bppN constants from libimg.inc                                    ;;
 ;;------------------------------------------------------------------------------------------------;;
 ;< eax = 0 / pointer to image                                                                     ;;
 endp
 ;;================================================================================================;;
 proc img.destroy.layer _img ;/////////////////////////////////////////////////////////////////////;;
+;;------------------------------------------------------------------------------------------------;;
-;;------------------------------------------------------------------------------------------------;;
+;? frees memory occupied by an image and all the memory regions its fields point to               ;;
-;? --- TBD ---                                                                                    ;;
+;? for image sequences deletes only one frame and fixes Previous/Next pointers                    ;;
 ;;------------------------------------------------------------------------------------------------;;
-;> --- TBD ---                                                                                    ;;
+;> [_img] = pointer to image                                                                      ;;
 ;;------------------------------------------------------------------------------------------------;;
-;< eax = false / true                                                                             ;;
+;< eax = 0 (fail) / 1 (success)                                                                   ;;
 ;;================================================================================================;;
     mov eax, [_img]
     mov edx, [eax + Image.Previous]
     test    edx, edx
 endp
 ;;================================================================================================;;
 proc img.destroy _img ;///////////////////////////////////////////////////////////////////////////;;
+;;------------------------------------------------------------------------------------------------;;
-;;------------------------------------------------------------------------------------------------;;
+;? frees memory occupied by an image and all the memory regions its fields point to               ;;
-;? --- TBD ---                                                                                    ;;
+;? follows Previous/Next pointers and deletes all the images in sequence                          ;;
 ;;------------------------------------------------------------------------------------------------;;
-;> --- TBD ---                                                                                    ;;
+;> [_img] = pointer to image                                                                      ;;
 ;;------------------------------------------------------------------------------------------------;;
-;< eax = false / true                                                                             ;;
+;< eax = 0 (fail) / 1 (success)                                                                   ;;
 ;;================================================================================================;;
     push    1
     mov eax, [_img]
     mov eax, [eax + Image.Previous]
 .done:
     pop edi esi ebx
     ret
 endp
+align 4
+img.formats_table:
+  .bmp  dd LIBIMG_FORMAT_ID_BMP,  img.is.bmp,  img.decode.bmp,     img.encode.bmp, 0
+  .ico  dd LIBIMG_FORMAT_ID_ICO,  img.is.ico,  img.decode.ico_cur, img.encode.ico, 0
+  .cur  dd LIBIMG_FORMAT_ID_CUR,  img.is.cur,  img.decode.ico_cur, img.encode.cur, 0
+  .gif  dd LIBIMG_FORMAT_ID_GIF,  img.is.gif,  img.decode.gif,     img.encode.gif, 0
+  .png  dd LIBIMG_FORMAT_ID_PNG,  img.is.png,  img.decode.png,     img.encode.png, 0
+  .jpg  dd LIBIMG_FORMAT_ID_JPEG, img.is.jpg,  img.decode.jpg,     img.encode.jpg, 0
+  .tga  dd LIBIMG_FORMAT_ID_TGA,  img.is.tga,  img.decode.tga,     img.encode.tga, 0
+  .pcx  dd LIBIMG_FORMAT_ID_PCX,  img.is.pcx,  img.decode.pcx,     img.encode.pcx, 0
+  .xcf  dd LIBIMG_FORMAT_ID_XCF,  img.is.xcf,  img.decode.xcf,     img.encode.xcf, 0
+  .tiff dd LIBIMG_FORMAT_ID_TIFF, img.is.tiff, img.decode.tiff,    img.encode.tiff,0
+  .pnm  dd LIBIMG_FORMAT_ID_PNM,  img.is.pnm,  img.decode.pnm,     img.encode.pnm, 1 + (1 SHL Image.bpp1) + (1 SHL Image.bpp8) + (1 SHL Image.bpp24)
+  .wbmp dd LIBIMG_FORMAT_ID_WBMP, img.is.wbmp, img.decode.wbmp,    img.encode.wbmp,0
+  .z80  dd LIBIMG_FORMAT_ID_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
 ;;================================================================================================;;
 ;;////////////////////////////////////////////////////////////////////////////////////////////////;;
 ;;================================================================================================;;
 ;! Below are private procs you should never call 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
-  .tiff dd img.is.tiff, img.decode.tiff, img.encode.tiff
-  .pnm dd img.is.pnm, img.decode.pnm, img.encode.pnm
-  .wbmp dd img.is.wbmp, img.decode.wbmp, img.encode.wbmp
-  .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
-    img.unlock_bits , 'img_unlock_bits' , \
+    img.unlock_bits  , 'img_unlock_bits'  , \
-    img.flip    , 'img_flip'        , \
+    img.flip         , 'img_flip'         , \
-    img.flip.layer  , 'img_flip_layer'  , \
+    img.flip.layer   , 'img_flip_layer'   , \
-    img.rotate  , 'img_rotate'      , \
+    img.rotate       , 'img_rotate'       , \
-    img.rotate.layer, 'img_rotate_layer', \
+    img.rotate.layer , 'img_rotate_layer' , \
-    img.draw        , 'img_draw'
+    img.draw         , 'img_draw'         , \
+    img.formats_table, 'img_formats_table'
 ; import from deflate unpacker
 ; is initialized only when PNG loading is requested
 align 4

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/libs-dev/libimg/libimg.asm – Rev 2392 → 2684