mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-16 03:42:35 +03:00
185caf04b2
new image type: grayscale (Image.bpp9) tiff fixes for grayscale+alpha images xcf regression bug fixed (screen mode blending, r2388) git-svn-id: svn://kolibrios.org@2733 a494cfbc-eb01-0410-851d-a64ba20cac60
1664 lines
38 KiB
NASM
1664 lines
38 KiB
NASM
;;================================================================================================;;
|
|
;;//// 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 <http://www.gnu.org/licenses/>. ;;
|
|
;; ;;
|
|
;;================================================================================================;;
|
|
;; ;;
|
|
;; 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'
|
|
|
|
COMPOSITE_MODE equ MMX
|
|
; MMX | pretty fast and compatible
|
|
; SSE | a bit faster, but may be unsupported by some CPUs
|
|
|
|
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
|
|
|
|
|
|
match =MMX, COMPOSITE_MODE{include 'composite_mmx.asm'}
|
|
match =SSE, COMPOSITE_MODE{include 'composite_sse.asm'}
|
|
|
|
;;================================================================================================;;
|
|
;;////////////////////////////////////////////////////////////////////////////////////////////////;;
|
|
;;================================================================================================;;
|
|
;! 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:
|
|
|
|
xcf._.composite_table.begin:
|
|
.p00 dd 00, xcf._.composite_rgb_00, xcf._.composite_gray_00, xcf._.composite_indexed_00 ; Normal
|
|
.p01 dd 01, xcf._.composite_rgb_01, xcf._.composite_gray_01, xcf._.composite_gray_01 ; Dissolve : random dithering to discrete alpha
|
|
; .p02 dd 02, xcf._.composite_rgb_02, 0, xcf._.composite_indexed_02 ; Behind : not selectable in the GIMP UI. not implemented
|
|
.p03 dd 03, xcf._.composite_rgb_03, xcf._.composite_rgb_03, xcf._.composite_indexed_00 ; Multiply
|
|
.p04 dd 04, xcf._.composite_rgb_04, xcf._.composite_rgb_04, xcf._.composite_indexed_00 ; Screen
|
|
.p05 dd 05, xcf._.composite_rgb_05, xcf._.composite_rgb_05, xcf._.composite_indexed_00 ; Overlay
|
|
.p06 dd 06, xcf._.composite_rgb_06, xcf._.composite_rgb_06, xcf._.composite_indexed_00 ; Difference
|
|
.p07 dd 07, xcf._.composite_rgb_07, xcf._.composite_rgb_07, xcf._.composite_indexed_00 ; Addition
|
|
.p08 dd 08, xcf._.composite_rgb_08, xcf._.composite_rgb_08, xcf._.composite_indexed_00 ; Subtract
|
|
.p09 dd 09, xcf._.composite_rgb_09, xcf._.composite_rgb_09, xcf._.composite_indexed_00 ; Darken Only
|
|
.p10 dd 10, xcf._.composite_rgb_10, xcf._.composite_rgb_10, xcf._.composite_indexed_00 ; Lighten Only
|
|
.p11 dd 11, xcf._.composite_rgb_11, xcf._.composite_gray_00, xcf._.composite_indexed_00 ; Hue (H of HSV)
|
|
.p12 dd 12, xcf._.composite_rgb_12, xcf._.composite_gray_00, xcf._.composite_indexed_00 ; Saturation (S of HSV)
|
|
.p13 dd 13, xcf._.composite_rgb_13, xcf._.composite_gray_00, xcf._.composite_indexed_00 ; Color (H and S of HSL)
|
|
.p14 dd 14, xcf._.composite_rgb_14, xcf._.composite_gray_00, xcf._.composite_indexed_00 ; Value (V of HSV)
|
|
.p15 dd 15, xcf._.composite_rgb_15, xcf._.composite_rgb_15, xcf._.composite_indexed_00 ; Divide
|
|
.p16 dd 16, xcf._.composite_rgb_16, xcf._.composite_rgb_16, xcf._.composite_indexed_00 ; Dodge
|
|
.p17 dd 17, xcf._.composite_rgb_17, xcf._.composite_rgb_17, xcf._.composite_indexed_00 ; Burn
|
|
.p18 dd 18, xcf._.composite_rgb_18, xcf._.composite_rgb_18, xcf._.composite_indexed_00 ; Hard Light
|
|
.p19 dd 19, xcf._.composite_rgb_05, xcf._.composite_rgb_05, xcf._.composite_indexed_00 ; Soft Light : XCF >= 2 only ('soft light' == 'overlay')
|
|
.p20 dd 20, xcf._.composite_rgb_20, xcf._.composite_rgb_20, xcf._.composite_indexed_00 ; Grain Extract : XCF >= 2 only
|
|
.p21 dd 21, xcf._.composite_rgb_21, xcf._.composite_rgb_21, xcf._.composite_indexed_00 ; Grain Merge : XCF >= 2 only
|
|
xcf._.composite_table.end:
|