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

vox_offs_tree_table equ 4

vox_offs_data equ 12

;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

		cmp buf2d_bits,32

		je .beg32

			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

			jmp .end_draw

		.beg32: ;à¨á®¢ ­¨¥ â®çª¨ ¢ 32 ¡¨â­®¬ ¡ãä¥à¥

			shl esi,2

			add esi,buf2d_data  ;ptr+(size_x*y+x)

			mov dword[esi],edx

		.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_8:

	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

		add esi,buf2d_data  ;ptr+(size_x*y+x)

		movzx eax,byte[esi] ;copy pixel color

	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

; edi = pointer to buffer struct

;output:

; eax = 梥â â®çª¨

; ¢ á«ãç ¥ ®è¨¡ª¨ eax = 0xffffffff

align 4

get_pixel_32:

	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

		shl esi,2

		add esi,buf2d_data  ;ptr+(size_x*y+x)*4

		mov eax,dword[esi] ;copy pixel color

	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_0

	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);

		@@: