Subversion Repositories Kolibri OS

;

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-© â®çª¥ ¨§®¡à ¦¥­¨ï

vox_offs_tree_table equ 4

vox_offs_data equ 12

;output:

; eax - (event shl 30) + position

align 4

proc get_mouse_ev_scale uses ebx ecx edx, h_br:dword, coord_x:dword, coord_y:dword, scale_obj:dword, scale_img:dword

	mov ecx,[scale_obj]

	stdcall [buf2d_vox_obj_get_img_h_3g], [h_br],ecx

	cmp eax,[coord_y]

	jle .test_x

	stdcall [buf2d_vox_obj_get_img_w_3g], [h_br],ecx

	cmp eax,[coord_x]

	jle .test_z

	.no_change:

	xor eax,eax

	jmp .end_f

	.test_x:

	mov ebx,[h_br]

	movzx ebx,byte[ebx+1]

	add eax,ebx

	cmp eax,[coord_y]

	jl .no_change

	stdcall [buf2d_vox_obj_get_img_w_3g], [h_br],ecx

	cmp eax,[coord_x]

	jl .no_change

	mov ebx,eax

	mov ecx,[scale_img]

	inc ecx

	shr ebx,cl

	xor edx,edx

	mov eax,[coord_x]

	div ebx

	dec ecx

	xor ebx,ebx

	inc ebx

	shl ebx,cl

	cmp eax,ebx

	jge @f

		or eax,1 shl 30

		jmp .end_f

	@@:

	sub eax,ebx

	or eax,2 shl 30

	jmp .end_f

	.test_z:

	mov ebx,[h_br]

	movzx ebx,byte[ebx]

	add eax,ebx

	cmp eax,[coord_x]

	jl .no_change

	mov ebx,[h_br]

	movzx ebx,byte[ebx+1]

	mov ecx,[scale_obj]

	shl ebx,cl

	mov ecx,[scale_img]

	shr ebx,cl

	mov eax,[coord_y]

	xor edx,edx

	div ebx

	;¨­¢¥àá¨ï ª®®à¤¨­ âë y

	xor edx,edx

	inc edx

	shl edx,cl

	dec edx

	sub edx,eax

	mov eax,edx

	or eax,3 shl 30

	.end_f:

	ret

endp

;

;x0y0 - x1y0

;x1y0 - x1y1

;x0y1 - x0y0

;x1y1 - x0y1

align 4

proc vox_obj_rot_z uses eax ebx ecx, v_obj:dword

	mov ebx,[v_obj]

	add ebx,vox_offs_tree_table

	mov ecx,2

	cld

	@@:

		mov eax,dword[ebx]

		mov byte[ebx+1],al

		mov byte[ebx+3],ah

		shr eax,16

		mov byte[ebx],al

		mov byte[ebx+2],ah

		add ebx,4

		loop @b

	ret

endp

;

;y0z0 - y0z1

;y0z1 - y1z1

;y1z1 - y1z0

;y1z0 - y0z0

align 4

proc vox_obj_rot_x uses eax ebx ecx, v_obj:dword

	mov ebx,[v_obj]

	add ebx,vox_offs_tree_table

	mov eax,dword[ebx]

	mov ecx,dword[ebx+4]

	mov byte[ebx+4],al

	mov byte[ebx+5],ah

	shr eax,16

	mov byte[ebx+0],al

	mov byte[ebx+1],ah

	mov byte[ebx+6],cl

	mov byte[ebx+7],ch

	shr ecx,16

	mov byte[ebx+2],cl

	mov byte[ebx+3],ch

	ret

endp

;

;output:

; eax - ç¨á«® 㧫®¢ ¢ ®¡ê¥ªâ¥ v_obj

align 4

proc vox_obj_get_nodes uses edi, v_obj:dword

	mov edi,[v_obj]

	add edi,vox_offs_data

	xor eax,eax

	stdcall vox_obj_rec0

	ret

endp

;???

;input:

; edi - 㪠§ â¥«ì ­  ¤ ­­ë¥ ¢®ªá¥«ì­®£® ®¡ê¥ªâ 

;output:

; eax - eax + ç¨á«® 㧫®¢ ¢ ¤ ­­ëå ¢®ªá. ®¡ê¥ªâ 

; edi - 㪠§ â¥«ì ­  ᬥ饭­ë¥ ¤ ­­ë¥ ¢®ªá. ®¡ê¥ªâ 

align 4

proc vox_obj_rec0

	inc eax

	cmp byte[edi+3],0 ;ᬮâਬ ¥áâì «¨ ¯®¤¤¥à¥¢ìï

	je .sub_trees

		;४ãàᨢ­ë© ¯¥à¥¡®à ¯®¤¤¥à¥¢ì¥¢

		push ebx ecx

		mov bh,byte[edi+3]

		add edi,4

		mov bl,8

		.cycle:

			bt bx,8 ;â¥áâ¨à㥬 ⮫쪮 bh

			jnc .c_next

				stdcall vox_obj_rec0

			.c_next:

			shr bh,1

			dec bl

			jnz .cycle

		pop ecx ebx

		jmp .end_f

	.sub_trees:

		add edi,4

	.end_f:

	ret

endp

;

;output:

; eax - à §¬¥à ¢ ¡ ©â å § ­¨¬ ¥¬ë© ®¡ê¥ªâ®¬ v_obj

align 4

proc buf2d_vox_obj_get_size, v_obj:dword

	stdcall vox_obj_get_nodes,[v_obj]

	shl eax,2

	add eax,vox_offs_data

	ret

endp

; ᮧ¤ ­¨¥ ¢®ªá¥«ï ¢ 3 íâ ¯ :

; 1) ¨é¥¬ ¬¥áâ® ¢ áâàãªâãॠ¤¥à¥¢ , ªã¤  ­ ¤® ¢áâ ¢¨âì (¥á«¨ ¢¥â¢ì áãé¥áâ¢ã¥â, 2-© íâ ¯ ¯à®¯ã᪠¥¬)

; 2) ¢áâ ¢«ï¥¬ ­®¢ãî ¢¥â¢ì á ¢®ªá¥«¥¬ (3-© íâ ¯ 㦥 ­¥ ¤¥« ¥¬)

; 3) ¬¥­ï¥¬ 梥⠢®ªá¥«ï

align 4

proc buf2d_vox_obj_create_node, v_obj:dword,coord_x:dword,coord_y:dword,\

coord_z:dword,k_scale:dword,color:dword

pushad

locals

	p_node dd 0 ;த¨â¥«ì᪨© 㧥«

endl

	mov edi,[v_obj]

	add edi,vox_offs_data

	mov esi,[k_scale]

	cmp esi,1

	jl .change

	; *** (1) ***

	.found:

	stdcall vox_obj_get_node_position, [v_obj],[coord_x],[coord_y],[coord_z],esi

	movzx bx,byte[edi+3]

	mov [p_node],edi

	add edi,4

	cmp eax,0

	je .end_1

	mov ecx,eax

	cld

	@@: ;横« ¤«ï ¯à®¯ã᪠ ¯à¥¤ë¤ãé¨å ¯®¤¤¥à¥¢ì¥¢ ¢ 㧫¥

		bt bx,0 ;¯à®¢¥à塞 ¥áâì «¨ ¤®ç¥à­¨¥ 㧫ë

		jnc .end_0

			xor eax,eax

			stdcall vox_obj_rec0 ;¢ eax ¢ëç¨á«ï¥âáï ç¨á«® ¤®ç¥à­¨å 㧫®¢, ¢ ¤ ­­®© ¢¥â¢¨

		.end_0:

		shr bx,1

		loop @b

	.end_1:

	bt bx,0

	jnc .creat ;¥á«¨ ¯®¤¤¥à¥¢  ­¥ áãé¥áâ¢ã¥â, ¯¥à¥å®¤¨¬ ª ᮧ¤ ­¨î

	dec esi

	cmp esi,0

	jg .found

	jmp .change

	; *** (2) ***

	.creat:

	mov edx,[color] ;¬¥­ï¥¬ 梥â

	and edx,0xffffff ;¤«ï ¯à®ä¨« ªâ¨ª¨

	mov ecx,esi

	stdcall vox_obj_add_nodes_mem, [v_obj],edi,ecx ;à áè¨à塞 ¬¥áâ® § ­¨¬ ¥¬®¥ ®¡ê¥ªâ®¬, ¤«ï ¤®¡ ¢«¥­¨ï ­®¢ëå 㧫®¢

	mov ebx,[p_node]

	cld

	@@:

		mov dword[edi],edx

		stdcall vox_obj_get_node_bit_mask, [v_obj],[coord_x],[coord_y],[coord_z],esi

		or byte[ebx+3],al

		mov ebx,edi

		add edi,4

		dec esi

		loop @b

	jmp .end_2

	; *** (3) ***

	.change:

	mov eax,[color] ;¬¥­ï¥¬ 梥â

	mov word[edi],ax

	shr eax,16

	mov byte[edi+2],al

	.end_2:

popad

	ret

endp

; 㤠«¥­¨¥ ¢®ªá¥«ï ¢ 2 íâ ¯ :

; 1) ¨é¥¬ ¬¥áâ® ¢ áâàãªâãॠ¤¥à¥¢ , £¤¥ ¥áâì 㤠«ï¥¬ë© 㧥« (¥á«¨ ¢¥â¢ì ­¥ áãé¥áâ¢ã¥â, ¢ë室¨¬ ¨§ ä㭪樨)

; 2) 㤠«ï¥¬ ¢¥â¢ì á ¢®ªá¥«¥¬

align 4

proc buf2d_vox_obj_delete_node, v_obj:dword,coord_x:dword,coord_y:dword,\

coord_z:dword,k_scale:dword

pushad

locals

	p_node dd 0 ;த¨â¥«ì᪨© 㧥«

endl

	mov edi,[v_obj]

	add edi,vox_offs_data

	mov esi,[k_scale]

	cmp esi,1

	jl .end_2

	; *** (1) ***

	.found:

	stdcall vox_obj_get_node_position, [v_obj],[coord_x],[coord_y],[coord_z],esi

	movzx bx,byte[edi+3]

	mov [p_node],edi

	add edi,4

	cmp eax,0

	je .end_1

	mov ecx,eax

	cld

	@@: ;横« ¤«ï ¯à®¯ã᪠ ¯à¥¤ë¤ãé¨å ¯®¤¤¥à¥¢ì¥¢ ¢ 㧫¥

		bt bx,0 ;¯à®¢¥à塞 ¥áâì «¨ ¤®ç¥à­¨¥ 㧫ë

		jnc .end_0

			xor eax,eax

			stdcall vox_obj_rec0 ;¢ eax ¢ëç¨á«ï¥âáï ç¨á«® ¤®ç¥à­¨å 㧫®¢, ¢ ¤ ­­®© ¢¥â¢¨

		.end_0:

		shr bx,1

		loop @b

	.end_1:

	bt bx,0

	jnc .end_2 ;¥á«¨ ¯®¤¤¥à¥¢  ­¥ áãé¥áâ¢ã¥â

	dec esi

	cmp esi,0

	jg .found

	; *** (2) ***

	;delete

	stdcall vox_obj_del_nodes_mem, [v_obj],edi ;á㦠¥¬ ¬¥áâ® § ­¨¬ ¥¬®¥ ®¡ê¥ªâ®¬, ¯à¨ 㤠«¥­¨¨ 㧫 

	mov ebx,[p_node]

	stdcall vox_obj_get_node_bit_mask, [v_obj],[coord_x],[coord_y],[coord_z],esi

	xor byte[ebx+3],al

	.end_2:

popad

	ret

endp

; ¢§ïâì 梥⠢®ªá¥«ï ¢ 2 íâ ¯ :

; 1) ¨é¥¬ ¬¥áâ® ¢ áâàãªâãॠ¤¥à¥¢ , £¤¥ ¥áâì 㧥« (¥á«¨ ¢¥â¢ì ­¥ áãé¥áâ¢ã¥â, ¢ë室¨¬ ¨§ ä㭪樨)

; 2) ¡¥à¥¬ 梥⠢®ªá¥«ï

;output:

; eax - 梥⠢®ªá¥«ï

align 4

proc buf2d_vox_obj_node_get_color, v_obj:dword,coord_x:dword,coord_y:dword,\

coord_z:dword,k_scale:dword

push ebx ecx edi esi

locals

	p_node dd 0 ;த¨â¥«ì᪨© 㧥«

endl

	mov edi,[v_obj]

	add edi,vox_offs_data

	mov esi,[k_scale]

	cmp esi,1

	jl .end_2

	; *** (1) ***

	.found:

	stdcall vox_obj_get_node_position, [v_obj],[coord_x],[coord_y],[coord_z],esi

	movzx bx,byte[edi+3]

	mov [p_node],edi

	add edi,4

	cmp eax,0

	je .end_1

	mov ecx,eax

	cld

	@@: ;横« ¤«ï ¯à®¯ã᪠ ¯à¥¤ë¤ãé¨å ¯®¤¤¥à¥¢ì¥¢ ¢ 㧫¥

		bt bx,0 ;¯à®¢¥à塞 ¥áâì «¨ ¤®ç¥à­¨¥ 㧫ë

		jnc .end_0

			xor eax,eax

			stdcall vox_obj_rec0 ;¢ eax ¢ëç¨á«ï¥âáï ç¨á«® ¤®ç¥à­¨å 㧫®¢, ¢ ¤ ­­®© ¢¥â¢¨

		.end_0:

		shr bx,1

		loop @b

	.end_1:

	bt bx,0

	jnc .end_2 ;¥á«¨ ¯®¤¤¥à¥¢  ­¥ áãé¥áâ¢ã¥â

	dec esi

	cmp esi,0

	jg .found

	; *** (2) ***

	;get

		mov eax,dword[edi]

		and eax,0xffffff

		jmp .end_3

	.end_2:

		mov eax,1 shl 31

	.end_3:

pop esi edi ecx ebx

	ret

endp

; ᤢ¨£ ¥â ã§«ë ¤«ï ¤®¡ ¢«¥­¨ï ­®¢ëå 㧫®¢

;input:

; p_insert - ¯®§¨æ¨ï ¤«ï ¢áâ ¢ª¨

; count - ª®««¨ç¥á⢮ ¢áâ ¢«ï¥¬ëå 㧫®¢

align 4

proc vox_obj_add_nodes_mem uses eax ecx edi esi, v_obj:dword,p_insert:dword,count:dword

	stdcall buf2d_vox_obj_get_size,[v_obj]

	mov esi,[v_obj]

	add esi,eax ;esi - 㪠§ â¥«ì ­  ª®­¥æ ä ©« 

	mov edi,[count]

	shl edi,2

	add edi,esi ;edi - 㪠§ â¥«ì ­  ¡ã¤ã騩 ª®­¥æ ä ©« 

	mov ecx,esi

	sub ecx,[p_insert]

	shr ecx,2 ;ecx - ç¨á«® 横«®¢ ¤«ï ª®¯¨à®¢ ­¨ï

	sub esi,4 ;esi - 㪠§ â¥«ì ­  ¯®á«¥¤­¨© 㧥«

	sub edi,4 ;edi - 㪠§ â¥«ì ­  ¡ã¤ã騩 ¯®á«¥¤­¨© 㧥«

	std

	rep movsd ;ᤢ¨£ ¥¬ ¯ ¬ïâì

	ret

endp

;input:

; p_insert - ¯®§¨æ¨ï ¤«ï ...

align 4

proc vox_obj_del_nodes_mem uses eax ecx edi esi, v_obj:dword,p_insert:dword

	stdcall buf2d_vox_obj_get_size,[v_obj]

	mov ecx,eax

	mov edi,[p_insert]

	add ecx,[v_obj]

	sub ecx,edi

	xor eax,eax

	stdcall vox_obj_rec0

	shr ecx,2

	sub ecx,eax ;ecx - ç¨á«® 横«®¢ ¤«ï ª®¯¨à®¢ ­¨ï

	shl eax,2

	add eax,[p_insert]

	mov esi,eax

	mov edi,[p_insert]

	cld

	rep movsd ;ᤢ¨£ ¥¬ ¯ ¬ïâì

	ret

endp

;???

; ®¯à¥¤¥«¥­¨¥ ¯®§¨æ¨¨ 㧫  ¢ ¤¥à¥¢¥ (®â 0 ¤® 7)

align 4

proc vox_obj_get_node_position uses ebx ecx edi, v_obj:dword,\

coord_x:dword,coord_y:dword,coord_z:dword,k_scale:dword

	mov ecx,[k_scale]

	dec ecx

	mov eax,[coord_x]

	mov ebx,[coord_y]

	mov edi,[coord_z]

	cmp ecx,1

	jl .end_0

		shr eax,cl

		shr ebx,cl

		shr edi,cl

	.end_0:

	and eax,1

	bt ebx,0

	jnc @f

		bts eax,1

	@@:

	bt edi,0

	jnc @f

		bts eax,2

	@@:

	mov edi,[v_obj]

	add edi,vox_offs_tree_table

	@@:

		cmp al,byte[edi]

		je @f

		inc edi

		jmp @b

	@@:

	sub edi,[v_obj]

	sub edi,vox_offs_tree_table

	mov eax,edi

	ret

endp

;output:

; eax - 1,2,4,8,16, ... ,128

align 4

proc vox_obj_get_node_bit_mask uses ebx ecx edi, v_obj:dword,\

coord_x:dword,coord_y:dword,coord_z:dword,k_scale:dword

	mov ecx,[k_scale]

	dec ecx

	mov eax,[coord_x]

	mov ebx,[coord_y]

	mov edi,[coord_z]

	cmp ecx,1

	jl .end_0

		shr eax,cl

		shr ebx,cl

		shr edi,cl

	.end_0:

	and eax,1

	bt ebx,0

	jnc @f

		bts eax,1

	@@:

	bt edi,0

	jnc @f

		bts eax,2

	@@:

	mov ecx,[v_obj]

	add ecx,vox_offs_tree_table

	@@:

		cmp al,byte[ecx]

		je @f

		inc ecx

		jmp @b

	@@:

	mov eax,1 ;ãáâ ­ ¢«¨¢ ¥¬ ¯¥à¢®­ ç «ì­®¥ §­ ç¥­¨¥ ¡¨â 

	sub ecx,[v_obj]

	sub ecx,vox_offs_tree_table

	jz @f

		shl eax,cl ;ᤢ¨£ ¥¬ ¡¨â

	@@:

	ret

endp

;äã­ªæ¨ï ¤«ï à¨á®¢ ­¨ï ¯ «¨âàë

align 4

proc buf2d_draw_palete, buf:dword, coord_x:dword, coord_y:dword,\

cell_w:dword, cell_h:dword, colors_w:dword, colors:dword

pushad

	mov ebx,[coord_x]

	mov edx,[coord_y]

	mov ecx,[colors]

	xor edi,edi

	mov esi,[cell_h]

	cld

	.cycle_0:

		stdcall get_palete_color, ecx,3

		stdcall [buf2d_filled_rect_by_size], [buf], ebx,edx, [cell_w],esi,eax

		inc edi

		cmp edi,[colors_w]

		jl @f

			mov ebx,[coord_x]

			sub ebx,[cell_w]

			dec ebx

			add edx,esi ;¢ëá®â  ï祩ª¨

			inc edx ;®âáâ㯠¬¥¦¤ã ï祩ª ¬¨

			xor edi,edi

		@@:

		add ebx,[cell_w]

		inc ebx

		loop .cycle_0

popad

	ret

endp

;input:

; ¥á«¨ r = 1 â® äã­ªæ¨ï ¢®§¢à é ¥â 8 梥⮢, 2 - 64, 3 - 512

;output:

; eax - color

align 4

proc get_palete_color uses ebx ecx edx edi, ind:dword, r:dword

	mov ecx,[r]

	xor edi,edi

	inc edi

	mov ebx,[ind]

	;b = b xor (b shr 1)

	;¯à¥®¡à §ã¥¬ ¨­¤¥ªá ¢ ª®¤¨à®¢ªã ƒà¥ï ¤«ï ¯®«ã祭¨ï ¡®«¥¥ ¯« ¢­ëå 梥⮢ëå ¯¥à¥å®¤®¢

	mov eax,ebx

	shr eax,1

	xor ebx,eax

	mov edx,ebx

	shr edx,cl

	mov eax,edx

	shr eax,cl

	mov ch,8

	sub ch,cl

	shr ecx,8

	shl ebx,cl

	shl edx,cl

	shl eax,cl

	shl edi,cl

	dec edi ;edi - 1...1b

	or ebx,edi

	or edx,edi

	or eax,edi

	shl eax,8

	mov al,dl

	shl eax,8

	mov al,bl

	and eax,0xffffff

	ret

endp