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
 
;input:
; ebx = coord x
; ecx = coord y
; edx = pixel color
; edi = pointer to buffer struct
align 4
draw_pixel:
	;cmp buf2d_bits,24
	;jne @f
	bt ebx,31
	jc @f
	bt ecx,31
	jc @f
	cmp ebx,buf2d_w
	jge @f
	cmp ecx,buf2d_h
	jge @f
	push esi
		mov esi,buf2d_w ;size x
		imul esi,ecx ;size_x*y
		add esi,ebx	 ;size_x*y+x
		lea esi,[esi+esi*2] ;(size_x*y+x)*3
		add esi,buf2d_data  ;ptr+(size_x*y+x)*3
 
		mov word[esi],dx ;copy pixel color
		ror edx,16
		mov byte[esi+2],dl
		ror edx,16
	pop esi
	@@:
	ret
 
;input:
; ebx = coord x
; ecx = coord y
; edi = pointer to buffer struct
;output:
; eax = æ¢¥â â®çª¨
; ¢ á«ãç ¥ ®è¨¡ª¨ eax = 0xffffffff
align 4
get_pixel_24:
	mov eax,0xffffffff
 
	bt ebx,31
	jc @f
	bt ecx,31
	jc @f
	cmp ebx,buf2d_w
	jge @f
	cmp ecx,buf2d_h
	jge @f
	push esi
		mov esi,buf2d_w ;size x
		imul esi,ecx ;size_x*y
		add esi,ebx	 ;size_x*y+x
		lea esi,[esi+esi*2] ;(size_x*y+x)*3
		add esi,buf2d_data  ;ptr+(size_x*y+x)*3
 
		xor eax,eax
		mov ax,word[esi] ;copy pixel color
		ror eax,16
		mov al,byte[esi+2]
		ror eax,16
	pop esi
	@@:
	ret
 
 
;á®§¤ ­¨¥ ¡ãä¥à 
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
	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
 
	cmp buf2d_bits,24
	jne @f
		cld
		mov esi,[rgb_data]
		mov edi,eax ;eax=buf2d_data
		rep movsb ;ª®¯¨àã¥¬ ¡¨âë ¨§®¡à ¦¥­¨ï ¢ ¡ãä¥à
		jmp .end_create
	@@:
		stdcall buf_clear,edi,buf2d_color ;®ç¨áâª  ¡ãä¥à  ä®­®¢ë¬ æ¢¥â®¬
	.end_create:
	popad
	ret
endp
 
align 4
proc buf_clear, buf_struc:dword, color:dword ;®ç¨áâª  ¡ãä¥à  § ¤ ­ë¬ æ¢¥â®¬
	pushad
	mov edi,dword[buf_struc]
 
	mov ecx,buf2d_w
	mov ebx,buf2d_h
	imul ecx,ebx
 
	cld
 
	cmp buf2d_bits,8
	jne .end_clear_8
		mov edi,buf2d_data
		mov al,byte[color]
		rep stosb
		jmp .end_clear_32
	.end_clear_8:
 
	cmp buf2d_bits,24
	jne .end_clear_24
		mov edi,buf2d_data
		mov eax,dword[color]
		mov ebx,eax
		shr ebx,16
		@@:
			stosw
			mov byte[edi],bl
			inc edi
			loop @b
		jmp .end_clear_32
	.end_clear_24:
 
	cmp buf2d_bits,32
	jne .end_clear_32
		mov edi,buf2d_data
		mov eax,dword[color]
		rep stosd
		;jmp .end_clear_32
	.end_clear_32:
	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_draw_buf, buf_struc:dword
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,24
	jne .error
		mov eax,7
		mov ebx,buf2d_data
 
		mov ecx,buf2d_w
		ror ecx,16
		mov edx,buf2d_h
		mov cx,dx
 
		mov edx,buf2d_size_lt
		ror edx,16
		int 0x40
		jmp .end_draw_24
	.error:
		stdcall print_err,sz_buf2d_draw,txt_err_n24b
	.end_draw_24:
	popad
	ret
endp
 
align 4
proc buf_delete, buf_struc:dword
	push edi
	mov edi,dword[buf_struc]
	invoke mem.free,buf2d_data
	pop edi
	ret
endp
 
align 4
proc buf_line_brs, buf_struc:dword, coord_x0:dword, coord_y0:dword, coord_x1:dword, coord_y1:dword, color:dword
locals
	loc_1 dd ?
	loc_2 dd ?
	napravl db ?
endl
	pushad
		mov edx,dword[color]
 
		mov eax,dword[coord_x1]
		sub eax,dword[coord_x0]
		bt eax,31
		jae @f
			neg eax
			inc eax
		@@:
		mov ebx,dword[coord_y1]
		sub ebx,dword[coord_y0]
		bt ebx,31
		jae @f
			neg ebx
			inc ebx
		@@:
 
		mov [napravl],byte 0 ;bool steep=false
		cmp eax,ebx
		jle @f
			mov [napravl],byte 1 ;bool steep=true
			swap dword[coord_x0],dword[coord_y0] ;swap(x0, y0);
			swap dword[coord_x1],dword[coord_y1] ;swap(x1, y1);
		@@:
		mov eax,dword[coord_y0] ;x0
		cmp eax,dword[coord_y1] ;if(x0>x1)
		jle @f
			swap dword[coord_y0],dword[coord_y1] ;swap(x0, x1);
			swap dword[coord_x0],dword[coord_x1] ;swap(y0, y1);
		@@:
 
; int deltax esi
; int deltay edi
; int error  ebp-6
; int ystep  ebp-8
 
		mov eax,dword[coord_y0]
		mov esi,dword[coord_y1]
		sub esi,eax ;deltax = y1-y0
		mov ebx,esi
		shr ebx,1
		mov [loc_1],ebx ;error = deltax/2
 
		mov eax,dword[coord_x0]
		mov edi,dword[coord_x1]
		mov [loc_2],dword -1 ;ystep = -1
		cmp eax,edi ;if (x0
		jge @f
			mov [loc_2],dword 1 ;ystep = 1
		@@:
		sub edi,eax ;x1-x0
 
		bts edi,31
		jae @f
			neg edi
			inc edi
		@@:
		and edi,0x7fffffff ;deltay = abs(x1-x0)
 
		mov eax,edi
		mov edi,[buf_struc]
		cmp buf2d_bits,24
		jne .coord_end
 
		cmp [napravl],0
		jne .coord_yx
			mov ebx,dword[coord_x0]
			mov ecx,dword[coord_y0]
 
			@@: ;for (x=x0 ; x
				cmp ecx,dword[coord_y1]
				jg @f ;jge ???
				call draw_pixel
 
				sub dword[loc_1],eax ;error -= deltay
				cmp dword[loc_1],0 ;if(error<0)
				jge .if0
					add ebx,[loc_2] ;y += ystep
					add [loc_1],esi ;error += deltax
				.if0:
				inc ecx
				jmp @b
			@@:
			jmp .coord_end
		.coord_yx:
			mov ebx,dword[coord_y0]
			mov ecx,dword[coord_x0]
 
			@@: ;for (x=x0 ; x
				cmp ebx,dword[coord_y1]
				jg @f ;jge ???
				call draw_pixel
 
				sub dword[loc_1],eax ;error -= deltay
				cmp dword[loc_1],0 ;if(error<0)
				jge .if1
					add ecx,[loc_2] ;y += ystep
					add [loc_1],esi ;error += deltax
				.if1:
				inc ebx
				jmp @b
			@@:
	.coord_end:
	popad
	ret
endp
 
;à¨á®¢ ­¨¥ £®à¨§®­â «ì­®© «¨­¨¨, ¯®â®¬ã ­¥â ¯ à ¬¥âà  coord_y1
align 4
proc buf_line_h, buf_struc:dword, coord_x0:dword, coord_y0:dword, coord_x1:dword, color:dword
	pushad
		mov edi,[buf_struc]
		cmp buf2d_bits,24
		jne .end24
 
		mov ebx,dword[coord_x0]
		mov ecx,dword[coord_y0]
		mov edx,dword[color]
		mov esi,dword[coord_x1]
		cmp ebx,esi
		jle @f
			xchg ebx,esi ;¥á«¨ x0 > x1 â® ¬¥­ï¥¬ ¬¥áâ ¬¨ x0 ¨ x1
 
		@@: ;æ¨ª« ¯® ®á¨ x ®â x0 ¤® x1
			cmp ebx,esi
			jge @f
			call draw_pixel
			inc ebx
			jmp @b
		@@:
		.end24:
	popad
	ret
endp
 
align 4
proc buf_rect_by_size, buf_struc:dword, coord_x:dword,coord_y:dword,w:dword,h:dword, color:dword
pushad
	mov edi,[buf_struc]
	cmp buf2d_bits,24
	jne .coord_end
 
		mov eax,[coord_x]
		mov ebx,[coord_y]
		mov ecx,[w]
		cmp ecx,1
		jl .coord_end
		add ecx,eax
		dec ecx
		mov edx,[h]
		cmp edx,1
		jl .coord_end
 
		add edx,ebx
		dec edx
		mov esi,dword[color]
		stdcall buf_line_h, edi, eax, ebx, ecx, esi ;«¨­¨ï -
		stdcall buf_line_brs, edi, eax, ebx, eax, edx, esi ;«¨­¨ï |
		stdcall buf_line_h, edi, eax, edx, ecx, esi ;«¨­¨ï -
		stdcall buf_line_brs, edi, ecx, ebx, ecx, edx, esi ;«¨­¨ï |
	.coord_end:
popad
	ret
endp
 
align 4
proc buf_filled_rect_by_size, buf_struc:dword, coord_x:dword,coord_y:dword,w:dword,h:dword, color:dword
pushad
	mov edi,[buf_struc]
	cmp buf2d_bits,24
	jne .coord_end
		mov eax,[coord_x]
		mov ebx,[coord_y]
		mov edx,[w]
		add edx,eax
		mov ecx,[h]
		cmp ecx,1 ;áà ¢­¥­¨¥ á ¬¨­¨¬ «ì­® ¢®§¬®¦­®© ¢ëá®â®©
		jl .coord_end ;¥á«¨ ¢ëá®â  ¬¥­ìè¥ 1-£® ¯¨ªá¥«ï
		mov esi,dword[color]
		cld
		@@:
			stdcall buf_line_h, edi, eax, ebx, edx, esi ;«¨­¨ï -
			inc ebx
			loop @b
	.coord_end:
popad
	ret
endp
 
align 4
proc buf_circle, buf_struc:dword, coord_x:dword, coord_y:dword, r:dword, color:dword
locals
	po_x dd ?
	po_y dd ?
endl
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,24
	jne .error
		mov edx,dword[color]
 
		finit
		fild dword[coord_x]
		fild dword[coord_y]
		fild dword[r]
		fldz ;px=0
		fld st1 ;py=r
 
		fldpi
		fmul st0,st3
		fistp dword[po_x]
		mov esi,dword[po_x] ;esi=pi*r
		shl esi,1 ;esi=2*pi*r
 
		;st0 = py
		;st1 = px
		;st2 = r
		;st3 = y
		;st4 = x
 
		@@:
			;Point(px + x, y - py)
			fld st1 ;st0=px
			fadd st0,st5 ;st0=px+x
			fistp dword[po_x]
			mov ebx,dword[po_x]
			fld st3 ;st0=y
			fsub st0,st1 ;st0=y-py
			fistp dword[po_y]
			mov ecx,dword[po_y]
			call draw_pixel
			;px += py/r
			fld st0 ;st0=py
			fdiv st0,st3 ;st0=py/r
			faddp st2,st0 ;st3+=st0
			;py -= px/r
			fld st1 ;st0=px
			fdiv st0,st3 ;st0=px/r
			fsubp st1,st0 ;st2-=st0
 
			dec esi
			cmp esi,0
			jge @b
		jmp .exit_fun
	.error:
		stdcall print_err,sz_buf2d_circle,txt_err_n24b
	.exit_fun:
 
	popad
	ret
endp
 
;äã­ªæ¨ï ¤«ï § «¨¢ª¨ ®¡« áâ¨ ¢ë¡à ­­ë¬ æ¢¥â®¬
align 4
proc buf_flood_fill, buf_struc:dword, coord_x:dword, coord_y:dword, mode:dword, color_f:dword, color_b:dword
	pushad
		mov edi,[buf_struc]
		cmp buf2d_bits,24
		jne .end24
 
			mov ebx,dword[coord_x]
			mov ecx,dword[coord_y]
			mov edx,dword[color_f]
			mov esi,dword[color_b]
 
			cmp dword[mode],1 ;¢ § ¢¨á¨¬®áâ¨ ®â 'mode' ®¯à¥¤¥«ï¥¬ ª ª¨¬  «£®à¨â¬®¬ ¡ã¤¥¬ ¯®«ì§®¢ âìáï
			je @f
				call buf_flood_fill_recurs_0 ;§ «¨¢ ¥¬ ¤® ¯¨ªá¥«¥© æ¢¥â  esi
				jmp .end24
			@@:
				call buf_flood_fill_recurs_1 ;§ «¨¢ ¥¬ ¯¨ªá¥«¨ ¨¬¥îé¨¥ æ¢¥â esi
 
		.end24:
	popad
	ret
endp
 
;input:
; ebx = coord_x
; ecx = coord_y
; edx = æ¢¥â § «¨¢ª¨
; esi = æ¢¥â £à ­¨æë, ¤® ª®â®à®© ¡ã¤¥â ¨â¨ § «¨¢ª 
; edi = buf_struc
;output:
; eax = ¯®àâ¨âáï
align 4
buf_flood_fill_recurs_0:
	call get_pixel_24
	cmp eax,0xffffffff ;if error coords
	je .end_fun
	cmp eax,edx ;¥á«¨ æ¢¥â ¯¨ªá¥«ï á®¢¯ « á æ¢¥â®¬ § «¨¢ª¨, §­ ç¨â § «¨¢ª  ¢ íâ®© ®¡« áâ¨ ã¦¥ ¡ë«  á¤¥« ­ 
	je .end_fun
 
		call draw_pixel
 
		dec ebx
		call get_pixel_24
		cmp eax,esi
		je @f
			call buf_flood_fill_recurs_0
		@@:
		inc ebx
 
 
		inc ebx
		call get_pixel_24
		cmp eax,esi
		je @f
			call buf_flood_fill_recurs_0
		@@:
		dec ebx
 
		dec ecx
		call get_pixel_24
		cmp eax,esi
		je @f
			call buf_flood_fill_recurs_0
		@@:
		inc ecx
 
		inc ecx
		call get_pixel_24
		cmp eax,esi
		je @f
			call buf_flood_fill_recurs_0
		@@:
		dec ecx
 
	.end_fun:
	ret
 
;input:
; ebx = coord_x
; ecx = coord_y
; edx = æ¢¥â § «¨¢ª¨
; esi = æ¢¥â ¯¨ªá¥«¥©, ¯® ª®â®àë¬ ¡ã¤¥â ¨â¨ § «¨¢ª 
; edi = buf_struc
;output:
; eax = ¯®àâ¨âáï
align 4
buf_flood_fill_recurs_1:
	call get_pixel_24
	cmp eax,0xffffffff ;if error coords
	je .end_fun
	cmp eax,edx ;¥á«¨ æ¢¥â ¯¨ªá¥«ï á®¢¯ « á æ¢¥â®¬ § «¨¢ª¨, §­ ç¨â § «¨¢ª  ¢ íâ®© ®¡« áâ¨ ã¦¥ ¡ë«  á¤¥« ­ 
	je .end_fun
	cmp eax,esi ;¥á«¨ æ¢¥â ¯¨ªá¥«ï ­¥ á®¢¯ « á § «¨¢ ¥¬ë¬ æ¢¥â®¬ § «¨¢ª¨, â® ¯à¥ªà é ¥¬ § «¨¢ªã
	jne .end_fun
 
		call draw_pixel
 
		dec ebx
		call get_pixel_24
		cmp eax,esi
		jne @f
			call buf_flood_fill_recurs_1
		@@:
		inc ebx
 
 
		inc ebx
		call get_pixel_24
		cmp eax,esi
		jne @f
			call buf_flood_fill_recurs_1
		@@:
		dec ebx
 
		dec ecx
		call get_pixel_24
		cmp eax,esi
		jne @f
			call buf_flood_fill_recurs_1
		@@:
		inc ecx
 
		inc ecx
		call get_pixel_24
		cmp eax,esi
		jne @f
			call buf_flood_fill_recurs_1
		@@:
		dec ecx
 
	.end_fun:
	ret
 
align 4
proc buf_img_wdiv2, buf_struc:dword
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,24
	jne .end_draw_24
		mov eax,buf2d_w
		mov ecx,buf2d_h
		imul ecx,eax
		stdcall img_rgb24_wdiv2, buf2d_data,ecx
	.end_draw_24:
	popad
	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
  ;push eax ebx ecx edx
  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
  ;pop edx ecx ebx eax
  ret
endp
 
align 4
proc buf_img_hdiv2, buf_struc:dword
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,24
	jne .end_draw_24
		mov eax,buf2d_w
		mov ecx,buf2d_h
		imul ecx,eax
		stdcall img_rgb24_hdiv2, buf2d_data,ecx,eax
	.end_draw_24:
	popad
	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
  ;pushad
 
  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 edi,dword[size_w]
  lea esi,[edi+edi*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,esi
  add ebx,eax
  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
 
  ;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 .error
		mov eax,buf2d_w
		mov ecx,buf2d_h
		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
	.error:
		stdcall print_err,sz_buf2d_conv_24_to_8,txt_err_n24b
	.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
		right_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,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]
		lea ecx,[ecx+ecx*2]
		add ecx,buf2d_data
		sub ebx,eax
		mov edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
 
	mov [right_bytes],0
	mov ecx,[coord_x]
	cmp ecx,ebx
	jl @f
		sub ecx,ebx
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		lea ecx,[ecx+ecx*2] ;ecx - ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª àâ¨­ª¨, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî áâ®à®­ã
		mov [right_bytes],ecx
	@@:
 
	lea eax,[eax+eax*2] ;ª®««¨ç¥áâ¢® ¡ ©â ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
	lea ebx,[ebx+ebx*2] ;ª®««¨ç¥áâ¢® ¡ ©â ¢ 1-© áâà®ª¥ ¡ãä¥à  ¬¨­ãá ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
 
	cld
	cmp [right_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,[right_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,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]
		lea ecx,[ecx+ecx*2]
		add ecx,buf2d_data
		sub ebx,eax
		mov edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
 
	mov [right_bytes],0
	mov ecx,[coord_x]
	cmp ecx,ebx
	jl @f
		sub ecx,ebx
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		shl ecx,2 ;ecx - ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª àâ¨­ª¨, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî áâ®à®­ã
		mov [right_bytes],ecx
	@@:
 
	;eax - ª®««¨ç¥áâ¢® ¯¨ªá¥«¥© ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
	lea ebx,[ebx+ebx*2] ;ª®««¨ç¥áâ¢® ¡ ©â ¢ 1-© áâà®ª¥ ¡ãä¥à  ¬¨­ãá ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
 
	cld
	cmp [right_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,[right_bytes] ;¤®¡ ¢«ï¥¬ ¡ ©âë, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî £à ­¨æã
		dec edx
		cmp edx,0
		jg .copy_3
 
	.copy_end:
	popad
	ret
endp
 
;input:
; esi = pointer to color1 + transparent
; edi = pointer to background color2
;output:
; [edi] = combine color
align 4
combine_colors:
	push ax bx cx dx
	mov bx,0x00ff ;---get transparent---
	mov cl,byte[esi+3] ;pro
	xor ch,ch
	sub bx,cx ;256-pro
	;---blye---
	xor ah,ah
	mov al,byte[esi]
	imul ax,bx
	xor dh,dh
	mov dl,byte[edi]
	imul dx,cx
	add ax,dx
	mov byte[edi],ah
	;---green---
	xor ah,ah
	mov al,byte[esi+1]
	imul ax,bx
	xor dh,dh
	mov dl,byte[edi+1]
	imul dx,cx
	add ax,dx
	mov byte[edi+1],ah
	;---red---
	xor ah,ah
	mov al,byte[esi+2]
	imul ax,bx
	xor dh,dh
	mov dl,byte[edi+2]
	imul dx,cx
	add ax,dx
	mov byte[edi+2],ah
 
	pop dx cx bx 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
		right_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,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]
		lea ecx,[ecx+ecx*2]
		add ecx,buf2d_data
		sub ebx,eax
		mov edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
 
	mov [right_bytes],0
	mov ecx,[coord_x]
	cmp ecx,ebx
	jl @f
		sub ecx,ebx
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		shl ecx,2 ;ecx - ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª àâ¨­ª¨, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî áâ®à®­ã
		mov [right_bytes],ecx
	@@:
 
	lea ebx,[ebx+ebx*2] ;ª®««¨ç¥áâ¢® ¡ ©â ¢ 1-© áâà®ª¥ ¡ãä¥à  ¬¨­ãá ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
 
	cld
	cmp [right_bytes],0
	jg .copy_1
	.copy_0: ;¯à®áâ®¥ ª®¯¨à®¢ ­¨¥
		mov ecx,eax
		@@:
			call combine_colors
			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
			add edi,3
			add esi,4
			loop @b
		add edi,ebx
		add esi,[right_bytes] ;¤®¡ ¢«ï¥¬ ¡ ©âë, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî £à ­¨æã
		dec edx
		cmp edx,0
		jg .copy_1
 
	.copy_end:
	popad
	ret
endp
 
;input:
; ebx - color1
; esi = pointer to transparent
; edi = pointer to background color2
;output:
; [edi] = combine color
align 4
combine_colors_2:
	push ax ebx cx dx si
	mov cl,byte[esi] ;pro
	xor ch,ch
	mov si,0x00ff ;---get transparent---
	sub si,cx ;256-pro
 
		;---blye---
		mov al,bl
		xor ah,ah
		shr ebx,8
		imul ax,si
		xor dh,dh
		mov dl,byte[edi]
		imul dx,cx
		add ax,dx
		mov byte[edi],ah
		;---green---
		mov al,bl
		xor ah,ah
		shr ebx,8
		imul ax,si
		xor dh,dh
		mov dl,byte[edi+1]
		imul dx,cx
		add ax,dx
		mov byte[edi+1],ah
		;---red---
		mov al,bl
		xor ah,ah
		imul ax,si
		xor dh,dh
		mov dl,byte[edi+2]
		imul dx,cx
		add ax,dx
		mov byte[edi+2],ah
 
	pop si dx cx ebx ax
	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
		right_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,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]
		lea ecx,[ecx+ecx*2]
		add ecx,buf2d_data
		sub ebx,eax
		mov edi,ecx ;edi ãª § â¥«ì ­  ¤ ­­ë¥ ¡ãä¥à , ªã¤  ¡ã¤¥â ¯à®¨§¢®¤¨âáï ª®¯¨à®¢ ­¨¥
 
	mov [right_bytes],0
	mov ecx,[coord_x]
	cmp ecx,ebx
	jl @f
		sub ecx,ebx
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,ecx ;ã¤«¨­­ï¥¬ áâà®ªã ¤«ï á¤¢¨£  £« ¢­®© ª àâ¨­ª¨ ¡ãä¥à 
		;ecx - ç¨á«® ¯¨ªá¥«¥© ¢ 1-© áâà®ª¥ ª àâ¨­ª¨, ª®â®àë¥ ¢ë« §ïâ §  ¯à ¢ãî áâ®à®­ã
		mov [right_bytes],ecx
	@@:
 
	lea ebx,[ebx+ebx*2] ;ª®««¨ç¥áâ¢® ¡ ©â ¢ 1-© áâà®ª¥ ¡ãä¥à  ¬¨­ãá ç¨á«® ¡ ©â ¢ 1-© áâà®ª¥ ª®¯¨àã¥¬®© ª àâ¨­ª¨
	mov [dest_w_bytes],ebx
	mov ebx,[color]
 
	cld
	cmp [right_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,[right_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
 
;¯à¥®¡à §®¢ ­¨¥ 8-¡¨â­®£® ¡ãä¥à  à §¬¥à®¬ 16*16 ¢ à §¬¥à 1*256 á¨¬¢®«®¢
align 4
proc buf_convert_text_matrix, buf_struc:dword
	locals
		tmp_mem dd ?
		c1 dw ?
		c2 dd ?
		c3 dw ?
	endl
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,8
	jne .error
		mov ecx,buf2d_h
		mov ebx,ecx
		shr ebx,4 ;¯à¥¤¯®« £ ¥¬ çâ® ¢ ¡ãä¥à¥ 16 áâà®ª á á¨¬¢®« ¬¨, ¯®â®¬ã ¤¥«¨¬ ­  2^4
		mov edx,buf2d_w
		imul ecx,edx ;ecx = size  8 b
		invoke mem.alloc,ecx ;¢ë¤¥«ï¥¬ ¢à¥¬¥­­ãî ¯ ¬ïâì
		mov [tmp_mem],eax ;eax - new memory
 
		shr edx,4 ;¯à¥¤¯®« £ ¥¬ çâ® ¢ ¡ãä¥à¥ 16 ª®«®­®ª á á¨¬¢®« ¬¨, ¯®â®¬ã ¤¥«¨¬ ­  2^4
		mov eax,ebx
		imul ebx,edx ;¢ëç¨á«ï¥¬ ª®®«¨ç¥áâ¢® ¯¨ªá¥«¥© ­  1 á¨¬¢®«
		;eax = bhe - ¢ëá®â  ¡ãª¢ë
		;ebx = bwi*bhe - ª®««¨ç¥áâ¢® ¯¨ªá¥«¥© ¢ 1-© ¡ãª¢¥
		;edx = bwi - è¨à¨­  ¡ãª¢ë
		;ecx,esi,edi - ¨á¯®«ì§ãîâáï ¢ æ¨ª«¥ .c_0
		shr buf2d_w,4
		shl buf2d_h,4 ;¯à¥®¡à §®¢ë¢ ¥¬ à §¬¥àë ¡ãä¥à 
 
		cld
		mov esi,buf2d_data
		mov edi,[tmp_mem]
		mov word[c3],16
		.c_3:
			mov dword[c2],eax
			.c_2:
				mov word[c1],16
				.c_1:
					mov ecx,edx ;.c_0:
					rep movsb
					add edi,ebx
					sub edi,edx ;edi+=(bwi*bhe-bwi)
					dec word[c1]
					cmp word[c1],0
					jg .c_1
				add edi,edx
				shl ebx,4
				sub edi,ebx ;edi-=(16*bwi*bhe-bwi)
				shr ebx,4
				dec dword[c2]
				cmp dword[c2],0
				jg .c_2
			sub edi,ebx
			shl ebx,4
			add edi,ebx ;edi+=(15*bwi*bhe)
			shr ebx,4
			dec word[c3]
			cmp word[c3],0
			jg .c_3
 
		mov edi,dword[buf_struc] ;ª®¯¨à®¢ ­¨¥ ­®¢®© ¬ âà¨æë ¢ ®á­®¢­®© ¡ãä¥à
		mov edi,buf2d_data
		mov esi,[tmp_mem]
		mov ecx,ebx
		shl ecx,8
		rep movsb
		invoke mem.free,[tmp_mem] ;ç¨áâ¨¬ ¢à¥¬¥­­ãî ¯ ¬ïâì
		jmp .end_conv
	.error:
		stdcall print_err,sz_buf2d_convert_text_matrix,txt_err_n8b
	.end_conv:
	popad
	ret
endp
 
align 4
buf_s_matr buf_2d_header ? ;«®ª «ì­ ï ¬ âà¨æ  á¨¬¢®« 
 
align 4
proc buf_draw_text, buf_struc:dword, buf_t_matr:dword, text:dword, coord_x:dword, coord_y:dword, color:dword
	locals
		buf_t_matr_offs dd ?
	endl
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,24
	jne .error2
	mov edi,dword[buf_t_matr]
	cmp buf2d_bits,8
	jne .error1
		mov edx,buf2d_data
		mov [buf_t_matr_offs],edx
		mov ecx,BUF_STRUCT_SIZE ;ª®¯¨àã¥¬ áâàãªâãàã â¥ªáâ®¢®© ¬ âà¨æë
		mov esi,edi
		lea edi,[buf_s_matr]
		cld
		rep movsb
		lea edi,[buf_s_matr]
		shr buf2d_h,8 ;¤¥«¨¬ ¢ëá®âã á¨¬¢®«ì­®£® ¡ãä¥à  ­  256, ¤«ï ­ å®¦¤¥­¨ï ¢ëá®âë 1-£® á¨¬¢®« 
		mov ebx,buf2d_h ;¡¥à¥¬ ¢ëá®âã á¨¬¢®« 
		mov ecx,buf2d_w ;¡¥à¥¬ è¨à¨­ã á¨¬¢®« 
 
		mov eax,[coord_x]
		mov esi,[text]
		cmp byte[esi],0
		je .end_draw ;¥á«¨ ¯ãáâ ï áâà®ª 
		@@:
			xor edx,edx
			mov dl,byte[esi] ;¡¥à¥¬ ª®¤ á¨¬¢®« 
			imul edx,ebx ;ã¬­®¦ ¥¬ ¥£® ­  ¢ëá®âã á¨¬¢®« 
			imul edx,ecx ;ã¬­®¦ ¥¬ ­  è¨à¨­ã á¨¬¢®« 
			add edx,[buf_t_matr_offs] ;¯à¨¡ ¢«ï¥¬ á¬¥é¥­¨¥ 0-£® á¨¬¢®« , â. ¥. ¯®«ãç ¥âáï á¬¥é¥­¨¥ ¢ë¢®¤¨¬®£® á¨¬¢®« 
			mov buf2d_data,edx ;¢ «®ª «ì­ë© ¡ãä¥à á¨¬¢®« , áâ ¢¨¬ ãª § â¥«ì ­  ­ã¦­ë© á¨¬¢®« ¨§ ¡ãä¥à  buf_t_matr
			stdcall buf_bit_blt_alpha, [buf_struc], eax,[coord_y], edi,[color]
			add eax,ecx
			.new_s:
				inc esi
				cmp byte[esi],13
				jne .no_13
					mov eax,[coord_x]
					add [coord_y],ebx
					jmp .new_s
				.no_13:
			cmp byte[esi],0
			jne @b
		jmp .end_draw
	.error1:
		stdcall print_err,sz_buf2d_draw_text,txt_err_n8b
		jmp .end_draw
	.error2:
		stdcall print_err,sz_buf2d_draw_text,txt_err_n24b
	.end_draw:
	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
 
;input:
; ebp+8  = p0
; ebp+12 = p1
align 4
line_len4i:
	push ebp
	mov ebp,esp
		finit
		fild word [ebp+8]
		fisub word [ebp+12]
		fmul st0,st0 ;st0=x^2
		fild word [ebp+10]
		fisub word [ebp+14]
		fmul st0,st0 ;st0=y^2
		fadd st0,st1
		fsqrt
		fstp dword [ebp+12]
	pop ebp
	ret 4 ;8
 
align 4
proc buf_curve_bezier, buffer:dword, coord_p0:dword,coord_p1:dword,coord_p2:dword, color:dword
	locals
		delt_t dd ?
		opr_param dd ?
		v_poi_0 dd ?
	endl
	pushad
 
;float t, xt,yt;
;for(t=.0;t<1.;t+=.005){
;  xt=pow(1.-t,2)*x0+2*t*(1.-t)*x1+pow(t,2)*x2;
;  yt=pow(1.-t,2)*y0+2*t*(1.-t)*y1+pow(t,2)*y2;
;  dc.SetPixel(xt,yt,255L);
;}
 
	mov edx,[color] ;set curve color
	mov edi,[buffer]
	xor ebx,ebx
	xor ecx,ecx
 
	finit
 
	; calculate delta t
	stdcall line_len4i, dword[coord_p1],dword[coord_p0]
	fadd dword[esp]
	add esp,4 ;pop ...
 
	stdcall line_len4i, dword[coord_p2],dword[coord_p1]
	fadd dword[esp]
	add esp,4 ;pop ...
 
	fadd st0,st0 ; len*=2
	ftst
	fstsw ax
 
	fld1
	sahf
	jle @f ;¨§¡¥£ ¥¬ ¤¥«¥­¨ï ­  0
		fdiv st0,st1
	@@:
	fstp dword[delt_t]
 
	finit
 
	;fild word[coord_p2+2] ;y2
	fild word[coord_p1+2] ;y1
	fild word[coord_p0+2] ;y0
	fild word[coord_p2] ;x2
	fild word[coord_p1] ;x1
	fild word[coord_p0] ;x0
	fld dword[delt_t]
	fldz ;t=.0
 
	@@:
		fld1
		fsub st0,st1 ;1.-t
		fmul st0,st0 ;pow(1.-t,2)
		fmul st0,st3 ;...*x0
		fstp dword[opr_param]
 
		fld1
		fsub st0,st1 ;1.-t
		fmul st0,st1 ;(1.-t)*t
		fadd st0,st0
		fmul st0,st4 ;...*x1
		mov esi,dword[opr_param]
		fstp dword[opr_param]
 
		fldz
		fadd st0,st1 ;0+t
		fmul st0,st0 ;t*t
		fmul st0,st5 ;...*x2
 
		fadd dword[opr_param]
		mov dword[opr_param],esi
		fadd dword[opr_param]
		fistp word[v_poi_0] ;x
 
		fld1
		fsub st0,st1 ;1.-t
		fmul st0,st0 ;pow(1.-t,2)
		fmul st0,st6 ;...*y0
		fstp dword[opr_param]
 
		fld1
		fsub st0,st1 ;1.-t
		fmul st0,st1 ;(1.-t)*t
		fadd st0,st0
		fmul st0,st7 ;...*y1
		mov esi,dword[opr_param]
		fstp dword[opr_param]
 
		fldz
		fadd st0,st1 ;0+t
		fmul st0,st0 ;t*t
		fimul word[coord_p2+2] ;...*y2
 
		fadd dword[opr_param]
		mov dword[opr_param],esi
		fadd dword[opr_param]
		fistp word[v_poi_0+2] ;y
 
		mov eax,1
		mov bx,word[v_poi_0+2]
		mov cx,word[v_poi_0]
		call draw_pixel
 
		fadd st0,st1 ;t+dt
 
		fld1
		fcomp
		fstsw ax
		sahf
	jae @b
 
	popad
	ret
endp
 
txt_err_n8b db 'need buffer 8 bit',13,10,0
txt_err_n24b db 'need buffer 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_line, buf_line_brs
	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 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_line db 'buf2d_line',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
;>
>
>
>
>
>

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

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/buf2d/trunk/buf2d.asm – Rev 1717 → 1727