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
		cmp buf2d_bits,8
		je .beg8
			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
			jmp .end_draw
		.beg8: ;à¨á®¢ ­¨¥ â®çª¨ ¢ 8 ¡¨â­®¬ ¡ãä¥à¥
			add esi,buf2d_data  ;ptr+(size_x*y+x)
			mov byte[esi],dl
		.end_draw:
	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
 
;input:
; ebx = coord x
; ecx = coord y
; edx = pixel color + transparent
; edi = pointer to buffer struct
; t_prop, m_prop - ª®íä¨æ¨¥­âë ­¥®¡å®¤¨¬ë¥ ¤«ï ¢ëç¨á«¥­¨ï áâ¥¯¥­¨ ¯à®§à ç­®áâ¨
align 4
transp_32 dd 0 ;æ¢¥â à¨áã¥¬®© â®çª¨ + ¯à®§à ç­®áâì
align 4
proc draw_pixel_transp, t_prop:dword, m_prop:dword
	;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 eax ebx edx edi 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 edi,esi ;ãª § â¥«ì ­  æ¢¥â ä®­ 
		mov dword[transp_32],edx ;æ¢¥â à¨áã¥¬®© â®çª¨
 
		xor edx,edx
		mov eax,[t_prop]
		shl eax,8 ;*=256
		mov ebx,[m_prop]
		div ebx ;¢ëç¨á«ï¥¬ ª®íä. ¯à®§à ç­®áâ¨ (¤®«¦¥­ ¡ëâì ®â 0 ¤® 255)
		bt ax,8
		jnc .over_255
			;¥á«¨ ª®¥ä. ¯à®§à ç­®áâ¨ >=256 â® ã¬¥­ìè ¥¬ ¥£® ¤® 255
			mov al,0xff
		.over_255:
 
		mov byte[transp_32+3],al ;¯à®§à ç­®áâì à¨áã¥¬®© â®çª¨
		mov esi,dword transp_32 ;ãª § â¥«ì ­  æ¢¥â à¨áã¥¬®© â®çª¨
 
		call combine_colors
	pop esi edi edx ebx eax
	@@:
	ret
endp
 
;á®§¤ ­¨¥ ¡ãä¥à 
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 eax edi
	mov edi,dword[buf_struc]
	invoke mem.free,buf2d_data
	pop edi eax
	ret
endp
 
align 4
proc buf_resize, buf_struc:dword, new_w:dword, new_h:dword
	pushad
	mov edi,dword[buf_struc]
	cmp buf2d_bits,24
	jne .24bit
		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:
	popad
	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 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]
		jnz @f
			;¥á«¨ § ¤ ­  £®à¨§®­â «ì­ ï «¨­¨ï y0=y1
			stdcall buf_line_h, [buf_struc], [coord_x0], [coord_y0], [coord_x1], [color]
			jmp .coord_end
		@@:
		bt ebx,31
		jae @f
			neg ebx
			inc ebx
		@@:
		mov edx,dword[color]
 
		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,8
		je @f
		cmp buf2d_bits,24
		je @f
			jmp .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
 
;à¨á®¢ ­¨¥ á£« ¦¥­­®© «¨­¨¨
align 4
proc buf_line_brs_sm, 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 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]
		jnz @f
			;¥á«¨ § ¤ ­  £®à¨§®­â «ì­ ï «¨­¨ï y0=y1
			stdcall buf_line_h, [buf_struc], [coord_x0], [coord_y0], [coord_x1], [color]
			jmp .coord_end
		@@:
		bt ebx,31
		jae @f
			neg ebx
			inc ebx
		@@:
		mov edx,dword[color]
 
		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 ???
				push eax
					mov eax,esi
					sub eax,[loc_1]
					stdcall draw_pixel_transp, eax,esi
				pop eax
				add ebx,[loc_2]
				stdcall draw_pixel_transp, [loc_1],esi
				sub ebx,[loc_2]
 
				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 ???
				push eax
					mov eax,esi
					sub eax,[loc_1]
					stdcall draw_pixel_transp, eax,esi
				pop eax
				add ecx,[loc_2]
				stdcall draw_pixel_transp, [loc_1],esi
				sub ecx,[loc_2]
 
				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
	pushfd
		mov edi,[buf_struc]
		cmp buf2d_bits,8
		je @f
		cmp buf2d_bits,24
		je @f
			jmp .end24
		@@: ;®¯à¥¤¥«¥­¨¥ ª®®à¤¨­ â «¨­¨¨ ®â­®á¨â¥«ì­® ¡ãä¥à 
 
		mov ecx,dword[coord_y0]
		bt ecx,31
		jc .end24 ;¥á«¨ ª®®à¤¨­ â  y0 ®âà¨æ â¥«ì­ ï
		cmp ecx,buf2d_h
		jge .end24 ;¥á«¨ ª®®à¤¨­ â  y0 ¡®«ìè¥ ¢ëá®âë ¡ãä¥à 
 
		mov ebx,dword[coord_x0]
		mov esi,dword[coord_x1]
		cmp ebx,esi
		jle @f
			xchg ebx,esi ;¥á«¨ x0 > x1 â® ¬¥­ï¥¬ ¬¥áâ ¬¨ x0 ¨ x1
		@@:
		bt ebx,31
		jae @f
			;¥á«¨ ª®®à¤¨­ â  x0 ®âà¨æ â¥«ì­ ï
			xor ebx,ebx
		@@:
		cmp esi,buf2d_w
		jl @f
			;¥á«¨ ª®®à¤¨­ â  x0 ¡®«ìè¥ è¨à¨­ë ¡ãä¥à 
			mov esi,buf2d_w
			dec esi
		@@:
		cmp ebx,esi
		jg .end24 ;¥á«¨ x0 > x1 ¬®¦¥â ¢®§­¨ª­ãâì ª®£¤  ®¡¥ ª®®à¤¨­ âë x0, x1 ­ å®¤¨«¨áì §  ®¤­¨¬ ¨§ ¯à¥¤¥«®¢ ¡ãä¥à 
 
		cmp buf2d_bits,24
		je .beg24
			;à¨á®¢ ­¨¥ ¢ 8 ¡¨â­®¬ ¡ãä¥à¥
			;¢ edx ¢ëç¨á«ï¥¬ ­ ç «® 1-© â®çª¨ «¨­¨¨ ¢ ¡ãä¥à¥ ¨§®¡à ¦¥­¨ï
			mov edx,buf2d_w ;size x
			imul edx,ecx ;size_x*y
			add edx,ebx	 ;size_x*y+x
			add edx,buf2d_data ;ptr+(size_x*y+x)
			mov edi,edx ;â¥¯¥àì ¬®¦¥¬ ¯®àâ¨âì ãª § â¥«ì ­  ¡ãä¥à
 
			mov ecx,esi
			sub ecx,ebx ;¢ ecx ª®««¨ç¥áâ¢® â®ç¥ª «¨­¨¨ ¢ë¢®¤¨¬ëå ¢ ¡ãä¥à
			inc ecx ;çâ®-¡ë ¯®á«¥¤­ïï â®çª  «¨­¨¨ â ª¦¥ ®â®¡à ¦ « áì
			mov eax,dword[color] ;¡ã¤¥¬ ¨á¯®«ì§®¢ âì â®«ìª® §­ ç¥­¨¥ ¢ al
			cld
			rep stosb ;æ¨ª« ¯® ®á¨ x ®â x0 ¤® x1 (¢ª«îç ï x1)
			jmp .end24
 
		.beg24: ;à¨á®¢ ­¨¥ ¢ 24 ¡¨â­®¬ ¡ãä¥à¥
		;¢ eax ¢ëç¨á«ï¥¬ ­ ç «® 1-© â®çª¨ «¨­¨¨ ¢ ¡ãä¥à¥ ¨§®¡à ¦¥­¨ï
		mov eax,buf2d_w ;size x
		imul eax,ecx ;size_x*y
		add eax,ebx	 ;size_x*y+x
		lea eax,[eax+eax*2] ;(size_x*y+x)*3
		add eax,buf2d_data  ;ptr+(size_x*y+x)*3
 
		mov ecx,esi
		sub ecx,ebx ;¢ ecx ª®««¨ç¥áâ¢® â®ç¥ª «¨­¨¨ ¢ë¢®¤¨¬ëå ¢ ¡ãä¥à
		inc ecx ;çâ®-¡ë ¯®á«¥¤­ïï â®çª  «¨­¨¨ â ª¦¥ ®â®¡à ¦ « áì
		mov edx,dword[color]
		mov ebx,edx ;ª®®à¤¨­ â  x0 ¢ ebx ã¦¥ ­¥ ­ã¦­ 
		ror edx,16 ;¯®¢®à ç¨¢ ¥¬ à¥£¨áâà çâ® ¡ë 3-© ¡ ©â ¯®¯ « ¢ dl
		cld
		@@: ;æ¨ª« ¯® ®á¨ x ®â x0 ¤® x1 (¢ª«îç ï x1)
			mov word[eax],bx ;copy pixel color
			mov byte[eax+2],dl
			add eax,3
			loop @b
		.end24:
	popfd
	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,8
	je @f
	cmp buf2d_bits,24
	je @f
		jmp .coord_end
	@@:
 
		mov eax,[coord_x]
		mov ebx,[coord_y]
		mov ecx,[w]
		;cmp ecx,1
		;jl .coord_end
		cmp ecx,0
		je .coord_end
		jg @f
			add eax,ecx
			inc eax
			neg ecx
		@@:
		add ecx,eax
		dec ecx
		mov edx,[h]
		;cmp edx,1
		;jl .coord_end
		cmp edx,0
		je .coord_end
		jg @f
			add ebx,edx
			inc ebx
			neg edx
		@@:
 
		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,8
	je @f
	cmp buf2d_bits,24
	je @f
		jmp .coord_end
	@@:
		mov eax,[coord_x]
		mov ebx,[coord_y]
		mov edx,[w]
		cmp edx,0
		je .coord_end ;¥á«¨ ¢ëá®â  0 ¯¨ªá¥«¥©
		jg @f ;¥á«¨ ¢ëá®â  ¯®«®¦¨â¥«ì­ ï
			add eax,edx
			inc eax
			neg edx ;è¨à¨­ã ¤¥« ¥¬ ¯®«®¦¨â¥«ì­®©
			;inc edx ;¯®ç¥¬ã âãâ ­¥ ¤®¡ ¢«ï¥¬ 1-æã ï ­¥ §­ î, ­® á ­¥© à ¡®â ¥â ­¥ ¯à ¢¨«ì­®
		@@:
		add edx,eax
		dec edx
		mov ecx,[h]
		cmp ecx,0
		je .coord_end ;¥á«¨ ¢ëá®â  0 ¯¨ªá¥«¥©
		jg @f ;¥á«¨ ¢ëá®â  ¯®«®¦¨â¥«ì­ ï
			add ebx,ecx ;á¤¢¨£ ¥¬ ¢¥àå­îî ª®®à¤¨­ âã ¯àï¬®ã£®«ì­¨ª 
			inc ebx
			neg ecx ;¢ëá®âã ¤¥« ¥¬ ¯®«®¦¨â¥«ì­®©
			;inc ecx ;¯®ç¥¬ã âãâ ­¥ ¤®¡ ¢«ï¥¬ 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,8
	je @f
	cmp buf2d_bits,24
	je @f
		jmp .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_n8_24b
	.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_set_pixel, buf_struc:dword, coord_x:dword, coord_y:dword, color:dword
	pushad
		mov edi,[buf_struc]
		cmp buf2d_bits,8
		je @f
		cmp buf2d_bits,24
		je @f
			jmp .end24
		@@:
			mov ebx,dword[coord_x]
			mov ecx,dword[coord_y]
			mov edx,dword[color]
			call draw_pixel
		.end24:
	popad
	ret
endp
 
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,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
			;inc 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 [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
 
		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
			;inc 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
		;inc ecx
		cmp eax,ecx ;eax - è¨à¨­  ª®¯¨àã¥¬®© ª àâ¨­ª¨
		jle .copy_end ;¥á«¨ ª®¯¨àã¥¬®¥ ¨§®¡à ¦¥­¨¥ ­ å®¤¨âáï ¯®«­®áâìî §  «¥¢®© £à ­¨æ¥© ¡ãä¥à  (coord_x<0 ¨ |coord_x|>buf_source.w)
		add [lost_bytes],ecx
		sub eax,ecx ;ãª®à ç¨¢ ¥¬ ª®¯¨àã¥¬ãî áâà®ªã
		add ebx,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
 
;¯à¥®¡à §®¢ ­¨¥ 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
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_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 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_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
;>
>
>
>
>
>
>
>

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

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/buf2d/trunk/buf2d.asm – Rev 2367 → 2383