Subversion Repositories Kolibri OS

format MS COFF

public EXPORTS

section '.flat' code readable align 16

include '../../../../macros.inc'

include '../../../../proc32.inc'

;-----------------------------------------------------------------------------

mem.alloc   dd ? ;äã­ªæ¨ï ¤«ï ¢ë¤¥«¥­¨ï ¯ ¬ïâ¨

mem.free    dd ? ;äã­ªæ¨ï ¤«ï ®á¢®¡®¦¤¥­¨ï ¯ ¬ïâ¨

mem.realloc dd ? ;äã­ªæ¨ï ¤«ï ¯¥à¥à á¯à¥¤¥«¥­¨ï ¯ ¬ïâ¨

dll.load    dd ?

BUF_STRUCT_SIZE equ 21

buf2d_data equ dword[edi] ;¤ ­­ë¥ ¡ãä¥à  ¨§®¡à ¦¥­¨ï

buf2d_w equ dword[edi+8] ;è¨à¨­  ¡ãä¥à 

buf2d_h equ dword[edi+12] ;¢ëá®â  ¡ãä¥à 

buf2d_l equ word[edi+4]

buf2d_t equ word[edi+6] ;®âáâ㯠ᢥàåã

buf2d_size_lt equ dword[edi+4] ;®âáâ㯠᫥¢  ¨ á¯à ¢  ¤«ï ¡ãä¥à 

buf2d_color equ dword[edi+16] ;梥â ä®­  ¡ãä¥à 

buf2d_bits equ byte[edi+20] ;ª®«¨ç¥á⢮ ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥­¨ï

struct buf_2d_header

	img_data dd ?

	left dw ? ;+4 left

	top dw ? ;+6 top

	size_x dd ? ;+8 w

	size_y dd ? ;+12 h

	color dd ? ;+16 color

	bit_pp db ? ;+21 bit in pixel

ends

macro swap v1, v2 {

  push v1

  push v2

  pop v1

  pop v2

}

;ä« £¨, ¤«ï ä㭪樨 ®¡à¥§ ­¨ï ¡ãä¥à 

BUF2D_OPT_CROP_TOP equ 1 ;®¡à¥§ª  ᢥàåã

BUF2D_OPT_CROP_LEFT equ 2 ;®¡à¥§ª  á«¥¢ 

BUF2D_OPT_CROP_BOTTOM equ 4 ;®¡à¥§ª  á­¨§ã

BUF2D_OPT_CROP_RIGHT equ 8 ;®¡à¥§ª  á¯à ¢ 

BUF2D_BIT_OPT_CROP_TOP equ 0

BUF2D_BIT_OPT_CROP_LEFT equ 1

BUF2D_BIT_OPT_CROP_BOTTOM equ 2

BUF2D_BIT_OPT_CROP_RIGHT equ 3

;input:

; eax = 㪠§ â¥«ì ­  äã­ªæ¨î ¢ë¤¥«¥­¨ï ¯ ¬ïâ¨

; ebx = ... ®á¢®¡®¦¤¥­¨ï ¯ ¬ïâ¨

; ecx = ... ¯¥à¥à á¯à¥¤¥«¥­¨ï ¯ ¬ïâ¨

; edx = ... § £à㧪¨ ¡¨¡«¨®â¥ª¨ (¯®ª  ­¥ ¨á¯®«ì§ã¥âáï)

align 16

lib_init:

	mov dword[mem.alloc], eax

	mov dword[mem.free], ebx

	mov dword[mem.realloc], ecx

	mov dword[dll.load], edx

	ret

include 'fun_draw.inc' ;ä㭪樨 à¨á®¢ ­¨ï ¢ ¡ãä¥à¥

;ᮧ¤ ­¨¥ ¡ãä¥à 

align 4

proc buf_create, buf_struc:dword

	pushad

	mov edi,dword[buf_struc]

	mov ecx,buf2d_w

	mov ebx,buf2d_h

	imul ecx,ebx

	cmp buf2d_bits,24

	jne @f

		lea ecx,[ecx+ecx*2] ; 24 bit = 3

		;;;inc ecx ;§ ¯ á­®© ¡ ©â ¢ ª®­æ¥ ¡ãä¥à , çâ®-¡ë ­¥ £«î稫¨ ­¥ª®â®àë¥ ä㭪樨 ­  ¨§®¡à ¦¥­¨ïå ªà â­ëå 4Š

	@@:

	cmp buf2d_bits,32

	jne @f

		shl ecx,2 ; 32 bit = 4

	@@:

	invoke mem.alloc,ecx

	mov buf2d_data,eax

	stdcall buf_clear,edi,buf2d_color ;®ç¨á⪠ ¡ãä¥à  ä®­®¢ë¬ 梥⮬

	popad

	ret

endp

;ᮧ¤ ­¨¥ ¡ãä¥à  ­  ®á­®¢¥ ¨§®¡à ¦¥­¨ï rgb

align 4

proc buf_create_f_img, buf_struc:dword, rgb_data:dword

	pushad

	mov edi,dword[buf_struc]

	mov ecx,buf2d_w

	cmp ecx,1

	jl .error

	mov ebx,buf2d_h

	cmp ebx,1

	jl .error

	imul ecx,ebx

	cmp buf2d_bits,24

	jne @f

		lea ecx,[ecx+ecx*2] ; 24 bit = 3

	@@:

	cmp buf2d_bits,32

	jne @f

		shl ecx,2 ; 32 bit = 4

	@@:

	invoke mem.alloc,ecx

	mov buf2d_data,eax

	cmp buf2d_bits,24

	jne @f

		cld

		mov esi,[rgb_data]

		or esi,esi

		jz @f

		mov edi,eax ;eax=buf2d_data

		rep movsb ;ª®¯¨à㥬 ¡¨âë ¨§®¡à ¦¥­¨ï ¢ ¡ãä¥à

		jmp .end_create

	@@:

		stdcall buf_clear,edi,buf2d_color ;®ç¨á⪠ ¡ãä¥à  ä®­®¢ë¬ 梥⮬

		jmp .end_create

	.error:

		stdcall print_err,sz_buf2d_create_f_img,txt_err_size_0

	.end_create:

	popad

	ret

endp

;äã­ªæ¨ï ¤«ï ®¡à¥§ ­¨ï ¡ãä¥à®¢ 8 ¨ 24 ¡¨â­ëå, ¯® § ¤ ­®¬ã 梥âã.

;¯ à ¬¥âà opt § ¤ ¥âáï ª®¬¡¨­ æ¨¥© ª®­áâ ­â:

; BUF2D_OPT_CROP_TOP - ®¡à¥§ª  ᢥàåã

; BUF2D_OPT_CROP_LEFT - ®¡à¥§ª  á«¥¢ 

; BUF2D_OPT_CROP_BOTTOM - ®¡à¥§ª  á­¨§ã

; BUF2D_OPT_CROP_RIGHT - ®¡à¥§ª  á¯à ¢ 

align 4

proc buf_crop_color, buf_struc:dword, color:dword, opt:dword

locals

	crop_r dd ?

endl

	pushad

	mov edi,dword[buf_struc]

	cmp buf2d_bits,24

	jne .24end_f

	bt dword[opt],BUF2D_BIT_OPT_CROP_BOTTOM

	jae .24no_crop_bottom

		mov eax,dword[color]

		mov edx,eax ;ax = colors - r,g

		shr edx,16 ;dl = color - b

		mov ecx,buf2d_h

		cmp ecx,1

		jle .24no_crop_bottom ;¯à®¢¥à塞 ­  á«ãç © ¥á«¨ ¢ëá®â  ¡ãä¥à  1 ¯¨ªá¥«ì

		mov ebx,buf2d_w

		imul ecx,ebx

		lea esi,[ecx+ecx*2] ;esi=3*ecx

		add esi,buf2d_data

		cld

		@@:

			sub esi,3

			cmp word[esi],ax

			jne @f

			cmp byte[esi+2],dl

			jne @f

			loop @b

		@@:

		lea ebx,[ebx+ebx*2]

		xor edx,edx

		mov eax,buf2d_h

		imul eax,ebx

		add eax,buf2d_data ;eax - 㪠§ â¥«ì ­  ª®­¥æ ¡ãä¥à  ¨§®¡à ¦¥­¨ï

		@@:

			add esi,ebx

			cmp esi,eax

			jge @f

			inc edx ;¢ëç¨á«ï¥¬ ç¨á«® ¯®«­ëå áâப ¤«ï ®¡à¥§ ­¨ï

			loop @b

		@@:

		cmp edx,0

		je .24no_crop_bottom

			cmp edx,buf2d_h

			jge .24no_crop_bottom ;çâ®-¡ë ­¥ ¯®«ãç¨âì ¯ãá⮩ ¡ãä¥à

			sub buf2d_h,edx ;㬥­ìè ¥¬ ¢ëá®âã ¡ãä¥à 

			mov ecx,buf2d_h

			imul ecx,ebx ;ecx = ­®¢ë© à §¬¥à ¨§®¡à ¦¥­¨ï

			invoke mem.realloc,buf2d_data,ecx

			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï 㪠§ â¥«ì ­  ¤ ­­ë¥

	.24no_crop_bottom:

	bt dword[opt],BUF2D_BIT_OPT_CROP_TOP

	jae .24no_crop_top

		mov eax,dword[color]

		mov edx,eax ;ax = colors - r,g

		shr edx,16 ;dl = color - b

		mov esi,buf2d_data

		mov ecx,buf2d_h

		cmp ecx,1

		jle .24no_crop_top ;¯à®¢¥à塞 ­  á«ãç © ¥á«¨ ¢ëá®â  ¡ãä¥à  1 ¯¨ªá¥«ì

		dec ecx ;¯à¨ ®¡à¥§ ­¨¨ ¤®«¦­  ®áâ âìáï ¬¨­¨¬ã¬ 1-­  áâப  ¯¨ªá¥«¥©

		mov ebx,buf2d_w

		imul ecx,ebx

		cld

		@@:

			cmp word[esi],ax

			jne @f

			cmp byte[esi+2],dl

			jne @f

			add esi,3

			loop @b

		@@:

		lea ebx,[ebx+ebx*2]

		xor edx,edx

		@@:

			sub esi,ebx

			cmp esi,buf2d_data

			jl @f

			inc edx ;¢ëç¨á«ï¥¬ ç¨á«® ¯®«­ëå áâப ¤«ï ®¡à¥§ ­¨ï

			loop @b

		@@:

		cmp edx,0

		je .24no_crop_top

			xor eax,eax

			sub eax,edx

			mov ebx,buf2d_h

			sub ebx,edx

			stdcall buf_offset_h, edi, eax, edx, ebx ;ᤢ¨£ ¥¬ ¨§®¡à ¦¥­¨¥ ¢ ¡ãä¥à¥ ¢¢¥àå (eax<0)

			sub buf2d_h,edx ;㬥­ìè ¥¬ ¢ëá®âã ¡ãä¥à 

			mov ecx,buf2d_h

			add buf2d_t,dx ;ᤢ¨£ ¥¬ ®âáâ㯠¢­¨§, ­  ç¨á«® ®¡à¥§ ­­ëå áâப

			mov ebx,buf2d_w

			imul ecx,ebx

			lea ecx,[ecx+ecx*2]

			invoke mem.realloc,buf2d_data,ecx

			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï 㪠§ â¥«ì ­  ¤ ­­ë¥

	.24no_crop_top:

	bt dword[opt],BUF2D_BIT_OPT_CROP_RIGHT

	jae .24no_crop_right

		mov eax,dword[color]

		mov edx,eax ;ax = colors - r,g

		shr edx,16 ;dl = color - b

		mov ebx,buf2d_w

		cmp ebx,1

		jle .24no_crop_right ;­  á«ãç © ¥á«¨ è¨à¨­  ¡ãä¥à  1 ¯¨ªá¥«ì

		lea ebx,[ebx+ebx*2]

		mov esi,ebx

		imul esi,buf2d_h

		add esi,buf2d_data ;esi - 㪠§ â¥«ì ­  ª®­¥æ ¡ãä¥à  ¨§®¡à ¦¥­¨ï

		mov dword[crop_r],0

		cld

		.24found_beg_right:

		sub esi,3 ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢«¥¢®

		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® 横« 

		@@:

			cmp word[esi],ax

			jne .24found_right

			cmp byte[esi+2],dl

			jne .24found_right

			sub esi,ebx ;¯à룠¥¬ ­  ¢¥àå­îî áâபã

			loop @b

		inc dword[crop_r]

		mov ecx,buf2d_w

		dec ecx ;1 ª®«®­ª  ­  § ¯ á

		cmp dword[crop_r],ecx

		jge .24found_right

		sub esi,3 ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢«¥¢®

		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® 横« 

		@@:

			add esi,ebx ;¯à룠¥¬ ­  ­¨¦­îî áâபã

			cmp word[esi],ax

			jne .24found_right

			cmp byte[esi+2],dl

			jne .24found_right

			loop @b

		inc dword[crop_r]

		mov ecx,buf2d_w

		dec ecx ;1 ª®«®­ª  ­  § ¯ á

		cmp dword[crop_r],ecx

		jl .24found_beg_right

		.24found_right:

		cmp dword[crop_r],0

		je .24no_crop_right

			mov ecx,buf2d_w

			sub ecx,dword[crop_r]

			stdcall img_rgb_crop_r, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ­®¢®¬ã à §¬¥àã

			mov buf2d_w,ecx ;áâ ¢¨¬ ­®¢ãî è¨à¨­ã ¤«ï ¡ãä¥à 

			mov ebx,buf2d_h

			imul ecx,ebx

			lea ecx,[ecx+ecx*2]

			invoke mem.realloc,buf2d_data,ecx

			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï 㪠§ â¥«ì ­  ¤ ­­ë¥

	.24no_crop_right:

	bt dword[opt],BUF2D_BIT_OPT_CROP_LEFT

	jae .24no_crop_left

		mov eax,dword[color]

		mov edx,eax ;ax = colors - r,g

		shr edx,16 ;dl = color - b

		mov ebx,buf2d_w

		cmp ebx,1

		jle .24no_crop_left ;­  á«ãç © ¥á«¨ è¨à¨­  ¡ãä¥à  1 ¯¨ªá¥«ì

		lea ebx,[ebx+ebx*2]

		mov esi,buf2d_data ;esi - 㪠§ â¥«ì ­  ­ ç®«® ¡ãä¥à  ¨§®¡à ¦¥­¨ï

		mov dword[crop_r],0

		cld

		.24found_beg_left:

		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® 横« 

		@@:

			cmp word[esi],ax

			jne .24found_left

			cmp byte[esi+2],dl

			jne .24found_left

			add esi,ebx ;¯à룠¥¬ ­  ­¨¦­îî áâபã

			loop @b

		inc dword[crop_r]

		add esi,3 ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢¯à ¢®

		mov ecx,buf2d_w

		dec ecx ;1 ª®«®­ª  ­  § ¯ á

		cmp dword[crop_r],ecx

		jge .24found_left

		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® 横« 

		@@:

			sub esi,ebx ;¯à룠¥¬ ­  ¢¥àå­îî áâபã

			cmp word[esi],ax

			jne .24found_left

			cmp byte[esi+2],dl

			jne .24found_left

			loop @b

		inc dword[crop_r]

		add esi,3 ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢¯à ¢®

		mov ecx,buf2d_w

		dec ecx ;1 ª®«®­ª  ­  § ¯ á

		cmp dword[crop_r],ecx

		jl .24found_beg_left

		.24found_left:

		cmp dword[crop_r],0

		je .24no_crop_left

			mov ecx,buf2d_w

			sub ecx,dword[crop_r]

			stdcall img_rgb_crop_l, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ­®¢®¬ã à §¬¥àã

			mov buf2d_w,ecx ;áâ ¢¨¬ ­®¢ãî è¨à¨­ã ¤«ï ¡ãä¥à 

			mov ebx,buf2d_h

			imul ecx,ebx

			lea ecx,[ecx+ecx*2]

			invoke mem.realloc,buf2d_data,ecx

			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï 㪠§ â¥«ì ­  ¤ ­­ë¥

			mov eax,dword[crop_r]

			add buf2d_l,ax

	.24no_crop_left:

	.24end_f:

	cmp buf2d_bits,8

	jne .8end_f

	bt dword[opt],BUF2D_BIT_OPT_CROP_BOTTOM

	jae .8no_crop_bottom

		mov eax,dword[color]

		mov esi,buf2d_data

		mov ecx,buf2d_h

		cmp ecx,1

		jle .8no_crop_bottom ;¯à®¢¥à塞 ­  á«ãç © ¥á«¨ ¢ëá®â  ¡ãä¥à  1 ¯¨ªá¥«ì

		mov ebx,buf2d_w

		imul ecx,ebx

		mov esi,ecx

		add esi,buf2d_data

		cld

		@@:

			dec esi

			cmp byte[esi],al

			jne @f

			loop @b

		@@:

		xor edx,edx

		mov eax,buf2d_h

		imul eax,ebx

		add eax,buf2d_data ;eax - 㪠§ â¥«ì ­  ª®­¥æ ¡ãä¥à  ¨§®¡à ¦¥­¨ï

		@@:

			add esi,ebx

			cmp esi,eax

			jge @f

			inc edx

			loop @b

		@@:

		cmp edx,0

		je .8no_crop_bottom

			cmp edx,buf2d_h

			jge .8no_crop_bottom ;çâ®-¡ë ­¥ ¯®«ãç¨âì ¯ãá⮩ ¡ãä¥à

			sub buf2d_h,edx ;㬥­ìè ¥¬ ¢ëá®âã ¡ãä¥à 

			mov ecx,buf2d_h

			imul ecx,ebx ;ecx = ­®¢ë© à §¬¥à ¨§®¡à ¦¥­¨ï

			invoke mem.realloc,buf2d_data,ecx

			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï 㪠§ â¥«ì ­  ¤ ­­ë¥

	.8no_crop_bottom:

	bt dword[opt],BUF2D_BIT_OPT_CROP_TOP

	jae .8no_crop_top

		mov eax,dword[color]

		mov esi,buf2d_data

		mov ecx,buf2d_h

		cmp ecx,1

		jle .8no_crop_top ;¯à®¢¥à塞 ­  á«ãç © ¥á«¨ ¢ëá®â  ¡ãä¥à  1 ¯¨ªá¥«ì

		dec ecx ;¯à¨ ®¡à¥§ ­¨¨ ¤®«¦­  ®áâ âìáï ¬¨­¨¬ã¬ 1-­  áâப  ¯¨ªá¥«¥©

		mov ebx,buf2d_w

		imul ecx,ebx

		cld

		@@:

			cmp byte[esi],al

			jne @f

			inc esi

			loop @b

		@@:

		xor edx,edx

		@@:

			sub esi,ebx

			cmp esi,buf2d_data

			jl @f

			inc edx

			loop @b

		@@:

		cmp edx,0

		je .8no_crop_top

			xor eax,eax

			sub eax,edx

			mov ebx,buf2d_h

			sub ebx,edx

			stdcall buf_offset_h, edi, eax, edx, ebx

			mov ecx,buf2d_h

			sub ecx,edx

			mov buf2d_h,ecx ;㬥­ìè ¥¬ ¢ëá®âã ¡ãä¥à 

			add buf2d_t,dx ;ᤢ¨£ ¥¬ ®âáâ㯠¢­¨§, ­  ç¨á«® ®¡à¥§ ­­ëå áâப

			mov ebx,buf2d_w

			imul ecx,ebx

			invoke mem.realloc,buf2d_data,ecx

			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï 㪠§ â¥«ì ­  ¤ ­­ë¥

	.8no_crop_top:

	bt dword[opt],BUF2D_BIT_OPT_CROP_RIGHT

	jae .8no_crop_right

		mov eax,dword[color]

		mov ebx,buf2d_w

		cmp ebx,1

		jle .8no_crop_right ;­  á«ãç © ¥á«¨ è¨à¨­  ¡ãä¥à  1 ¯¨ªá¥«ì

		mov esi,ebx

		imul esi,buf2d_h

		add esi,buf2d_data ;esi - 㪠§ â¥«ì ­  ª®­¥æ ¡ãä¥à  ¨§®¡à ¦¥­¨ï

		xor edx,edx

		cld

		.8found_beg:

		dec esi ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢«¥¢®

		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® 横« 

		@@:

			cmp byte[esi],al

			jne .8found

			sub esi,ebx ;¯à룠¥¬ ­  ¢¥àå­îî áâபã

			loop @b

		inc edx

		mov ecx,buf2d_w

		dec ecx ;1 ª®«®­ª  ­  § ¯ á

		cmp edx,ecx

		jge .8found

		dec esi ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢«¥¢®

		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® 横« 

		@@:

			add esi,ebx ;¯à룠¥¬ ­  ­¨¦­îî áâபã

			cmp byte[esi],al

			jne .8found

			loop @b

		inc edx

		mov ecx,buf2d_w

		dec ecx ;1 ª®«®­ª  ­  § ¯ á

		cmp edx,ecx

		jl .8found_beg

		.8found:

		cmp edx,0

		je .8no_crop_right

			mov ecx,buf2d_w

			sub ecx,edx

			stdcall img_gray_crop_r, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ­®¢®¬ã à §¬¥àã

			mov buf2d_w,ecx ;áâ ¢¨¬ ­®¢ãî è¨à¨­ã ¤«ï ¡ãä¥à 

			mov ebx,buf2d_h

			imul ecx,ebx

			invoke mem.realloc,buf2d_data,ecx

			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï 㪠§ â¥«ì ­  ¤ ­­ë¥

	.8no_crop_right:

	bt dword[opt],BUF2D_BIT_OPT_CROP_LEFT

	jae .8no_crop_left

		mov eax,dword[color]

		mov ebx,buf2d_w

		cmp ebx,1

		jle .8no_crop_left ;­  á«ãç © ¥á«¨ è¨à¨­  ¡ãä¥à  1 ¯¨ªá¥«ì

		mov esi,buf2d_data ;esi - 㪠§ â¥«ì ­  ­ ç®«® ¡ãä¥à  ¨§®¡à ¦¥­¨ï

		mov edx,0

		cld

		.8found_beg_left:

		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® 横« 

		@@:

			cmp word[esi],ax

			jne .8found_left

			add esi,ebx ;¯à룠¥¬ ­  ­¨¦­îî áâபã

			loop @b

		inc edx

		inc esi ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢¯à ¢®

		mov ecx,buf2d_w

		dec ecx ;1 ª®«®­ª  ­  § ¯ á

		cmp edx,ecx

		jge .8found_left

		mov ecx,buf2d_h ;¢®ááâ ­®¢«¥­¨¥ ecx ¤«ï ­®¢®£® 横« 

		@@:

			sub esi,ebx ;¯à룠¥¬ ­  ¢¥àå­îî áâபã

			cmp word[esi],ax

			jne .8found_left

			loop @b

		inc edx

		inc esi ;¤¢¨£ ¥¬áï ­  1-­ã ª®«®­ªã ¢¯à ¢®

		mov ecx,buf2d_w

		dec ecx ;1 ª®«®­ª  ­  § ¯ á

		cmp edx,ecx

		jl .8found_beg_left

		.8found_left:

		cmp edx,0

		je .8no_crop_left

			mov ecx,buf2d_w

			sub ecx,edx

			stdcall img_gray_crop_l, buf2d_data, buf2d_w, ecx, buf2d_h ;®¡à¥§ ¥¬ ¡ãä¥à, ¯® ­®¢®¬ã à §¬¥àã

			mov buf2d_w,ecx ;áâ ¢¨¬ ­®¢ãî è¨à¨­ã ¤«ï ¡ãä¥à 

			mov ebx,buf2d_h

			imul ecx,ebx

			invoke mem.realloc,buf2d_data,ecx

			mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï 㪠§ â¥«ì ­  ¤ ­­ë¥

			mov eax,edx

			add buf2d_l,ax

	.8no_crop_left:

	.8end_f:

	popad

	ret

endp

;®¡à¥§ ¥¬ 梥⭮¥ ¨§®¡à ¦¥­¨¥ á ¯à ¢®© áâ®à®­ë

;input:

;data_rgb - pointer to rgb data

;size_w_old - width img in pixels

;size_w_new - new width img in pixels

;size_h - height img in pixels

align 4

proc img_rgb_crop_r, data_rgb:dword, size_w_old:dword, size_w_new:dword, size_h:dword

	pushad

	mov eax, dword[size_w_old]

	lea eax, dword[eax+eax*2] ;eax = width(old) * 3(rgb)

	mov ebx, dword[size_w_new]

	lea ebx, dword[ebx+ebx*2] ;ebx = width(new) * 3(rgb)

	mov edx, dword[size_h]

	mov edi, dword[data_rgb] ;edi - ¯®«ã砥⠤ ­­ë¥

	mov esi, edi

	add edi, ebx

	add esi, eax

	cld

	@@:

		dec edx ;㬥­ìè ¥¬ áç¥â稪 ®áâ ¢è¨åáï áâப ­  1

		cmp edx,0

		jle @f

		mov ecx, ebx

		rep movsb ;¯¥à¥­®á (ª®¯¨à®¢ ­¨¥) áâப¨ ¯¨ªá¥«¥©

		add esi,eax ;¯¥à¥å®¤ ­  ­®¢ãî áâà®çªã ¨§®¡à ¦¥­¨ï

		sub esi,ebx

		jmp @b

	@@:

	popad

	ret

endp

;®¡à¥§ ¥¬ á¥à®¥ ¨§®¡à ¦¥­¨¥ á ¯à ¢®© áâ®à®­ë

;input:

;data_gray - pointer to gray data

;size_w_old - width img in pixels

;size_w_new - new width img in pixels

;size_h - height img in pixels

align 4

proc img_gray_crop_r, data_gray:dword, size_w_old:dword, size_w_new:dword, size_h:dword

	pushad

	mov eax, dword[size_w_old]

	mov ebx, dword[size_w_new]

	mov edx, dword[size_h]

	mov edi, dword[data_gray] ;edi - ¯®«ã砥⠤ ­­ë¥

	mov esi, edi

	add edi, ebx

	add esi, eax

	cld

	@@:

		dec edx ;㬥­ìè ¥¬ áç¥â稪 ®áâ ¢è¨åáï áâப ­  1

		cmp edx,0

		jle @f

		mov ecx, ebx

		rep movsb ;¯¥à¥­®á (ª®¯¨à®¢ ­¨¥) áâப¨ ¯¨ªá¥«¥©

		add esi,eax ;¯¥à¥å®¤ ­  ­®¢ãî áâà®çªã ¨§®¡à ¦¥­¨ï

		sub esi,ebx

		jmp @b

	@@:

	popad

	ret

endp

;®¡à¥§ ¥¬ 梥⭮¥ ¨§®¡à ¦¥­¨¥ á «¥¢®© áâ®à®­ë

;input:

;data_rgb - pointer to rgb data

;size_w_old - width img in pixels

;size_w_new - new width img in pixels

;size_h - height img in pixels

align 4

proc img_rgb_crop_l, data_rgb:dword, size_w_old:dword, size_w_new:dword, size_h:dword

	pushad

	mov edi,dword[data_rgb]

	mov esi,edi

	mov eax,dword[size_w_old]

	mov ebx,dword[size_w_new]

	cmp eax,ebx

	jle .end_f ;áâ àë© à §¬¥à ¨§®¡à ¦¥­¨ï ­¥ ¬®¦¥â ¡ëâì ¬¥­ìè¥ ­®¢®£® (¯à¨ ãá«®¢¨¨ ®¡à¥§ ­¨ï ª à⨭ª¨)

		lea eax,[eax+eax*2]

		lea ebx,[ebx+ebx*2]

		sub eax,ebx

		mov edx,dword[size_h] ;¢ëá®â  ¨§®¡à ¦¥­¨ï

		cld

		@@:

			add esi,eax

			mov ecx,ebx

			rep movsb

			dec edx

			cmp edx,0

			jg @b

	.end_f:

	popad

	ret

endp

;®¡à¥§ ¥¬ á¥à®¥ ¨§®¡à ¦¥­¨¥ á «¥¢®© áâ®à®­ë

;input:

;data_gray - pointer to gray data

;size_w_old - width img in pixels

;size_w_new - new width img in pixels

;size_h - height img in pixels

align 4

proc img_gray_crop_l, data_gray:dword, size_w_old:dword, size_w_new:dword, size_h:dword

	pushad

	mov edi,dword[data_gray]

	mov esi,edi

	mov eax,dword[size_w_old]

	mov ebx,dword[size_w_new]

	cmp eax,ebx

	jle .end_f ;áâ àë© à §¬¥à ¨§®¡à ¦¥­¨ï ­¥ ¬®¦¥â ¡ëâì ¬¥­ìè¥ ­®¢®£® (¯à¨ ãá«®¢¨¨ ®¡à¥§ ­¨ï ª à⨭ª¨)

		sub eax,ebx

		mov edx,dword[size_h] ;¢ëá®â  ¨§®¡à ¦¥­¨ï

		cld

		@@:

			add esi,eax

			mov ecx,ebx

			rep movsb

			dec edx

			cmp edx,0

			jg @b

	.end_f:

	popad

	ret

endp

;hoffs - ª®««¨ç¥á⢮ ¯¨ªá¥«¥© ­  ª®âàë¥ ¯®¤­¨¬ ¥âáï/®¯ã᪠¥âáï ¨§®¡à ¦¥­¨¥

;img_t - ¢ëá®â , á ª®â®à®© ­ ç¨­ ¥âáï ¤¢¨£ îé ïáï ç áâì ¨§®¡à ¦¥­¨ï

align 4

proc buf_offset_h, buf_struc:dword, hoffs:dword, img_t:dword, img_h:dword ;ᤢ¨£ ¥â ¨§®¡à ¦¥­¨¥ ¯® ¢ëá®â¥

	pushad

	mov edi,dword[buf_struc]

	cmp buf2d_bits,24

	jne .end_move_24

	mov eax,[hoffs]

	cmp eax,0

	je .end_move_24

		mov ebx,buf2d_w

		mov edx,dword[img_t]

			mov ecx,dword[img_h] ;ecx - ¢ëá®â  ᤢ¨£ ¥¬ëå ¤ ­­ëå

			cmp ecx,buf2d_h

			jge .end_f ;®è¨¡®ç­®¥ ãá«®¢¨¥, ¢ëá®â  ¨§®¡à ¦¥­¨ï ¬¥­ìè¥ ç¥¬ ¢ëá®â  ᤢ¨£ ¥¬®£® ¨§®¡à ¦¥­¨ï

			imul ecx,ebx ;ecx - ª®««¨ç¥á⢮ ¯¨ªá¥«¥© ¢ ᤢ¨£ ¥¬ëå ¤ ­­ëå

			lea ecx,[ecx+ecx*2]

		imul ebx,edx

		lea ebx,[ebx+ebx*2]

		mov esi,buf2d_data

		add esi,ebx

		add edx,eax ;edx = img_t+hoffs (hoffs<0)

		mov ebx,buf2d_w

		imul ebx,edx

		lea ebx,[ebx+ebx*2]

		mov edi,buf2d_data ;¯®§¨æ¨ï, ªã¤  ¡ã¤¥â ¤¢¨£ âìáï ¨§®¡à ¦¥­¨¥

		add edi,ebx

		cmp eax,0

		jg .move_down_24

			;¤¢¨£ ¥¬ ¨§®¡à ¦¥­¨¥ ¢¢¥àå

			cld

			rep movsb

			jmp .end_f

		.move_down_24:

			;¤¢¨£ ¥¬ ¨§®¡à ¦¥­¨¥ ¢­¨§

			add esi,ecx

			dec esi

			add edi,ecx

			dec edi

			std

			rep movsb

			jmp .end_f

	.end_move_24:

;stdcall print_err,sz_buf2d_offset_h,txt_err_n24b

	cmp buf2d_bits,8

	jne .end_move_8

	mov eax,[hoffs]

	cmp eax,0

	je .end_move_8

		;¤¢¨£ ¥¬ ¨§®¡à ¦¥­¨¥ ¢¢¥àå

		mov ebx,buf2d_w

		mov edx,dword[img_t]

			mov ecx,dword[img_h] ;ecx - ¢ëá®â  ᤢ¨£ ¥¬ëå ¤ ­­ëå

			cmp ecx,buf2d_h

			jge .end_f ;®è¨¡®ç­®¥ ãá«®¢¨¥, ¢ëá®â  ¨§®¡à ¦¥­¨ï ¬¥­ìè¥ ç¥¬ ¢ëá®â  ᤢ¨£ ¥¬®£® ¨§®¡à ¦¥­¨ï

			imul ecx,ebx ;ecx - ª®««¨ç¥á⢮ ¯¨ªá¥«¥© ¢ ᤢ¨£ ¥¬ëå ¤ ­­ëå

		imul ebx,edx

		mov esi,buf2d_data

		add esi,ebx

		add edx,eax ;edx = img_t+hoffs (hoffs<0)

		mov ebx,buf2d_w

		imul ebx,edx

		mov edi,buf2d_data ;¯®§¨æ¨ï, ªã¤  ¡ã¤¥â ¤¢¨£ âìáï ¨§®¡à ¦¥­¨¥

		add edi,ebx

		cmp eax,0

		jg .move_down_8

			cld

			rep movsb

			jmp .end_f

		.move_down_8:

			;¤¢¨£ ¥¬ ¨§®¡à ¦¥­¨¥ ¢­¨§

			add esi,ecx

			dec esi

			add edi,ecx

			dec edi

			std

			rep movsb

			jmp .end_f

	.end_move_8:

	.end_f:

	popad

	ret

endp

align 4

proc buf_delete, buf_struc:dword

	push eax edi

	mov edi,dword[buf_struc]

	invoke mem.free,buf2d_data

	pop edi eax

	ret

endp

;input:

; new_w - ­®¢ ï è¨à¨­  (¥á«¨ 0 â® ­¥ ¬¥­ï¥âáï)

; new_h - ­®¢ ï ¢ëá®â  (¥á«¨ 0 â® ­¥ ¬¥­ï¥âáï)

; options - ¯ à ¬¥âàë ¨§¬¥­¥­¨ï ¡ãä¥à  (1 - ¨§¬¥­ïâì à §¬¥à ¡ãä¥à ,

;    2 - ¨§¬¥­ïâì ¨§®¡à ¦¥­¨¥ ¢ ¡ãä¥à¥, 3 - ¨§¬¥­ïâì ¡ãä¥à ¨ ¨§®¡à ¦¥­¨¥)

align 4

proc buf_resize, buf_struc:dword, new_w:dword, new_h:dword, options:dword

	pushad

	mov edi,dword[buf_struc]

	cmp buf2d_bits,8

	jne .8bit

		bt dword[options],1 ;ᦠ⨥ ¨§®¡à.

		jnc @f

			;...

		@@:

		bt dword[options],0 ;¨§¬¥­. ¡ãä¥à

		jnc .end_f

			;...

		jmp .end_f

	.8bit:

	cmp buf2d_bits,24

	jne .24bit

		bt dword[options],1 ;ᦠ⨥ ¨§®¡à.

		jnc .24_end_r

			mov eax,dword[new_w]

			cmp eax,1

			jl @f

			cmp eax,buf2d_w

			jge @f

				;ᦠ⨥ ¯® è¨à¨­¥

				stdcall img_rgb24_wresize, buf2d_data,buf2d_w,buf2d_h,eax

				jmp .24_r_h

			@@:

			mov eax,buf2d_w

			.24_r_h: ;eax - è¨à¨­  ¡ãä¥à  ¨«¨ è¨à¨­  ᦠ⮣® ¨§®¡à ¦¥­¨ï

			mov ebx,dword[new_h]

			cmp ebx,1

			jl @f

			cmp ebx,buf2d_h

			jge @f

				;ᦠ⨥ ¯® ¢ëá®â¥

				stdcall img_rgb24_hresize, buf2d_data,eax,buf2d_h,ebx

			@@:

		.24_end_r:

		bt dword[options],0 ;¨§¬¥­. ¡ãä¥à

		jnc .end_f

		mov eax,dword[new_w]

		cmp eax,1

		jl @f

			mov buf2d_w,eax

		@@:

		mov ecx,buf2d_w

		mov eax,dword[new_h]

		cmp eax,1

		jl @f

			mov buf2d_h,eax

		@@:

		mov ebx,buf2d_h

		imul ecx,ebx

		lea ecx,[ecx+ecx*2] ; 24 bit = 3

		invoke mem.realloc,buf2d_data,ecx ;¨§¬¥­ï¥¬ ¯ ¬ïâì § ­¨¬ ¥¬ãî ¡ãä¥à®¬

		mov buf2d_data,eax ;­  á«ãç © ¥á«¨ ¨§¬¥­¨«áï 㪠§ â¥«ì ­  ¤ ­­ë¥

	.24bit:

	.end_f:

	popad

	ret

endp

align 4

rot_table: ;â ¡«¨æ  ¤«ï 㪠§ ­¨ï ­  ¯®¤ä㭪樨 ¤«ï ¯®¢®à®â®¢

	dd buf_rotate.8b90,buf_rotate.24b90,buf_rotate.32b90,\

	buf_rotate.8b180,buf_rotate.24b180,buf_rotate.32b180

;¯®¢®à®â ¨§®¡à ¦¥­¨ï ­  90 ¨«¨ 180 £à ¤ãᮢ

align 4

proc buf_rotate, buf_struc:dword, angle:dword

locals

	n_data dd ?

	dec_h dd ? ;ç¨á«® ¡ ©â, ¤«ï 㬥­ì襭¨ï ª®®à¤¨­ âë y

endl

	pushad

	mov edi,[buf_struc]

	mov ebx,buf2d_w

	mov ecx,buf2d_h

	lea eax,[rot_table]

	cmp dword[angle],90 ;¯à®¢¥àª  㣫  ¯®¢®à®â 

	je .beg_0

	cmp dword[angle],180

	jne @f

		add eax,12

		jmp .beg_0

	@@:

	jmp .end_f

	.beg_0: ;¯à®¢¥àª  ¡¨â­®á⨠¡ãä¥à 

	cmp buf2d_bits,8

	jne @f

		jmp dword[eax]

	@@:

	cmp buf2d_bits,24

	jne @f

		add eax,4

		jmp dword[eax]

	@@:

	cmp buf2d_bits,32

	jne @f

		add eax,8

		jmp dword[eax]

	@@:

	jmp .end_f

	.8b90: ;¯®¢®à®â 8 ¡¨â­®£® ¡ãä¥à  ­  90 £à ¤ãᮢ

		mov edx,ecx ;edx - buf_h

		imul ecx,ebx

		invoke mem.alloc,ecx ;¢ë¤¥«ï¥¬ ¢à¥¬¥­­ãî ¯ ¬ïâì

		cmp eax,0

		je .end_f

		mov [n_data],eax

		mov [dec_h],ecx

		inc dword[dec_h]

		;copy buf --> mem

		mov edi,[buf_struc]

		mov esi,buf2d_data

		mov edi,eax ;[n_data]

		dec edx ;ª®à¥ªâ¨à㥬 edx ­  1 ¡ ©â, ¤«ï ª®¬¯¥­á æ¨¨ ᤢ¨£  ¢ movsb

		add edi,edx

		xor eax,eax

		cld

		.cycle_0:

			movsb

			add edi,edx

			inc eax

			cmp eax,ebx

			jl @f

				xor eax,eax

				sub edi,[dec_h]

			@@:

			loop .cycle_0

		;change buf_w <---> buf_h

		mov esi,[n_data]

		mov edi,[buf_struc]

		mov edi,buf2d_data

		mov ecx,ebx

		inc edx ;¨á¯à ¢«ï¥¬ ᪮४â¨à®¢ ­­ë© edx

		imul ecx,edx

		;copy buf <-- mem

		;cld

		rep movsb

		invoke mem.free,[n_data]

		jmp .change_w_h

	.24b90: ;¯®¢®à®â 24 ¡¨â­®£® ¡ãä¥à  ­  90 £à ¤ãᮢ

		mov esi,ecx

		imul esi,ebx

		lea ecx,[ecx+ecx*2]

		mov edx,ecx ;edx - buf_h * 3

		imul ecx,ebx

		invoke mem.alloc,ecx ;¢ë¤¥«ï¥¬ ¢à¥¬¥­­ãî ¯ ¬ïâì

		cmp eax,0

		je .end_f

		mov [n_data],eax

		mov [dec_h],ecx

		add dword[dec_h],3

		;copy buf --> mem

		mov edi,[buf_struc]

		mov ecx,esi

		mov esi,buf2d_data

		mov edi,eax ;[n_data]

		sub edx,3 ;ª®à¥ªâ¨à㥬 edx ­  3 ¡ ©â , ¤«ï ª®¬¯¥­á æ¨¨ ᤢ¨£ 

		add edi,edx

		xor eax,eax

		cld

		.cycle_1:

			movsw

			movsb

			add edi,edx

			inc eax

			cmp eax,ebx

			jl @f

				xor eax,eax

				sub edi,[dec_h]

			@@:

			loop .cycle_1

		;copy buf <-- mem

		mov esi,[n_data]

		mov edi,[buf_struc]

		mov edi,buf2d_data

		mov ecx,ebx

		add edx,3 ;¨á¯à ¢«ï¥¬ ᪮४â¨à®¢ ­­ë© edx

		imul ecx,edx

		;cld

		rep movsb

		invoke mem.free,[n_data]

		jmp .change_w_h

	.32b90: ;¯®¢®à®â 32 ¡¨â­®£® ¡ãä¥à  ­  90 £à ¤ãᮢ

		shl ecx,2

		mov edx,ecx ;edx - buf_h * 4

		imul ecx,ebx

		invoke mem.alloc,ecx ;¢ë¤¥«ï¥¬ ¢à¥¬¥­­ãî ¯ ¬ïâì

		cmp eax,0

		je .end_f

		mov [n_data],eax

		mov [dec_h],ecx

		add dword[dec_h],4

		;copy buf --> mem

		mov edi,[buf_struc]

		shr ecx,2

		mov esi,buf2d_data

		mov edi,eax ;[n_data]

		sub edx,4 ;ª®à¥ªâ¨à㥬 edx ­  4 ¡ ©â , ¤«ï ª®¬¯¥­á æ¨¨ ᤢ¨£  ¢ movsd

		add edi,edx

		xor eax,eax

		cld

		.cycle_2:

			movsd

			add edi,edx

			inc eax

			cmp eax,ebx

			jl @f

				xor eax,eax

				sub edi,[dec_h]

			@@:

			loop .cycle_2

		;copy buf <-- mem

		mov esi,[n_data]

		mov edi,[buf_struc]

		mov edi,buf2d_data

		mov ecx,ebx

		add edx,4 ;¨á¯à ¢«ï¥¬ ᪮४â¨à®¢ ­­ë© edx

		imul ecx,edx

		shr ecx,2

		;cld

		rep movsd

		invoke mem.free,[n_data]

		;jmp .change_w_h

	.change_w_h: ;change buf_w <---> buf_h

		mov edi,[buf_struc]

		mov eax,buf2d_w

		mov ebx,buf2d_h

		mov buf2d_h,eax

		mov buf2d_w,ebx

		jmp .end_f

	.8b180: ;¯®¢®à®â 8 ¡¨â­®£® ¡ãä¥à  ­  180 £à ¤ãᮢ

		mov edi,buf2d_data

		mov esi,edi

		imul ecx,ebx

		add esi,ecx

		dec esi

		shr ecx,1 ;ecx - ç¨á«® ¯¨ªá¥«¥© ¡ãä¥à  : 2

		std

		@@:

			lodsb

			mov ah,byte[edi]

			mov byte[esi+1],ah

			mov byte[edi],al

			inc edi

			loop @b

			jmp .end_f

	.24b180: ;¯®¢®à®â 24 ¡¨â­®£® ¡ãä¥à  ­  180 £à ¤ãᮢ

		mov esi,buf2d_data

		mov edi,esi

		imul ecx,ebx

		mov eax,ecx

		lea ecx,[ecx+ecx*2]

		add edi,ecx

		sub edi,3

		shr eax,1

		mov ecx,eax ;ecx - ç¨á«® ¯¨ªá¥«¥© ¡ãä¥à  : 2

		cld

		@@:

			lodsw

			mov edx,eax

			lodsb

			mov bx,word[edi]

			mov word[esi-3],bx

			mov bl,byte[edi+2]

			mov byte[esi-1],bl

			mov byte[edi+2],al

			mov word[edi],dx

			sub edi,3

			loop @b

			jmp .end_f

	.32b180: ;¯®¢®à®â 32 ¡¨â­®£® ¡ãä¥à  ­  180 £à ¤ãᮢ

		mov edi,buf2d_data

		mov esi,edi

		imul ecx,ebx

		shl ecx,2

		add esi,ecx

		sub esi,4

		shr ecx,3 ;ecx - ç¨á«® ¯¨ªá¥«¥© ¡ãä¥à  : 2

		std

		@@:

			lodsd

			mov ebx,dword[edi]

			mov dword[esi+4],ebx

			mov dword[edi],eax

			add edi,4

			loop @b

		;jmp .end_f

	.end_f:

	popad

	ret

endp

align 4

proc buf_flip_h, buf_struc:dword

pushad

	mov edi,[buf_struc]

	cmp buf2d_bits,24

	jne .end_24

		mov esi,buf2d_data

		mov eax,buf2d_w

		mov ecx,eax

		shr ecx,1

		dec eax

		lea eax,[eax+eax*2]

		mov ebx,buf2d_h

		mov edi,esi