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


;;================================================================================================;;
;;//// xcf.asm //// (c) dunkaist, 2011-2012 //////////////////////////////////////////////////////;;
;;================================================================================================;;
;;                                                                                                ;;
;; 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 .                                                    ;;
;;                                                                                                ;;
;;================================================================================================;;
;;                                                                                                ;;
;; References:                                                                                    ;;
;;   1. "SPECIFICATION OF THE XCF FILE FORMAT"                                                    ;;
;;      by Henning Makholm                                                                        ;;
;;      http://svn.gnome.org/viewvc/gimp/trunk/devel-docs/xcf.txt?view=markup                     ;;
;;   2. "Layer Modes"                                                                             ;;
;;      from docs.gimp.org                                                                        ;;
;;      http://docs.gimp.org/en/gimp-concepts-layer-modes.html                                    ;;
;;                                                                                                ;;
;;================================================================================================;;
include	'xcf.inc'
;include	'../../../../../system/board/trunk/debug.inc'
 
 
 
 
 
MAX_LAYERS		=	255
 
;;================================================================================================;;
proc img.is.xcf _data, _length ;//////////////////////////////////////////////////////////////////;;
;;------------------------------------------------------------------------------------------------;;
;? Determine if raw data could be decoded (is in xcf format)                                      ;;
;;------------------------------------------------------------------------------------------------;;
;> _data = raw data as read from file/stream                                                      ;;
;> _length = data length                                                                          ;;
;;------------------------------------------------------------------------------------------------;;
;< eax = false / true                                                                             ;;
;;================================================================================================;;
 
	push	edi
	xor	eax, eax
 
	mov	edi, [_data]
 
	cmp	dword[edi + xcf_header.magic_string], 'gimp'
	jne	.is_not_xcf
	cmp	dword[edi + xcf_header.magic_string + 4], ' xcf'
	jne	.is_not_xcf
 
	cmp	[edi + xcf_header.version], 'file'
	je	@f
	cmp	[edi + xcf_header.version], 'v001'
	je	@f
	cmp	[edi + xcf_header.version], 'v002'
	je	@f
	jmp	.is_not_xcf
    @@:
 
	cmp	byte[edi + xcf_header.reserved], 0
	jne	.is_not_xcf
 
  .is_xcf:
	inc	eax
 
  .is_not_xcf:
	pop	edi
	ret
endp
 
 
;;================================================================================================;;
proc img.decode.xcf _data, _length, _options ;////////////////////////////////////////////////////;;
;;------------------------------------------------------------------------------------------------;;
;? Decode data into image if it contains correctly formed raw data in xcf format                  ;;
;;------------------------------------------------------------------------------------------------;;
;> _data = raw data as read from file/stream                                                      ;;
;> _length = data length                                                                          ;;
;;------------------------------------------------------------------------------------------------;;
;< eax = 0 (error) or pointer to image                                                            ;;
;;================================================================================================;;
locals
	layer_count	rd	1
	retvalue	rd	1
endl
 
	push	ebx esi edi
 
	mov	esi, [_data]
	add	esi, xcf_header.width
 
	lodsd
	bswap	eax
	mov	ebx, eax
	lodsd
	bswap	eax
	mov	edx, eax
 
	lodsd
	bswap	eax
	test	eax, eax
	jz	.process_rgb
	dec	eax
	jz	.process_grayscale
	dec	eax
	jz	.process_indexed
	jmp	.error
 
 
  .process_rgb:
 
	stdcall	img.create, ebx, edx, Image.bpp32
	mov	[retvalue], eax
	test	eax, eax
	jz	.error
 
	mov	ebx, eax
 
	mov	edx, XCF_BASETYPE_RGB
 
	jmp	.common_process
 
  .process_grayscale:
 
	stdcall	img.create, ebx, edx, Image.bpp8i
	mov	[retvalue], eax
	test	eax, eax
	jz	.error
 
	mov	ebx, eax
 
	mov	eax, [ebx + Image.Width]
	imul	[ebx + Image.Height]
	shl	eax, 1
	mov	[ebx + Image.Palette], eax
	add	eax, 256*4
	invoke	mem.realloc, [ebx + Image.Data], eax
	mov	[ebx + Image.Data], eax
	add	[ebx + Image.Palette], eax
 
	mov	edi, [ebx + Image.Palette]
	mov	eax, 0xff000000
    @@:
	stosd
	add	eax, 0x00010101
	jnc	@b
 
	mov	edx, XCF_BASETYPE_GRAY
 
	jmp	.common_process
 
 
  .process_indexed:
 
	stdcall	img.create, ebx, edx, Image.bpp8i
	mov	[retvalue], eax
	test	eax, eax
	jz	.error
 
	mov	ebx, eax
 
	mov	eax, [ebx + Image.Width]
	imul	[ebx + Image.Height]
	shl	eax, 1
	mov	[ebx + Image.Palette], eax
	add	eax, 256*4
	invoke	mem.realloc, [ebx + Image.Data], eax
	mov	[ebx + Image.Data], eax
	add	[ebx + Image.Palette], eax
 
	mov	edx, XCF_BASETYPE_INDEXED
;	jmp	.common_process
 
  .common_process:
 
	invoke	mem.alloc, sizeof.xcf_ext
	or	eax, eax
	jz	.error
	mov	[ebx + Image.Extended], eax
	mov	[eax + xcf_ext.opacity], 0xffffffff
	mov	[eax + xcf_ext.type], edx
 
	stdcall	xcf._.parse_properties, ebx
 
	mov	edi, esi
	xor	eax, eax
	mov	ecx, MAX_LAYERS
	mov	[layer_count], MAX_LAYERS-1
	repne	scasd
	sub	[layer_count], ecx
	mov	esi, edi
	xor	ecx, ecx
 
  .still:
	sub	esi, 8
	lodsd
	bswap	eax
 
	push	ecx
	stdcall	xcf._.decode_layer, eax, [_data]
	pop	ecx
	test	eax, eax
	jz	@f
	push	ecx
	stdcall	xcf._.merge_down, eax, [retvalue], ecx
	pop	ecx
	add	ecx, 1
    @@:
	dec	[layer_count]
	jnz	.still
 
	cmp	[ebx + Image.Type], Image.bpp8i
	jne	.quit
	stdcall	xcf._.pack_8a, ebx
	jmp	.quit
 
  .error:
	mov	[retvalue], 0
  .quit:
	pop	edi esi ebx
	mov	eax, [retvalue]
	ret
endp
 
 
;;================================================================================================;;
proc img.encode.xcf _img, _p_length, _options ;///////////////////////////////////////////////////;;
;;------------------------------------------------------------------------------------------------;;
;? Encode image into raw data in xcf format                                                       ;;
;;------------------------------------------------------------------------------------------------;;
;> _img = pointer to image                                                                        ;;
;;------------------------------------------------------------------------------------------------;;
;< eax = 0 (error) or pointer to encoded data                                                     ;;
;< _p_length = encoded data length                                                                ;;
;;================================================================================================;;
	xor	eax, eax
	ret
endp
 
 
;;================================================================================================;;
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
;;================================================================================================;;
;! Below are private procs you should never call directly from your code                          ;;
;;================================================================================================;;
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
;;================================================================================================;;
proc	xcf._.parse_properties _img
 
	mov	ebx, [_img]
  .begin:
	lodsd
	bswap	eax
 
	mov	ecx, (xcf._.prop_table_end - xcf._.prop_table_begin)/8
	mov	edi, xcf._.prop_table_begin
 
  .still:
	cmp	eax, [edi]
	jne	@f
	jmp	dword[edi + 4]
    @@:
	add	edi, 8
	dec	ecx
	jnz	.still
	lodsd
	bswap	eax
	add	esi, eax
	jmp	.begin
 
  .00:			; PROP_END
	lodsd
	ret
 
  .01:			; PROP_COLORMAP
	lodsd
	mov	ecx, [ebx + Image.Extended]
	cmp	[ecx + xcf_ext.type], XCF_BASETYPE_INDEXED
	je	@f
	bswap	eax
	add	esi, eax
	jmp	xcf._.parse_properties.begin
    @@:
	lodsd
	bswap	eax
	mov	ecx, eax
	mov	edi, [ebx + Image.Palette]
 
    @@:
	lodsd
	sub	esi, 1
	bswap	eax
	shr	eax, 8
	or	eax, 0xff000000
	stosd
	dec	ecx
	jnz	@b
	jmp	xcf._.parse_properties.begin
 
  .06:			; PROP_OPACITY
	lodsd
	lodsd
	bswap	eax
	mov	ecx, [ebx + Image.Extended]
	mov	[ecx + xcf_ext.opacity], eax
	jmp	xcf._.parse_properties.begin
 
  .07:			; PROP_MODE
	lodsd
	lodsd
	bswap	eax
	mov	ecx, [ebx + Image.Extended]
	mov	[ecx + xcf_ext.layer_mode], eax
	jmp	xcf._.parse_properties.begin
 
  .08:			; PROP_VISIBLE
	lodsd
	lodsd
	bswap	eax
	mov	ecx, [ebx + Image.Extended]
	mov	[ecx + xcf_ext.visible], eax
	jmp	xcf._.parse_properties.begin
 
  .11:			; PROP_APPLY_MASK
	lodsd
	lodsd
	bswap	eax
	mov	ecx, [ebx + Image.Extended]
	mov	[ecx + xcf_ext.apply_mask], eax
	jmp	xcf._.parse_properties.begin
 
  .15:			; PROP_OFFSETS
	lodsd
	lodsd
	mov	ecx, [ebx + Image.Extended]
	bswap	eax
	mov	[ecx + xcf_ext.offset_x], eax
	lodsd
	bswap	eax
	mov	[ecx + xcf_ext.offset_y], eax
	jmp	xcf._.parse_properties.begin
endp
 
 
proc	xcf._.decode_channel _channel_begin, _data
locals
	channel_width		rd	1
	channel_height		rd	1
	planes_todo		rd	1
	total_bpl		rd	1
endl
 
	push	ebx esi edi
	mov	esi, [_channel_begin]
	add	esi, [_data]
	lodsd
	bswap	eax
	mov	[channel_width], eax
	mov	[total_bpl], eax
	lodsd
	bswap	eax
	mov	[channel_height], eax
	lodsd
	bswap	eax
	add	esi, eax
 
	stdcall	img.create, [channel_width], [channel_height], Image.bpp8i
	mov	ebx, eax
	test	ebx, ebx
	jz	.quit
	invoke	mem.alloc, sizeof.xcf_ext
	or	eax, eax
	jz	.error
	mov	[ebx + Image.Extended], eax
 
	stdcall	xcf._.parse_properties, ebx
 
	lodsd
	bswap	eax
	mov	esi, eax
	add	esi, [_data]
	lodsd
	lodsd
	lodsd
	bswap	eax
	mov	[planes_todo], eax
	lodsd
	bswap	eax
	mov	esi, eax
	add	esi, [_data]
	lodsd
	lodsd
 
	mov	edi, [ebx + Image.Data]
	mov	ecx, 0
    @@:
	lodsd
	test	eax, eax
	jz	.quit
	bswap	eax
	add	eax, [_data]
	stdcall	xcf._.decode_tile, eax, [channel_width], [channel_height], [total_bpl], [planes_todo], 1
	add	ecx, 1
	jmp	@b
 
  .error:
	stdcall	img.destroy, ebx
	mov	ebx, 0
  .quit:
	mov	eax, ebx
	pop	edi esi ebx
	ret
endp
 
 
proc	xcf._.decode_layer _layer_begin, _data
locals
	layer_width		rd	1
	layer_height		rd	1
	planes_todo		rd	1
	total_bpl		rd	1
	color_step		rd	1
endl
 
	push	ebx esi edi
	mov	esi, [_layer_begin]
	add	esi, [_data]
	lodsd
	bswap	eax
	mov	[layer_width], eax
	mov	[total_bpl], eax
	shl	[total_bpl], 1
	lodsd
	bswap	eax
	mov	[layer_height], eax
	lodsd
	bswap	eax
	mov	edx, Image.bpp8a
	mov	[color_step], 1
	cmp	eax, 2
	jge	@f
	mov	[color_step], 3
	mov	edx, Image.bpp32
	shl	[total_bpl], 1
    @@:
	stdcall	img.create, [layer_width], [layer_height], edx
	mov	ebx, eax
	test	ebx, ebx
	jz	.quit
	invoke	mem.alloc, sizeof.xcf_ext
	or	eax, eax
	jz	.error
	mov	[ebx + Image.Extended], eax
 
	lodsd
	bswap	eax
	add	esi, eax
	stdcall	xcf._.parse_properties, ebx
	mov	edx, [ebx + Image.Extended]
	or	[edx + xcf_ext.visible], 0
	jz	.unvisible
 
	lodsd
	bswap	eax
	push	esi
	mov	esi, eax
	add	esi, [_data]
	lodsd
	lodsd
	lodsd
	bswap	eax
	mov	[planes_todo], eax
;	mov	ecx, [ebx + Image.Extended]
;	mov	[ecx + xcf_ext.planes], eax
	lodsd
	bswap	eax
	mov	esi, eax
	add	esi, [_data]
	lodsd
	lodsd
 
	mov	edi, [ebx + Image.Data]
	mov	ecx, 0
    @@:
	lodsd
	test	eax, eax
	jz	@f
	bswap	eax
	add	eax, [_data]
	stdcall	xcf._.decode_tile, eax, [layer_width], [layer_height], [total_bpl], [planes_todo], 0
	add	ecx, 1
	jmp	@b
    @@:
 
	stdcall	xcf._.apply_opacity, ebx, [color_step]
 
	pop	esi
	lodsd
	bswap	eax
	test	eax, eax
	jz	.quit
 
	stdcall	xcf._.decode_channel, eax, [_data]
	test	eax, eax
	jz	.error
 
	mov	edx, [ebx + Image.Extended]
	cmp	[edx + xcf_ext.apply_mask], 0
	je	.quit
 
	stdcall	xcf._.apply_alpha_mask, ebx, eax, [color_step]
	jmp	.quit
 
  .unvisible:
  .error:
	stdcall	img.destroy, ebx
	mov	ebx, 0
  .quit:
	mov	eax, ebx
	pop	edi esi ebx
	ret
endp
 
 
proc	xcf._.decode_tile _tile_data, _width, _height, _total_bpl, _bytes_pp, _is_channel
locals
	tile_x			rd	1
	tile_y			rd	1
	tile_width		rd	1
	tile_height		rd	1
	planes_todo		rd	1
	color_step		rd	1
endl
 
	push	ebx ecx edx esi edi
	pushd	[_bytes_pp]
	popd	[planes_todo]
 
	cmp	[_is_channel], 1
	je	@f
	test	[_bytes_pp], 0x01
	jz	@f
	add	[_bytes_pp], 1
    @@:
	mov	ebx, [_bytes_pp]
	sub	ebx, 1
	mov	[color_step], ebx
 
	mov	esi, [_tile_data]
	mov	eax, ecx
	mov	ebx, [_width]
	dec	ebx
	shr	ebx, 6
	inc	ebx
	mov	edx, 0
	div	bx
	mov	[tile_x], edx
	mov	[tile_y], eax
 
	mov	[tile_width], 64
	mov	ebx, [_width]
	test	ebx, 0x0000003F
	jz	@f
	dec	ebx
	shr	ebx, 6
	cmp	ebx, [tile_x]
	jne	@f
	mov	ebx, [_width]
	and	ebx, 0x0000003F
	mov	[tile_width], ebx
    @@:
 
	mov	[tile_height], 64
	mov	ebx, [_height]
	test	ebx, 0x0000003F
	jz	@f
	dec	ebx
	shr	ebx, 6
	cmp	ebx, [tile_y]
	jne	@f
	mov	ebx, [_height]
	and	ebx, 0x0000003F
	mov	[tile_height], ebx
    @@:
 
 
	mov	eax, [_total_bpl]
	shl	eax, 6
	mul	[tile_y]
	add	edi, eax
 
	mov	eax, [tile_x]
	shl	eax, 6
	imul	eax, [_bytes_pp]
	add	edi, eax
 
	cmp	[_is_channel], 1
	jne	@f
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
	jmp	.quit
    @@:
	mov	eax, [planes_todo]
	dec	eax
	jz	.p1
	dec	eax
	jz	.p2
	dec	eax
	jz	.p3
	jmp	.p4
  .p1:
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
	add	edi, 1
	stdcall	xcf._.fill_color, [tile_width], [tile_height], [_total_bpl], [_bytes_pp], [color_step]
	jmp	.quit
  .p2:
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
	add	edi, 1
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
	jmp	.quit
  .p3:
	add	edi, 2
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
	sub	edi, 1
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
	sub	edi, 1
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
	add	edi, 3
	stdcall	xcf._.fill_color, [tile_width], [tile_height], [_total_bpl], [_bytes_pp], [color_step]
	jmp	.quit
  .p4:
	add	edi, 2
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
	sub	edi, 1
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
	sub	edi, 1
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
	add	edi, 3
	stdcall	xcf._.decode_color, [tile_width], [tile_height], [color_step], [_total_bpl], [_bytes_pp]
;	jmp	.quit
 
  .quit:
	pop	edi esi edx ecx ebx
	ret
endp
 
 
proc	xcf._.fill_color _tile_width, _tile_height, _total_bpl, _bytes_pp, _color_step
	push	ebx
	mov	edx, [_color_step]
	mov	ebx, [_total_bpl]
	mov	eax, [_bytes_pp]
	mul	byte[_tile_width]
	sub	ebx, eax
 
	mov	ch, byte[_tile_height]
	mov	al, 0xff
  .line:
	mov	cl, byte[_tile_width]
    @@:
	stosb
	add	edi, edx
	dec	cl
	jnz	@b
	add	edi, ebx
	dec	ch
	jnz	.line
	pop	ebx
	ret
endp
 
 
proc	xcf._.decode_color _tile_width, _tile_height, _color_step, _total_bpl, _bytes_pp
locals
	level_width		rd	1
	level_height		rd	1
	line_step		rd	1	; [_total_bpl] - [_tile_width]*[_bytes_pp]
endl
 
	push	edi
 
	mov	ebx, [_total_bpl]
	movzx	eax, byte[_bytes_pp]
	mul	byte[_tile_width]
	sub	ebx, eax
	mov	[line_step], ebx
	mov	ebx, [_tile_height]
	mov	edx, [_tile_width]
 
  .decode:
	lodsb
	cmp	al, 127
	je	.long_identical
	jb	.short_identical
	test	al, 0x7f
	jz	.long_different
	jmp	.short_different
 
  .short_identical:
	movzx	ecx, al
	add	ecx, 1
	lodsb
	jmp	.step1
  .long_identical:
	mov	ecx, 0
	lodsw
	mov	cx, ax
	xchg	cl, ch
	lodsb
  .step1:
	cmp	cx, dx
	je	.step2
	jl	.step3
	xchg	cx, dx
	sub	dx, cx
	sub	bx, 1
    @@:
	stosb
	add	edi, [_color_step]
	loop	@b
	mov	cx, dx
	mov	edx, [_tile_width]
	add	edi, [line_step]
	jmp	.step1
 
  .step2:
    @@:
	stosb
	add	edi, [_color_step]
	loop	@b
	mov	edx, [_tile_width]
	add	edi, [line_step]
	dec	bx
	jz	.quit
	jmp	.decode
  .step3:
	sub	dx, cx
    @@:
	stosb
	add	edi, [_color_step]
	loop	@b
	jmp	.decode
 
 
  .short_different:
	movzx	ecx, al
	neg	cx
	add	cx, 256
	jmp	.step4
  .long_different:
	mov	ecx, 0
	lodsb
	mov	ch, al
	lodsb
	mov	cl, al
  .step4:
	cmp	cx, dx
	je	.step5
	jl	.step6
	xchg	cx, dx
	sub	dx, cx
	sub	bx, 1
    @@:
	movsb
	add	edi, [_color_step]
	loop	@b
	mov	cx, dx
	mov	edx, [_tile_width]
	add	edi, [line_step]
	jmp	.step4
 
  .step5:
    @@:
	movsb
	add	edi, [_color_step]
	loop	@b
	mov	edx, [_tile_width]
	add	edi, [line_step]
	dec	bx
	jz	.quit
	jmp	.decode
 
  .step6:
	sub	dx, cx
    @@:
	movsb
	add	edi, [_color_step]
	loop	@b
	jmp	.decode
 
  .quit:
	pop	edi
	ret
endp
 
 
proc	xcf._.merge_down _img, _bottom, _layer_number
locals
	copy_width		rd	1
	copy_height		rd	1
	img_x1			rd	1
	img_y1			rd	1
	bottom_x1		rd	1
	bottom_y1		rd	1
	img_total_bpl		rd	1
	bottom_total_bpl	rd	1
	img_length		rd	1
	bottom_length		rd	1
endl
	push	ebx esi edi
 
	mov	ebx, [_bottom]
	mov	edx, [_img]
 
	mov	[img_x1], 0
	push	[edx + Image.Width]
	pop	[img_length]
 
	mov	[bottom_x1], 0
	mov	ecx, [ebx + Image.Width]
	mov	[bottom_length], ecx        
 
	mov	eax, [edx + Image.Extended]
	movsx	eax, word[eax + xcf_ext.offset_x]
	cmp	eax, 0
	jg	.greater_x
	jl	.lesser_x
	mov	[copy_width], ecx
	jmp	.done_x
  .greater_x:
	add	[bottom_x1], eax
	sub	[bottom_length], eax
	jns	.label_x
	mov	[copy_width], 0
	jmp	.done_x
  .lesser_x:
	sub	[img_x1], eax
	add	[img_length], eax
	jns	.label_x
	mov	[copy_width], 0
	jmp	.done_x
  .label_x:
	mov	ecx, [img_length]
	cmp	ecx, [bottom_length]
	jng	@f
	mov	ecx, [bottom_length]
    @@:
	mov	[copy_width], ecx
  .done_x:
 
 
	mov	[img_y1], 0
	push	[edx + Image.Height]
	pop	[img_length]
 
	mov	[bottom_y1], 0
	mov	ecx, [ebx + Image.Height]
	mov	[bottom_length], ecx        
 
	mov	eax, [edx + Image.Extended]
	movsx	eax, word[eax + xcf_ext.offset_y]
	cmp	eax, 0
	jg	.greater_y
	jl	.lesser_y
	mov	[copy_height], ecx
	jmp	.done_y
  .greater_y:
	add	[bottom_y1], eax
	sub	[bottom_length], eax
	jns	.label_y
	mov	[copy_height], 0
	jmp	.done_y
  .lesser_y:
	sub	[img_y1], eax
	add	[img_length], eax
	jns	.label_y
	mov	[copy_height], 0
	jmp	.done_y
  .label_y:
	mov	ecx, [img_length]
	cmp	ecx, [bottom_length]
	jng	@f
	mov	ecx, [bottom_length]
    @@:
	mov	[copy_height], ecx
  .done_y:
 
	mov	esi, [edx + Image.Data]
	mov	edi, [ebx + Image.Data]
 
	mov	eax, [edx + Image.Width]
	imul	eax, [img_y1]
	add	eax, [img_x1]
	shl	eax, 1
	cmp	[edx + Image.Width], Image.bpp8a
	je	@f
	shl	eax, 1
    @@:
	add	esi, eax
 
	mov	eax, [ebx + Image.Width]
	imul	eax, [bottom_y1]
	add	eax, [bottom_x1]
	shl	eax, 1
	cmp	[ebx + Image.Width], Image.bpp8i
	je	@f
	shl	eax, 1
    @@:
	add	edi, eax
 
 
	mov	eax, [edx + Image.Width]
	sub	eax, [copy_width]
	shl	eax, 1
	cmp	[edx + Image.Width], Image.bpp8a
	je	@f
	shl	eax, 1
    @@:
	mov	[img_total_bpl], eax
 
	mov	eax, [ebx + Image.Width]
	sub	eax, [copy_width]
	shl	eax, 1
	cmp	[ebx + Image.Width], Image.bpp8i
	je	@f
	shl	eax, 1
    @@:
	mov	[bottom_total_bpl], eax
 
	cmp	[_layer_number], 0
	jne	.not_first
	mov	ecx, [copy_width]
	imul	ecx, [copy_height]
	cmp	[ebx + Image.Type], Image.bpp8i
	je	.bpp8a
  .bpp32:
	rep	movsd
	jmp	.done
  .bpp8a:
	rep	movsw
	jmp	.done
  .not_first:
 
	push	edi
	mov	ecx, [edx + Image.Extended]
	mov	eax, [ecx + xcf_ext.layer_mode]
 
	mov	ecx, [ebx + Image.Extended]
	mov	ecx, [ecx + xcf_ext.type]
 
	cmp	ecx, XCF_BASETYPE_RGB
	jne	@f
	mov	edx, 4
	jmp	.type_defined
    @@:
	cmp	ecx, XCF_BASETYPE_GRAY
	jne	@f
	mov	edx, 8
	jmp	.type_defined
    @@:
	mov	edx, 12
  .type_defined:
	mov	ecx, (xcf._.composite_table.end - xcf._.composite_table.begin) / 8
	mov	edi, xcf._.composite_table.begin
 
  .still:
	cmp	eax, [edi]
	jne	@f
	add	edi, edx
	mov	edx, [edi]
	jmp	.composite_found
    @@: 
	add	edi, 16
	dec	ecx
	jnz	.still
 
  .composite_found:
	pop	edi
 
	mov	ecx, [ebx + Image.Extended]
	cmp	[ecx + xcf_ext.type], XCF_BASETYPE_INDEXED
	jne	@f
	stdcall	edx, [copy_width], [copy_height], [bottom_total_bpl], [img_total_bpl]
	jmp	.done
    @@:
	cmp	eax, 1
	ja	@f
	stdcall	edx, [copy_width], [copy_height], [bottom_total_bpl], [img_total_bpl]
	jmp	.done
    @@:
 
 
	cmp	[ebx + Image.Type], Image.bpp8i
	jne	@f
	stdcall	xcf._.merge_8a, [copy_width], [copy_height], [img_total_bpl], [bottom_total_bpl]
	jmp	.done
    @@:
	stdcall	xcf._.merge_32, [copy_width], [copy_height], [img_total_bpl], [bottom_total_bpl]
;	jmp	.done
  .done:
	stdcall	img.destroy, [_img]
	pop	edi esi ebx
	ret
endp
 
 
proc	xcf._.pack_8a _img
	mov	ebx, [_img]
	mov	esi, [ebx + Image.Data]
	mov	edi, esi
	mov	ecx, [ebx + Image.Width]
	imul	ecx, [ebx + Image.Height]
    @@:
	lodsw
	stosb
	dec	ecx
	jnz	@b
	ret
endp
 
 
proc	xcf._.apply_opacity _img, _color_step
 
	push	ebx
 
	mov	edx, [ebx + Image.Extended]
	mov	edx, [edx + xcf_ext.opacity]
	cmp	dl, 0xff
	je	.quit
 
	mov	ecx, [ebx + Image.Width]
	imul	ecx, [ebx + Image.Height]
	mov	esi, [ebx + Image.Data]
	mov	ebx, [_color_step]
	add	esi, ebx
	mov	edi, esi
    @@:
	lodsb
	mul	dl
	shr	ax, 8
	stosb
	add	esi, ebx
	add	edi, ebx
	dec	ecx
	jnz	@b
 
  .quit:
	pop	ebx
	ret
endp
 
 
proc	xcf._.apply_alpha_mask _img, _mask, _color_step
 
	push	ebx
 
	mov	ebx, [_img]
	mov	esi, [_mask]
	mov	esi, [esi + Image.Data]
	mov	edi, [ebx + Image.Data]
	mov	ecx, [ebx + Image.Width]
	imul	ecx, [ebx + Image.Height]
	mov	ebx, [_color_step]
	add	edi, ebx
    @@:
	lodsb
	mul	byte[edi]
	shr	ax, 8
	stosb
	add	edi, ebx
	dec	ecx
	jnz	@b
 
	stdcall	img.destroy, [_mask]
	pop	ebx
	ret
endp
 
 
;;================================================================================================;;
proc	xcf._.rgb2hsv ;///////////////////////////////////////////////////////////////////////////;;
;;------------------------------------------------------------------------------------------------;;
;? convert color from RGB to HSV space                                                            ;;
;;------------------------------------------------------------------------------------------------;;
;> eax = color (0xAARRGGBB)                                                                       ;;
;;------------------------------------------------------------------------------------------------;;
;< eax = color (0xAAHHSSVV)                                                                       ;;
;;================================================================================================;;
locals
	vsha		rd	1
	max		rd	1
	min		rd	1
	med		rd	1
endl
	push	ebx ecx edx
 
	mov	[vsha], eax
	movzx	eax, byte[vsha]		; eax = al = blue
	movzx	ecx, byte[vsha+1]	; ecx = cl = green
	movzx	edx, byte[vsha+2]	; edx = dl = red
 
	cmp	al, cl
	jne	@f
	cmp	al, dl
	jne	@f
	ror	eax, 8
	mov	ax, 0
	rol	eax, 8
	jmp	.quit
 
    @@:
	cmp	dl, cl
	ja	@f
	cmp	dl, al
	ja	@f
	mov	byte[min], dl
	jmp	.min_found
    @@:
	cmp	cl, al
	ja	@f
	cmp	cl, dl
	ja	@f
	mov	byte[min], cl
	jmp	.min_found
    @@:
	mov	byte[min], al
;	jmp	.min_found
  .min_found:
 
	cmp	dl, cl
	jb	@f
	cmp	dl, al
	jb	@f
	mov	byte[max], dl
	sub	cx, ax
	mov	dx, cx
	mov	cx, 0
	jmp	.max_found
    @@:
	cmp	cl, al
	jb	@f
	cmp	cl, dl
	jb	@f
	mov	byte[max], cl
	sub	ax, dx
	mov	dx, ax
	mov	cx, 85
	jmp	.max_found
    @@:
	mov	byte[max], al
	sub	dx, cx
	mov	cx, 171
;	jmp	.max_found
  .max_found:
 
	mov	al, byte[max]
	sub	al, byte[min]
	mov	byte[med], al
 
 
	imul	dx, 43
	movsx	eax, dx
	ror	eax, 16
	mov	dx, ax
	rol	eax, 16
	mov	byte[med + 1], 0
	idiv	word[med]
	add	al, cl
	mov	byte[vsha + 2], al
 
	mov	al, byte[max]
	mov	byte[vsha], al
 
	mov	byte[vsha + 1], 0
	test	al, al
	jz	@f
	mov	byte[vsha + 1], 0xff
	cmp	al, byte[med]
	je	@f
	mov	al, byte[med]
	shl	ax, 8
	div	byte[max]
	mov	byte[vsha + 1], al
    @@:
	mov	eax, [vsha]
 
  .quit:
	pop	edx ecx ebx
	ret
endp
 
 
;;================================================================================================;;
proc	xcf._.hsv2rgb ;///////////////////////////////////////////////////////////////////////////;;
;;------------------------------------------------------------------------------------------------;;
;? convert color from HSV to RGB space                                                            ;;
;;------------------------------------------------------------------------------------------------;;
;> eax = color (0xAAHHSSVV)                                                                       ;;
;;------------------------------------------------------------------------------------------------;;
;< eax = color (0xAARRGGBB)                                                                       ;;
;;================================================================================================;;
locals
	vsha	rd	1
	f	rb	1
	c	rb	1
	x	rb	1
endl
 
	push	ebx ecx edx
 
 
	mov	[vsha], eax
	mov	bl, byte[vsha + 1]
	mul	bl
	mov	byte[c], ah
 
	movzx	eax, byte[vsha + 2]
	cmp	eax, 43
	ja	@f
	lea	eax, [eax*3]
	shl	eax, 1
	mov	ebx, eax
	shr	ebx, 7
	sub	eax, ebx
	shr	ebx, 1
	sub	eax, ebx
	jmp	.ok
 
    @@:
	cmp	eax, 86
	ja	@f
	sub	eax, 44
	lea	eax, [eax*3]
	shl	eax, 1
	neg	al
	add	al, 0xff
	jmp	.ok
 
    @@:
	cmp	eax, 129
	ja	@f
	sub	eax, 87
	lea	eax, [eax*3]
	shl	eax, 1
	jmp	.ok
 
    @@:
	cmp	eax, 171
	ja	@f
	sub	eax, 130
	lea	eax, [eax*3]
	shl	eax, 1
	neg	al
	add	al, 0xff
	jmp	.ok
 
    @@:
	cmp	eax, 214
	ja	@f
	sub	eax, 172
	lea	eax, [eax*3]
	shl	eax, 1
	jmp	.ok
    @@:
	sub	eax, 215
	lea	eax, [eax*3]
	shl	eax, 1
	neg	al
	add	al, 0xff
;	jmp	.ok
  .ok:
 
	neg	al
	add	al, 0xff
	neg	al
	add	al, 0xff
;	shr	ax, 8
	mul	byte[c]
	mov	byte[x], ah
 
 
 
	mov	al, byte[vsha+2]
	cmp	al, 43
	jae	@f
	mov	eax, [vsha]
	shr	eax, 8
	mov	ah, byte[c]
	shl	eax, 8
	mov	ah, byte[x]
	mov	al, 0
	jmp	.done
 
    @@:
	cmp	al, 86
	jae	@f
	mov	eax, [vsha]
	shr	eax, 8
	mov	ah, byte[x]
	shl	eax, 8
	mov	ah, byte[c]
	mov	al, 0
	jmp	.done
 
    @@:
	cmp	al, 129
	jae	@f
	mov	eax, [vsha]
	shr	eax, 8
	mov	ah, 0
	shl	eax, 8
	mov	ah, byte[c]
	mov	al, byte[x]
	jmp	.done
 
    @@:
	cmp	al, 171
	jae	@f
	mov	eax, [vsha]
	shr	eax, 8
	mov	ah, 0
	shl	eax, 8
	mov	ah, byte[x]
	mov	al, byte[c]
	jmp	.done
 
    @@:
	cmp	al, 214
	jae	@f
	mov	eax, [vsha]
	shr	eax, 8
	mov	ah, byte[x]
	shl	eax, 8
	mov	ah, 0
	mov	al, byte[c]
	jmp	.done
 
    @@:
	mov	eax, [vsha]
	shr	eax, 8
	mov	ah, byte[c]
	shl	eax, 8
	mov	ah, 0
	mov	al, byte[x]
;	jmp	.done
 
  .done:
	mov	bl, byte[vsha]
	sub	bl, byte[c]
	ror	eax, 8
	add	ah, bl
	rol	eax, 8
	add	ah, bl
	add	al, bl
 
  .quit:
	pop	edx ecx ebx
	ret
endp
 
 
;;================================================================================================;;
proc	xcf._.rgb2hsl ;///////////////////////////////////////////////////////////////////////////;;
;;------------------------------------------------------------------------------------------------;;
;? convert color from RGB to HSL space                                                            ;;
;;------------------------------------------------------------------------------------------------;;
;> eax = color (0xAARRGGBB)                                                                       ;;
;;------------------------------------------------------------------------------------------------;;
;< eax = color (0xAAHHSSLL)                                                                       ;;
;;================================================================================================;;
; http://www.asmcommunity.net/board/index.php?topic=7425
; iblis: "I don't know what X-Filez is, but yes you may use it however you wish.  That's why I made this post, to share."
; so pixel_rgb2hsl procedure is based on code by Greg Hoyer (iblis). thanks!
;--------------------------------------------------------------;
; By Greg Hoyer aka "Iblis"                                    ;
;                                                              ;
; RGB2HSL converts a COLORREF  oriented dword filled with 8bit ;
; Red/Green/Blue  values  (00ggbbrr) to  a similarly  oriented ;
; dword filled with Hue/Saturation/Luminance values (00llsshh) ;
; This procedure  returns the  full range,  from 0-255.   This ;
; offers slightly more  precision over Windows' "color picker" ;
; common dialog, which displays HSL values ranging from 0-240. ;
;                                                              ;
; It is important to note  that true HSL  values are  normally ;
; represented as  floating point  fractions from  0.0 to  1.0. ;
; As such, this  algorithm cannot  be used to  do the precise, ;
; consistent conversions  that may  be required  by heavy-duty ;
; graphics  applications.  To  get the  decimal  fraction  for ;
; the  returned values,  convert  the Hue,  Saturation, and/or ;
; Luminance values to floating  point, and then divide by 255. ;
;--------------------------------------------------------------;
locals
	bgra	rd	1
endl
	push	ebx esi edi
 
	mov	[bgra], eax
 
	movzx	esi, byte[bgra + 0]
	movzx	edi, byte[bgra + 1]
        movzx   ebx, byte[bgra + 2]
	mov	cl, -1
	cmp	esi, edi
	ja	.cmp1
	xchg	esi, edi
	neg	cl
	shl	cl, 1
  .cmp1:
	cmp	edi, ebx
	jb	.cmp2
	xchg	edi, ebx
	neg	cl
  .cmp2:
	cmp	esi, ebx
	ja	.cmp3
	xchg	esi, ebx
	not	cl
  .cmp3:
	neg	ebx
	add	ebx, esi
	mov	eax, edi
	add	edi, esi
	jz	.done
	sub	esi, eax
	jz	.done
	mov	eax, esi
	shl	eax, 8
	sub	eax, esi
	push	edi
	cmp	edi, 0xff
	jbe	.csat
	neg	edi
	add	edi, 510
  .csat:
	xor	edx, edx
	div	edi
	pop      edi
	shr	edi, 1
	shl	eax, 8
	or	edi, eax
	add	cl, 3
	jnc	.noneg
	neg	ebx
  .noneg:
	shl	cl, 2
	mov	eax, 0x13135db9
	shr	eax, cl
	and	eax, 7
	mul	esi
	add	eax, ebx
	mov	ebx, eax
	shl	eax, 8
	sub	eax, ebx
	mov	ebx, esi
	shl	esi, 1
	lea	ebx, [ebx*4 + esi]
	xor	edx, edx
	div	ebx
	shl	eax, 16
	or	eax, edi
  .done:
	bswap	eax
	shr	eax, 8
 
	mov	bl, byte[bgra + 3]
	bswap	eax
	mov	al, bl
	ror	eax, 8
 
 
	pop	edi esi ebx
	ret
endp
 
 
;;================================================================================================;;
proc	xcf._.hsl2rgb ;///////////////////////////////////////////////////////////////////////////;;
;;------------------------------------------------------------------------------------------------;;
;? convert color from HSL to RGB space                                                            ;;
;;------------------------------------------------------------------------------------------------;;
;> eax = color (0xAAHHSSLL)                                                                       ;;
;;------------------------------------------------------------------------------------------------;;
;< eax = color (0xAARRGGBB)                                                                       ;;
;;================================================================================================;;
; http://www.asmcommunity.net/board/index.php?topic=7425
; iblis: "I don't know what X-Filez is, but yes you may use it however you wish.  That's why I made this post, to share."
; so pixel_hsl2rgb procedure is based on code by Greg Hoyer (iblis). thanks!
;--------------------------------------------------------------;
; By Greg Hoyer aka "Iblis"                                    ;
;                                                              ;
; HSL2RGB  does  the  opposite  of  RGB2HSL.   It  converts  a ;
; Hue/Saturation/Luminance  (00llsshh)  dword  back  into  its ;
; corresponding  RGB  COLORREF  (00bbggrr).  This  function is ;
; intented  to be  used exclusively  with RGB2HSL  (see above) ;
;                                                              ;
; If  you're  using  this for  your own  custom  color-chooser ;
; dialog, remember that the  values are in the range of 0-255. ;
; If you MUST emulate the Windows'  color-chooser, convert HSL ;
; values this way before you display them:                     ;
;                                                              ;
; display_value = ( x * 240 ) / 255                            ;
;                                                              ;
; ...where x represents any one of the HSL values.             ;
;--------------------------------------------------------------;
locals
	lsha	rd	1
endl
 
	push	ebx esi edi
 
	mov	[lsha], eax
 
	movzx	ebx, byte[lsha + 0]
	lea	esi, [ebx*2]
	movzx	edi, byte[lsha + 1]
	xor	eax, eax
	mov	cl, 1
	cmp	bl, 0x7f
	ja	.lcase
	dec	al
	xor	ecx, ecx
  .lcase:
	add	eax, edi
	mul	ebx
	or	ecx, ecx
	jz	.scase
	neg	eax
	mov	ecx, ebx
	add	ecx, edi
	mov	edx, ecx
	shl	ecx, 8
	sub	ecx, edx
	add	eax, ecx
  .scase:
	xor	edx, edx
	xor	ecx, ecx
	dec	cl
	mov	edi, ecx
	div	ecx
	jz	.done
	mov	ecx, eax
	sub	esi, eax
	movzx	eax, byte[lsha + 2]
	mov	ebx, eax
	shl	eax, 1
	lea	eax, [ebx*4 + eax]
	xor	edx, edx
	div	edi
	mov	ebx, eax
	mov	eax, ecx
	sub	eax, esi
	mul	edx
	push	ebx
	mov	ebx, ecx
	shl	ebx, 8
	sub	ebx, ecx
	sub	ebx, eax
	xchg	eax, ebx
	xor	edx, edx
	div	edi
	shl	eax, 24
	or	ecx, eax
	mov	eax, esi
	shl	eax, 8
	sub	eax, esi
	shl	esi, 16
	or	ecx, esi
	add	eax, ebx
	xor	edx, edx
	div	edi
	mov	ch, al
	mov	eax, ecx
	pop	ecx
	cmp	cl, 6
	jz	.done
	or	ecx, ecx
	jz	.done
	bswap	eax
	rol	eax, 8
	xchg	ah, al
	dec	ecx
	jz	.done
	ror	eax, 8
	xchg	ah, al
	dec	ecx
	jz	.done
	rol	eax, 8
	xchg	ah, al
	dec	ecx
	jz	.done
	bswap	eax
	rol	eax, 8
	xchg	ah, al
	dec	ecx
	jz	.done
	ror	eax, 8
	xchg	ah, al
  .done:
	and	eax, 0x00ffffff
 
	mov	bl, byte[lsha + 3]
	bswap	eax
	mov	al, bl
	ror	eax, 8
 
	pop	edi esi ebx
 
 
	ret
endp
 
 
 
 
 
;;================================================================================================;;
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
;;================================================================================================;;
;! Below is private data you should never use directly from your code                             ;;
;;================================================================================================;;
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
;;================================================================================================;;
xcf._.prop_table_begin:
		dd	00, xcf._.parse_properties.00
		dd	01, xcf._.parse_properties.01
		dd	06, xcf._.parse_properties.06
		dd	07, xcf._.parse_properties.07
		dd	08, xcf._.parse_properties.08
		dd	11, xcf._.parse_properties.11
		dd	15, xcf._.parse_properties.15
xcf._.prop_table_end:
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Rev 2733	Rev 8341
1	;;================================================================================================;;	1	;;================================================================================================;;
2	;;//// xcf.asm //// (c) dunkaist, 2011-2012 //////////////////////////////////////////////////////;;	2	;;//// xcf.asm //// (c) dunkaist, 2011-2012 //////////////////////////////////////////////////////;;
3	;;================================================================================================;;	3	;;================================================================================================;;
4	;; ;;	4	;; ;;
5	;; This file is part of Common development libraries (Libs-Dev). ;;	5	;; This file is part of Common development libraries (Libs-Dev). ;;
6	;; ;;	6	;; ;;
7	;; Libs-Dev is free software: you can redistribute it and/or modify it under the terms of the GNU ;;	7	;; Libs-Dev is free software: you can redistribute it and/or modify it under the terms of the GNU ;;
8	;; Lesser General Public License as published by the Free Software Foundation, either version 2.1 ;;	8	;; Lesser General Public License as published by the Free Software Foundation, either version 2.1 ;;
9	;; of the License, or (at your option) any later version. ;;	9	;; of the License, or (at your option) any later version. ;;
10	;; ;;	10	;; ;;
11	;; Libs-Dev is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without ;;	11	;; Libs-Dev is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without ;;
12	;; even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;	12	;; even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;
13	;; Lesser General Public License for more details. ;;	13	;; Lesser General Public License for more details. ;;
14	;; ;;	14	;; ;;
15	;; You should have received a copy of the GNU Lesser General Public License along with Libs-Dev. ;;	15	;; You should have received a copy of the GNU Lesser General Public License along with Libs-Dev. ;;
16	;; If not, see . ;;	16	;; If not, see . ;;
17	;; ;;	17	;; ;;
18	;;================================================================================================;;	18	;;================================================================================================;;
19	;; ;;	19	;; ;;
20	;; References: ;;	20	;; References: ;;
21	;; 1. "SPECIFICATION OF THE XCF FILE FORMAT" ;;	21	;; 1. "SPECIFICATION OF THE XCF FILE FORMAT" ;;
22	;; by Henning Makholm ;;	22	;; by Henning Makholm ;;
23	;; http://svn.gnome.org/viewvc/gimp/trunk/devel-docs/xcf.txt?view=markup ;;	23	;; http://svn.gnome.org/viewvc/gimp/trunk/devel-docs/xcf.txt?view=markup ;;
24	;; 2. "Layer Modes" ;;	24	;; 2. "Layer Modes" ;;
25	;; from docs.gimp.org ;;	25	;; from docs.gimp.org ;;
26	;; http://docs.gimp.org/en/gimp-concepts-layer-modes.html ;;	26	;; http://docs.gimp.org/en/gimp-concepts-layer-modes.html ;;
27	;; ;;	27	;; ;;
28	;;================================================================================================;;	28	;;================================================================================================;;
29	include 'xcf.inc'	29	include 'xcf.inc'
30	;include '../../../../../system/board/trunk/debug.inc'	30	;include '../../../../../system/board/trunk/debug.inc'
31		-
32	COMPOSITE_MODE equ MMX	-
33	; MMX \| pretty fast and compatible	-
34	; SSE \| a bit faster, but may be unsupported by some CPUs	-
35		31
36	MAX_LAYERS = 255	32	MAX_LAYERS = 255
37		33
38	;;================================================================================================;;	34	;;================================================================================================;;
39	proc img.is.xcf _data, _length ;//////////////////////////////////////////////////////////////////;;	35	proc img.is.xcf _data, _length ;//////////////////////////////////////////////////////////////////;;
40	;;------------------------------------------------------------------------------------------------;;	36	;;------------------------------------------------------------------------------------------------;;
41	;? Determine if raw data could be decoded (is in xcf format) ;;	37	;? Determine if raw data could be decoded (is in xcf format) ;;
42	;;------------------------------------------------------------------------------------------------;;	38	;;------------------------------------------------------------------------------------------------;;
43	;> _data = raw data as read from file/stream ;;	39	;> _data = raw data as read from file/stream ;;
44	;> _length = data length ;;	40	;> _length = data length ;;
45	;;------------------------------------------------------------------------------------------------;;	41	;;------------------------------------------------------------------------------------------------;;
46	;< eax = false / true ;;	42	;< eax = false / true ;;
47	;;================================================================================================;;	43	;;================================================================================================;;
48		44
49	push edi	45	push edi
50	xor eax, eax	46	xor eax, eax
51		47
52	mov edi, [_data]	48	mov edi, [_data]
53		49
54	cmp dword[edi + xcf_header.magic_string], 'gimp'	50	cmp dword[edi + xcf_header.magic_string], 'gimp'
55	jne .is_not_xcf	51	jne .is_not_xcf
56	cmp dword[edi + xcf_header.magic_string + 4], ' xcf'	52	cmp dword[edi + xcf_header.magic_string + 4], ' xcf'
57	jne .is_not_xcf	53	jne .is_not_xcf
58		54
59	cmp [edi + xcf_header.version], 'file'	55	cmp [edi + xcf_header.version], 'file'
60	je @f	56	je @f
61	cmp [edi + xcf_header.version], 'v001'	57	cmp [edi + xcf_header.version], 'v001'
62	je @f	58	je @f
63	cmp [edi + xcf_header.version], 'v002'	59	cmp [edi + xcf_header.version], 'v002'
64	je @f	60	je @f
65	jmp .is_not_xcf	61	jmp .is_not_xcf
66	@@:	62	@@:
67		63
68	cmp byte[edi + xcf_header.reserved], 0	64	cmp byte[edi + xcf_header.reserved], 0
69	jne .is_not_xcf	65	jne .is_not_xcf
70		66
71	.is_xcf:	67	.is_xcf:
72	inc eax	68	inc eax
73		69
74	.is_not_xcf:	70	.is_not_xcf:
75	pop edi	71	pop edi
76	ret	72	ret
77	endp	73	endp
78		74
79		75
80	;;================================================================================================;;	76	;;================================================================================================;;
81	proc img.decode.xcf _data, _length, _options ;////////////////////////////////////////////////////;;	77	proc img.decode.xcf _data, _length, _options ;////////////////////////////////////////////////////;;
82	;;------------------------------------------------------------------------------------------------;;	78	;;------------------------------------------------------------------------------------------------;;
83	;? Decode data into image if it contains correctly formed raw data in xcf format ;;	79	;? Decode data into image if it contains correctly formed raw data in xcf format ;;
84	;;------------------------------------------------------------------------------------------------;;	80	;;------------------------------------------------------------------------------------------------;;
85	;> _data = raw data as read from file/stream ;;	81	;> _data = raw data as read from file/stream ;;
86	;> _length = data length ;;	82	;> _length = data length ;;
87	;;------------------------------------------------------------------------------------------------;;	83	;;------------------------------------------------------------------------------------------------;;
88	;< eax = 0 (error) or pointer to image ;;	84	;< eax = 0 (error) or pointer to image ;;
89	;;================================================================================================;;	85	;;================================================================================================;;
90	locals	86	locals
91	layer_count rd 1	87	layer_count rd 1
92	retvalue rd 1	88	retvalue rd 1
93	endl	89	endl
94		90
95	push ebx esi edi	91	push ebx esi edi
96		92
97	mov esi, [_data]	93	mov esi, [_data]
98	add esi, xcf_header.width	94	add esi, xcf_header.width
99		95
100	lodsd	96	lodsd
101	bswap eax	97	bswap eax
102	mov ebx, eax	98	mov ebx, eax
103	lodsd	99	lodsd
104	bswap eax	100	bswap eax
105	mov edx, eax	101	mov edx, eax
106		102
107	lodsd	103	lodsd
108	bswap eax	104	bswap eax
109	test eax, eax	105	test eax, eax
110	jz .process_rgb	106	jz .process_rgb
111	dec eax	107	dec eax
112	jz .process_grayscale	108	jz .process_grayscale
113	dec eax	109	dec eax
114	jz .process_indexed	110	jz .process_indexed
115	jmp .error	111	jmp .error
116		112
117		113
118	.process_rgb:	114	.process_rgb:
119		115
120	stdcall img.create, ebx, edx, Image.bpp32	116	stdcall img.create, ebx, edx, Image.bpp32
121	mov [retvalue], eax	117	mov [retvalue], eax
122	test eax, eax	118	test eax, eax
123	jz .error	119	jz .error
124		120
125	mov ebx, eax	121	mov ebx, eax
126		122
127	mov edx, XCF_BASETYPE_RGB	123	mov edx, XCF_BASETYPE_RGB
128		124
129	jmp .common_process	125	jmp .common_process
130		126
131	.process_grayscale:	127	.process_grayscale:
132		128
133	stdcall img.create, ebx, edx, Image.bpp8i	129	stdcall img.create, ebx, edx, Image.bpp8i
134	mov [retvalue], eax	130	mov [retvalue], eax
135	test eax, eax	131	test eax, eax
136	jz .error	132	jz .error
137		133
138	mov ebx, eax	134	mov ebx, eax
139		135
140	mov eax, [ebx + Image.Width]	136	mov eax, [ebx + Image.Width]
141	imul [ebx + Image.Height]	137	imul [ebx + Image.Height]
142	shl eax, 1	138	shl eax, 1
143	mov [ebx + Image.Palette], eax	139	mov [ebx + Image.Palette], eax
144	add eax, 256*4	140	add eax, 256*4
145	invoke mem.realloc, [ebx + Image.Data], eax	141	invoke mem.realloc, [ebx + Image.Data], eax
146	mov [ebx + Image.Data], eax	142	mov [ebx + Image.Data], eax
147	add [ebx + Image.Palette], eax	143	add [ebx + Image.Palette], eax
148		144
149	mov edi, [ebx + Image.Palette]	145	mov edi, [ebx + Image.Palette]
150	mov eax, 0xff000000	146	mov eax, 0xff000000
151	@@:	147	@@:
152	stosd	148	stosd
153	add eax, 0x00010101	149	add eax, 0x00010101
154	jnc @b	150	jnc @b
155		151
156	mov edx, XCF_BASETYPE_GRAY	152	mov edx, XCF_BASETYPE_GRAY
157		153
158	jmp .common_process	154	jmp .common_process
159		155
160		156
161	.process_indexed:	157	.process_indexed:
162		158
163	stdcall img.create, ebx, edx, Image.bpp8i	159	stdcall img.create, ebx, edx, Image.bpp8i
164	mov [retvalue], eax	160	mov [retvalue], eax
165	test eax, eax	161	test eax, eax
166	jz .error	162	jz .error
167		163
168	mov ebx, eax	164	mov ebx, eax
169		165
170	mov eax, [ebx + Image.Width]	166	mov eax, [ebx + Image.Width]
171	imul [ebx + Image.Height]	167	imul [ebx + Image.Height]
172	shl eax, 1	168	shl eax, 1
173	mov [ebx + Image.Palette], eax	169	mov [ebx + Image.Palette], eax
174	add eax, 256*4	170	add eax, 256*4
175	invoke mem.realloc, [ebx + Image.Data], eax	171	invoke mem.realloc, [ebx + Image.Data], eax
176	mov [ebx + Image.Data], eax	172	mov [ebx + Image.Data], eax
177	add [ebx + Image.Palette], eax	173	add [ebx + Image.Palette], eax
178		174
179	mov edx, XCF_BASETYPE_INDEXED	175	mov edx, XCF_BASETYPE_INDEXED
180	; jmp .common_process	176	; jmp .common_process
181		177
182	.common_process:	178	.common_process:
183		179
184	invoke mem.alloc, sizeof.xcf_ext	180	invoke mem.alloc, sizeof.xcf_ext
185	or eax, eax	181	or eax, eax
186	jz .error	182	jz .error
187	mov [ebx + Image.Extended], eax	183	mov [ebx + Image.Extended], eax
188	mov [eax + xcf_ext.opacity], 0xffffffff	184	mov [eax + xcf_ext.opacity], 0xffffffff
189	mov [eax + xcf_ext.type], edx	185	mov [eax + xcf_ext.type], edx
190		186
191	stdcall xcf._.parse_properties, ebx	187	stdcall xcf._.parse_properties, ebx
192		188
193	mov edi, esi	189	mov edi, esi
194	xor eax, eax	190	xor eax, eax
195	mov ecx, MAX_LAYERS	191	mov ecx, MAX_LAYERS
196	mov [layer_count], MAX_LAYERS-1	192	mov [layer_count], MAX_LAYERS-1
197	repne scasd	193	repne scasd
198	sub [layer_count], ecx	194	sub [layer_count], ecx
199	mov esi, edi	195	mov esi, edi
200	xor ecx, ecx	196	xor ecx, ecx
201		197
202	.still:	198	.still:
203	sub esi, 8	199	sub esi, 8
204	lodsd	200	lodsd
205	bswap eax	201	bswap eax
206		202
207	push ecx	203	push ecx
208	stdcall xcf._.decode_layer, eax, [_data]	204	stdcall xcf._.decode_layer, eax, [_data]
209	pop ecx	205	pop ecx
210	test eax, eax	206	test eax, eax
211	jz @f	207	jz @f
212	push ecx	208	push ecx
213	stdcall xcf._.merge_down, eax, [retvalue], ecx	209	stdcall xcf._.merge_down, eax, [retvalue], ecx
214	pop ecx	210	pop ecx
215	add ecx, 1	211	add ecx, 1
216	@@:	212	@@:
217	dec [layer_count]	213	dec [layer_count]
218	jnz .still	214	jnz .still
219		215
220	cmp [ebx + Image.Type], Image.bpp8i	216	cmp [ebx + Image.Type], Image.bpp8i
221	jne .quit	217	jne .quit
222	stdcall xcf._.pack_8a, ebx	218	stdcall xcf._.pack_8a, ebx
223	jmp .quit	219	jmp .quit
224		220
225	.error:	221	.error:
226	mov [retvalue], 0	222	mov [retvalue], 0
227	.quit:	223	.quit:
228	pop edi esi ebx	224	pop edi esi ebx
229	mov eax, [retvalue]	225	mov eax, [retvalue]
230	ret	226	ret
231	endp	227	endp
232		228
233		229
234	;;================================================================================================;;	230	;;================================================================================================;;
235	proc img.encode.xcf _img, _p_length, _options ;///////////////////////////////////////////////////;;	231	proc img.encode.xcf _img, _p_length, _options ;///////////////////////////////////////////////////;;
236	;;------------------------------------------------------------------------------------------------;;	232	;;------------------------------------------------------------------------------------------------;;
237	;? Encode image into raw data in xcf format ;;	233	;? Encode image into raw data in xcf format ;;
238	;;------------------------------------------------------------------------------------------------;;	234	;;------------------------------------------------------------------------------------------------;;
239	;> _img = pointer to image ;;	235	;> _img = pointer to image ;;
240	;;------------------------------------------------------------------------------------------------;;	236	;;------------------------------------------------------------------------------------------------;;
241	;< eax = 0 (error) or pointer to encoded data ;;	237	;< eax = 0 (error) or pointer to encoded data ;;
242	;< _p_length = encoded data length ;;	238	;< _p_length = encoded data length ;;
243	;;================================================================================================;;	239	;;================================================================================================;;
244	xor eax, eax	240	xor eax, eax
245	ret	241	ret
246	endp	242	endp
247		243
248		244
249	;;================================================================================================;;	245	;;================================================================================================;;
250	;;////////////////////////////////////////////////////////////////////////////////////////////////;;	246	;;////////////////////////////////////////////////////////////////////////////////////////////////;;
251	;;================================================================================================;;	247	;;================================================================================================;;
252	;! Below are private procs you should never call directly from your code ;;	248	;! Below are private procs you should never call directly from your code ;;
253	;;================================================================================================;;	249	;;================================================================================================;;
254	;;////////////////////////////////////////////////////////////////////////////////////////////////;;	250	;;////////////////////////////////////////////////////////////////////////////////////////////////;;
255	;;================================================================================================;;	251	;;================================================================================================;;
256	proc xcf._.parse_properties _img	252	proc xcf._.parse_properties _img
257		253
258	mov ebx, [_img]	254	mov ebx, [_img]
259	.begin:	255	.begin:
260	lodsd	256	lodsd
261	bswap eax	257	bswap eax
262		258
263	mov ecx, (xcf._.prop_table_end - xcf._.prop_table_begin)/8	259	mov ecx, (xcf._.prop_table_end - xcf._.prop_table_begin)/8
264	mov edi, xcf._.prop_table_begin	260	mov edi, xcf._.prop_table_begin
265		261
266	.still:	262	.still:
267	cmp eax, [edi]	263	cmp eax, [edi]
268	jne @f	264	jne @f
269	jmp dword[edi + 4]	265	jmp dword[edi + 4]
270	@@:	266	@@:
271	add edi, 8	267	add edi, 8
272	dec ecx	268	dec ecx
273	jnz .still	269	jnz .still
274	lodsd	270	lodsd
275	bswap eax	271	bswap eax
276	add esi, eax	272	add esi, eax
277	jmp .begin	273	jmp .begin
278		274
279	.00: ; PROP_END	275	.00: ; PROP_END
280	lodsd	276	lodsd
281	ret	277	ret
282		278
283	.01: ; PROP_COLORMAP	279	.01: ; PROP_COLORMAP
284	lodsd	280	lodsd
285	mov ecx, [ebx + Image.Extended]	281	mov ecx, [ebx + Image.Extended]
286	cmp [ecx + xcf_ext.type], XCF_BASETYPE_INDEXED	282	cmp [ecx + xcf_ext.type], XCF_BASETYPE_INDEXED
287	je @f	283	je @f
288	bswap eax	284	bswap eax
289	add esi, eax	285	add esi, eax
290	jmp xcf._.parse_properties.begin	286	jmp xcf._.parse_properties.begin
291	@@:	287	@@:
292	lodsd	288	lodsd
293	bswap eax	289	bswap eax
294	mov ecx, eax	290	mov ecx, eax
295	mov edi, [ebx + Image.Palette]	291	mov edi, [ebx + Image.Palette]
296		292
297	@@:	293	@@:
298	lodsd	294	lodsd
299	sub esi, 1	295	sub esi, 1
300	bswap eax	296	bswap eax
301	shr eax, 8	297	shr eax, 8
302	or eax, 0xff000000	298	or eax, 0xff000000
303	stosd	299	stosd
304	dec ecx	300	dec ecx
305	jnz @b	301	jnz @b
306	jmp xcf._.parse_properties.begin	302	jmp xcf._.parse_properties.begin
307		303
308	.06: ; PROP_OPACITY	304	.06: ; PROP_OPACITY
309	lodsd	305	lodsd
310	lodsd	306	lodsd
311	bswap eax	307	bswap eax
312	mov ecx, [ebx + Image.Extended]	308	mov ecx, [ebx + Image.Extended]
313	mov [ecx + xcf_ext.opacity], eax	309	mov [ecx + xcf_ext.opacity], eax
314	jmp xcf._.parse_properties.begin	310	jmp xcf._.parse_properties.begin
315		311
316	.07: ; PROP_MODE	312	.07: ; PROP_MODE
317	lodsd	313	lodsd
318	lodsd	314	lodsd
319	bswap eax	315	bswap eax
320	mov ecx, [ebx + Image.Extended]	316	mov ecx, [ebx + Image.Extended]
321	mov [ecx + xcf_ext.layer_mode], eax	317	mov [ecx + xcf_ext.layer_mode], eax
322	jmp xcf._.parse_properties.begin	318	jmp xcf._.parse_properties.begin
323		319
324	.08: ; PROP_VISIBLE	320	.08: ; PROP_VISIBLE
325	lodsd	321	lodsd
326	lodsd	322	lodsd
327	bswap eax	323	bswap eax
328	mov ecx, [ebx + Image.Extended]	324	mov ecx, [ebx + Image.Extended]
329	mov [ecx + xcf_ext.visible], eax	325	mov [ecx + xcf_ext.visible], eax
330	jmp xcf._.parse_properties.begin	326	jmp xcf._.parse_properties.begin
331		327
332	.11: ; PROP_APPLY_MASK	328	.11: ; PROP_APPLY_MASK
333	lodsd	329	lodsd
334	lodsd	330	lodsd
335	bswap eax	331	bswap eax
336	mov ecx, [ebx + Image.Extended]	332	mov ecx, [ebx + Image.Extended]
337	mov [ecx + xcf_ext.apply_mask], eax	333	mov [ecx + xcf_ext.apply_mask], eax
338	jmp xcf._.parse_properties.begin	334	jmp xcf._.parse_properties.begin
339		335
340	.15: ; PROP_OFFSETS	336	.15: ; PROP_OFFSETS
341	lodsd	337	lodsd
342	lodsd	338	lodsd
343	mov ecx, [ebx + Image.Extended]	339	mov ecx, [ebx + Image.Extended]
344	bswap eax	340	bswap eax
345	mov [ecx + xcf_ext.offset_x], eax	341	mov [ecx + xcf_ext.offset_x], eax
346	lodsd	342	lodsd
347	bswap eax	343	bswap eax
348	mov [ecx + xcf_ext.offset_y], eax	344	mov [ecx + xcf_ext.offset_y], eax
349	jmp xcf._.parse_properties.begin	345	jmp xcf._.parse_properties.begin
350	endp	346	endp
351		347
352		348
353	proc xcf._.decode_channel _channel_begin, _data	349	proc xcf._.decode_channel _channel_begin, _data
354	locals	350	locals
355	channel_width rd 1	351	channel_width rd 1
356	channel_height rd 1	352	channel_height rd 1
357	planes_todo rd 1	353	planes_todo rd 1
358	total_bpl rd 1	354	total_bpl rd 1
359	endl	355	endl
360		356
361	push ebx esi edi	357	push ebx esi edi
362	mov esi, [_channel_begin]	358	mov esi, [_channel_begin]
363	add esi, [_data]	359	add esi, [_data]
364	lodsd	360	lodsd
365	bswap eax	361	bswap eax
366	mov [channel_width], eax	362	mov [channel_width], eax
367	mov [total_bpl], eax	363	mov [total_bpl], eax
368	lodsd	364	lodsd
369	bswap eax	365	bswap eax
370	mov [channel_height], eax	366	mov [channel_height], eax
371	lodsd	367	lodsd
372	bswap eax	368	bswap eax
373	add esi, eax	369	add esi, eax
374		370
375	stdcall img.create, [channel_width], [channel_height], Image.bpp8i	371	stdcall img.create, [channel_width], [channel_height], Image.bpp8i
376	mov ebx, eax	372	mov ebx, eax
377	test ebx, ebx	373	test ebx, ebx
378	jz .quit	374	jz .quit
379	invoke mem.alloc, sizeof.xcf_ext	375	invoke mem.alloc, sizeof.xcf_ext
380	or eax, eax	376	or eax, eax
381	jz .error	377	jz .error
382	mov [ebx + Image.Extended], eax	378	mov [ebx + Image.Extended], eax
383		379
384	stdcall xcf._.parse_properties, ebx	380	stdcall xcf._.parse_properties, ebx
385		381
386	lodsd	382	lodsd
387	bswap eax	383	bswap eax
388	mov esi, eax	384	mov esi, eax
389	add esi, [_data]	385	add esi, [_data]
390	lodsd	386	lodsd
391	lodsd	387	lodsd
392	lodsd	388	lodsd
393	bswap eax	389	bswap eax
394	mov [planes_todo], eax	390	mov [planes_todo], eax
395	lodsd	391	lodsd
396	bswap eax	392	bswap eax
397	mov esi, eax	393	mov esi, eax
398	add esi, [_data]	394	add esi, [_data]
399	lodsd	395	lodsd
400	lodsd	396	lodsd
401		397
402	mov edi, [ebx + Image.Data]	398	mov edi, [ebx + Image.Data]
403	mov ecx, 0	399	mov ecx, 0
404	@@:	400	@@:
405	lodsd	401	lodsd
406	test eax, eax	402	test eax, eax
407	jz .quit	403	jz .quit
408	bswap eax	404	bswap eax
409	add eax, [_data]	405	add eax, [_data]
410	stdcall xcf._.decode_tile, eax, [channel_width], [channel_height], [total_bpl], [planes_todo], 1	406	stdcall xcf._.decode_tile, eax, [channel_width], [channel_height], [total_bpl], [planes_todo], 1
411	add ecx, 1	407	add ecx, 1
412	jmp @b	408	jmp @b
413		409
414	.error:	410	.error:
415	stdcall img.destroy, ebx	411	stdcall img.destroy, ebx
416	mov ebx, 0	412	mov ebx, 0
417	.quit:	413	.quit:
418	mov eax, ebx	414	mov eax, ebx
419	pop edi esi ebx	415	pop edi esi ebx
420	ret	416	ret
421	endp	417	endp
422		418
423		419
424	proc xcf._.decode_layer _layer_begin, _data	420	proc xcf._.decode_layer _layer_begin, _data
425	locals	421	locals
426	layer_width rd 1	422	layer_width rd 1
427	layer_height rd 1	423	layer_height rd 1
428	planes_todo rd 1	424	planes_todo rd 1
429	total_bpl rd 1	425	total_bpl rd 1
430	color_step rd 1	426	color_step rd 1
431	endl	427	endl
432		428
433	push ebx esi edi	429	push ebx esi edi
434	mov esi, [_layer_begin]	430	mov esi, [_layer_begin]
435	add esi, [_data]	431	add esi, [_data]
436	lodsd	432	lodsd
437	bswap eax	433	bswap eax
438	mov [layer_width], eax	434	mov [layer_width], eax
439	mov [total_bpl], eax	435	mov [total_bpl], eax
440	shl [total_bpl], 1	436	shl [total_bpl], 1
441	lodsd	437	lodsd
442	bswap eax	438	bswap eax
443	mov [layer_height], eax	439	mov [layer_height], eax
444	lodsd	440	lodsd
445	bswap eax	441	bswap eax
446	mov edx, Image.bpp8a	442	mov edx, Image.bpp8a
447	mov [color_step], 1	443	mov [color_step], 1
448	cmp eax, 2	444	cmp eax, 2
449	jge @f	445	jge @f
450	mov [color_step], 3	446	mov [color_step], 3
451	mov edx, Image.bpp32	447	mov edx, Image.bpp32
452	shl [total_bpl], 1	448	shl [total_bpl], 1
453	@@:	449	@@:
454	stdcall img.create, [layer_width], [layer_height], edx	450	stdcall img.create, [layer_width], [layer_height], edx
455	mov ebx, eax	451	mov ebx, eax
456	test ebx, ebx	452	test ebx, ebx
457	jz .quit	453	jz .quit
458	invoke mem.alloc, sizeof.xcf_ext	454	invoke mem.alloc, sizeof.xcf_ext
459	or eax, eax	455	or eax, eax
460	jz .error	456	jz .error
461	mov [ebx + Image.Extended], eax	457	mov [ebx + Image.Extended], eax
462		458
463	lodsd	459	lodsd
464	bswap eax	460	bswap eax
465	add esi, eax	461	add esi, eax
466	stdcall xcf._.parse_properties, ebx	462	stdcall xcf._.parse_properties, ebx
467	mov edx, [ebx + Image.Extended]	463	mov edx, [ebx + Image.Extended]
468	or [edx + xcf_ext.visible], 0	464	or [edx + xcf_ext.visible], 0
469	jz .unvisible	465	jz .unvisible
470		466
471	lodsd	467	lodsd
472	bswap eax	468	bswap eax
473	push esi	469	push esi
474	mov esi, eax	470	mov esi, eax
475	add esi, [_data]	471	add esi, [_data]
476	lodsd	472	lodsd
477	lodsd	473	lodsd
478	lodsd	474	lodsd
479	bswap eax	475	bswap eax
480	mov [planes_todo], eax	476	mov [planes_todo], eax
481	; mov ecx, [ebx + Image.Extended]	477	; mov ecx, [ebx + Image.Extended]
482	; mov [ecx + xcf_ext.planes], eax	478	; mov [ecx + xcf_ext.planes], eax
483	lodsd	479	lodsd
484	bswap eax	480	bswap eax
485	mov esi, eax	481	mov esi, eax
486	add esi, [_data]	482	add esi, [_data]
487	lodsd	483	lodsd
488	lodsd	484	lodsd
489		485
490	mov edi, [ebx + Image.Data]	486	mov edi, [ebx + Image.Data]
491	mov ecx, 0	487	mov ecx, 0
492	@@:	488	@@:
493	lodsd	489	lodsd
494	test eax, eax	490	test eax, eax
495	jz @f	491	jz @f
496	bswap eax	492	bswap eax
497	add eax, [_data]	493	add eax, [_data]
498	stdcall xcf._.decode_tile, eax, [layer_width], [layer_height], [total_bpl], [planes_todo], 0	494	stdcall xcf._.decode_tile, eax, [layer_width], [layer_height], [total_bpl], [planes_todo], 0
499	add ecx, 1	495	add ecx, 1
500	jmp @b	496	jmp @b

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/libs-dev/libimg/xcf/xcf.asm @ 2733 – Rev 2733 → 8341