WebSVN – Kolibri OS – Diff – /programs/develop/libraries/buf2d/trunk/buf2d.asm


format MS COFF
public EXPORTS
section '.flat' code readable align 16
 
include '../../../../macros.inc'
include '../../../../proc32.inc'
 
;-----------------------------------------------------------------------------
mem.alloc   dd ? ;äã­ªæ¨ï ¤«ï ¢ë¤¥«¥­¨ï ¯ ¬ïâ¨
mem.free    dd ? ;äã­ªæ¨ï ¤«ï ®á¢®¡®¦¤¥­¨ï ¯ ¬ïâ¨
mem.realloc dd ? ;äã­ªæ¨ï ¤«ï ¯¥à¥à á¯à¥¤¥«¥­¨ï ¯ ¬ïâ¨
dll.load    dd ?
 
BUF_STRUCT_SIZE equ 21
buf2d_data equ dword[edi] ;¤ ­­ë¥ ¡ãä¥à  ¨§®¡à ¦¥­¨ï
buf2d_w equ dword[edi+8] ;è¨à¨­  ¡ãä¥à 
buf2d_h equ dword[edi+12] ;¢ëá®â  ¡ãä¥à 
buf2d_l equ word[edi+4]
buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã
buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢  ¨ á¯à ¢  ¤«ï ¡ãä¥à 
buf2d_color equ dword[edi+16] ;æ¢¥â ä®­  ¡ãä¥à 
buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥­¨ï
 
struct buf_2d_header
	img_data dd ?
	left dw ? ;+4 left
	top dw ? ;+6 top
	size_x dd ? ;+8 w
	size_y dd ? ;+12 h
	color dd ? ;+16 color
	bit_pp db ? ;+21 bit in pixel
ends
 
macro swap v1, v2 {
  push v1
  push v2
  pop v1
  pop v2
}
 
;ä« £¨, ¤«ï äã­ªæ¨¨ ®¡à¥§ ­¨ï ¡ãä¥à 
BUF2D_OPT_CROP_TOP equ 1 ;®¡à¥§ª  á¢¥àåã
BUF2D_OPT_CROP_LEFT equ 2 ;®¡à¥§ª  á«¥¢ 
BUF2D_OPT_CROP_BOTTOM equ 4 ;®¡à¥§ª  á­¨§ã
BUF2D_OPT_CROP_RIGHT equ 8 ;®¡à¥§ª  á¯à ¢ 
BUF2D_BIT_OPT_CROP_TOP equ 0
BUF2D_BIT_OPT_CROP_LEFT equ 1
BUF2D_BIT_OPT_CROP_BOTTOM equ 2
BUF2D_BIT_OPT_CROP_RIGHT equ 3
 
;input:
; eax = ãª § â¥«ì ­  äã­ªæ¨î ¢ë¤¥«¥­¨ï ¯ ¬ïâ¨
; ebx = ... ®á¢®¡®¦¤¥­¨ï ¯ ¬ïâ¨
; ecx = ... ¯¥à¥à á¯à¥¤¥«¥­¨ï ¯ ¬ïâ¨
; edx = ... § £àã§ª¨ ¡¨¡«¨®â¥ª¨ (¯®ª  ­¥ ¨á¯®«ì§ã¥âáï)
align 16
lib_init:
	mov dword[mem.alloc], eax
	mov dword[mem.free], ebx
	mov dword[mem.realloc], ecx
	mov dword[dll.load], edx
	ret
 
include 'fun_draw.inc' ;äã­ªæ¨¨ à¨á®¢ ­¨ï ¢ ¡ãä¥à¥
 
;á®§¤ ­¨¥ ¡ãä¥à 
align 4
proc buf_create, buf_struc:dword
	pushad
	mov edi,dword[buf_struc]
	mov ecx,buf2d_w
	mov ebx,buf2d_h
	imul ecx,ebx
	cmp buf2d_bits,24
	jne @f
		lea ecx,[ecx+ecx*2] ; 24 bit = 3
		;;;inc ecx ;§ ¯ á­®© ¡ ©â ¢ ª®­æ¥ ¡ãä¥à , çâ®-¡ë ­¥ £«îç¨«¨ ­¥ª®â®àë¥ äã­ªæ¨¨ ­  ¨§®¡à ¦¥­¨ïå ªà â­ëå 4
	@@:
	cmp buf2d_bits,32
	jne @f
		shl ecx,2 ; 32 bit = 4
	@@:
	invoke mem.alloc,ecx
	mov buf2d_data,eax
 
	stdcall buf_clear,edi,buf2d_color ;®ç¨áâª  ¡ãä¥à  ä®­®¢ë¬ æ¢¥â®¬
	popad
	ret
endp
 
;á®§¤ ­¨¥ ¡ãä¥à  ­  ®á­®¢¥ ¨§®¡à ¦¥­¨ï rgb
align 4
proc buf_create_f_img, buf_struc:dword, rgb_data:dword
	pushad
	mov edi,dword[buf_struc]
	mov ecx,buf2d_w
	cmp ecx,1
	jl .error
	mov ebx,buf2d_h
	cmp ebx,1
	jl .error
	imul ecx,ebx
	cmp buf2d_bits,24
	jne @f
		lea ecx,[ecx+ecx*2] ; 24 bit = 3
	@@:
	cmp buf2d_bits,32
	jne @f
		shl ecx,2 ; 32 bit = 4
	@@:
	invoke mem.alloc,ecx
	mov buf2d_data,eax
 
	cmp buf2d_bits,24
	jne @f
		cld
		mov esi,[rgb_data]
		or esi,esi
		jz @f
		mov edi,eax ;eax=buf2d_data
		rep movsb ;ª®¯¨àã¥¬ ¡¨âë ¨§®¡à ¦¥­¨ï ¢ ¡ãä¥à
		jmp .end_create
	@@:
		stdcall buf_clear,edi,buf2d_color ;®ç¨áâª  ¡ãä¥à  ä®­®¢ë¬ æ¢¥â®¬
		jmp .end_create
	.error:
		stdcall print_err,sz_buf2d_create_f_img,txt_err_size_0
	.end_create:
	popad
	ret
endp
 
;äã­ªæ¨ï ¤«ï ®¡à¥§ ­¨ï ¡ãä¥à®¢ 8 ¨ 24 ¡¨â­ëå, ¯® § ¤ ­®¬ã æ¢¥âã.
;¯ à ¬¥âà opt § ¤ ¥âáï ª®¬¡¨­ æ¨¥© ª®­áâ ­â:
; BUF2D_OPT_CROP_TOP - ®¡à¥§ª  á¢¥àåã
; BUF2D_OPT_CROP_LEFT - ®¡à¥§ª  á«¥¢ 
; BUF2D_OPT_CROP_BOTTOM - ®¡à¥§ª  á­¨§ã
; BUF2D_OPT_CROP_RIGHT - ®¡à¥§ª  á¯à ¢ 
align 4
proc buf_crop_color, buf_struc:dword, color:dword, opt:dword
locals
	crop_r dd ?
endl
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,24
	jne .24end_f
 
	bt dword[opt],BUF2D_BIT_OPT_CROP_BOTTOM
	jae .24no_crop_bottom
		mov eax,dword[color]
		mov edx,eax ;ax = colors - r,g
		shr edx,16 ;dl = color - b
		mov ecx,buf2d_h
		cmp ecx,1
		jle .24no_crop_bottom ;¯à®¢¥àï¥¬ ­  á«ãç © ¥á«¨ ¢ëá®â  ¡ãä¥à  1 ¯¨ªá¥«ì
		mov ebx,buf2d_w
		imul ecx,ebx
		lea esi,[ecx+ecx*2] ;esi=3*ecx
		add esi,buf2d_data
		cld
		@@:
			sub esi,3
			cmp word[esi],ax
			jne @f
			cmp byte[esi+2],dl
			jne @f
			loop @b
		@@:
		lea ebx,[ebx+ebx*2]
		xor edx,edx
		mov eax,buf2d_h
		imul eax,ebx
		add eax,buf2d_data ;eax - ãª § â¥«ì ­  ª®­¥æ ¡ãä¥à  ¨§®¡à ¦¥­¨ï
		@@:
			add esi,ebx
			cmp esi,eax
			jge @f
			inc edx ;¢ëç¨á«ï¥¬ ç¨á«® ¯®«­ëå áâà®ª ¤«ï ®¡à¥§ ­¨ï
			loop @b
		@@:
		cmp edx,0
		je .24no_crop_bottom
			cmp edx,buf2d_h
			jge .24no_crop_bottom ;çâ®-¡ë ­¥ ¯®«ãç¨âì ¯ãáâ®© ¡ãä¥à
			sub buf2d_h,edx ;ã¬¥­ìè ¥¬ ¢ëá®âã ¡ãä¥à 
			mov ecx,buf2d_h
			imul ecx,ebx ;ecx = ­®¢ë© à §¬¥à ¨§®¡à ¦¥­¨ï
			invoke mem.realloc,buf2d_data,ecx
			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï ãª § â¥«ì ­  ¤ ­­ë¥
	.24no_crop_bottom:
 
	bt dword[opt],BUF2D_BIT_OPT_CROP_TOP
	jae .24no_crop_top
		mov eax,dword[color]
		mov edx,eax ;ax = colors - r,g
		shr edx,16 ;dl = color - b
		mov esi,buf2d_data
		mov ecx,buf2d_h
		cmp ecx,1
		jle .24no_crop_top ;¯à®¢¥àï¥¬ ­  á«ãç © ¥á«¨ ¢ëá®â  ¡ãä¥à  1 ¯¨ªá¥«ì
		dec ecx ;¯à¨ ®¡à¥§ ­¨¨ ¤®«¦­  ®áâ âìáï ¬¨­¨¬ã¬ 1-­  áâà®ª  ¯¨ªá¥«¥©
		mov ebx,buf2d_w
		imul ecx,ebx
		cld
		@@:
			cmp word[esi],ax
			jne @f
			cmp byte[esi+2],dl
			jne @f
			add esi,3
			loop @b
		@@:
		lea ebx,[ebx+ebx*2]
		xor edx,edx
		@@:
			sub esi,ebx
			cmp esi,buf2d_data
			jl @f
			inc edx ;¢ëç¨á«ï¥¬ ç¨á«® ¯®«­ëå áâà®ª ¤«ï ®¡à¥§ ­¨ï
			loop @b
		@@:
		cmp edx,0
		je .24no_crop_top
			xor eax,eax
			sub eax,edx
			mov ebx,buf2d_h
			sub ebx,edx
			stdcall buf_offset_h, edi, eax, edx, ebx ;á¤¢¨£ ¥¬ ¨§®¡à ¦¥­¨¥ ¢ ¡ãä¥à¥ ¢¢¥àå (eax<0)
			sub buf2d_h,edx ;ã¬¥­ìè ¥¬ ¢ëá®âã ¡ãä¥à 
			mov ecx,buf2d_h
			add buf2d_t,dx ;á¤¢¨£ ¥¬ ®âáâã¯ ¢­¨§, ­  ç¨á«® ®¡à¥§ ­­ëå áâà®ª
			mov ebx,buf2d_w
			imul ecx,ebx
			lea ecx,[ecx+ecx*2]
			invoke mem.realloc,buf2d_data,ecx
			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï ãª § â¥«ì ­  ¤ ­­ë¥
	.24no_crop_top:
 
	bt dword[opt],BUF2D_BIT_OPT_CROP_RIGHT
	jae .24no_crop_right
		mov eax,dword[color]
		mov edx,eax ;ax = colors - r,g
		shr edx,16 ;dl = color - b
		mov ebx,buf2d_w
		cmp ebx,1
		jle .24no_crop_right ;­  á«ãç © ¥á«¨ è¨à¨­  ¡ãä¥à  1 ¯¨ªá¥«ì
		lea ebx,[ebx+ebx*2]
		mov esi,ebx
		imul esi,buf2d_h
		add esi,buf2d_data ;esi - ãª § â¥«ì ­  ª®­¥æ ¡ãä¥à  ¨§®¡à ¦¥­¨ï
		mov dword[crop_r],0
		cld
		.24found_beg_right:
		sub esi,3 ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢«¥¢®
		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® æ¨ª« 
		@@:
			cmp word[esi],ax
			jne .24found_right
			cmp byte[esi+2],dl
			jne .24found_right
			sub esi,ebx ;¯àë£ ¥¬ ­  ¢¥àå­îî áâà®ªã
			loop @b
		inc dword[crop_r]
 
		mov ecx,buf2d_w
		dec ecx ;1 ª®«®­ª  ­  § ¯ á
		cmp dword[crop_r],ecx
		jge .24found_right
 
		sub esi,3 ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢«¥¢®
		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® æ¨ª« 
		@@:
			add esi,ebx ;¯àë£ ¥¬ ­  ­¨¦­îî áâà®ªã
			cmp word[esi],ax
			jne .24found_right
			cmp byte[esi+2],dl
			jne .24found_right
			loop @b
		inc dword[crop_r]
 
		mov ecx,buf2d_w
		dec ecx ;1 ª®«®­ª  ­  § ¯ á
		cmp dword[crop_r],ecx
		jl .24found_beg_right
 
		.24found_right:
		cmp dword[crop_r],0
		je .24no_crop_right
			mov ecx,buf2d_w
			sub ecx,dword[crop_r]
			stdcall img_rgb_crop_r, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ­®¢®¬ã à §¬¥àã
			mov buf2d_w,ecx ;áâ ¢¨¬ ­®¢ãî è¨à¨­ã ¤«ï ¡ãä¥à 
			mov ebx,buf2d_h
			imul ecx,ebx
			lea ecx,[ecx+ecx*2]
			invoke mem.realloc,buf2d_data,ecx
			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï ãª § â¥«ì ­  ¤ ­­ë¥
	.24no_crop_right:
 
	bt dword[opt],BUF2D_BIT_OPT_CROP_LEFT
	jae .24no_crop_left
		mov eax,dword[color]
		mov edx,eax ;ax = colors - r,g
		shr edx,16 ;dl = color - b
		mov ebx,buf2d_w
		cmp ebx,1
		jle .24no_crop_left ;­  á«ãç © ¥á«¨ è¨à¨­  ¡ãä¥à  1 ¯¨ªá¥«ì
		lea ebx,[ebx+ebx*2]
		mov esi,buf2d_data ;esi - ãª § â¥«ì ­  ­ ç®«® ¡ãä¥à  ¨§®¡à ¦¥­¨ï
		mov dword[crop_r],0
		cld
		.24found_beg_left:
 
		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® æ¨ª« 
		@@:
			cmp word[esi],ax
			jne .24found_left
			cmp byte[esi+2],dl
			jne .24found_left
			add esi,ebx ;¯àë£ ¥¬ ­  ­¨¦­îî áâà®ªã
			loop @b
		inc dword[crop_r]
		add esi,3 ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢¯à ¢®
 
		mov ecx,buf2d_w
		dec ecx ;1 ª®«®­ª  ­  § ¯ á
		cmp dword[crop_r],ecx
		jge .24found_left
 
		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® æ¨ª« 
		@@:
			sub esi,ebx ;¯àë£ ¥¬ ­  ¢¥àå­îî áâà®ªã
			cmp word[esi],ax
			jne .24found_left
			cmp byte[esi+2],dl
			jne .24found_left
			loop @b
		inc dword[crop_r]
		add esi,3 ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢¯à ¢®
 
		mov ecx,buf2d_w
		dec ecx ;1 ª®«®­ª  ­  § ¯ á
		cmp dword[crop_r],ecx
		jl .24found_beg_left
 
		.24found_left:
		cmp dword[crop_r],0
		je .24no_crop_left
			mov ecx,buf2d_w
			sub ecx,dword[crop_r]
			stdcall img_rgb_crop_l, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ­®¢®¬ã à §¬¥àã
			mov buf2d_w,ecx ;áâ ¢¨¬ ­®¢ãî è¨à¨­ã ¤«ï ¡ãä¥à 
			mov ebx,buf2d_h
			imul ecx,ebx
			lea ecx,[ecx+ecx*2]
			invoke mem.realloc,buf2d_data,ecx
			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï ãª § â¥«ì ­  ¤ ­­ë¥
			mov eax,dword[crop_r]
			add buf2d_l,ax
	.24no_crop_left:
 
	.24end_f:
 
 
	cmp buf2d_bits,8
	jne .8end_f
 
	bt dword[opt],BUF2D_BIT_OPT_CROP_BOTTOM
	jae .8no_crop_bottom
		mov eax,dword[color]
		mov esi,buf2d_data
		mov ecx,buf2d_h
		cmp ecx,1
		jle .8no_crop_bottom ;¯à®¢¥àï¥¬ ­  á«ãç © ¥á«¨ ¢ëá®â  ¡ãä¥à  1 ¯¨ªá¥«ì
		mov ebx,buf2d_w
		imul ecx,ebx
		mov esi,ecx
		add esi,buf2d_data
		cld
		@@:
			dec esi
			cmp byte[esi],al
			jne @f
			loop @b
		@@:
		xor edx,edx
		mov eax,buf2d_h
		imul eax,ebx
		add eax,buf2d_data ;eax - ãª § â¥«ì ­  ª®­¥æ ¡ãä¥à  ¨§®¡à ¦¥­¨ï
		@@:
			add esi,ebx
			cmp esi,eax
			jge @f
			inc edx
			loop @b
		@@:
		cmp edx,0
		je .8no_crop_bottom
			cmp edx,buf2d_h
			jge .8no_crop_bottom ;çâ®-¡ë ­¥ ¯®«ãç¨âì ¯ãáâ®© ¡ãä¥à
			sub buf2d_h,edx ;ã¬¥­ìè ¥¬ ¢ëá®âã ¡ãä¥à 
			mov ecx,buf2d_h
			imul ecx,ebx ;ecx = ­®¢ë© à §¬¥à ¨§®¡à ¦¥­¨ï
			invoke mem.realloc,buf2d_data,ecx
			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï ãª § â¥«ì ­  ¤ ­­ë¥
	.8no_crop_bottom:
 
	bt dword[opt],BUF2D_BIT_OPT_CROP_TOP
	jae .8no_crop_top
		mov eax,dword[color]
		mov esi,buf2d_data
		mov ecx,buf2d_h
		cmp ecx,1
		jle .8no_crop_top ;¯à®¢¥àï¥¬ ­  á«ãç © ¥á«¨ ¢ëá®â  ¡ãä¥à  1 ¯¨ªá¥«ì
		dec ecx ;¯à¨ ®¡à¥§ ­¨¨ ¤®«¦­  ®áâ âìáï ¬¨­¨¬ã¬ 1-­  áâà®ª  ¯¨ªá¥«¥©
		mov ebx,buf2d_w
		imul ecx,ebx
		cld
		@@:
			cmp byte[esi],al
			jne @f
			inc esi
			loop @b
		@@:
		xor edx,edx
		@@:
			sub esi,ebx
			cmp esi,buf2d_data
			jl @f
			inc edx
			loop @b
		@@:
		cmp edx,0
		je .8no_crop_top
			xor eax,eax
			sub eax,edx
			mov ebx,buf2d_h
			sub ebx,edx
			stdcall buf_offset_h, edi, eax, edx, ebx
			mov ecx,buf2d_h
			sub ecx,edx
			mov buf2d_h,ecx ;ã¬¥­ìè ¥¬ ¢ëá®âã ¡ãä¥à 
			add buf2d_t,dx ;á¤¢¨£ ¥¬ ®âáâã¯ ¢­¨§, ­  ç¨á«® ®¡à¥§ ­­ëå áâà®ª
			mov ebx,buf2d_w
			imul ecx,ebx
			invoke mem.realloc,buf2d_data,ecx
			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï ãª § â¥«ì ­  ¤ ­­ë¥
	.8no_crop_top:
 
	bt dword[opt],BUF2D_BIT_OPT_CROP_RIGHT
	jae .8no_crop_right
		mov eax,dword[color]
		mov ebx,buf2d_w
		cmp ebx,1
		jle .8no_crop_right ;­  á«ãç © ¥á«¨ è¨à¨­  ¡ãä¥à  1 ¯¨ªá¥«ì
		mov esi,ebx
		imul esi,buf2d_h
		add esi,buf2d_data ;esi - ãª § â¥«ì ­  ª®­¥æ ¡ãä¥à  ¨§®¡à ¦¥­¨ï
		xor edx,edx
		cld
 
		.8found_beg:
		dec esi ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢«¥¢®
		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® æ¨ª« 
		@@:
			cmp byte[esi],al
			jne .8found
			sub esi,ebx ;¯àë£ ¥¬ ­  ¢¥àå­îî áâà®ªã
			loop @b
		inc edx
		mov ecx,buf2d_w
		dec ecx ;1 ª®«®­ª  ­  § ¯ á
		cmp edx,ecx
		jge .8found
 
		dec esi ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢«¥¢®
		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® æ¨ª« 
		@@:
			add esi,ebx ;¯àë£ ¥¬ ­  ­¨¦­îî áâà®ªã
			cmp byte[esi],al
			jne .8found
			loop @b
		inc edx
 
		mov ecx,buf2d_w
		dec ecx ;1 ª®«®­ª  ­  § ¯ á
		cmp edx,ecx
		jl .8found_beg
 
		.8found:
		cmp edx,0
		je .8no_crop_right
			mov ecx,buf2d_w
			sub ecx,edx
			stdcall img_gray_crop_r, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ­®¢®¬ã à §¬¥àã
			mov buf2d_w,ecx ;áâ ¢¨¬ ­®¢ãî è¨à¨­ã ¤«ï ¡ãä¥à 
			mov ebx,buf2d_h
			imul ecx,ebx
			invoke mem.realloc,buf2d_data,ecx
			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï ãª § â¥«ì ­  ¤ ­­ë¥
	.8no_crop_right:
 
	bt dword[opt],BUF2D_BIT_OPT_CROP_LEFT
	jae .8no_crop_left
		mov eax,dword[color]
		mov ebx,buf2d_w
		cmp ebx,1
		jle .8no_crop_left ;­  á«ãç © ¥á«¨ è¨à¨­  ¡ãä¥à  1 ¯¨ªá¥«ì
		mov esi,buf2d_data ;esi - ãª § â¥«ì ­  ­ ç®«® ¡ãä¥à  ¨§®¡à ¦¥­¨ï
		mov edx,0
		cld
		.8found_beg_left:
 
		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® æ¨ª« 
		@@:
			cmp word[esi],ax
			jne .8found_left
			add esi,ebx ;¯àë£ ¥¬ ­  ­¨¦­îî áâà®ªã
			loop @b
		inc edx
		inc esi ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢¯à ¢®
 
		mov ecx,buf2d_w
		dec ecx ;1 ª®«®­ª  ­  § ¯ á
		cmp edx,ecx
		jge .8found_left
 
		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® æ¨ª« 
		@@:
			sub esi,ebx ;¯àë£ ¥¬ ­  ¢¥àå­îî áâà®ªã
			cmp word[esi],ax
			jne .8found_left
			loop @b
		inc edx
		inc esi ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢¯à ¢®
 
		mov ecx,buf2d_w
		dec ecx ;1 ª®«®­ª  ­  § ¯ á
		cmp edx,ecx
		jl .8found_beg_left
 
		.8found_left:
		cmp edx,0
		je .8no_crop_left
			mov ecx,buf2d_w
			sub ecx,edx
			stdcall img_gray_crop_l, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ­®¢®¬ã à §¬¥àã
			mov buf2d_w,ecx ;áâ ¢¨¬ ­®¢ãî è¨à¨­ã ¤«ï ¡ãä¥à 
			mov ebx,buf2d_h
			imul ecx,ebx
			invoke mem.realloc,buf2d_data,ecx
			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï ãª § â¥«ì ­  ¤ ­­ë¥
			mov eax,edx
			add buf2d_l,ax
	.8no_crop_left:
 
	.8end_f:
 
	popad
	ret
endp
 
;®¡à¥§ ¥¬ æ¢¥â­®¥ ¨§®¡à ¦¥­¨¥ á ¯à ¢®© áâ®à®­ë
;input:
;data_rgb - pointer to rgb data
;size_w_old - width img in pixels
;size_w_new - new width img in pixels
;size_h - height img in pixels
align 4
proc img_rgb_crop_r, data_rgb:dword, size_w_old:dword, size_w_new:dword, size_h:dword
	pushad
	mov eax, dword[size_w_old]
	lea eax, dword[eax+eax*2] ;eax = width(old) * 3(rgb)
	mov ebx, dword[size_w_new]
	lea ebx, dword[ebx+ebx*2] ;ebx = width(new) * 3(rgb)
	mov edx, dword[size_h]
	mov edi, dword[data_rgb] ;edi - ¯®«ãç ¥â ¤ ­­ë¥
	mov esi, edi
	add edi, ebx
	add esi, eax
	cld
	@@:
		dec edx ;ã¬¥­ìè ¥¬ áç¥âç¨ª ®áâ ¢è¨åáï áâà®ª ­  1
		cmp edx,0
		jle @f
		mov ecx, ebx
		rep movsb ;¯¥à¥­®á (ª®¯¨à®¢ ­¨¥) áâà®ª¨ ¯¨ªá¥«¥©
		add esi,eax ;¯¥à¥å®¤ ­  ­®¢ãî áâà®çªã ¨§®¡à ¦¥­¨ï
		sub esi,ebx
		jmp @b
	@@:
	popad
	ret
endp
 
;®¡à¥§ ¥¬ á¥à®¥ ¨§®¡à ¦¥­¨¥ á ¯à ¢®© áâ®à®­ë
;input:
;data_gray - pointer to gray data
;size_w_old - width img in pixels
;size_w_new - new width img in pixels
;size_h - height img in pixels
align 4
proc img_gray_crop_r, data_gray:dword, size_w_old:dword, size_w_new:dword, size_h:dword
	pushad
	mov eax, dword[size_w_old]
	mov ebx, dword[size_w_new]
	mov edx, dword[size_h]
	mov edi, dword[data_gray] ;edi - ¯®«ãç ¥â ¤ ­­ë¥
	mov esi, edi
	add edi, ebx
	add esi, eax
	cld
	@@:
		dec edx ;ã¬¥­ìè ¥¬ áç¥âç¨ª ®áâ ¢è¨åáï áâà®ª ­  1
		cmp edx,0
		jle @f
		mov ecx, ebx
		rep movsb ;¯¥à¥­®á (ª®¯¨à®¢ ­¨¥) áâà®ª¨ ¯¨ªá¥«¥©
		add esi,eax ;¯¥à¥å®¤ ­  ­®¢ãî áâà®çªã ¨§®¡à ¦¥­¨ï
		sub esi,ebx
		jmp @b
	@@:
	popad
	ret
endp
 
;®¡à¥§ ¥¬ æ¢¥â­®¥ ¨§®¡à ¦¥­¨¥ á «¥¢®© áâ®à®­ë
;input:
;data_rgb - pointer to rgb data
;size_w_old - width img in pixels
;size_w_new - new width img in pixels
;size_h - height img in pixels
align 4
proc img_rgb_crop_l, data_rgb:dword, size_w_old:dword, size_w_new:dword, size_h:dword
	pushad
	mov edi,dword[data_rgb]
	mov esi,edi
	mov eax,dword[size_w_old]
	mov ebx,dword[size_w_new]
	cmp eax,ebx
	jle .end_f ;áâ àë© à §¬¥à ¨§®¡à ¦¥­¨ï ­¥ ¬®¦¥â ¡ëâì ¬¥­ìè¥ ­®¢®£® (¯à¨ ãá«®¢¨¨ ®¡à¥§ ­¨ï ª àâ¨­ª¨)
		lea eax,[eax+eax*2]
		lea ebx,[ebx+ebx*2]
		sub eax,ebx
		mov edx,dword[size_h] ;¢ëá®â  ¨§®¡à ¦¥­¨ï
		cld
		@@:
			add esi,eax
			mov ecx,ebx
			rep movsb
			dec edx
			cmp edx,0
			jg @b
	.end_f:
	popad
	ret
endp
 
;®¡à¥§ ¥¬ á¥à®¥ ¨§®¡à ¦¥­¨¥ á «¥¢®© áâ®à®­ë
;input:
;data_gray - pointer to gray data
;size_w_old - width img in pixels
;size_w_new - new width img in pixels
;size_h - height img in pixels
align 4
proc img_gray_crop_l, data_gray:dword, size_w_old:dword, size_w_new:dword, size_h:dword
	pushad
	mov edi,dword[data_gray]
	mov esi,edi
	mov eax,dword[size_w_old]
	mov ebx,dword[size_w_new]
	cmp eax,ebx
	jle .end_f ;áâ àë© à §¬¥à ¨§®¡à ¦¥­¨ï ­¥ ¬®¦¥â ¡ëâì ¬¥­ìè¥ ­®¢®£® (¯à¨ ãá«®¢¨¨ ®¡à¥§ ­¨ï ª àâ¨­ª¨)
		sub eax,ebx
		mov edx,dword[size_h] ;¢ëá®â  ¨§®¡à ¦¥­¨ï
		cld
		@@:
			add esi,eax
			mov ecx,ebx
			rep movsb
			dec edx
			cmp edx,0
			jg @b
	.end_f:
	popad
	ret
endp
 
;hoffs - ª®««¨ç¥áâ¢® ¯¨ªá¥«¥© ­  ª®âàë¥ ¯®¤­¨¬ ¥âáï/®¯ãáª ¥âáï ¨§®¡à ¦¥­¨¥
;img_t - ¢ëá®â , á ª®â®à®© ­ ç¨­ ¥âáï ¤¢¨£ îé ïáï ç áâì ¨§®¡à ¦¥­¨ï
align 4
proc buf_offset_h, buf_struc:dword, hoffs:dword, img_t:dword, img_h:dword ;á¤¢¨£ ¥â ¨§®¡à ¦¥­¨¥ ¯® ¢ëá®â¥
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,24
	jne .end_move_24
 
	mov eax,[hoffs]
	cmp eax,0
	je .end_move_24
		mov ebx,buf2d_w
		mov edx,dword[img_t]
			mov ecx,dword[img_h] ;ecx - ¢ëá®â  á¤¢¨£ ¥¬ëå ¤ ­­ëå
			cmp ecx,buf2d_h
			jge .end_f ;®è¨¡®ç­®¥ ãá«®¢¨¥, ¢ëá®â  ¨§®¡à ¦¥­¨ï ¬¥­ìè¥ ç¥¬ ¢ëá®â  á¤¢¨£ ¥¬®£® ¨§®¡à ¦¥­¨ï
			imul ecx,ebx ;ecx - ª®««¨ç¥áâ¢® ¯¨ªá¥«¥© ¢ á¤¢¨£ ¥¬ëå ¤ ­­ëå
			lea ecx,[ecx+ecx*2]
		imul ebx,edx
		lea ebx,[ebx+ebx*2]
		mov esi,buf2d_data
		add esi,ebx
 
		add edx,eax ;edx = img_t+hoffs (hoffs<0)
		mov ebx,buf2d_w
		imul ebx,edx
		lea ebx,[ebx+ebx*2]
		mov edi,buf2d_data ;¯®§¨æ¨ï, ªã¤  ¡ã¤¥â ¤¢¨£ âìáï ¨§®¡à ¦¥­¨¥
		add edi,ebx
 
		cmp eax,0
		jg .move_down_24
			;¤¢¨£ ¥¬ ¨§®¡à ¦¥­¨¥ ¢¢¥àå
			cld
			rep movsb
			jmp .end_f
		.move_down_24:
			;¤¢¨£ ¥¬ ¨§®¡à ¦¥­¨¥ ¢­¨§
			add esi,ecx
			dec esi
			add edi,ecx
			dec edi
			std
			rep movsb
			jmp .end_f
	.end_move_24:
 
;stdcall print_err,sz_buf2d_offset_h,txt_err_n24b
 
	cmp buf2d_bits,8
	jne .end_move_8
 
	mov eax,[hoffs]
	cmp eax,0
	je .end_move_8
		;¤¢¨£ ¥¬ ¨§®¡à ¦¥­¨¥ ¢¢¥àå
		mov ebx,buf2d_w
		mov edx,dword[img_t]
			mov ecx,dword[img_h] ;ecx - ¢ëá®â  á¤¢¨£ ¥¬ëå ¤ ­­ëå
			cmp ecx,buf2d_h
			jge .end_f ;®è¨¡®ç­®¥ ãá«®¢¨¥, ¢ëá®â  ¨§®¡à ¦¥­¨ï ¬¥­ìè¥ ç¥¬ ¢ëá®â  á¤¢¨£ ¥¬®£® ¨§®¡à ¦¥­¨ï
			imul ecx,ebx ;ecx - ª®««¨ç¥áâ¢® ¯¨ªá¥«¥© ¢ á¤¢¨£ ¥¬ëå ¤ ­­ëå
		imul ebx,edx
		mov esi,buf2d_data
		add esi,ebx
 
		add edx,eax ;edx = img_t+hoffs (hoffs<0)
		mov ebx,buf2d_w
		imul ebx,edx
		mov edi,buf2d_data ;¯®§¨æ¨ï, ªã¤  ¡ã¤¥â ¤¢¨£ âìáï ¨§®¡à ¦¥­¨¥
		add edi,ebx
 
		cmp eax,0
		jg .move_down_8
			cld
			rep movsb
			jmp .end_f
		.move_down_8:
			;¤¢¨£ ¥¬ ¨§®¡à ¦¥­¨¥ ¢­¨§
			add esi,ecx
			dec esi
			add edi,ecx
			dec edi
			std
			rep movsb
			jmp .end_f
	.end_move_8:
 
	.end_f:
	popad
	ret
endp
 
align 4
proc buf_delete, buf_struc:dword
	push eax edi
	mov edi,dword[buf_struc]
	invoke mem.free,buf2d_data
	pop edi eax
	ret
endp
 
;input:
; new_w - ­®¢ ï è¨à¨­  (¥á«¨ 0 â® ­¥ ¬¥­ï¥âáï)
; new_h - ­®¢ ï ¢ëá®â  (¥á«¨ 0 â® ­¥ ¬¥­ï¥âáï)
; options - ¯ à ¬¥âàë ¨§¬¥­¥­¨ï ¡ãä¥à  (1 - ¨§¬¥­ïâì à §¬¥à ¡ãä¥à ,
;    2 - ¨§¬¥­ïâì ¨§®¡à ¦¥­¨¥ ¢ ¡ãä¥à¥, 3 - ¨§¬¥­ïâì ¡ãä¥à ¨ ¨§®¡à ¦¥­¨¥)
align 4
proc buf_resize, buf_struc:dword, new_w:dword, new_h:dword, options:dword
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,8
	jne .8bit
		bt dword[options],1 ;á¦ â¨¥ ¨§®¡à.
		jnc @f
			;...
		@@:
		bt dword[options],0 ;¨§¬¥­. ¡ãä¥à
		jnc .end_f
			;...
		jmp .end_f
	.8bit:
	cmp buf2d_bits,24
	jne .24bit
		bt dword[options],1 ;á¦ â¨¥ ¨§®¡à.
		jnc .24_end_r
			mov eax,dword[new_w]
			cmp eax,1
			jl @f
			cmp eax,buf2d_w
			jge @f
				;á¦ â¨¥ ¯® è¨à¨­¥
				stdcall img_rgb24_wresize, buf2d_data,buf2d_w,buf2d_h,eax
				jmp .24_r_h
			@@:
			mov eax,buf2d_w
			.24_r_h: ;eax - è¨à¨­  ¡ãä¥à  ¨«¨ è¨à¨­  á¦ â®£® ¨§®¡à ¦¥­¨ï
			mov ebx,dword[new_h]
			cmp ebx,1
			jl @f
			cmp ebx,buf2d_h
			jge @f
				;á¦ â¨¥ ¯® ¢ëá®â¥
				stdcall img_rgb24_hresize, buf2d_data,eax,buf2d_h,ebx
			@@:
		.24_end_r:
		bt dword[options],0 ;¨§¬¥­. ¡ãä¥à
		jnc .end_f
		mov eax,dword[new_w]
		cmp eax,1
		jl @f
			mov buf2d_w,eax
		@@:
		mov ecx,buf2d_w
		mov eax,dword[new_h]
		cmp eax,1
		jl @f
			mov buf2d_h,eax
		@@:
		mov ebx,buf2d_h
		imul ecx,ebx
		lea ecx,[ecx+ecx*2] ; 24 bit = 3
		invoke mem.realloc,buf2d_data,ecx ;¨§¬¥­ï¥¬ ¯ ¬ïâì § ­¨¬ ¥¬ãî ¡ãä¥à®¬
		mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï ãª § â¥«ì ­  ¤ ­­ë¥
	.24bit:
	.end_f:
	popad
	ret
endp
 
align 4
rot_table: ;â ¡«¨æ  ¤«ï ãª § ­¨ï ­  ¯®¤äã­ªæ¨¨ ¤«ï ¯®¢®à®â®¢
	dd buf_rotate.8b90,buf_rotate.24b90,buf_rotate.32b90,\
	buf_rotate.8b180,buf_rotate.24b180,buf_rotate.32b180
 
;¯®¢®à®â ¨§®¡à ¦¥­¨ï ­  90 ¨«¨ 180 £à ¤ãá®¢
align 4
proc buf_rotate, buf_struc:dword, angle:dword
locals
	n_data dd ?
	dec_h dd ? ;ç¨á«® ¡ ©â, ¤«ï ã¬¥­ìè¥­¨ï ª®®à¤¨­ âë y
endl
	pushad
	mov edi,[buf_struc]
	mov ebx,buf2d_w
	mov ecx,buf2d_h
 
	lea eax,[rot_table]
	cmp dword[angle],90 ;¯à®¢¥àª  ã£«  ¯®¢®à®â 
	je .beg_0
	cmp dword[angle],180
	jne @f
		add eax,12
		jmp .beg_0
	@@:
	jmp .end_f
	.beg_0: ;¯à®¢¥àª  ¡¨â­®áâ¨ ¡ãä¥à 
	cmp buf2d_bits,8
	jne @f
		jmp dword[eax]
	@@:
	cmp buf2d_bits,24
	jne @f
		add eax,4
		jmp dword[eax]
	@@:
	cmp buf2d_bits,32
	jne @f
		add eax,8
		jmp dword[eax]
	@@:
	jmp .end_f
 
	.8b90: ;¯®¢®à®â 8 ¡¨â­®£® ¡ãä¥à  ­  90 £à ¤ãá®¢
		mov edx,ecx ;edx - buf_h
		imul ecx,ebx
		invoke mem.alloc,ecx ;¢ë¤¥«ï¥¬ ¢à¥¬¥­­ãî ¯ ¬ïâì
		cmp eax,0
		je .end_f
		mov [n_data],eax
		mov [dec_h],ecx
		inc dword[dec_h]
 
		;copy buf --> mem
		mov edi,[buf_struc]
		mov esi,buf2d_data
		mov edi,eax ;[n_data]
		dec edx ;ª®à¥ªâ¨àã¥¬ edx ­  1 ¡ ©â, ¤«ï ª®¬¯¥­á æ¨¨ á¤¢¨£  ¢ movsb
		add edi,edx
		xor eax,eax
		cld
		.cycle_0:
			movsb
			add edi,edx
			inc eax
			cmp eax,ebx
			jl @f
				xor eax,eax
				sub edi,[dec_h]
			@@:
			loop .cycle_0
 
		;change buf_w <---> buf_h
		mov esi,[n_data]
		mov edi,[buf_struc]
		mov edi,buf2d_data
		mov ecx,ebx
		inc edx ;¨á¯à ¢«ï¥¬ áª®à¥ªâ¨à®¢ ­­ë© edx
		imul ecx,edx
		;copy buf <-- mem
		;cld
		rep movsb
		invoke mem.free,[n_data]
		jmp .change_w_h
	.24b90: ;¯®¢®à®â 24 ¡¨â­®£® ¡ãä¥à  ­  90 £à ¤ãá®¢
		mov esi,ecx
		imul esi,ebx
		lea ecx,[ecx+ecx*2]
		mov edx,ecx ;edx - buf_h * 3
		imul ecx,ebx
		invoke mem.alloc,ecx ;¢ë¤¥«ï¥¬ ¢à¥¬¥­­ãî ¯ ¬ïâì
		cmp eax,0
		je .end_f
		mov [n_data],eax
		mov [dec_h],ecx
		add dword[dec_h],3
 
		;copy buf --> mem
		
		mov edi,[buf_struc]
		mov ecx,esi
		mov esi,buf2d_data
		mov edi,eax ;[n_data]
		sub edx,3 ;ª®à¥ªâ¨àã¥¬ edx ­  3 ¡ ©â , ¤«ï ª®¬¯¥­á æ¨¨ á¤¢¨£ 
		add edi,edx
		xor eax,eax
		cld
		.cycle_1:
			movsw
			movsb
			add edi,edx
			inc eax
			cmp eax,ebx
			jl @f
				xor eax,eax
				sub edi,[dec_h]
			@@:
			loop .cycle_1
 
		;copy buf <-- mem
		mov esi,[n_data]
		mov edi,[buf_struc]
		mov edi,buf2d_data
		mov ecx,ebx
		add edx,3 ;¨á¯à ¢«ï¥¬ áª®à¥ªâ¨à®¢ ­­ë© edx
		imul ecx,edx
		;cld
		rep movsb
		invoke mem.free,[n_data]
		jmp .change_w_h
	.32b90: ;¯®¢®à®â 32 ¡¨â­®£® ¡ãä¥à  ­  90 £à ¤ãá®¢
		shl ecx,2
		mov edx,ecx ;edx - buf_h * 4
		imul ecx,ebx
		invoke mem.alloc,ecx ;¢ë¤¥«ï¥¬ ¢à¥¬¥­­ãî ¯ ¬ïâì
		cmp eax,0
		je .end_f
		mov [n_data],eax
		mov [dec_h],ecx
		add dword[dec_h],4
 
		;copy buf --> mem
		mov edi,[buf_struc]
		shr ecx,2
		mov esi,buf2d_data
		mov edi,eax ;[n_data]
		sub edx,4 ;ª®à¥ªâ¨àã¥¬ edx ­  4 ¡ ©â , ¤«ï ª®¬¯¥­á æ¨¨ á¤¢¨£  ¢ movsd
		add edi,edx
		xor eax,eax
		cld
		.cycle_2:
			movsd
			add edi,edx
			inc eax
			cmp eax,ebx
			jl @f
				xor eax,eax
				sub edi,[dec_h]
			@@:
			loop .cycle_2
 
		;copy buf <-- mem
		mov esi,[n_data]
		mov edi,[buf_struc]
		mov edi,buf2d_data
		mov ecx,ebx
		add edx,4 ;¨á¯à ¢«ï¥¬ áª®à¥ªâ¨à®¢ ­­ë© edx
		imul ecx,edx
		shr ecx,2
		;cld
		rep movsd
		invoke mem.free,[n_data]
		;jmp .change_w_h
	.change_w_h: ;change buf_w <---> buf_h
		mov edi,[buf_struc]
		mov eax,buf2d_w
		mov ebx,buf2d_h
		mov buf2d_h,eax
		mov buf2d_w,ebx
		jmp .end_f
	.8b180: ;¯®¢®à®â 8 ¡¨â­®£® ¡ãä¥à  ­  180 £à ¤ãá®¢
		mov edi,buf2d_data
		mov esi,edi
		imul ecx,ebx
		add esi,ecx
		dec esi
		shr ecx,1 ;ecx - ç¨á«® ¯¨ªá¥«¥© ¡ãä¥à  : 2
		std
		@@:
			lodsb
			mov ah,byte[edi]
			mov byte[esi+1],ah
			mov byte[edi],al
			inc edi
			loop @b
			jmp .end_f
	.24b180: ;¯®¢®à®â 24 ¡¨â­®£® ¡ãä¥à  ­  180 £à ¤ãá®¢
		mov esi,buf2d_data
		mov edi,esi
		imul ecx,ebx
		mov eax,ecx
		lea ecx,[ecx+ecx*2]
		add edi,ecx
		sub edi,3
		shr eax,1
		mov ecx,eax ;ecx - ç¨á«® ¯¨ªá¥«¥© ¡ãä¥à  : 2
		cld
		@@:
			lodsw
			mov edx,eax
			lodsb
			mov bx,word[edi]
			mov word[esi-3],bx
			mov bl,byte[edi+2]
			mov byte[esi-1],bl
			mov byte[edi+2],al
			mov word[edi],dx
			sub edi,3
			loop @b
			jmp .end_f
	.32b180: ;¯®¢®à®â 32 ¡¨â­®£® ¡ãä¥à  ­  180 £à ¤ãá®¢
		mov edi,buf2d_data
		mov esi,edi
		imul ecx,ebx
		shl ecx,2
		add esi,ecx
		sub esi,4
		shr ecx,3 ;ecx - ç¨á«® ¯¨ªá¥«¥© ¡ãä¥à  : 2
		std
		@@:
			lodsd
			mov ebx,dword[edi]
			mov dword[esi+4],ebx
			mov dword[edi],eax
			add edi,4
			loop @b
		;jmp .end_f
 
	.end_f:
	popad
	ret
endp
 
align 4
proc buf_flip_h, buf_struc:dword
pushad
	mov edi,[buf_struc]
	cmp buf2d_bits,24
	jne .end_24
		mov esi,buf2d_data
		mov eax,buf2d_w
		mov ecx,eax
		shr ecx,1
		dec eax
		lea eax,[eax+eax*2]
		mov ebx,buf2d_h
		mov edi,esi		
		add esi,eax
		add eax,3
		cld
		.cycle_24:
		push ecx edi esi
align 4
		@@:
			;swap word[edi] <-> word[esi]
			mov dx,[edi]
			movsw
			mov [esi-2],dx
			;swap byte[edi] <-> byte[esi]
			mov dl,[edi]
			movsb
			mov [esi-1],dl
			sub esi,6
		loop @b
		pop esi edi ecx
		add edi,eax
		add esi,eax
		dec ebx
		or ebx,ebx
		jnz .cycle_24
		jmp .end_32
	.end_24:
	cmp buf2d_bits,32
	jne .end_32
		mov esi,buf2d_data
		mov eax,buf2d_w
		dec eax
		shl eax,2
		mov ebx,buf2d_h
		mov edi,esi
		add esi,eax
		add eax,4
		cld
		.cycle_32:
		mov ecx,eax
		shr ecx,3
		push edi esi
align 4
		@@:
			;swap dword[edi] <-> dword[esi]
			mov edx,[edi]
			movsd
			mov [esi-4],edx
			sub esi,8
		loop @b
		pop esi edi
		add edi,eax
		add esi,eax
		dec ebx
		or ebx,ebx
		jnz .cycle_32
	.end_32:
popad
	ret
endp
 
;®âà §¨âì ¯® ¢¥àâ¨ª «¨ (¢¥àå ¨ ­¨§ ¬¥­ïîâáï ¬¥áâ ¬¨)
align 4
proc buf_flip_v, buf_struc:dword
locals
	line_pix dd ? ;ª®«. ¯¨ªá¥«¥© ¢ «¨­¨¨ ¡ãä¥à 
	line_2byte dd ? ;ª®«. ¡ ©â ¢ «¨­¨¨ ¡ãä¥à  * 2
endl
	pushad
	mov edi,[buf_struc]
	cmp buf2d_bits,24
	jne .end_24
		mov edx,buf2d_w
		mov [line_pix],edx
		mov ebx,buf2d_h
		lea edx,[edx+edx*2]
		mov esi,edx
		imul esi,ebx
		sub esi,edx
		add esi,buf2d_data ;ãª § â¥«ì ­  ­¨¦­îî «¨­¨î
		shr ebx,1 ;ª®«. «¨­¥©­ëå æ¨ª«®¢
		shl edx,1
		mov [line_2byte],edx
		mov edi,buf2d_data
		xchg edi,esi
		cld
		.flip_24:
		cmp ebx,0
		jle .end_32 ;§¤¥áì ¢ëå®¤ ¨§ äã­ªæ¨¨ (¯®â®¬ã .end_24 ­¥ ¯®¤å®¤¨â)
		mov ecx,[line_pix]
align 4
		@@:
			lodsw
			mov dx,word[edi]
			mov word[esi-2],dx
			stosw
			lodsb
			mov ah,byte[edi]
			mov byte[esi-1],ah
			stosb
			loop @b
		sub edi,[line_2byte]
		dec ebx
		jmp .flip_24
	.end_24:
	cmp buf2d_bits,32
	jne .end_32
		mov edx,buf2d_w
		mov [line_pix],edx
		mov ebx,buf2d_h
		shl edx,2
		mov esi,edx
		imul esi,ebx
		sub esi,edx
		add esi,buf2d_data ;ãª § â¥«ì ­  ­¨¦­îî «¨­¨î
		shr ebx,1 ;ª®«. «¨­¥©­ëå æ¨ª«®¢
		shl edx,1
		mov [line_2byte],edx
		mov edi,buf2d_data
		xchg edi,esi
		cld
		.flip_32:
		cmp ebx,0
		jle .end_32
		mov ecx,[line_pix]
align 4
		@@:
			lodsd
			mov edx,dword[edi]
			mov dword[esi-4],edx
			stosd
			loop @b
		sub edi,[line_2byte]
		dec ebx
		jmp .flip_32
	.end_32:
	popad
	ret
endp
 
;description:
; á¦ â¨¥ ¨§®¡à ¦¥­¨ï ¯® è¨à¨­¥ ¢ 2 à §  (à §¬¥àë ¡ãä¥à  ­¥ ¬¥­ïîâáï)
align 4
proc buf_img_wdiv2, buf_struc:dword
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,8
	jne @f
		mov eax,buf2d_w
		mov ecx,buf2d_h
		imul ecx,eax
		stdcall img_8b_wdiv2, buf2d_data,ecx
	@@:
	cmp buf2d_bits,24
	jne @f
		mov eax,buf2d_w
		mov ecx,buf2d_h
		imul ecx,eax
		stdcall img_rgb24_wdiv2, buf2d_data,ecx
	@@:
	cmp buf2d_bits,32
	jne @f
		mov eax,buf2d_w
		mov ecx,buf2d_h
		imul ecx,eax
		stdcall img_rgba32_wdiv2, buf2d_data,ecx
	@@:
	popad
	ret
endp
 
;input:
;data_8b - pointer to rgb data
;size - count img pixels (size img data / 3(rgb) )
align 4
proc img_8b_wdiv2 data_8b:dword, size:dword
	mov eax,dword[data_8b]
	mov ecx,dword[size] ;ecx = size
	cld
	@@: ;§ â¥¬­¥­¨¥ æ¢¥â  ¯¨ªá¥«¥©
		shr byte[eax],1
		inc eax
		loop @b
 
	mov eax,dword[data_8b]
	mov ecx,dword[size] ;ecx = size
	shr ecx,1
	@@: ;á«®¦¥­¨¥ æ¢¥â®¢ ¯¨ªá¥«¥©
		mov bl,byte[eax+1] ;ª®¯¨àã¥¬ æ¢¥â á®á¥¤­¥£® ¯¨ªá¥«ï
		add byte[eax],bl
		add eax,2
		loop @b
 
	mov eax,dword[data_8b]
	inc eax
	mov ebx,eax
	inc ebx
	mov ecx,dword[size] ;ecx = size
	shr ecx,1
	dec ecx ;«¨è­¨© ¯¨ªá¥«ì
	@@: ;¯®¤¦ â¨¥ ¯¨ªá¥«¥©
		mov dl,byte[ebx]
		mov byte[eax],dl
 
		inc eax
		add ebx,2
		loop @b
	ret
endp
 
;input:
;data_rgb - pointer to rgb data
;size - count img pixels (size img data / 3(rgb) )
align 4
proc img_rgb24_wdiv2 data_rgb:dword, size:dword
  mov eax,dword[data_rgb]
  mov ecx,dword[size] ;ecx = size
  lea ecx,[ecx+ecx*2]
  cld
  @@: ;§ â¥¬­¥­¨¥ æ¢¥â  ¯¨ªá¥«¥©
		shr byte[eax],1
		inc eax
		loop @b
 
  mov eax,dword[data_rgb]
  mov ecx,dword[size] ;ecx = size
  shr ecx,1
  @@: ;á«®¦¥­¨¥ æ¢¥â®¢ ¯¨ªá¥«¥©
		mov bx,word[eax+3] ;ª®¯¨àã¥¬ æ¢¥â á®á¥¤­¥£® ¯¨ªá¥«ï
		add word[eax],bx
		mov bl,byte[eax+5] ;ª®¯¨àã¥¬ æ¢¥â á®á¥¤­¥£® ¯¨ªá¥«ï
		add byte[eax+2],bl
		add eax,6 ;=2*3
		loop @b
 
  mov eax,dword[data_rgb]
  add eax,3
  mov ebx,eax
  add ebx,3
  mov ecx,dword[size] ;ecx = size
  shr ecx,1
  dec ecx ;«¨è­¨© ¯¨ªá¥«ì
  @@: ;¯®¤¦ â¨¥ ¯¨ªá¥«¥©
		mov edx,dword[ebx]
		mov word[eax],dx
		shr edx,16
		mov byte[eax+2],dl
 
		add eax,3
		add ebx,6
		loop @b
  ret
endp
 
;input:
;data_rgba - pointer to rgba data
;size - count img pixels (size img data / 4(rgba) )
align 4
proc img_rgba32_wdiv2 data_rgba:dword, size:dword
	mov eax,dword[data_rgba]
 
	mov eax,dword[data_rgba]
	mov ebx,eax
	add ebx,4
	mov ecx,dword[size] ;ecx = size
	shr ecx,1
	@@: ;á¬¥è¨¢ ­¨¥ æ¢¥â®¢ ¯¨ªá¥«¥©
		call combine_colors_1
		mov [eax],edx
		add eax,8 ;=2*4
		add ebx,8
		loop @b
 
	mov eax,dword[data_rgba]
	add eax,4
	mov ebx,eax
	add ebx,4
	mov ecx,dword[size] ;ecx = size
	shr ecx,1
	dec ecx ;«¨è­¨© ¯¨ªá¥«ì
	@@: ;¯®¤¦ â¨¥ ¯¨ªá¥«¥©
		mov edx,dword[ebx]
		mov dword[eax],edx
 
		add eax,4
		add ebx,8
		loop @b
	ret
endp
 
;description:
; á¦ â¨¥ ¨§®¡à ¦¥­¨ï ¯® ¢ëá®â¥ ¢ 2 à §  (¢ëá®â  ¡ãä¥à  ­¥ ¬¥­ï¥âáï)
align 4
proc buf_img_hdiv2, buf_struc:dword
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,8
	jne @f
		mov eax,buf2d_w
		mov ecx,buf2d_h
		imul ecx,eax
		stdcall img_8b_hdiv2, buf2d_data,ecx,eax
		jmp .end_f ;edi ¯®àâ¨âáï ¢ äã­ªæ¨¨, ¯®â®¬ã ¨á¯®«ì§®¢ ­¨¥ buf2d_bits ®¯ á­®
	@@:
	cmp buf2d_bits,24
	jne @f
		mov eax,buf2d_w
		mov ecx,buf2d_h
		imul ecx,eax
		stdcall img_rgb24_hdiv2, buf2d_data,ecx,eax
		jmp .end_f
	@@:
	cmp buf2d_bits,32
	jne @f
		mov eax,buf2d_w
		mov ecx,buf2d_h
		imul ecx,eax
		shl eax,2
		stdcall img_rgba32_hdiv2, buf2d_data,ecx,eax
		;jmp .end_f
	@@:
	.end_f:
	popad
	ret
endp
 
;input:
;data_8b - pointer to 8 bit data
;size - count img pixels (size img data)
;size_w - width img in pixels
align 4
proc img_8b_hdiv2, data_8b:dword, size:dword, size_w:dword
 
	mov eax,dword[data_8b] ;eax =
	mov ecx,dword[size]
	cld
	@@: ;§ â¥¬­¥­¨¥ æ¢¥â  ¯¨ªá¥«¥©
		shr byte[eax],1
		inc eax
		loop @b
 
	mov eax,dword[data_8b] ;eax =
	mov esi,dword[size_w]
	mov ebx,esi
	add ebx,eax
	mov ecx,dword[size]  ;ecx = size
	shr ecx,1
	xor edi,edi
	@@: ;á«®¦¥­¨¥ æ¢¥â®¢ ¯¨ªá¥«¥©
		mov dl,byte[ebx] ;ª®¯¨àã¥¬ æ¢¥â ­¨¦­¥£® ¯¨ªá¥«ï
		add byte[eax],dl
 
		inc eax
		inc ebx
		inc edi
		cmp edi,dword[size_w]
		jl .old_line
			add eax,esi
			add ebx,esi
			xor edi,edi
		.old_line:
		loop @b
 
 
	mov eax,dword[data_8b] ;eax =
	add eax,esi ;esi = width*3(rgb)
	mov ebx,eax
	add ebx,esi
	mov ecx,dword[size] ;ecx = size
	shr ecx,1
	sub ecx,dword[size_w] ;«¨è­ïï áâà®ª  ¯¨ªá¥«¥©
	xor edi,edi
	@@: ;¯®¤¦ â¨¥ ¯¨ªá¥«¥©
		mov dl,byte[ebx] ;ª®¯¨àã¥¬ æ¢¥â ­¨¦­¥£® ¯¨ªá¥«ï
		mov byte[eax],dl
 
		inc eax
		inc ebx
		inc edi
		cmp edi,dword[size_w]
		jl .old_line_2
			add ebx,esi
			xor edi,edi
		.old_line_2:
		loop @b
	ret
endp
 
;input:
;data_rgb - pointer to rgb data
;size - count img pixels (size img data / 3(rgb) )
;size_w - width img in pixels
align 4
proc img_rgb24_hdiv2, data_rgb:dword, size:dword, size_w:dword
 
  mov eax,dword[data_rgb] ;eax =
  mov ecx,dword[size]	  ;ecx = size
  lea ecx,[ecx+ecx*2]
  cld
  @@: ;§ â¥¬­¥­¨¥ æ¢¥â  ¯¨ªá¥«¥©
    shr byte[eax],1
    inc eax
    loop @b
 
  mov eax,dword[data_rgb] ;eax =
  mov esi,dword[size_w]
  lea esi,[esi+esi*2] ;esi = width*3(rgb)
  mov ebx,esi
  add ebx,eax
  mov ecx,dword[size]  ;ecx = size
  shr ecx,1
  xor edi,edi
  @@: ;á«®¦¥­¨¥ æ¢¥â®¢ ¯¨ªá¥«¥©
    mov dx,word[ebx] ;ª®¯¨àã¥¬ æ¢¥â ­¨¦­¥£® ¯¨ªá¥«ï
    add word[eax],dx
    mov dl,byte[ebx+2] ;ª®¯¨àã¥¬ æ¢¥â ­¨¦­¥£® ¯¨ªá¥«ï
    add byte[eax+2],dl
 
    add eax,3
    add ebx,3
    inc edi
    cmp edi,dword[size_w]
    jl .old_line
      add eax,esi
      add ebx,esi
      xor edi,edi
    .old_line:
    loop @b
 
  mov eax,dword[data_rgb] ;eax =
  add eax,esi ;esi = width*3(rgb)
  mov ebx,eax
  add ebx,esi
  mov ecx,dword[size] ;ecx = size
  shr ecx,1
  sub ecx,dword[size_w] ;«¨è­ïï áâà®ª  ¯¨ªá¥«¥©
  xor edi,edi
  @@: ;¯®¤¦ â¨¥ ¯¨ªá¥«¥©
    mov edx,dword[ebx] ;ª®¯¨àã¥¬ æ¢¥â ­¨¦­¥£® ¯¨ªá¥«ï
    mov word[eax],dx
    shr edx,16
    mov byte[eax+2],dl
 
    add eax,3
    add ebx,3
    inc edi
    cmp edi,dword[size_w]
    jl .old_line_2
      add ebx,esi
      xor edi,edi
    .old_line_2:
    loop @b
  ret
endp
 
;input:
;data_rgba - pointer to rgba data
;size - count img pixels (size img data / 4(rgba) )
;size_w_b - width img in bytes
align 4
proc img_rgba32_hdiv2, data_rgba:dword, size:dword, size_w_b:dword
 
	mov eax,dword[data_rgba] ;eax =
	mov ebx,dword[size_w_b]
	add ebx,eax
	mov ecx,dword[size]  ;ecx = size
	shr ecx,1
	xor edi,edi
	@@: ;á¬¥è¨¢ ­¨¥ æ¢¥â®¢ ¯¨ªá¥«¥©
		call combine_colors_1
		mov dword[eax],edx
 
		add eax,4
		add ebx,4
		add edi,4
		cmp edi,dword[size_w_b]
		jl .old_line
			add eax,dword[size_w_b]
			add ebx,dword[size_w_b]
			xor edi,edi
		.old_line:
		loop @b
 
	mov eax,dword[data_rgba] ;eax =
	mov ebx,dword[size_w_b]
	add eax,ebx
	add ebx,eax
	mov ecx,dword[size] ;ecx = size
	shl ecx,1
	sub ecx,dword[size_w_b] ;«¨è­ïï áâà®ª  ¯¨ªá¥«¥©
	shr ecx,2
	xor edi,edi
	@@: ;¯®¤¦ â¨¥ ¯¨ªá¥«¥©
		mov edx,dword[ebx] ;ª®¯¨àã¥¬ æ¢¥â ­¨¦­¥£® ¯¨ªá¥«ï
		mov dword[eax],edx
 
		add eax,4
		add ebx,4
		add edi,4
		cmp edi,dword[size_w_b]
		jl .old_line_2
			add ebx,dword[size_w_b]
			xor edi,edi
		.old_line_2:
		loop @b
	ret
endp
 
;input:
; eax - ãª § â¥«ì ­  32-¡¨â­ë© æ¢¥â
; ebx - ãª § â¥«ì ­  32-¡¨â­ë© æ¢¥â
;output:
; edx - 32-¡¨â­ë© æ¢¥â á¬¥è ­­ë© á ãç¥â®¬ ¯à®§à ç­®áâ¨
;destroy:
; esi
align 4
proc combine_colors_1 uses ecx edi
locals
	c_blye dd ?
	c_green dd ?
	c_red dd ?
endl		
	movzx edi,byte[eax+3]
	cmp edi,255
	je .c0z
	movzx esi,byte[ebx+3]
	cmp esi,255
	je .c1z
	cmp edi,esi
	je .c0_c1
 
	;¯¥à¥¢®à ç¨¢ ¥¬ §­ ç¥­¨ï ¯à®§à ç­®áâ¥©
	neg edi
 
	add edi,256
	neg esi
 
	add esi,256
 
	movzx ecx,byte[eax]
	imul ecx,edi
	mov [c_blye],ecx
	movzx ecx,byte[ebx]
	imul ecx,esi
	add [c_blye],ecx
 
	movzx ecx,byte[eax+1]
	imul ecx,edi
	mov [c_green],ecx
	movzx ecx,byte[ebx+1]
	imul ecx,esi
	add [c_green],ecx
 
	movzx ecx,byte[eax+2]
	imul ecx,edi
	mov [c_red],ecx
	movzx ecx,byte[ebx+2]
	imul ecx,esi
	add [c_red],ecx
 
push eax ebx
	xor ebx,ebx
	mov eax,[c_red]
	xor edx,edx
	mov ecx,edi
	add ecx,esi
	div ecx
	mov bl,al
	shl ebx,16
	mov eax,[c_green]
	xor edx,edx
	div ecx
	mov bh,al
	mov eax,[c_blye]
	xor edx,edx
	div ecx
	mov bl,al
 
	shr ecx,1
	;¯¥à¥¢®à ç¨¢ ¥¬ §­ ç¥­¨ï ¯à®§à ç­®áâ¨
	neg ecx
 
	add ecx,256
 
	shl ecx,24
	add ebx,ecx
	mov edx,ebx
pop ebx eax
 
	jmp .end_f
	.c0_c1: ;¥á«¨ ¯à®§à ç­®áâ¨ ®¡®¨å æ¢¥â®¢ á®¢¯ ¤ îâ
		mov edx,[eax]
		shr edx,1
		and edx,011111110111111101111111b
		mov esi,[ebx]
		shr esi,1
		and esi,011111110111111101111111b
		add edx,esi
		ror edi,8 ;¯¥à¥¬¥é ¥¬ §­ ç¥­¨¥ ¯à®§à ç­®áâ¨ ¢ áâ àè¨© ¡ ©â edi
		or edx,edi
		jmp .end_f
	.c0z: ;¥á«¨ æ¢¥â ¢ eax ¯à®§à ç­ë©
		mov edx,[ebx]
		movzx edi,byte[ebx+3]
		jmp @f
	.c1z: ;¥á«¨ æ¢¥â ¢ ebx ¯à®§à ç­ë©
		mov edx,[eax]
	@@:
		add edi,255 ;¤¥« ¥¬ æ¢¥â ­  ¯®«®¢¨­ã ¯à®§à ç­ë¬
		shr edi,1
		cmp edi,255
		jle @f
			mov edi,255 ;¬ ªá¨¬ «ì­ ï ¯à®§à ç­®áâì ­¥ ¡®«¥¥ 255
		@@:
		shl edi,24
		and edx,0xffffff ;á­¨¬ ¥¬ áâ àãî ¯à®§à ç­®áâì
		add edx,edi
	.end_f:
	ret
endp
 
;description:
; á¦ â¨¥ ¨§®¡à ¦¥­¨ï ¯® è¨à¨­¥ (à §¬¥àë ¡ãä¥à  ­¥ ¬¥­ïîâáï)
;input:
; data_rgb - pointer to rgb data
; size_w - width img in pixels
; size_h - height img in pixels
; size_w_new - new width img in pixels
align 16
proc img_rgb24_wresize, data_rgb:dword, size_w:dword, size_h:dword, size_w_new:dword
locals
	pr dd 0
	pg dd 0
	pb dd 0
	img_n dd ? ;ãª § â¥«ì ­  ¤ ­­ë¥ ­®¢®£® ¨§®¡à ¦¥­¨ï
	lines dd ?
endl
pushad
;eax - delta for inp. img
;ebx - delta for outp. img
;esi - pointer to data_rgb
	mov esi,[data_rgb]
	mov [img_n],esi
	mov eax,[size_h]
	mov [lines],eax
align 4
	.cycyle_0:
	mov eax,[size_w_new]
	mov ecx,[size_w]
	mov ebx,ecx
align 4
	.cycyle_1:
		cmp eax,ebx
		jg .else_0
			;ª®¯¨àã¥¬ë© ¯¨ªá¥«ì ¬ ªá¨¬ «ì­® ¢«¨ï¥â ­  à¥§ã«ìâ â
			;­ ª ¯«¨¢ ¥¬ rgb ¤«ï ¨­â¥à¯®«ïæ¨¨ ¯¨ªá¥«¥©
			mov edx,[size_w_new]
			movzx edi,byte[esi]
			imul edi,edx
			add [pb],edi
			movzx edi,byte[esi+1]
			imul edi,edx
			add [pg],edi
			movzx edi,byte[esi+2]
			imul edi,edx
			add [pr],edi
			cmp eax,ebx
			je .d2_add
			jmp .if_0_end
		.else_0:
			;ª®¯¨àã¥¬ë© ¯¨ªá¥«ì ¯®¯ ¤¥â ­  £à ­¨æã ¯¨ªá¥«¥©
			mov edx,ebx
			sub edx,eax
			add edx,[size_w_new]
			movzx edi,byte[esi]
			imul edi,edx
			add [pb],edi
			movzx edi,byte[esi+1]
			imul edi,edx
			add [pg],edi
			movzx edi,byte[esi+2]
			imul edi,edx
			add [pr],edi
			;á®åà ­ï¥¬ £®â®¢®¥ rgb
			.d2_add:
			push eax
				mov edi,[img_n]
				mov eax,[pb]
				xor edx,edx
				div dword[size_w] ;eax /= [size_w]
				stosb
				mov eax,[pg]
				xor edx,edx
				div dword[size_w] ;eax /= [size_w]
				stosb
				mov eax,[pr]
				xor edx,edx
				div dword[size_w] ;eax /= [size_w]
				stosb
			pop eax
			add dword[img_n],3 ;next pixel
			;®¡­®¢«ï¥¬ rgb ¤«ï ­®¢®£® ¯¨ªá¥«ï
			mov edx,eax
			sub edx,ebx
			movzx edi,byte[esi]
			imul edi,edx
			mov [pb],edi
			movzx edi,byte[esi+1]
			imul edi,edx
			mov [pg],edi
			movzx edi,byte[esi+2]
			imul edi,edx
			mov [pr],edi
			add ebx,[size_w]
		.if_0_end:
		add eax,[size_w_new]
		add esi,3 ;next pixel
		dec ecx
		jnz .cycyle_1
	dec dword[lines]
	jnz .cycyle_0
popad
	ret
endp
 
;description:
; á¦ â¨¥ ¨§®¡à ¦¥­¨ï ¯® ¢ëá®â¥ (à §¬¥àë ¡ãä¥à  ­¥ ¬¥­ïîâáï)
;input:
; data_rgb - pointer to rgb data
; size_w - width img in pixels
; size_h - height img in pixels
; size_h_new - new height img in pixels
align 16
proc img_rgb24_hresize, data_rgb:dword, size_w:dword, size_h:dword, size_h_new:dword
locals
	pr dd 0
	pg dd 0
	pb dd 0
	img_n dd ? ;ãª § â¥«ì ­  ¤ ­­ë¥ ­®¢®£® ¨§®¡à ¦¥­¨ï
	cols dd ?
	lin_b dd ? ;à §¬¥à «¨­¨¨ ¨§®¡à ¦¥­¨ï ¢ ¡ ©â å
	data_n dd ? ;ãª § â¥«ì ­  ¤ ­­ë¥ ¤«ï ­®¢®£® áâ®«¡æ  ¯¨ªá¥«¥©
endl
pushad
;eax - delta for inp. img
;ebx - delta for outp. img
;esi - pointer to data_rgb
	mov esi,[data_rgb]
	mov [data_n],esi
	mov eax,[size_w]
	mov [cols],eax
	lea eax,[eax+eax*2]
	mov [lin_b],eax
align 4
	.cycyle_0:
	mov eax,[size_h_new]
	mov ecx,[size_h]
	mov ebx,ecx
	mov esi,[data_n]
	mov [img_n],esi
	add dword[data_n],3 ;¯¥à¥å®¤ ­  á«¥¤ãîé¨© áâ®«¡¥æ ¯¨ªá¥«¥©
align 4
	.cycyle_1:
		cmp eax,ebx
		jg .else_0
			;ª®¯¨àã¥¬ë© ¯¨ªá¥«ì ¬ ªá¨¬ «ì­® ¢«¨ï¥â ­  à¥§ã«ìâ â
			;­ ª ¯«¨¢ ¥¬ rgb ¤«ï ¨­â¥à¯®«ïæ¨¨ ¯¨ªá¥«¥©
			mov edx,[size_h_new]
			movzx edi,byte[esi]
			imul edi,edx
			add [pb],edi
			movzx edi,byte[esi+1]
			imul edi,edx
			add [pg],edi
			movzx edi,byte[esi+2]
			imul edi,edx
			add [pr],edi
			cmp eax,ebx
			je .d2_add
			jmp .if_0_end
		.else_0:
			;ª®¯¨àã¥¬ë© ¯¨ªá¥«ì ¯®¯ ¤¥â ­  £à ­¨æã ¯¨ªá¥«¥©
			mov edx,ebx
			sub edx,eax
			add edx,[size_h_new]
			movzx edi,byte[esi]
			imul edi,edx
			add [pb],edi
			movzx edi,byte[esi+1]
			imul edi,edx
			add [pg],edi
			movzx edi,byte[esi+2]
			imul edi,edx
			add [pr],edi
			;á®åà ­ï¥¬ £®â®¢®¥ rgb
			.d2_add:
			push eax
				mov edi,[img_n]
				mov eax,[pb]
				xor edx,edx
				div dword[size_h] ;eax /= [size_h]
				stosb
				mov eax,[pg]
				xor edx,edx
				div dword[size_h] ;eax /= [size_h]
				stosb
				mov eax,[pr]
				xor edx,edx
				div dword[size_h] ;eax /= [size_h]
				stosb
			pop eax
			mov edx,[lin_b]
			add dword[img_n],edx ;next pixel
			;®¡­®¢«ï¥¬ rgb ¤«ï ­®¢®£® ¯¨ªá¥«ï
			mov edx,eax
			sub edx,ebx
			movzx edi,byte[esi]
			imul edi,edx
			mov [pb],edi
			movzx edi,byte[esi+1]
			imul edi,edx
			mov [pg],edi
			movzx edi,byte[esi+2]
			imul edi,edx
			mov [pr],edi
			add ebx,[size_h]
		.if_0_end:
		add eax,[size_h_new]
		add esi,[lin_b] ;next pixel
		dec ecx
		jnz .cycyle_1
	dec dword[cols]
	jnz .cycyle_0
popad
	ret
endp
 
;¯à¥®¡à §®¢ ­¨¥ ¡ãä¥à  ¨§ 24-¡¨â­®£® ¢ 8-¡¨â­ë©
; spectr - ®¯à¥¤¥«ï¥â ª ª®© á¯¥ªâà ¡à âì ¯à¨ ¯à¥®¡à §®¢ ­¨¨ 0-á¨­¨©, 1-§¥«¥­ë©, 2-ªà á­ë©
align 4
proc buf_conv_24_to_8, buf_struc:dword, spectr:dword
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,24
	jne .error0
		mov eax,buf2d_w
		cmp eax,1
		jl .error1
		mov ecx,buf2d_h
		cmp ecx,1
		jl .error1
		imul ecx,eax
		mov esi,ecx
		;ebx - ¯ ¬ïâì ¨§ ª®â®à®© ª®¯¨àã¥âáï
		;edx - ¯ ¬ïâì ªã¤  ª®¯¨àã¥âáï
		mov edx,buf2d_data
		mov ebx,edx
		cmp [spectr],3
		jge @f
			add ebx,[spectr]
		@@:
			mov al,byte[ebx]
			mov byte[edx],al
			add ebx,3
			inc edx
			loop @b
		mov buf2d_bits,8
		invoke mem.realloc,buf2d_data,esi ;ã¬¥­ìè ¥¬ ¯ ¬ïâì § ­¨¬ ¥¬ãî ¡ãä¥à®¬
		jmp .end_conv
	.error0:
		stdcall print_err,sz_buf2d_conv_24_to_8,txt_err_n24b
		jmp .end_conv
	.error1:
		stdcall print_err,sz_buf2d_conv_24_to_8,txt_err_size_0
	.end_conv:
	popad
	ret
endp
 
;¯à¥®¡à §®¢ ­¨¥ ¡ãä¥à  ¨§ 24-¡¨â­®£® ¢ 32-¡¨â­ë©
align 4
proc buf_conv_24_to_32, buf_struc:dword, buf_str8:dword
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,24
	jne .error1
		mov ecx,buf2d_w
		mov ebx,buf2d_h
		imul ebx,ecx
		mov ecx,ebx ;ecx = size  8 b
		shl ebx,2   ;ebx = size 32 b
		invoke mem.realloc,buf2d_data,ebx ;ã¢¥«¨ç¨¢ ¥¬ ¯ ¬ïâì § ­¨¬ ¥¬ãî ¡ãä¥à®¬
		mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï ãª § â¥«ì ­  ¤ ­­ë¥
		mov buf2d_bits,32
		mov edx,ebx ;edx = size 32 b
		sub ebx,ecx ;ebx = size 24 b
		mov eax,ecx
		;eax - à §¬¥à  8 ¡¨â­ëå ¤ ­­ëå
		;ebx - à §¬¥à 24 ¡¨â­ëå ¤ ­­ëå
		;edx - à §¬¥à 32 ¡¨â­ëå ¤ ­­ëå
		add ebx,buf2d_data
		add edx,buf2d_data
		mov edi,dword[buf_str8]
		cmp buf2d_bits,8
		jne .error2
		add eax,buf2d_data
		mov edi,edx
		;eax - ãª § â¥«ì ­  ª®­¥æ  8 ¡¨â­ëå ¤ ­­ëå
		;ebx - ãª § â¥«ì ­  ª®­¥æ 24 ¡¨â­ëå ¤ ­­ëå
		;edi - ãª § â¥«ì ­  ª®­¥æ 32 ¡¨â­ëå ¤ ­­ëå
		@@:
			sub edi,4 ;®â­¨¬ ¥¬ ¢ ­ ç «¥ æ¨ª« ,
			sub ebx,3 ; ¯®â®¬ã, çâ® ãª § â¥«¨ áâ®ïâ
			dec eax   ; §  ¯à¥¤¥« ¬¨ ¡ãä¥à®¢
			mov edx,dword[ebx]
			mov dword[edi],edx
			mov dl,byte[eax]
			mov byte[edi+3],dl
			loop @b
 
		jmp .end_conv
	.error1:
		stdcall print_err,sz_buf2d_conv_24_to_32,txt_err_n24b
		jmp .end_conv
	.error2:
		stdcall print_err,sz_buf2d_conv_24_to_32,txt_err_n8b
	.end_conv:
	popad
	ret
endp
 
;äã­ªæ¨ï ª®¯¨àã¥â ¨§®¡à ¦¥­¨¥ ¨§ ¡ãä¥à  buf_source (24b|32b) ¢ buf_destination (24b)
; ãª §ë¢ îâáï ª®®à¤¨­ âë ¢áâ ¢ª¨ ¡ãä¥à  buf_source ®â­®á¨â¥«ì­® buf_destination
; ¯à®§à ç­®áâì ¯à¨ ª®¯¨à®¢ ­¨¨ ­¥ ãç¨âë¢ ¥âáï
align 4
proc buf_bit_blt, buf_destination:dword, coord_x:dword, coord_y:dword, buf_source:dword
	locals
		lost_bytes dd ? ;ç¨á«® ¯®â¥àï­­ëå ¡ ©â®¢ ¢ áâà®ª¥ ª®¯¨àã¥¬®£® ¨§®¡à ¦¥­ï (â¥å çâ® ­¥ ¢« §ïâ ¢ ¡ãä¥à)
	endl
	pushad
 
	mov edi,[buf_source]
	cmp buf2d_bits,24
	je .sou24
	cmp buf2d_bits,32
	je .sou32
		jmp .copy_end ;ä®à¬ â ¡ãä¥à  ­¥ ¯®®¤¥à¦¨¢ ¥âáï
 
	.sou24: ;¢ ¨áâ®ç­¨ª¥ 24 ¡¨â­ ï ª àâ¨­ª 
	mov eax,buf2d_w
	mov edx,buf2d_h ;¢ëá®â  ª®¯¨àã¥¬®© ª àâ¨­ª¨
	mov esi,buf2d_data ;¤ ­­ë¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
 
	mov edi,[buf_destination]
	cmp buf2d_bits,24
	jne .copy_end ;ä®à¬ â ¡ãä¥à  ­¥ ¯®®¤¥à¦¨¢ ¥âáï
	mov ebx,[coord_x] ;¢ ebx ¢à¥¬¥­­® áâ ¢¨¬ ®âáâã¯ ¨§®¡à ¦¥­¨ï (¤«ï ¯à®¢¥àª¨)
	cmp ebx,buf2d_w   ;¯à®¢¥àï¥¬ ¢« §¨â «¨ ¨§®¡à ¦¥­¨¥ ¯® è¨à¨­¥
	jge .copy_end	  ;¥á«¨ ¨§®¡à ¦¥­¨¥ ¯®«­®áâìî ¢ë« §¨â §  ¯à ¢ãî áâ®à®­ã
		mov ebx,buf2d_h ;ebx - ¢ëá®â  ®á­®¢­®£® ¡ãä¥à 
		mov ecx,[coord_y]
		cmp ecx,0
		jge @f
			;¥á«¨ ª®®à¤¨­ â  coord_y<0 (1-ï ­ áâà®©ª )
			add edx,ecx ;ã¬¥­ìè ¥¬ ¢ëá®âã ª®¯¨àã¥¬®© ª àâ¨­ª¨
			cmp edx,0
			jle .copy_end ;¥á«¨ ª®¯¨àã¥¬®¥ ¨§®¡à ¦¥­¨¥ ­ å®¤¨âáï ¯®«­®áâìî ­ ¤ ¢¥àå­¥© £à ­¨æ¥© ¡ãä¥à  (coord_y<0 ¨ |coord_y|>buf_source.h)
			neg ecx
			imul ecx,eax
			lea ecx,[ecx+ecx*2] ;¯® 3 ¡ ©â  ­  ¯¨ªá¥«ì
			add esi,ecx ;á¤¢¨£ ¥¬ ãª § â¥«ì á ª®¯¨àã¥¬ë¬¨ ¤ ­­ë¬¨, á ãç¥â®¬ ¯à®¯ãè¥­®© ç áâ¨
			xor ecx,ecx ;®¡­ã«ï¥¬ ª®®à¤¨­ âã coord_y
		@@:
		cmp ecx,ebx
		jge .copy_end ;¥á«¨ ª®®à¤¨­ â  'y' ¡®«ìè¥ ¢ëá®âë ¡ãä¥à 
		add ecx,edx ;ecx - ­¨¦­ïï ª®®à¤¨­ â  ª®¯¨àã¥¬®© ª àâ¨­ª¨
		cmp ecx,ebx
		jle @f
			sub ecx,ebx
			sub edx,ecx ;ã¬¥­ìè ¥¬ ¢ëá®âã ª®¯¨àã¥¬®© ª àâ¨­ª¨, ¢ á«ãç¥ ª®£¤  ®­  ¢ë« §¨â §  ­¨¦­îî £à ­¨æã
		@@:
		mov ebx,buf2d_w
		mov ecx,[coord_y] ;ecx ¨á¯®«ì§ã¥¬ ¤«ï ¢à¥¬¥­­ëå æ¥«¥©
		cmp ecx,0
		jg .end_otr_c_y_24
			;¥á«¨ ª®®à¤¨­ â  coord_y<=0 (2-ï ­ áâà®©ª )
			mov ecx,[coord_x]
			jmp @f
		.end_otr_c_y_24:
		imul ecx,ebx
		add ecx,[coord_x]
		@@:
		lea ecx,[ecx+ecx*2]
		add ecx,buf2d_data
		sub ebx,eax
		mov edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
 
	mov dword[lost_bytes],0
	mov ecx,[coord_x]
	cmp ecx,0
	jge @f
		neg ecx
		cmp eax,ecx ;eax - è¨à¨­  ª®¯¨àã¥¬®© ª àâ¨­ª¨
		jle .copy_end ;¥á«¨ ª®¯¨àã¥¬®¥ ¨§®¡à ¦¥­¨¥ ­ å®¤¨âáï ¯®«­®áâìî §  «¥¢®© £à ­¨æ¥© ¡ãä¥à  (coord_x<0 ¨ |coord_x|>buf_source.w)
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		lea ecx,[ecx+ecx*2]
		mov [lost_bytes],ecx
		add esi,ecx
		add edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
		xor ecx,ecx
	@@:
	cmp ecx,ebx
	jle @f
		sub ecx,ebx
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		lea ecx,[ecx+ecx*2] ;ecx - ç¨á«® ¯¨ªá¥«¥© ¢ 1-© áâà®ª¥ ª àâ¨­ª¨, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî áâ®à®­ã
		add [lost_bytes],ecx
	@@:
 
	lea eax,[eax+eax*2] ;ª®««¨ç¥áâ¢® ¡ ©â ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
	lea ebx,[ebx+ebx*2] ;ª®««¨ç¥áâ¢® ¡ ©â ¢ 1-© áâà®ª¥ ¡ãä¥à  ¬¨­ãá ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
 
	cld
	cmp [lost_bytes],0
	jg .copy_1
	.copy_0: ;¯à®áâ®¥ ª®¯¨à®¢ ­¨¥
		mov ecx,eax
		rep movsb
		add edi,ebx
		dec edx
		cmp edx,0
		jg .copy_0
	jmp .copy_end
	.copy_1: ;­¥ ¯à®áâ®¥ ª®¯¨à®¢ ­¨¥ (ª àâ¨­ª  ¢ë« §¨â §  ¯à ¢ãî áâ®à®­ã)
		mov ecx,eax
		rep movsb
		add edi,ebx
		add esi,[lost_bytes] ;¤®¡ ¢«ï¥¬ ¡ ©âë, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî £à ­¨æã
		dec edx
		cmp edx,0
		jg .copy_1
	jmp .copy_end
 
	.sou32: ;¢ ¨áâ®ç­¨ª¥ 32 ¡¨â­ ï ª àâ¨­ª 
	mov eax,buf2d_w
	mov edx,buf2d_h ;¢ëá®â  ª®¯¨àã¥¬®© ª àâ¨­ª¨
	mov esi,buf2d_data ;¤ ­­ë¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
 
	mov edi,[buf_destination]
	cmp buf2d_bits,24
	jne .copy_end ;ä®à¬ â ¡ãä¥à  ­¥ ¯®®¤¥à¦¨¢ ¥âáï
	mov ebx,[coord_x] ;¢ ebx ¢à¥¬¥­­® áâ ¢¨¬ ®âáâã¯ ¨§®¡à ¦¥­¨ï (¤«ï ¯à®¢¥àª¨)
	cmp ebx,buf2d_w   ;¯à®¢¥àï¥¬ ¢« §¨â «¨ ¨§®¡à ¦¥­¨¥ ¯® è¨à¨­¥
	jge .copy_end	  ;¥á«¨ ¨§®¡à ¦¥­¨¥ ¯®«­®áâìî ¢ë« §¨â §  ¯à ¢ãî áâ®à®­ã
		mov ebx,buf2d_h ;ebx - ¢ëá®â  ®á­®¢­®£® ¡ãä¥à 
		mov ecx,[coord_y]
		cmp ecx,0
		jge @f
			;¥á«¨ ª®®à¤¨­ â  coord_y<0 (1-ï ­ áâà®©ª )
			add edx,ecx ;ã¬¥­ìè ¥¬ ¢ëá®âã ª®¯¨àã¥¬®© ª àâ¨­ª¨
			cmp edx,0
			jle .copy_end ;¥á«¨ ª®¯¨àã¥¬®¥ ¨§®¡à ¦¥­¨¥ ­ å®¤¨âáï ¯®«­®áâìî ­ ¤ ¢¥àå­¥© £à ­¨æ¥© ¡ãä¥à  (coord_y<0 ¨ |coord_y|>buf_source.h)
			neg ecx
			imul ecx,eax
			shl ecx,2 ;¯® 4 ¡ ©â  ­  ¯¨ªá¥«ì
			add esi,ecx ;á¤¢¨£ ¥¬ ãª § â¥«ì á ª®¯¨àã¥¬ë¬¨ ¤ ­­ë¬¨, á ãç¥â®¬ ¯à®¯ãè¥­®© ç áâ¨
			xor ecx,ecx ;®¡­ã«ï¥¬ ª®®à¤¨­ âã coord_y
		@@:
		cmp ecx,ebx
		jge .copy_end ;¥á«¨ ª®®à¤¨­ â  'y' ¡®«ìè¥ ¢ëá®âë ¡ãä¥à 
		add ecx,edx ;ecx - ­¨¦­ïï ª®®à¤¨­ â  ª®¯¨àã¥¬®© ª àâ¨­ª¨
		cmp ecx,ebx
		jle @f
			sub ecx,ebx
			sub edx,ecx ;ã¬¥­ìè ¥¬ ¢ëá®âã ª®¯¨àã¥¬®© ª àâ¨­ª¨, ¢ á«ãç¥ ª®£¤  ®­  ¢ë« §¨â §  ­¨¦­îî £à ­¨æã
		@@:
		mov ebx,buf2d_w
		;mov ecx,ebx ;ecx ¨á¯®«ì§ã¥¬ ¤«ï ¢à¥¬¥­­ëå æ¥«¥©
		;imul ecx,[coord_y]
		;add ecx,[coord_x]
		mov ecx,[coord_y] ;ecx ¨á¯®«ì§ã¥¬ ¤«ï ¢à¥¬¥­­ëå æ¥«¥©
		cmp ecx,0
		jg .end_otr_c_y_32
			;¥á«¨ ª®®à¤¨­ â  coord_y<=0 (2-ï ­ áâà®©ª )
			mov ecx,[coord_x]
			jmp @f
		.end_otr_c_y_32:
		imul ecx,ebx
		add ecx,[coord_x]
		@@:
		lea ecx,[ecx+ecx*2]
		add ecx,buf2d_data
		sub ebx,eax
		mov edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
 
	mov dword[lost_bytes],0
	mov ecx,[coord_x]
	cmp ecx,0
	jge @f
		neg ecx
		cmp eax,ecx ;eax - è¨à¨­  ª®¯¨àã¥¬®© ª àâ¨­ª¨
		jle .copy_end ;¥á«¨ ª®¯¨àã¥¬®¥ ¨§®¡à ¦¥­¨¥ ­ å®¤¨âáï ¯®«­®áâìî §  «¥¢®© £à ­¨æ¥© ¡ãä¥à  (coord_x<0 ¨ |coord_x|>buf_source.w)
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		shl ecx,2
		mov [lost_bytes],ecx
		add esi,ecx
		add edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
		xor ecx,ecx
	@@:
	cmp ecx,ebx
	jle @f
		sub ecx,ebx
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		shl ecx,2 ;ecx - ç¨á«® ¯¨ªá¥«¥© ¢ 1-© áâà®ª¥ ª àâ¨­ª¨, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî áâ®à®­ã
		add [lost_bytes],ecx
	@@:
 
	;eax - ª®««¨ç¥áâ¢® ¯¨ªá¥«¥© ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
	lea ebx,[ebx+ebx*2] ;ª®««¨ç¥áâ¢® ¡ ©â ¢ 1-© áâà®ª¥ ¡ãä¥à  ¬¨­ãá ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
 
	cld
	cmp [lost_bytes],0
	jg .copy_3
	.copy_2: ;¯à®áâ®¥ ª®¯¨à®¢ ­¨¥
		mov ecx,eax
		@@:
			movsw
			movsb
			inc esi
			loop @b
		add edi,ebx
		dec edx
		cmp edx,0
		jg .copy_2
	jmp .copy_end
	.copy_3: ;­¥ ¯à®áâ®¥ ª®¯¨à®¢ ­¨¥ (ª àâ¨­ª  ¢ë« §¨â §  ¯à ¢ãî áâ®à®­ã)
		mov ecx,eax
		@@:
			movsw
			movsb
			inc esi
			loop @b
		add edi,ebx
		add esi,[lost_bytes] ;¤®¡ ¢«ï¥¬ ¡ ©âë, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî £à ­¨æã
		dec edx
		cmp edx,0
		jg .copy_3
 
	.copy_end:
	popad
	ret
endp
 
;input:
; esi = pointer to color1 + transparent (32b)
; edi = pointer to background color2 (24b)
;output:
; [edi] = combine color (24b)
align 4
combine_colors_0:
	push ax cx
 
	movzx cx,byte[esi+3] ;pro
	cmp cx,255
	je .end_f
	or cx,cx
	jnz @f
		mov ax,[esi]
		mov [edi],ax
		mov al,[esi+2]
		mov [edi+2],al
		jmp .end_f
align 4
	@@:
	inc cx
	push bx dx
	mov bx,0x0100 ;---get transparent---
	sub bx,cx ;256-pro
	;---blye---
	movzx ax,byte[esi]
	imul ax,bx
	movzx dx,byte[edi]
	imul dx,cx
	add ax,dx
	mov byte[edi],ah
	;---green---
	movzx ax,byte[esi+1]
	imul ax,bx
	movzx dx,byte[edi+1]
	imul dx,cx
	add ax,dx
	mov byte[edi+1],ah
	;---red---
	movzx ax,byte[esi+2]
	imul ax,bx
	movzx dx,byte[edi+2]
	imul dx,cx
	add ax,dx
	mov byte[edi+2],ah
	pop dx bx
.end_f:
	pop cx ax
	ret
 
;äã­ªæ¨ï ª®¯¨àã¥â ¨§®¡à ¦¥­¨¥ ¨§ ¡ãä¥à  buf_source (32b) ¢ buf_destination (24b)
; ãª §ë¢ îâáï ª®®à¤¨­ âë ¢áâ ¢ª¨ ¡ãä¥à  buf_source ®â­®á¨â¥«ì­® buf_destination
; ¯à¨ ª®¯¨à®¢ ­¨¨ ãç¨âë¢ ¥âáï ¯à®§à ç­®áâì
align 4
proc buf_bit_blt_transp, buf_destination:dword, coord_x:dword, coord_y:dword, buf_source:dword
	locals
		lost_bytes dd ? ;ç¨á«® ¯®â¥àï­­ëå ¡ ©â®¢ ¢ áâà®ª¥ ª®¯¨àã¥¬®£® ¨§®¡à ¦¥­ï (â¥å çâ® ­¥ ¢« §ïâ ¢ ¡ãä¥à)
	endl
	pushad
 
	mov edi,[buf_source]
	cmp buf2d_bits,32
	jne .copy_end ;ä®à¬ â ¡ãä¥à  ­¥ ¯®®¤¥à¦¨¢ ¥âáï
	mov eax,buf2d_w
	mov edx,buf2d_h ;¢ëá®â  ª®¯¨àã¥¬®© ª àâ¨­ª¨
	mov esi,buf2d_data ;¤ ­­ë¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
 
	mov edi,[buf_destination]
	cmp buf2d_bits,24
	jne .copy_end ;ä®à¬ â ¡ãä¥à  ­¥ ¯®®¤¥à¦¨¢ ¥âáï
		mov ebx,buf2d_h ;ebx - ¢ëá®â  ®á­®¢­®£® ¡ãä¥à 
		mov ecx,[coord_y]
		cmp ecx,0
		jge @f
			;¥á«¨ ª®®à¤¨­ â  coord_y<0 (1-ï ­ áâà®©ª )
			add edx,ecx ;ã¬¥­ìè ¥¬ ¢ëá®âã ª®¯¨àã¥¬®© ª àâ¨­ª¨
			cmp edx,0
			jle .copy_end ;¥á«¨ ª®¯¨àã¥¬®¥ ¨§®¡à ¦¥­¨¥ ­ å®¤¨âáï ¯®«­®áâìî ­ ¤ ¢¥àå­¥© £à ­¨æ¥© ¡ãä¥à  (coord_y<0 ¨ |coord_y|>buf_source.h)
			neg ecx
			imul ecx,eax
			shl ecx,2 ;¯® 4 ¡ ©â  ­  ¯¨ªá¥«ì
			add esi,ecx ;á¤¢¨£ ¥¬ ãª § â¥«ì á ª®¯¨àã¥¬ë¬¨ ¤ ­­ë¬¨, á ãç¥â®¬ ¯à®¯ãè¥­®© ç áâ¨
			xor ecx,ecx ;®¡­ã«ï¥¬ ª®®à¤¨­ âã coord_y
		@@:
		cmp ecx,ebx
		jge .copy_end ;¥á«¨ ª®®à¤¨­ â  'y' ¡®«ìè¥ ¢ëá®âë ¡ãä¥à 
		add ecx,edx ;ecx - ­¨¦­ïï ª®®à¤¨­ â  ª®¯¨àã¥¬®© ª àâ¨­ª¨
		cmp ecx,ebx
		jle @f
			sub ecx,ebx
			sub edx,ecx ;ã¬¥­ìè ¥¬ ¢ëá®âã ª®¯¨àã¥¬®© ª àâ¨­ª¨, ¢ á«ãç¥ ª®£¤  ®­  ¢ë« §¨â §  ­¨¦­îî £à ­¨æã
		@@:
		mov ebx,buf2d_w
		mov ecx,ebx ;ecx ¨á¯®«ì§ã¥¬ ¤«ï ¢à¥¬¥­­ëå æ¥«¥©
		cmp [coord_y],0
		jg .end_otr_c_y
			;¥á«¨ ª®®à¤¨­ â  coord_y<=0 (2-ï ­ áâà®©ª )
			mov ecx,[coord_x]
			jmp @f
		.end_otr_c_y:
		imul ecx,[coord_y]
		add ecx,[coord_x]
		@@:
		lea ecx,[ecx+ecx*2]
		add ecx,buf2d_data
		sub ebx,eax
		mov edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
 
	mov dword[lost_bytes],0
	mov ecx,[coord_x]
	cmp ecx,0
	jge @f
		neg ecx
		cmp eax,ecx ;eax - è¨à¨­  ª®¯¨àã¥¬®© ª àâ¨­ª¨
		jle .copy_end ;¥á«¨ ª®¯¨àã¥¬®¥ ¨§®¡à ¦¥­¨¥ ­ å®¤¨âáï ¯®«­®áâìî §  «¥¢®© £à ­¨æ¥© ¡ãä¥à  (coord_x<0 ¨ |coord_x|>buf_source.w)
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		shl ecx,2
		mov [lost_bytes],ecx
		add esi,ecx
		shr ecx,2
		lea ecx,[ecx+ecx*2]
		add edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
		xor ecx,ecx
	@@:
	cmp ecx,ebx
	jle @f
		sub ecx,ebx
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		shl ecx,2 ;ecx - ç¨á«® ¯¨ªá¥«¥© ¢ 1-© áâà®ª¥ ª àâ¨­ª¨, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî áâ®à®­ã
		add [lost_bytes],ecx
	@@:
 
	lea ebx,[ebx+ebx*2] ;ª®««¨ç¥áâ¢® ¡ ©â ¢ 1-© áâà®ª¥ ¡ãä¥à  ¬¨­ãá ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
 
	cld
	cmp [lost_bytes],0
	jg .copy_1
	.copy_0: ;¯à®áâ®¥ ª®¯¨à®¢ ­¨¥
		mov ecx,eax
		@@:
			call combine_colors_0
			add edi,3
			add esi,4
			loop @b
		add edi,ebx
		dec edx
		cmp edx,0
		jg .copy_0
	jmp .copy_end
	.copy_1: ;­¥ ¯à®áâ®¥ ª®¯¨à®¢ ­¨¥ (ª àâ¨­ª  ¢ë« §¨â §  ¯à ¢ãî áâ®à®­ã)
		mov ecx,eax
		@@:
			call combine_colors_0
			add edi,3
			add esi,4
			loop @b
		add edi,ebx
		add esi,[lost_bytes] ;¤®¡ ¢«ï¥¬ ¡ ©âë, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî £à ­¨æã
		dec edx
		cmp edx,0
		jg .copy_1
 
	.copy_end:
	popad
	ret
endp
 
;input:
; ebx - color1 (24b)
; esi = pointer to transparent (8b)
; edi = pointer to background color2 (24b)
;output:
; [edi] = combine color (24b)
align 4
combine_colors_2:
	push ebx cx
	movzx cx,byte[esi] ;pro
	cmp cx,255
	je .end_f
	or cx,cx
	jnz @f
		mov [edi],bx
		shr ebx,16
		mov [edi+2],bl
		jmp .end_f
align 4
	@@:
	inc cx
	push ax dx si
	mov si,0x0100 ;---get transparent---
	sub si,cx ;256-pro
 
		;---blye---
		movzx ax,bl
		shr ebx,8
		imul ax,si
		movzx dx,byte[edi]
		imul dx,cx
		add ax,dx
		mov byte[edi],ah
		;---green---
		movzx ax,bl
		shr ebx,8
		imul ax,si
		movzx dx,byte[edi+1]
		imul dx,cx
		add ax,dx
		mov byte[edi+1],ah
		;---red---
		movzx ax,bl
		imul ax,si
		movzx dx,byte[edi+2]
		imul dx,cx
		add ax,dx
		mov byte[edi+2],ah
	pop si dx ax
.end_f:
	pop cx ebx
	ret
 
;äã­ªæ¨ï ª®¯¨àã¥â ¨§®¡à ¦¥­¨¥ ¨§ ¡ãä¥à  buf_source (8b) ¢ buf_destination (24b)
; ãª §ë¢ îâáï ª®®à¤¨­ âë ¢áâ ¢ª¨ ¡ãä¥à  buf_source ®â­®á¨â¥«ì­® buf_destination
align 4
proc buf_bit_blt_alpha, buf_destination:dword, coord_x:dword, coord_y:dword, buf_source:dword, color:dword
	locals
		lost_bytes dd ? ;ç¨á«® ¯®â¥àï­­ëå ¡ ©â®¢ ¢ áâà®ª¥ ª®¯¨àã¥¬®£® ¨§®¡à ¦¥­ï (â¥å çâ® ­¥ ¢« §ïâ ¢ ¡ãä¥à)
		dest_w_bytes dd ? ;ª®««¨ç¥áâ¢® ¡ ©â ¢ ¡ãä¥à¥ ¯à¨¥¬­¨ª¥ ¯® è¨à¨­¥ - è¨à¨­  ¢áâ ¢«ï¥¬®© ª àâ¨­ª¨
	endl
	pushad
 
	mov edi,[buf_source]
	cmp buf2d_bits,8
	jne .error1 ;ä®à¬ â ¡ãä¥à  ­¥ ¯®®¤¥à¦¨¢ ¥âáï
	mov eax,buf2d_w ;è¨à¨­  ª®¯¨àã¥¬®© ª àâ¨­ª¨
	mov edx,buf2d_h ;¢ëá®â  ª®¯¨àã¥¬®© ª àâ¨­ª¨
	mov esi,buf2d_data ;¤ ­­ë¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
 
	mov edi,[buf_destination]
	cmp buf2d_bits,24
	jne .error2 ;ä®à¬ â ¡ãä¥à  ­¥ ¯®®¤¥à¦¨¢ ¥âáï
	mov ebx,[coord_x] ;¢ ebx ¢à¥¬¥­­® áâ ¢¨¬ ®âáâã¯ ¨§®¡à ¦¥­¨ï (¤«ï ¯à®¢¥àª¨)
	cmp ebx,buf2d_w   ;¯à®¢¥àï¥¬ ¢« §¨â «¨ ¨§®¡à ¦¥­¨¥ ¯® è¨à¨­¥
	jge .copy_end	  ;¥á«¨ ¨§®¡à ¦¥­¨¥ ¯®«­®áâìî ¢ë« §¨â §  ¯à ¢ãî áâ®à®­ã
		mov ebx,buf2d_h ;ebx - ¢ëá®â  ®á­®¢­®£® ¡ãä¥à 
		mov ecx,[coord_y]
		cmp ecx,0
		jge @f
			;¥á«¨ ª®®à¤¨­ â  coord_y<0 (1-ï ­ áâà®©ª )
			add edx,ecx ;ã¬¥­ìè ¥¬ ¢ëá®âã ª®¯¨àã¥¬®© ª àâ¨­ª¨
			cmp edx,0
			jle .copy_end ;¥á«¨ ª®¯¨àã¥¬®¥ ¨§®¡à ¦¥­¨¥ ­ å®¤¨âáï ¯®«­®áâìî ­ ¤ ¢¥àå­¥© £à ­¨æ¥© ¡ãä¥à  (coord_y<0 ¨ |coord_y|>buf_source.h)
			neg ecx
			imul ecx,eax
			add esi,ecx ;á¤¢¨£ ¥¬ ãª § â¥«ì á ª®¯¨àã¥¬ë¬¨ ¤ ­­ë¬¨, á ãç¥â®¬ ¯à®¯ãè¥­®© ç áâ¨
			xor ecx,ecx ;®¡­ã«ï¥¬ ª®®à¤¨­ âã coord_y
		@@:
		cmp ecx,ebx
		jge .copy_end ;¥á«¨ ª®®à¤¨­ â  'y' ¡®«ìè¥ ¢ëá®âë ¡ãä¥à 
		add ecx,edx ;ecx - ­¨¦­ïï ª®®à¤¨­ â  ª®¯¨àã¥¬®© ª àâ¨­ª¨
		cmp ecx,ebx
		jle @f
			sub ecx,ebx
			sub edx,ecx ;ã¬¥­ìè ¥¬ ¢ëá®âã ª®¯¨àã¥¬®© ª àâ¨­ª¨, ¢ á«ãç¥ ª®£¤  ®­  ¢ë« §¨â §  ­¨¦­îî £à ­¨æã
		@@:
		mov ebx,buf2d_w
		mov ecx,[coord_y] ;ecx ¨á¯®«ì§ã¥¬ ¤«ï ¢à¥¬¥­­ëå æ¥«¥©
		cmp ecx,0
		jg .end_otr_c_y
			;¥á«¨ ª®®à¤¨­ â  coord_y<=0 (2-ï ­ áâà®©ª )
			mov ecx,[coord_x]
			jmp @f
		.end_otr_c_y:
		imul ecx,ebx
		add ecx,[coord_x]
		@@:
		lea ecx,[ecx+ecx*2]
		add ecx,buf2d_data ;buf2d_data ¤ ­­ë¥ ®á­®¢­®£® ¡ãä¥à 
		sub ebx,eax ;ebx - è¨à¨­  ®á­®¢­®£® ¡ãä¥à  ¬¨­ãá è¨à¨­  à¨áã¥¬®£® ¡ãä¥à 
		mov edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
 
	mov dword[lost_bytes],0
	mov ecx,[coord_x]
	cmp ecx,0
	jge @f
		neg ecx
		cmp eax,ecx ;eax - è¨à¨­  ª®¯¨àã¥¬®© ª àâ¨­ª¨
		jle .copy_end ;¥á«¨ ª®¯¨àã¥¬®¥ ¨§®¡à ¦¥­¨¥ ­ å®¤¨âáï ¯®«­®áâìî §  «¥¢®© £à ­¨æ¥© ¡ãä¥à  (coord_x<0 ¨ |coord_x|>buf_source.w)
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		mov [lost_bytes],ecx
		add esi,ecx
		lea ecx,[ecx+ecx*2]
		add edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
		xor ecx,ecx
	@@:
	cmp ecx,ebx
	jle @f
		sub ecx,ebx
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		;ecx - ç¨á«® ¯¨ªá¥«¥© ¢ 1-© áâà®ª¥ ª àâ¨­ª¨, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî áâ®à®­ã
		add [lost_bytes],ecx
	@@:
 
	lea ebx,[ebx+ebx*2] ;ª®««¨ç¥áâ¢® ¡ ©â ¢ 1-© áâà®ª¥ ¡ãä¥à  ¬¨­ãá ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
	mov [dest_w_bytes],ebx
	mov ebx,[color]
 
	cld
	cmp dword[lost_bytes],0
	jg .copy_1
	.copy_0: ;¯à®áâ®¥ ª®¯¨à®¢ ­¨¥
		mov ecx,eax
		@@:
			call combine_colors_2
			add edi,3
			inc esi
			loop @b
		add edi,[dest_w_bytes]
		dec edx
		cmp edx,0
		jg .copy_0
	jmp .copy_end
	.copy_1: ;­¥ ¯à®áâ®¥ ª®¯¨à®¢ ­¨¥ (ª àâ¨­ª  ¢ë« §¨â §  «¥¢ãî ¨/¨«¨ ¯à ¢ãî áâ®à®­ã)
		mov ecx,eax
		@@:
			call combine_colors_2
			add edi,3
			inc esi
			loop @b
		add edi,[dest_w_bytes]
		add esi,[lost_bytes] ;¤®¡ ¢«ï¥¬ ¡ ©âë, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî £à ­¨æã
		dec edx
		cmp edx,0
		jg .copy_1
 
	jmp .copy_end
	.error1:
		stdcall print_err,sz_buf2d_bit_blt_alpha,txt_err_n8b
		jmp .copy_end
	.error2:
		stdcall print_err,sz_buf2d_bit_blt_alpha,txt_err_n24b
	.copy_end:
	popad
	ret
endp
 
align 4
proc print_err, fun:dword, mes:dword ;¢ë¢®¤¨¬ á®®¡é¥­¨¥ ®¡ è¨¡ª¥ ­  ¤®áªã ®â« ¤ª¨
	pushad
	mov eax,63
	mov ebx,1
 
	mov esi,[fun]
	@@:
		mov cl,byte[esi]
		int 0x40
		inc esi
		cmp byte[esi],0
		jne @b
	mov cl,':'
	int 0x40
	mov cl,' '
	int 0x40
	mov esi,[mes]
	@@:
		mov cl,byte[esi]
		int 0x40
		inc esi
		cmp byte[esi],0
		jne @b
	popad
	ret
endp
 
;ä¨«ìâà
align 4
proc buf_filter_dither, buffer:dword, algor:dword
	pushad
	mov edi,[buffer]
	cmp buf2d_bits,24
	jne .error
		mov edx,buf2d_w
		mov esi,buf2d_h
		mov edi,buf2d_data
;edi - pointer to 24bit bitmap
;edx - x size
;esi - y size
		lea   edx,[edx+edx*2]
		imul  esi,edx
 
		;®¯à¥¤¥«ï¥¬ ª ª®©  «£®à¨â¬ ¨á¯®«ì§®¢ âì
		cmp dword[algor],0
		jne @f
			call dither_0
			jmp .dither_end
		@@:
		cmp dword[algor],1
		jne @f
			call dither_1
			jmp .dither_end
		@@:
		cmp dword[algor],2
		jne @f
			call dither_2
			jmp .dither_end
		@@:
		cmp dword[algor],3
		jne @f
			call dither_3
			jmp .dither_end
		@@:
		call dither_4
		jmp .dither_end
	.error:
		stdcall print_err,sz_buf2d_filter_dither,txt_err_n24b
	.dither_end:
	popad
	ret
endp
 
align 16
dither_0: ; Sierra Filter Lite algorithm
newp_0:   ; Dithering cycle
	xor   ebx,ebx ; At first threshold
	movzx ecx,byte[edi]
	cmp   cl,255
	je    newp_0.next
	test  cl,cl
	jz    newp_0.next
	jns   @f
	dec   ebx
	sub   ecx,255
@@:
	mov   [edi],bl               ; putpixel
 
	sar   ecx,1                  ; error/2
	;adc   ecx,0                  ; round to integer
 
	movzx eax,byte[edi+3]        ; pixel (x+1;y)
	add   eax,ecx                ; add error/2 to (x+1;y)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok
@@:
	cmp   eax,255
	jle   .ok
	or    al,255
.ok:
	mov   [edi+3],al             ; putpixel
 
	sar   ecx,1                  ; error/4
	adc   ecx,0                  ; round to integer
 
	movzx eax,byte[edi+edx-3]    ; pixel (x-1;y+1)
	add   eax,ecx                ; add error/4 to (x-1;y+1)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok1
@@:
	cmp   eax,255
	jle   .ok1
	or    al,255
.ok1:
	mov   [edi+edx-3],al         ; putpixel
 
	movzx eax,byte[edi+edx]      ; pixel (x;y+1)
	add   eax,ecx                ; add error/4 to (x;y+1)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok2
@@:
	cmp   eax,255
	jle   .ok2
	or    al,255
.ok2:
	mov   [edi+edx],al           ; putpixel
 
.next:
	inc   edi
	dec   esi
	jnz   newp_0
	ret
 
align 16
dither_1: ; Floyd-Steinberg algorithm
newp_1:   ; Dithering cycle
	xor   ebx,ebx ; At first threshold
	movzx ecx,byte[edi]
	cmp   cl,255
	je    newp_1.next
	test  cl,cl
	jz    newp_1.next
	jns   @f
	dec   ebx
	sub   ecx,255
@@:
	mov   [edi],bl               ; putpixel
 
	sar   ecx,4                  ; error/16
	adc   ecx,0                  ; round to integer
	mov   ebx,ecx
 
	movzx eax,byte[edi+edx+3]    ; pixel (x+1;y+1)
	add   eax,ecx                ; add error/16 to (x+1;y+1)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok
@@:
	cmp   eax,255
	jle   .ok
	or    al,255
.ok:
	mov   [edi+edx+3],al         ;putpixel
 
	imul  ecx,3
	movzx eax,byte[edi+edx-3]    ; pixel (x-1;y+1)
	add   eax,ecx                ; add 3*error/16 to (x-1;y+1)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok1
@@:
	cmp   eax,255
	jle   .ok1
	or    al,255
.ok1:
	mov   [edi+edx-3],al         ;putpixel
 
	mov   ecx,ebx
	imul  ecx,5
	movzx eax,byte[edi+edx]      ; pixel (x;y+1)
	add   eax,ecx                ; add 5*error/16 to (x;y+1)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok2
@@:
	cmp   eax,255
	jle   .ok2
	or    al,255
.ok2:
	mov   [edi+edx],al           ;putpixel
 
	mov   ecx,ebx
	imul  ecx,7
	movzx eax,byte[edi+3]        ; pixel (x+1;y)
	add   eax,ecx                ; add 7*error/16 to (x+1;y)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok3
@@:
	cmp   eax,255
	jle   .ok3
	or    al,255
.ok3:
	mov   [edi+3],al             ;putpixel
 
.next:
	inc  edi
	dec  esi
	jnz  newp_1
	ret
 
align 16
dither_2: ; Burkes algorithm
newp_2:   ; Dithering cycle
	xor   ebx,ebx ; At first threshold
	movsx ecx,byte[edi]
	cmp   cl,255
	je    newp_2.next
	test  cl,cl
	jz    newp_2.next
	jns   @f
	dec   ebx
@@:
	mov   [edi],bl               ; putpixel
 
	sar   ecx,2                  ; error/4
	adc   ecx,0                  ; round to integer
 
	movzx eax,byte[edi+3]        ; pixel (x+1;y)
	add   eax,ecx                ; add error/4 to (x+1;y)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok
@@:
	cmp   eax,255
	jle   .ok
	or    al,255
.ok:
	mov   [edi+3],al             ; putpixel
 
	movzx eax,byte[edi+edx]      ; pixel (x;y+1)
	add   eax,ecx                ; add error/4 to (x;y+1)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok1
@@:
	cmp   eax,255
	jle   .ok1
	or    al,255
.ok1:
	mov   [edi+edx],al           ; putpixel
 
	sar   ecx,1                  ; error/8
	adc   ecx,0                  ; round to integer
 
	movzx eax,byte[edi+6]        ; pixel (x+2;y)
	add   eax,ecx                ; add error/8 to (x+2;y)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok2
@@:
	cmp   eax,255
	jle   .ok2
	or    al,255
.ok2:
	mov   [edi+6],al             ; putpixel
 
	movzx eax,byte[edi+edx-3]    ; pixel (x-1;y+1)
	add   eax,ecx                ; add error/8 to (x-1;y+1)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok3
@@:
	cmp   eax,255
	jle   .ok3
	or    al,255
.ok3:
	mov   [edi+edx-3],al         ; putpixel
 
	movzx eax,byte[edi+edx+3]    ; pixel (x+1;y+1)
	add   eax,ecx                ; add error/8 to (x+1;y+1)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok4
@@:
	cmp   eax,255
	jle   .ok4
	or    al,255
.ok4:
	mov   [edi+edx+3],al         ; putpixel
 
	sar   ecx,1                  ; error/16
	;adc   ecx,0                  ; round to integer
 
	movzx eax,byte[edi+edx-6]    ; pixel (x-2;y+1)
	add   eax,ecx                ; add error/16 to (x-2;y+1)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok5
@@:
	cmp   eax,255
	jle   .ok5
	or    al,255
.ok5:
	mov   [edi+edx-6],al         ; putpixel
 
	movzx eax,byte[edi+edx+6]    ; pixel (x+2;y+1)
	add   eax,ecx                ; add error/16 to (x+2;y+1)
	jge   @f                     ; check_overflow
	xor   eax,eax
	jmp   .ok6
@@:
	cmp   eax,255
	jle   .ok6
	or    al,255
.ok6:
	mov   [edi+edx+6],al         ; putpixel
 
.next:
	inc   edi
	dec   esi
	jnz   newp_2
	ret
 
 
align 16
dither_3:                        ; Heavyiron_mod algorithm
 newp_3:                         ; Dithering cycle
    xor   ebx,ebx                ; At first threshold
    movzx ecx,byte[edi]
    cmp   cl,255
    je   .next
    test  cl,cl
    jz    .next
    jns   @f
    dec   ebx
    sub   ecx,255
  @@:
    mov   [edi],bl               ; putpixel
 
    sar   ecx,2                  ; error/4
 
    movzx eax,byte[edi+3]        ; pixel (x+1;y)
    add   eax,ecx                ; add error/4 to (x+1;y)
    jge   @f                     ; check_overflow
    xor   eax,eax
    jmp   .ok
  @@:
    cmp   eax,255
    jle   .ok
    or    al,255
  .ok:
    mov   [edi+3],al             ; putpixel
 
    movzx eax,byte[edi+edx-3]    ; pixel (x-1;y+1)
    add   eax,ecx                ; add error/4 to (x-1;y+1)
    jge   @f                     ; check_overflow
    xor   eax,eax
    jmp   .ok1
  @@:
    cmp   eax,255
    jle   .ok1
    or    al,255
  .ok1:
    mov   [edi+edx-3],al         ; putpixel
 
    movzx eax,byte[edi+edx]      ; pixel (x;y+1)
    add   eax,ecx                ; add error/4 to (x;y+1)
    jge   @f                     ; check_overflow
    xor   eax,eax
    jmp   .ok2
  @@:
    cmp   eax,255
    jle   .ok2
    or    al,255
  .ok2:
    mov   [edi+edx],al           ; putpixel
 
  .next:
    inc   edi
    dec   esi
    jnz   newp_3
    ret
 
align 16
dither_4:                        ; Atkinson algorithm
 newp_4:                         ; Dithering cycle
 
    xor   ebx,ebx                ; At first threshold
    movsx ecx,byte[edi]
    cmp   cl,255
    je   .next
    test  cl,cl
    jz    .next
    jns   @f
    dec   ebx
  @@:
    mov   [edi],bl               ; putpixel
 
    sar   ecx,3                  ; error/8
 
    movzx eax,byte[edi+3]        ; pixel (x+1;y)
    add   eax,ecx                ; add error/8 to (x+1;y)
    jge   @f                     ; check_overflow
    xor   eax,eax
    jmp   .ok
  @@:
    cmp   eax,255
    jle   .ok
    or    al,255
  .ok:
    mov   [edi+3],al             ; putpixel
 
    movzx eax,byte[edi+edx]      ; pixel (x;y+1)
    add   eax,ecx                ; add error/8 to (x;y+1)
    jge   @f                     ; check_overflow
    xor   eax,eax
    jmp   .ok1
  @@:
    cmp   eax,255
    jle   .ok1
    or    al,255
  .ok1:
    mov   [edi+edx],al           ; putpixel
 
    movzx eax,byte[edi+6]        ; pixel (x+2;y)
    add   eax,ecx                ; add error/8 to (x+2;y)
    jge   @f                     ; check_overflow
    xor   eax,eax
    jmp   .ok2
  @@:
    cmp   eax,255
    jle   .ok2
    or    al,255
  .ok2:
    mov   [edi+6],al             ; putpixel
 
    movzx eax,byte[edi+edx-3]    ; pixel (x-1;y+1)
    add   eax,ecx                ; add error/8 to (x-1;y+1)
    jge   @f                     ; check_overflow
    xor   eax,eax
    jmp   .ok3
  @@:
    cmp   eax,255
    jle   .ok3
    or    al,255
  .ok3:
    mov   [edi+edx-3],al         ; putpixel
 
    movzx eax,byte[edi+edx+3]    ; pixel (x+1;y+1)
    add   eax,ecx                ; add error/8 to (x+1;y+1)
    jge   @f                     ; check_overflow
    xor   eax,eax
    jmp   .ok4
  @@:
    cmp   eax,255
    jle   .ok4
    or    al,255
  .ok4:
    mov   [edi+edx+3],al         ; putpixel
 
 
    movzx eax,byte[edi+edx+edx]    ; pixel (x;y+2)
    add   eax,ecx                ; add error/8 to (x;y+2)
    jge   @f                     ; check_overflow
    xor   eax,eax
    jmp   .ok5
  @@:
    cmp   eax,255
    jle   .ok5
    or    al,255
  .ok5:
    mov   [edi+edx+edx],al         ; putpixel
 
  .next:
    inc   edi
    dec   esi
    jnz   newp_4
    ret
 
 
 
include 'fun_voxel.inc' ;äã­ªæ¨¨ ¤«ï à ¡®âë á ¢®ªá¥«ì­®© £à ä¨ª®©
 
txt_err_size_0 db 'image size < 1 pixel',13,10,0
txt_err_n8b db 'need buffer 8 bit',13,10,0
txt_err_n24b db 'need buffer 24 bit',13,10,0
txt_err_n32b db 'need buffer 32 bit',13,10,0
txt_err_n8_24b db 'need buffer 8 or 24 bit',13,10,0
 
align 16
EXPORTS:
	dd sz_lib_init, lib_init
	dd sz_buf2d_create, buf_create
	dd sz_buf2d_create_f_img, buf_create_f_img
	dd sz_buf2d_clear, buf_clear
	dd sz_buf2d_draw, buf_draw_buf
	dd sz_buf2d_delete, buf_delete
	dd sz_buf2d_resize, buf_resize
	dd sz_buf2d_rotate, buf_rotate
	dd sz_buf2d_line, buf_line_brs
	dd sz_buf2d_line_sm, buf_line_brs_sm
	dd sz_buf2d_rect_by_size, buf_rect_by_size
	dd sz_buf2d_filled_rect_by_size, buf_filled_rect_by_size
	dd sz_buf2d_circle, buf_circle
	dd sz_buf2d_img_hdiv2, buf_img_hdiv2
	dd sz_buf2d_img_wdiv2, buf_img_wdiv2
	dd sz_buf2d_conv_24_to_8, buf_conv_24_to_8
	dd sz_buf2d_conv_24_to_32, buf_conv_24_to_32
	dd sz_buf2d_bit_blt, buf_bit_blt
	dd sz_buf2d_bit_blt_transp, buf_bit_blt_transp
	dd sz_buf2d_bit_blt_alpha, buf_bit_blt_alpha
	dd sz_buf2d_curve_bezier, buf_curve_bezier
	dd sz_buf2d_convert_text_matrix, buf_convert_text_matrix
	dd sz_buf2d_draw_text, buf_draw_text
	dd sz_buf2d_crop_color, buf_crop_color
	dd sz_buf2d_offset_h, buf_offset_h
	dd sz_buf2d_flood_fill, buf_flood_fill
	dd sz_buf2d_set_pixel, buf_set_pixel
	dd sz_buf2d_get_pixel, buf_get_pixel
	dd sz_buf2d_flip_h, buf_flip_h
	dd sz_buf2d_flip_v, buf_flip_v
	dd sz_buf2d_filter_dither, buf_filter_dither
	dd sz_buf2d_vox_brush_create, vox_brush_create
	dd sz_buf2d_vox_brush_delete, vox_brush_delete
	dd sz_buf2d_vox_obj_get_img_w_3g, buf_vox_obj_get_img_w_3g
	dd sz_buf2d_vox_obj_get_img_h_3g, buf_vox_obj_get_img_h_3g
	dd sz_buf2d_vox_obj_draw_1g, buf_vox_obj_draw_1g
	dd sz_buf2d_vox_obj_draw_3g, buf_vox_obj_draw_3g
	dd sz_buf2d_vox_obj_draw_3g_scaled, buf_vox_obj_draw_3g_scaled
	dd sz_buf2d_vox_obj_draw_pl, buf_vox_obj_draw_pl
	dd sz_buf2d_vox_obj_draw_pl_scaled, buf_vox_obj_draw_pl_scaled
	dd sz_buf2d_vox_obj_draw_3g_shadows, buf_vox_obj_draw_3g_shadows
	dd 0,0
	sz_lib_init db 'lib_init',0
	sz_buf2d_create db 'buf2d_create',0
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
	sz_buf2d_clear db 'buf2d_clear',0 ;®ç¨áâª  ¡ãä¥à  ãª § ­­ë¬ æ¢¥â®¬
	sz_buf2d_draw db 'buf2d_draw',0
	sz_buf2d_delete db 'buf2d_delete',0
	sz_buf2d_resize db 'buf2d_resize',0
	sz_buf2d_rotate db 'buf2d_rotate',0
	sz_buf2d_line db 'buf2d_line',0 ;à¨á®¢ ­¨¥ «¨­¨¨
	sz_buf2d_line_sm db 'buf2d_line_sm',0 ;à¨á®¢ ­¨¥ á£« ¦¥­­®© «¨­¨¨
	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0 ;à¨á®¢ ­¨¥ à ¬ª¨ ¯àï¬®ã£®«ì­¨ª , 2-ï ª®®à¤¨­ â  § ¤ ­  ¯® à §¬¥àã
	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0 ;à¨á®¢ ­¨¥ § «¨â®£® ¯àï¬®ã£®«ì­¨ª , 2-ï ª®®à¤¨­ â  § ¤ ­  ¯® à §¬¥àã
	sz_buf2d_circle db 'buf2d_circle',0 ;à¨á®¢ ­¨¥ ®ªàã¦­®áâ¨
	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0 ;á¦ â¨¥ ¨§®¡à ¦¥­¨ï ¯® ¢ëá®â¥ ¢ 2 à §  (à §¬¥à ¡ãä¥à  ­¥ ¬¥­ï¥âáï)
	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0 ;á¦ â¨¥ ¨§®¡à ¦¥­¨ï ¯® è¨à¨­¥ ¢ 2 à §  (à §¬¥à ¡ãä¥à  ­¥ ¬¥­ï¥âáï)
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0 
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
	sz_buf2d_draw_text db 'buf2d_draw_text',0
	sz_buf2d_crop_color db 'buf2d_crop_color',0
	sz_buf2d_offset_h db 'buf2d_offset_h',0
	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
	sz_buf2d_get_pixel db 'buf2d_get_pixel',0
	sz_buf2d_flip_h db 'buf2d_flip_h',0
	sz_buf2d_flip_v db 'buf2d_flip_v',0
	sz_buf2d_filter_dither db 'buf2d_filter_dither',0
	sz_buf2d_vox_brush_create db 'buf2d_vox_brush_create',0
	sz_buf2d_vox_brush_delete db 'buf2d_vox_brush_delete',0
	sz_buf2d_vox_obj_get_img_w_3g db 'buf2d_vox_obj_get_img_w_3g',0
	sz_buf2d_vox_obj_get_img_h_3g db 'buf2d_vox_obj_get_img_h_3g',0
	sz_buf2d_vox_obj_draw_1g db 'buf2d_vox_obj_draw_1g',0
	sz_buf2d_vox_obj_draw_3g db 'buf2d_vox_obj_draw_3g',0
	sz_buf2d_vox_obj_draw_3g_scaled db 'buf2d_vox_obj_draw_3g_scaled',0
	sz_buf2d_vox_obj_draw_pl db 'buf2d_vox_obj_draw_pl',0
	sz_buf2d_vox_obj_draw_pl_scaled db 'buf2d_vox_obj_draw_pl_scaled',0
	sz_buf2d_vox_obj_draw_3g_shadows db 'buf2d_vox_obj_draw_3g_shadows',0
>
>
>

Rev 7861	Rev 9570
1	format MS COFF	1	format MS COFF
2	public EXPORTS	2	public EXPORTS
3	section '.flat' code readable align 16	3	section '.flat' code readable align 16
4		4
5	include '../../../../macros.inc'	5	include '../../../../macros.inc'
6	include '../../../../proc32.inc'	6	include '../../../../proc32.inc'
7		7
8	;-----------------------------------------------------------------------------	8	;-----------------------------------------------------------------------------
9	mem.alloc dd ? ;äãªæ¨ï ¤«ï ¢ë¤¥«¥¨ï ¯ ¬ïâ¨	9	mem.alloc dd ? ;äãªæ¨ï ¤«ï ¢ë¤¥«¥¨ï ¯ ¬ïâ¨
10	mem.free dd ? ;äãªæ¨ï ¤«ï ®á¢®¡®¦¤¥¨ï ¯ ¬ïâ¨	10	mem.free dd ? ;äãªæ¨ï ¤«ï ®á¢®¡®¦¤¥¨ï ¯ ¬ïâ¨
11	mem.realloc dd ? ;äãªæ¨ï ¤«ï ¯¥à¥à á¯à¥¤¥«¥¨ï ¯ ¬ïâ¨	11	mem.realloc dd ? ;äãªæ¨ï ¤«ï ¯¥à¥à á¯à¥¤¥«¥¨ï ¯ ¬ïâ¨
12	dll.load dd ?	12	dll.load dd ?
13		13
14	BUF_STRUCT_SIZE equ 21	14	BUF_STRUCT_SIZE equ 21
15	buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï	15	buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï
16	buf2d_w equ dword[edi+8] ;è¨à¨ ¡ãä¥à	16	buf2d_w equ dword[edi+8] ;è¨à¨ ¡ãä¥à
17	buf2d_h equ dword[edi+12] ;¢ëá®â ¡ãä¥à	17	buf2d_h equ dword[edi+12] ;¢ëá®â ¡ãä¥à
18	buf2d_l equ word[edi+4]	18	buf2d_l equ word[edi+4]
19	buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã	19	buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã
20	buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢ ¨ á¯à ¢ ¤«ï ¡ãä¥à	20	buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢ ¨ á¯à ¢ ¤«ï ¡ãä¥à
21	buf2d_color equ dword[edi+16] ;æ¢¥â ä® ¡ãä¥à	21	buf2d_color equ dword[edi+16] ;æ¢¥â ä® ¡ãä¥à
22	buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥¨ï	22	buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥¨ï
23		23
24	struct buf_2d_header	24	struct buf_2d_header
25	img_data dd ?	25	img_data dd ?
26	left dw ? ;+4 left	26	left dw ? ;+4 left
27	top dw ? ;+6 top	27	top dw ? ;+6 top
28	size_x dd ? ;+8 w	28	size_x dd ? ;+8 w
29	size_y dd ? ;+12 h	29	size_y dd ? ;+12 h
30	color dd ? ;+16 color	30	color dd ? ;+16 color
31	bit_pp db ? ;+21 bit in pixel	31	bit_pp db ? ;+21 bit in pixel
32	ends	32	ends
33		33
34	macro swap v1, v2 {	34	macro swap v1, v2 {
35	push v1	35	push v1
36	push v2	36	push v2
37	pop v1	37	pop v1
38	pop v2	38	pop v2
39	}	39	}
40		40
41	;ä« £¨, ¤«ï äãªæ¨¨ ®¡à¥§ ¨ï ¡ãä¥à	41	;ä« £¨, ¤«ï äãªæ¨¨ ®¡à¥§ ¨ï ¡ãä¥à
42	BUF2D_OPT_CROP_TOP equ 1 ;®¡à¥§ª á¢¥àåã	42	BUF2D_OPT_CROP_TOP equ 1 ;®¡à¥§ª á¢¥àåã
43	BUF2D_OPT_CROP_LEFT equ 2 ;®¡à¥§ª á«¥¢	43	BUF2D_OPT_CROP_LEFT equ 2 ;®¡à¥§ª á«¥¢
44	BUF2D_OPT_CROP_BOTTOM equ 4 ;®¡à¥§ª á¨§ã	44	BUF2D_OPT_CROP_BOTTOM equ 4 ;®¡à¥§ª á¨§ã
45	BUF2D_OPT_CROP_RIGHT equ 8 ;®¡à¥§ª á¯à ¢	45	BUF2D_OPT_CROP_RIGHT equ 8 ;®¡à¥§ª á¯à ¢
46	BUF2D_BIT_OPT_CROP_TOP equ 0	46	BUF2D_BIT_OPT_CROP_TOP equ 0
47	BUF2D_BIT_OPT_CROP_LEFT equ 1	47	BUF2D_BIT_OPT_CROP_LEFT equ 1
48	BUF2D_BIT_OPT_CROP_BOTTOM equ 2	48	BUF2D_BIT_OPT_CROP_BOTTOM equ 2
49	BUF2D_BIT_OPT_CROP_RIGHT equ 3	49	BUF2D_BIT_OPT_CROP_RIGHT equ 3
50		50
51	;input:	51	;input:
52	; eax = ãª § â¥«ì äãªæ¨î ¢ë¤¥«¥¨ï ¯ ¬ïâ¨	52	; eax = ãª § â¥«ì äãªæ¨î ¢ë¤¥«¥¨ï ¯ ¬ïâ¨
53	; ebx = ... ®á¢®¡®¦¤¥¨ï ¯ ¬ïâ¨	53	; ebx = ... ®á¢®¡®¦¤¥¨ï ¯ ¬ïâ¨
54	; ecx = ... ¯¥à¥à á¯à¥¤¥«¥¨ï ¯ ¬ïâ¨	54	; ecx = ... ¯¥à¥à á¯à¥¤¥«¥¨ï ¯ ¬ïâ¨
55	; edx = ... § £àã§ª¨ ¡¨¡«¨®â¥ª¨ (¯®ª ¥ ¨á¯®«ì§ã¥âáï)	55	; edx = ... § £àã§ª¨ ¡¨¡«¨®â¥ª¨ (¯®ª ¥ ¨á¯®«ì§ã¥âáï)
56	align 16	56	align 16
57	lib_init:	57	lib_init:
58	mov dword[mem.alloc], eax	58	mov dword[mem.alloc], eax
59	mov dword[mem.free], ebx	59	mov dword[mem.free], ebx
60	mov dword[mem.realloc], ecx	60	mov dword[mem.realloc], ecx
61	mov dword[dll.load], edx	61	mov dword[dll.load], edx
62	ret	62	ret
63		63
64	include 'fun_draw.inc' ;äãªæ¨¨ à¨á®¢ ¨ï ¢ ¡ãä¥à¥	64	include 'fun_draw.inc' ;äãªæ¨¨ à¨á®¢ ¨ï ¢ ¡ãä¥à¥
65		65
66	;á®§¤ ¨¥ ¡ãä¥à	66	;á®§¤ ¨¥ ¡ãä¥à
67	align 4	67	align 4
68	proc buf_create, buf_struc:dword	68	proc buf_create, buf_struc:dword
69	pushad	69	pushad
70	mov edi,dword[buf_struc]	70	mov edi,dword[buf_struc]
71	mov ecx,buf2d_w	71	mov ecx,buf2d_w
72	mov ebx,buf2d_h	72	mov ebx,buf2d_h
73	imul ecx,ebx	73	imul ecx,ebx
74	cmp buf2d_bits,24	74	cmp buf2d_bits,24
75	jne @f	75	jne @f
76	lea ecx,[ecx+ecx*2] ; 24 bit = 3	76	lea ecx,[ecx+ecx*2] ; 24 bit = 3
77	;;;inc ecx ;§ ¯ á®© ¡ ©â ¢ ª®æ¥ ¡ãä¥à , çâ®-¡ë ¥ £«îç¨«¨ ¥ª®â®àë¥ äãªæ¨¨ ¨§®¡à ¦¥¨ïå ªà âëå 4	77	;;;inc ecx ;§ ¯ á®© ¡ ©â ¢ ª®æ¥ ¡ãä¥à , çâ®-¡ë ¥ £«îç¨«¨ ¥ª®â®àë¥ äãªæ¨¨ ¨§®¡à ¦¥¨ïå ªà âëå 4
78	@@:	78	@@:
79	cmp buf2d_bits,32	79	cmp buf2d_bits,32
80	jne @f	80	jne @f
81	shl ecx,2 ; 32 bit = 4	81	shl ecx,2 ; 32 bit = 4
82	@@:	82	@@:
83	invoke mem.alloc,ecx	83	invoke mem.alloc,ecx
84	mov buf2d_data,eax	84	mov buf2d_data,eax
85		85
86	stdcall buf_clear,edi,buf2d_color ;®ç¨áâª ¡ãä¥à ä®®¢ë¬ æ¢¥â®¬	86	stdcall buf_clear,edi,buf2d_color ;®ç¨áâª ¡ãä¥à ä®®¢ë¬ æ¢¥â®¬
87	popad	87	popad
88	ret	88	ret
89	endp	89	endp
90		90
91	;á®§¤ ¨¥ ¡ãä¥à ®á®¢¥ ¨§®¡à ¦¥¨ï rgb	91	;á®§¤ ¨¥ ¡ãä¥à ®á®¢¥ ¨§®¡à ¦¥¨ï rgb
92	align 4	92	align 4
93	proc buf_create_f_img, buf_struc:dword, rgb_data:dword	93	proc buf_create_f_img, buf_struc:dword, rgb_data:dword
94	pushad	94	pushad
95	mov edi,dword[buf_struc]	95	mov edi,dword[buf_struc]
96	mov ecx,buf2d_w	96	mov ecx,buf2d_w
97	cmp ecx,1	97	cmp ecx,1
98	jl .error	98	jl .error
99	mov ebx,buf2d_h	99	mov ebx,buf2d_h
100	cmp ebx,1	100	cmp ebx,1
101	jl .error	101	jl .error
102	imul ecx,ebx	102	imul ecx,ebx
103	cmp buf2d_bits,24	103	cmp buf2d_bits,24
104	jne @f	104	jne @f
105	lea ecx,[ecx+ecx*2] ; 24 bit = 3	105	lea ecx,[ecx+ecx*2] ; 24 bit = 3
106	@@:	106	@@:
107	cmp buf2d_bits,32	107	cmp buf2d_bits,32
108	jne @f	108	jne @f
109	shl ecx,2 ; 32 bit = 4	109	shl ecx,2 ; 32 bit = 4
110	@@:	110	@@:
111	invoke mem.alloc,ecx	111	invoke mem.alloc,ecx
112	mov buf2d_data,eax	112	mov buf2d_data,eax
113		113
114	cmp buf2d_bits,24	114	cmp buf2d_bits,24
115	jne @f	115	jne @f
116	cld	116	cld
117	mov esi,[rgb_data]	117	mov esi,[rgb_data]
118	or esi,esi	118	or esi,esi
119	jz @f	119	jz @f
120	mov edi,eax ;eax=buf2d_data	120	mov edi,eax ;eax=buf2d_data
121	rep movsb ;ª®¯¨àã¥¬ ¡¨âë ¨§®¡à ¦¥¨ï ¢ ¡ãä¥à	121	rep movsb ;ª®¯¨àã¥¬ ¡¨âë ¨§®¡à ¦¥¨ï ¢ ¡ãä¥à
122	jmp .end_create	122	jmp .end_create
123	@@:	123	@@:
124	stdcall buf_clear,edi,buf2d_color ;®ç¨áâª ¡ãä¥à ä®®¢ë¬ æ¢¥â®¬	124	stdcall buf_clear,edi,buf2d_color ;®ç¨áâª ¡ãä¥à ä®®¢ë¬ æ¢¥â®¬
125	jmp .end_create	125	jmp .end_create
126	.error:	126	.error:
127	stdcall print_err,sz_buf2d_create_f_img,txt_err_size_0	127	stdcall print_err,sz_buf2d_create_f_img,txt_err_size_0
128	.end_create:	128	.end_create:
129	popad	129	popad
130	ret	130	ret
131	endp	131	endp
132		132
133	;äãªæ¨ï ¤«ï ®¡à¥§ ¨ï ¡ãä¥à®¢ 8 ¨ 24 ¡¨âëå, ¯® § ¤ ®¬ã æ¢¥âã.	133	;äãªæ¨ï ¤«ï ®¡à¥§ ¨ï ¡ãä¥à®¢ 8 ¨ 24 ¡¨âëå, ¯® § ¤ ®¬ã æ¢¥âã.
134	;¯ à ¬¥âà opt § ¤ ¥âáï ª®¬¡¨ æ¨¥© ª®áâ â:	134	;¯ à ¬¥âà opt § ¤ ¥âáï ª®¬¡¨ æ¨¥© ª®áâ â:
135	; BUF2D_OPT_CROP_TOP - ®¡à¥§ª á¢¥àåã	135	; BUF2D_OPT_CROP_TOP - ®¡à¥§ª á¢¥àåã
136	; BUF2D_OPT_CROP_LEFT - ®¡à¥§ª á«¥¢	136	; BUF2D_OPT_CROP_LEFT - ®¡à¥§ª á«¥¢
137	; BUF2D_OPT_CROP_BOTTOM - ®¡à¥§ª á¨§ã	137	; BUF2D_OPT_CROP_BOTTOM - ®¡à¥§ª á¨§ã
138	; BUF2D_OPT_CROP_RIGHT - ®¡à¥§ª á¯à ¢	138	; BUF2D_OPT_CROP_RIGHT - ®¡à¥§ª á¯à ¢
139	align 4	139	align 4
140	proc buf_crop_color, buf_struc:dword, color:dword, opt:dword	140	proc buf_crop_color, buf_struc:dword, color:dword, opt:dword
141	locals	141	locals
142	crop_r dd ?	142	crop_r dd ?
143	endl	143	endl
144	pushad	144	pushad
145	mov edi,dword[buf_struc]	145	mov edi,dword[buf_struc]
146	cmp buf2d_bits,24	146	cmp buf2d_bits,24
147	jne .24end_f	147	jne .24end_f
148		148
149	bt dword[opt],BUF2D_BIT_OPT_CROP_BOTTOM	149	bt dword[opt],BUF2D_BIT_OPT_CROP_BOTTOM
150	jae .24no_crop_bottom	150	jae .24no_crop_bottom
151	mov eax,dword[color]	151	mov eax,dword[color]
152	mov edx,eax ;ax = colors - r,g	152	mov edx,eax ;ax = colors - r,g
153	shr edx,16 ;dl = color - b	153	shr edx,16 ;dl = color - b
154	mov ecx,buf2d_h	154	mov ecx,buf2d_h
155	cmp ecx,1	155	cmp ecx,1
156	jle .24no_crop_bottom ;¯à®¢¥àï¥¬ á«ãç © ¥á«¨ ¢ëá®â ¡ãä¥à 1 ¯¨ªá¥«ì	156	jle .24no_crop_bottom ;¯à®¢¥àï¥¬ á«ãç © ¥á«¨ ¢ëá®â ¡ãä¥à 1 ¯¨ªá¥«ì
157	mov ebx,buf2d_w	157	mov ebx,buf2d_w
158	imul ecx,ebx	158	imul ecx,ebx
159	lea esi,[ecx+ecx2] ;esi=3ecx	159	lea esi,[ecx+ecx2] ;esi=3ecx
160	add esi,buf2d_data	160	add esi,buf2d_data
161	cld	161	cld
162	@@:	162	@@:
163	sub esi,3	163	sub esi,3
164	cmp word[esi],ax	164	cmp word[esi],ax
165	jne @f	165	jne @f
166	cmp byte[esi+2],dl	166	cmp byte[esi+2],dl
167	jne @f	167	jne @f
168	loop @b	168	loop @b
169	@@:	169	@@:
170	lea ebx,[ebx+ebx*2]	170	lea ebx,[ebx+ebx*2]
171	xor edx,edx	171	xor edx,edx
172	mov eax,buf2d_h	172	mov eax,buf2d_h
173	imul eax,ebx	173	imul eax,ebx
174	add eax,buf2d_data ;eax - ãª § â¥«ì ª®¥æ ¡ãä¥à ¨§®¡à ¦¥¨ï	174	add eax,buf2d_data ;eax - ãª § â¥«ì ª®¥æ ¡ãä¥à ¨§®¡à ¦¥¨ï
175	@@:	175	@@:
176	add esi,ebx	176	add esi,ebx
177	cmp esi,eax	177	cmp esi,eax
178	jge @f	178	jge @f
179	inc edx ;¢ëç¨á«ï¥¬ ç¨á«® ¯®«ëå áâà®ª ¤«ï ®¡à¥§ ¨ï	179	inc edx ;¢ëç¨á«ï¥¬ ç¨á«® ¯®«ëå áâà®ª ¤«ï ®¡à¥§ ¨ï
180	loop @b	180	loop @b
181	@@:	181	@@:
182	cmp edx,0	182	cmp edx,0
183	je .24no_crop_bottom	183	je .24no_crop_bottom
184	cmp edx,buf2d_h	184	cmp edx,buf2d_h
185	jge .24no_crop_bottom ;çâ®-¡ë ¥ ¯®«ãç¨âì ¯ãáâ®© ¡ãä¥à	185	jge .24no_crop_bottom ;çâ®-¡ë ¥ ¯®«ãç¨âì ¯ãáâ®© ¡ãä¥à
186	sub buf2d_h,edx ;ã¬¥ìè ¥¬ ¢ëá®âã ¡ãä¥à	186	sub buf2d_h,edx ;ã¬¥ìè ¥¬ ¢ëá®âã ¡ãä¥à
187	mov ecx,buf2d_h	187	mov ecx,buf2d_h
188	imul ecx,ebx ;ecx = ®¢ë© à §¬¥à ¨§®¡à ¦¥¨ï	188	imul ecx,ebx ;ecx = ®¢ë© à §¬¥à ¨§®¡à ¦¥¨ï
189	invoke mem.realloc,buf2d_data,ecx	189	invoke mem.realloc,buf2d_data,ecx
190	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥	190	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥
191	.24no_crop_bottom:	191	.24no_crop_bottom:
192		192
193	bt dword[opt],BUF2D_BIT_OPT_CROP_TOP	193	bt dword[opt],BUF2D_BIT_OPT_CROP_TOP
194	jae .24no_crop_top	194	jae .24no_crop_top
195	mov eax,dword[color]	195	mov eax,dword[color]
196	mov edx,eax ;ax = colors - r,g	196	mov edx,eax ;ax = colors - r,g
197	shr edx,16 ;dl = color - b	197	shr edx,16 ;dl = color - b
198	mov esi,buf2d_data	198	mov esi,buf2d_data
199	mov ecx,buf2d_h	199	mov ecx,buf2d_h
200	cmp ecx,1	200	cmp ecx,1
201	jle .24no_crop_top ;¯à®¢¥àï¥¬ á«ãç © ¥á«¨ ¢ëá®â ¡ãä¥à 1 ¯¨ªá¥«ì	201	jle .24no_crop_top ;¯à®¢¥àï¥¬ á«ãç © ¥á«¨ ¢ëá®â ¡ãä¥à 1 ¯¨ªá¥«ì
202	dec ecx ;¯à¨ ®¡à¥§ ¨¨ ¤®«¦ ®áâ âìáï ¬¨¨¬ã¬ 1- áâà®ª ¯¨ªá¥«¥©	202	dec ecx ;¯à¨ ®¡à¥§ ¨¨ ¤®«¦ ®áâ âìáï ¬¨¨¬ã¬ 1- áâà®ª ¯¨ªá¥«¥©
203	mov ebx,buf2d_w	203	mov ebx,buf2d_w
204	imul ecx,ebx	204	imul ecx,ebx
205	cld	205	cld
206	@@:	206	@@:
207	cmp word[esi],ax	207	cmp word[esi],ax
208	jne @f	208	jne @f
209	cmp byte[esi+2],dl	209	cmp byte[esi+2],dl
210	jne @f	210	jne @f
211	add esi,3	211	add esi,3
212	loop @b	212	loop @b
213	@@:	213	@@:
214	lea ebx,[ebx+ebx*2]	214	lea ebx,[ebx+ebx*2]
215	xor edx,edx	215	xor edx,edx
216	@@:	216	@@:
217	sub esi,ebx	217	sub esi,ebx
218	cmp esi,buf2d_data	218	cmp esi,buf2d_data
219	jl @f	219	jl @f
220	inc edx ;¢ëç¨á«ï¥¬ ç¨á«® ¯®«ëå áâà®ª ¤«ï ®¡à¥§ ¨ï	220	inc edx ;¢ëç¨á«ï¥¬ ç¨á«® ¯®«ëå áâà®ª ¤«ï ®¡à¥§ ¨ï
221	loop @b	221	loop @b
222	@@:	222	@@:
223	cmp edx,0	223	cmp edx,0
224	je .24no_crop_top	224	je .24no_crop_top
225	xor eax,eax	225	xor eax,eax
226	sub eax,edx	226	sub eax,edx
227	mov ebx,buf2d_h	227	mov ebx,buf2d_h
228	sub ebx,edx	228	sub ebx,edx
229	stdcall buf_offset_h, edi, eax, edx, ebx ;á¤¢¨£ ¥¬ ¨§®¡à ¦¥¨¥ ¢ ¡ãä¥à¥ ¢¢¥àå (eax<0)	229	stdcall buf_offset_h, edi, eax, edx, ebx ;á¤¢¨£ ¥¬ ¨§®¡à ¦¥¨¥ ¢ ¡ãä¥à¥ ¢¢¥àå (eax<0)
230	sub buf2d_h,edx ;ã¬¥ìè ¥¬ ¢ëá®âã ¡ãä¥à	230	sub buf2d_h,edx ;ã¬¥ìè ¥¬ ¢ëá®âã ¡ãä¥à
231	mov ecx,buf2d_h	231	mov ecx,buf2d_h
232	add buf2d_t,dx ;á¤¢¨£ ¥¬ ®âáâã¯ ¢¨§, ç¨á«® ®¡à¥§ ëå áâà®ª	232	add buf2d_t,dx ;á¤¢¨£ ¥¬ ®âáâã¯ ¢¨§, ç¨á«® ®¡à¥§ ëå áâà®ª
233	mov ebx,buf2d_w	233	mov ebx,buf2d_w
234	imul ecx,ebx	234	imul ecx,ebx
235	lea ecx,[ecx+ecx*2]	235	lea ecx,[ecx+ecx*2]
236	invoke mem.realloc,buf2d_data,ecx	236	invoke mem.realloc,buf2d_data,ecx
237	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥	237	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥
238	.24no_crop_top:	238	.24no_crop_top:
239		239
240	bt dword[opt],BUF2D_BIT_OPT_CROP_RIGHT	240	bt dword[opt],BUF2D_BIT_OPT_CROP_RIGHT
241	jae .24no_crop_right	241	jae .24no_crop_right
242	mov eax,dword[color]	242	mov eax,dword[color]
243	mov edx,eax ;ax = colors - r,g	243	mov edx,eax ;ax = colors - r,g
244	shr edx,16 ;dl = color - b	244	shr edx,16 ;dl = color - b
245	mov ebx,buf2d_w	245	mov ebx,buf2d_w
246	cmp ebx,1	246	cmp ebx,1
247	jle .24no_crop_right ; á«ãç © ¥á«¨ è¨à¨ ¡ãä¥à 1 ¯¨ªá¥«ì	247	jle .24no_crop_right ; á«ãç © ¥á«¨ è¨à¨ ¡ãä¥à 1 ¯¨ªá¥«ì
248	lea ebx,[ebx+ebx*2]	248	lea ebx,[ebx+ebx*2]
249	mov esi,ebx	249	mov esi,ebx
250	imul esi,buf2d_h	250	imul esi,buf2d_h
251	add esi,buf2d_data ;esi - ãª § â¥«ì ª®¥æ ¡ãä¥à ¨§®¡à ¦¥¨ï	251	add esi,buf2d_data ;esi - ãª § â¥«ì ª®¥æ ¡ãä¥à ¨§®¡à ¦¥¨ï
252	mov dword[crop_r],0	252	mov dword[crop_r],0
253	cld	253	cld
254	.24found_beg_right:	254	.24found_beg_right:
255	sub esi,3 ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢«¥¢®	255	sub esi,3 ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢«¥¢®
256	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«	256	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«
257	@@:	257	@@:
258	cmp word[esi],ax	258	cmp word[esi],ax
259	jne .24found_right	259	jne .24found_right
260	cmp byte[esi+2],dl	260	cmp byte[esi+2],dl
261	jne .24found_right	261	jne .24found_right
262	sub esi,ebx ;¯àë£ ¥¬ ¢¥àåîî áâà®ªã	262	sub esi,ebx ;¯àë£ ¥¬ ¢¥àåîî áâà®ªã
263	loop @b	263	loop @b
264	inc dword[crop_r]	264	inc dword[crop_r]
265		265
266	mov ecx,buf2d_w	266	mov ecx,buf2d_w
267	dec ecx ;1 ª®«®ª § ¯ á	267	dec ecx ;1 ª®«®ª § ¯ á
268	cmp dword[crop_r],ecx	268	cmp dword[crop_r],ecx
269	jge .24found_right	269	jge .24found_right
270		270
271	sub esi,3 ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢«¥¢®	271	sub esi,3 ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢«¥¢®
272	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«	272	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«
273	@@:	273	@@:
274	add esi,ebx ;¯àë£ ¥¬ ¨¦îî áâà®ªã	274	add esi,ebx ;¯àë£ ¥¬ ¨¦îî áâà®ªã
275	cmp word[esi],ax	275	cmp word[esi],ax
276	jne .24found_right	276	jne .24found_right
277	cmp byte[esi+2],dl	277	cmp byte[esi+2],dl
278	jne .24found_right	278	jne .24found_right
279	loop @b	279	loop @b
280	inc dword[crop_r]	280	inc dword[crop_r]
281		281
282	mov ecx,buf2d_w	282	mov ecx,buf2d_w
283	dec ecx ;1 ª®«®ª § ¯ á	283	dec ecx ;1 ª®«®ª § ¯ á
284	cmp dword[crop_r],ecx	284	cmp dword[crop_r],ecx
285	jl .24found_beg_right	285	jl .24found_beg_right
286		286
287	.24found_right:	287	.24found_right:
288	cmp dword[crop_r],0	288	cmp dword[crop_r],0
289	je .24no_crop_right	289	je .24no_crop_right
290	mov ecx,buf2d_w	290	mov ecx,buf2d_w
291	sub ecx,dword[crop_r]	291	sub ecx,dword[crop_r]
292	stdcall img_rgb_crop_r, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ®¢®¬ã à §¬¥àã	292	stdcall img_rgb_crop_r, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ®¢®¬ã à §¬¥àã
293	mov buf2d_w,ecx ;áâ ¢¨¬ ®¢ãî è¨à¨ã ¤«ï ¡ãä¥à	293	mov buf2d_w,ecx ;áâ ¢¨¬ ®¢ãî è¨à¨ã ¤«ï ¡ãä¥à
294	mov ebx,buf2d_h	294	mov ebx,buf2d_h
295	imul ecx,ebx	295	imul ecx,ebx
296	lea ecx,[ecx+ecx*2]	296	lea ecx,[ecx+ecx*2]
297	invoke mem.realloc,buf2d_data,ecx	297	invoke mem.realloc,buf2d_data,ecx
298	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥	298	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥
299	.24no_crop_right:	299	.24no_crop_right:
300		300
301	bt dword[opt],BUF2D_BIT_OPT_CROP_LEFT	301	bt dword[opt],BUF2D_BIT_OPT_CROP_LEFT
302	jae .24no_crop_left	302	jae .24no_crop_left
303	mov eax,dword[color]	303	mov eax,dword[color]
304	mov edx,eax ;ax = colors - r,g	304	mov edx,eax ;ax = colors - r,g
305	shr edx,16 ;dl = color - b	305	shr edx,16 ;dl = color - b
306	mov ebx,buf2d_w	306	mov ebx,buf2d_w
307	cmp ebx,1	307	cmp ebx,1
308	jle .24no_crop_left ; á«ãç © ¥á«¨ è¨à¨ ¡ãä¥à 1 ¯¨ªá¥«ì	308	jle .24no_crop_left ; á«ãç © ¥á«¨ è¨à¨ ¡ãä¥à 1 ¯¨ªá¥«ì
309	lea ebx,[ebx+ebx*2]	309	lea ebx,[ebx+ebx*2]
310	mov esi,buf2d_data ;esi - ãª § â¥«ì ç®«® ¡ãä¥à ¨§®¡à ¦¥¨ï	310	mov esi,buf2d_data ;esi - ãª § â¥«ì ç®«® ¡ãä¥à ¨§®¡à ¦¥¨ï
311	mov dword[crop_r],0	311	mov dword[crop_r],0
312	cld	312	cld
313	.24found_beg_left:	313	.24found_beg_left:
314		314
315	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«	315	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«
316	@@:	316	@@:
317	cmp word[esi],ax	317	cmp word[esi],ax
318	jne .24found_left	318	jne .24found_left
319	cmp byte[esi+2],dl	319	cmp byte[esi+2],dl
320	jne .24found_left	320	jne .24found_left
321	add esi,ebx ;¯àë£ ¥¬ ¨¦îî áâà®ªã	321	add esi,ebx ;¯àë£ ¥¬ ¨¦îî áâà®ªã
322	loop @b	322	loop @b
323	inc dword[crop_r]	323	inc dword[crop_r]
324	add esi,3 ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢¯à ¢®	324	add esi,3 ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢¯à ¢®
325		325
326	mov ecx,buf2d_w	326	mov ecx,buf2d_w
327	dec ecx ;1 ª®«®ª § ¯ á	327	dec ecx ;1 ª®«®ª § ¯ á
328	cmp dword[crop_r],ecx	328	cmp dword[crop_r],ecx
329	jge .24found_left	329	jge .24found_left
330		330
331	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«	331	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«
332	@@:	332	@@:
333	sub esi,ebx ;¯àë£ ¥¬ ¢¥àåîî áâà®ªã	333	sub esi,ebx ;¯àë£ ¥¬ ¢¥àåîî áâà®ªã
334	cmp word[esi],ax	334	cmp word[esi],ax
335	jne .24found_left	335	jne .24found_left
336	cmp byte[esi+2],dl	336	cmp byte[esi+2],dl
337	jne .24found_left	337	jne .24found_left
338	loop @b	338	loop @b
339	inc dword[crop_r]	339	inc dword[crop_r]
340	add esi,3 ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢¯à ¢®	340	add esi,3 ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢¯à ¢®
341		341
342	mov ecx,buf2d_w	342	mov ecx,buf2d_w
343	dec ecx ;1 ª®«®ª § ¯ á	343	dec ecx ;1 ª®«®ª § ¯ á
344	cmp dword[crop_r],ecx	344	cmp dword[crop_r],ecx
345	jl .24found_beg_left	345	jl .24found_beg_left
346		346
347	.24found_left:	347	.24found_left:
348	cmp dword[crop_r],0	348	cmp dword[crop_r],0
349	je .24no_crop_left	349	je .24no_crop_left
350	mov ecx,buf2d_w	350	mov ecx,buf2d_w
351	sub ecx,dword[crop_r]	351	sub ecx,dword[crop_r]
352	stdcall img_rgb_crop_l, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ®¢®¬ã à §¬¥àã	352	stdcall img_rgb_crop_l, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ®¢®¬ã à §¬¥àã
353	mov buf2d_w,ecx ;áâ ¢¨¬ ®¢ãî è¨à¨ã ¤«ï ¡ãä¥à	353	mov buf2d_w,ecx ;áâ ¢¨¬ ®¢ãî è¨à¨ã ¤«ï ¡ãä¥à
354	mov ebx,buf2d_h	354	mov ebx,buf2d_h
355	imul ecx,ebx	355	imul ecx,ebx
356	lea ecx,[ecx+ecx*2]	356	lea ecx,[ecx+ecx*2]
357	invoke mem.realloc,buf2d_data,ecx	357	invoke mem.realloc,buf2d_data,ecx
358	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥	358	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥
359	mov eax,dword[crop_r]	359	mov eax,dword[crop_r]
360	add buf2d_l,ax	360	add buf2d_l,ax
361	.24no_crop_left:	361	.24no_crop_left:
362		362
363	.24end_f:	363	.24end_f:
364		364
365		365
366	cmp buf2d_bits,8	366	cmp buf2d_bits,8
367	jne .8end_f	367	jne .8end_f
368		368
369	bt dword[opt],BUF2D_BIT_OPT_CROP_BOTTOM	369	bt dword[opt],BUF2D_BIT_OPT_CROP_BOTTOM
370	jae .8no_crop_bottom	370	jae .8no_crop_bottom
371	mov eax,dword[color]	371	mov eax,dword[color]
372	mov esi,buf2d_data	372	mov esi,buf2d_data
373	mov ecx,buf2d_h	373	mov ecx,buf2d_h
374	cmp ecx,1	374	cmp ecx,1
375	jle .8no_crop_bottom ;¯à®¢¥àï¥¬ á«ãç © ¥á«¨ ¢ëá®â ¡ãä¥à 1 ¯¨ªá¥«ì	375	jle .8no_crop_bottom ;¯à®¢¥àï¥¬ á«ãç © ¥á«¨ ¢ëá®â ¡ãä¥à 1 ¯¨ªá¥«ì
376	mov ebx,buf2d_w	376	mov ebx,buf2d_w
377	imul ecx,ebx	377	imul ecx,ebx
378	mov esi,ecx	378	mov esi,ecx
379	add esi,buf2d_data	379	add esi,buf2d_data
380	cld	380	cld
381	@@:	381	@@:
382	dec esi	382	dec esi
383	cmp byte[esi],al	383	cmp byte[esi],al
384	jne @f	384	jne @f
385	loop @b	385	loop @b
386	@@:	386	@@:
387	xor edx,edx	387	xor edx,edx
388	mov eax,buf2d_h	388	mov eax,buf2d_h
389	imul eax,ebx	389	imul eax,ebx
390	add eax,buf2d_data ;eax - ãª § â¥«ì ª®¥æ ¡ãä¥à ¨§®¡à ¦¥¨ï	390	add eax,buf2d_data ;eax - ãª § â¥«ì ª®¥æ ¡ãä¥à ¨§®¡à ¦¥¨ï
391	@@:	391	@@:
392	add esi,ebx	392	add esi,ebx
393	cmp esi,eax	393	cmp esi,eax
394	jge @f	394	jge @f
395	inc edx	395	inc edx
396	loop @b	396	loop @b
397	@@:	397	@@:
398	cmp edx,0	398	cmp edx,0
399	je .8no_crop_bottom	399	je .8no_crop_bottom
400	cmp edx,buf2d_h	400	cmp edx,buf2d_h
401	jge .8no_crop_bottom ;çâ®-¡ë ¥ ¯®«ãç¨âì ¯ãáâ®© ¡ãä¥à	401	jge .8no_crop_bottom ;çâ®-¡ë ¥ ¯®«ãç¨âì ¯ãáâ®© ¡ãä¥à
402	sub buf2d_h,edx ;ã¬¥ìè ¥¬ ¢ëá®âã ¡ãä¥à	402	sub buf2d_h,edx ;ã¬¥ìè ¥¬ ¢ëá®âã ¡ãä¥à
403	mov ecx,buf2d_h	403	mov ecx,buf2d_h
404	imul ecx,ebx ;ecx = ®¢ë© à §¬¥à ¨§®¡à ¦¥¨ï	404	imul ecx,ebx ;ecx = ®¢ë© à §¬¥à ¨§®¡à ¦¥¨ï
405	invoke mem.realloc,buf2d_data,ecx	405	invoke mem.realloc,buf2d_data,ecx
406	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥	406	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥
407	.8no_crop_bottom:	407	.8no_crop_bottom:
408		408
409	bt dword[opt],BUF2D_BIT_OPT_CROP_TOP	409	bt dword[opt],BUF2D_BIT_OPT_CROP_TOP
410	jae .8no_crop_top	410	jae .8no_crop_top
411	mov eax,dword[color]	411	mov eax,dword[color]
412	mov esi,buf2d_data	412	mov esi,buf2d_data
413	mov ecx,buf2d_h	413	mov ecx,buf2d_h
414	cmp ecx,1	414	cmp ecx,1
415	jle .8no_crop_top ;¯à®¢¥àï¥¬ á«ãç © ¥á«¨ ¢ëá®â ¡ãä¥à 1 ¯¨ªá¥«ì	415	jle .8no_crop_top ;¯à®¢¥àï¥¬ á«ãç © ¥á«¨ ¢ëá®â ¡ãä¥à 1 ¯¨ªá¥«ì
416	dec ecx ;¯à¨ ®¡à¥§ ¨¨ ¤®«¦ ®áâ âìáï ¬¨¨¬ã¬ 1- áâà®ª ¯¨ªá¥«¥©	416	dec ecx ;¯à¨ ®¡à¥§ ¨¨ ¤®«¦ ®áâ âìáï ¬¨¨¬ã¬ 1- áâà®ª ¯¨ªá¥«¥©
417	mov ebx,buf2d_w	417	mov ebx,buf2d_w
418	imul ecx,ebx	418	imul ecx,ebx
419	cld	419	cld
420	@@:	420	@@:
421	cmp byte[esi],al	421	cmp byte[esi],al
422	jne @f	422	jne @f
423	inc esi	423	inc esi
424	loop @b	424	loop @b
425	@@:	425	@@:
426	xor edx,edx	426	xor edx,edx
427	@@:	427	@@:
428	sub esi,ebx	428	sub esi,ebx
429	cmp esi,buf2d_data	429	cmp esi,buf2d_data
430	jl @f	430	jl @f
431	inc edx	431	inc edx
432	loop @b	432	loop @b
433	@@:	433	@@:
434	cmp edx,0	434	cmp edx,0
435	je .8no_crop_top	435	je .8no_crop_top
436	xor eax,eax	436	xor eax,eax
437	sub eax,edx	437	sub eax,edx
438	mov ebx,buf2d_h	438	mov ebx,buf2d_h
439	sub ebx,edx	439	sub ebx,edx
440	stdcall buf_offset_h, edi, eax, edx, ebx	440	stdcall buf_offset_h, edi, eax, edx, ebx
441	mov ecx,buf2d_h	441	mov ecx,buf2d_h
442	sub ecx,edx	442	sub ecx,edx
443	mov buf2d_h,ecx ;ã¬¥ìè ¥¬ ¢ëá®âã ¡ãä¥à	443	mov buf2d_h,ecx ;ã¬¥ìè ¥¬ ¢ëá®âã ¡ãä¥à
444	add buf2d_t,dx ;á¤¢¨£ ¥¬ ®âáâã¯ ¢¨§, ç¨á«® ®¡à¥§ ëå áâà®ª	444	add buf2d_t,dx ;á¤¢¨£ ¥¬ ®âáâã¯ ¢¨§, ç¨á«® ®¡à¥§ ëå áâà®ª
445	mov ebx,buf2d_w	445	mov ebx,buf2d_w
446	imul ecx,ebx	446	imul ecx,ebx
447	invoke mem.realloc,buf2d_data,ecx	447	invoke mem.realloc,buf2d_data,ecx
448	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥	448	mov buf2d_data,eax ; á«ãç © ¥á«¨ ¨§¬¥¨«áï ãª § â¥«ì ¤ ë¥
449	.8no_crop_top:	449	.8no_crop_top:
450		450
451	bt dword[opt],BUF2D_BIT_OPT_CROP_RIGHT	451	bt dword[opt],BUF2D_BIT_OPT_CROP_RIGHT
452	jae .8no_crop_right	452	jae .8no_crop_right
453	mov eax,dword[color]	453	mov eax,dword[color]
454	mov ebx,buf2d_w	454	mov ebx,buf2d_w
455	cmp ebx,1	455	cmp ebx,1
456	jle .8no_crop_right ; á«ãç © ¥á«¨ è¨à¨ ¡ãä¥à 1 ¯¨ªá¥«ì	456	jle .8no_crop_right ; á«ãç © ¥á«¨ è¨à¨ ¡ãä¥à 1 ¯¨ªá¥«ì
457	mov esi,ebx	457	mov esi,ebx
458	imul esi,buf2d_h	458	imul esi,buf2d_h
459	add esi,buf2d_data ;esi - ãª § â¥«ì ª®¥æ ¡ãä¥à ¨§®¡à ¦¥¨ï	459	add esi,buf2d_data ;esi - ãª § â¥«ì ª®¥æ ¡ãä¥à ¨§®¡à ¦¥¨ï
460	xor edx,edx	460	xor edx,edx
461	cld	461	cld
462		462
463	.8found_beg:	463	.8found_beg:
464	dec esi ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢«¥¢®	464	dec esi ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢«¥¢®
465	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«	465	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«
466	@@:	466	@@:
467	cmp byte[esi],al	467	cmp byte[esi],al
468	jne .8found	468	jne .8found
469	sub esi,ebx ;¯àë£ ¥¬ ¢¥àåîî áâà®ªã	469	sub esi,ebx ;¯àë£ ¥¬ ¢¥àåîî áâà®ªã
470	loop @b	470	loop @b
471	inc edx	471	inc edx
472	mov ecx,buf2d_w	472	mov ecx,buf2d_w
473	dec ecx ;1 ª®«®ª § ¯ á	473	dec ecx ;1 ª®«®ª § ¯ á
474	cmp edx,ecx	474	cmp edx,ecx
475	jge .8found	475	jge .8found
476		476
477	dec esi ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢«¥¢®	477	dec esi ;¤¢¨£ ¥¬áï 1-ã ª®«®ªã ¢«¥¢®
478	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«	478	mov ecx,buf2d_h ;¢®ááâ ®¢«¥¨¥ ecx ¤«ï ®¢®£® æ¨ª«
479	@@:	479	@@:
480	add esi,ebx ;¯àë£ ¥¬ ¨¦îî áâà®ªã	480	add esi,ebx ;¯àë£ ¥¬ ¨¦îî áâà®ªã
481	cmp byte[esi],al	481	cmp byte[esi],al
482	jne .8found	482	jne .8found
483	loop @b	483	loop @b
484	inc edx	484	inc edx
485		485
486	mov ecx,buf2d_w	486	mov ecx,buf2d_w
487	dec ecx ;1 ª®«®ª § ¯ á	487	dec ecx ;1 ª®«®ª § ¯ á
488	cmp edx,ecx	488	cmp edx,ecx
489	jl .8found_beg	489	jl .8found_beg
490		490
491	.8found:	491	.8found:
492	cmp edx,0	492	cmp edx,0
493	je .8no_crop_right	493	je .8no_crop_right
494	mov ecx,buf2d_w	494	mov ecx,buf2d_w
495	sub ecx,edx	495	sub ecx,edx
496	stdcall img_gray_crop_r, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ®¢®¬ã à §¬¥àã	496	stdcall img_gray_crop_r, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ®¢®¬ã à §¬¥àã
497	mov buf2d_w,ecx ;áâ ¢¨¬ ®¢ãî è¨à¨ã ¤«ï ¡ãä¥à	497	mov buf2d_w,ecx ;áâ ¢¨¬ ®¢ãî è¨à¨ã ¤«ï ¡ãä¥à
498	mov ebx,buf2d_h	498	mov ebx,buf2d_h
499	imul ecx,ebx	499	imul ecx,ebx
500	invoke mem.realloc,buf2d_data,ecx	500	invoke mem.realloc,buf2d_data,ecx

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/buf2d/trunk/buf2d.asm @ 2230 – Rev 7861 → 9570