WebSVN – Kolibri OS – Diff – /programs/develop/info3ds/info_o3d.inc


;
; áâàãªâãàë ¨ äã­ªæ¨¨ ¤«ï à¨á®¢ ­¨ï 3d ®¡ê¥ªâ®¢
;
 
offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'
 
struct obj_3d
	poi_data dd ? ;ãª § â¥«ì ­  ª®®à¤¨­ âë ¢¥àè¨­
	poi_count dd ? ;ª®««¨ç¥áâ¢® ¢¥àè¨­
	tri_data dd ? ;ãª § â¥«ì ­  ¤ ­­ë¥ âà¥ã£®«ì­¨ª®¢
	tri_count dd ? ;ª®««¨ç¥áâ¢® âà¥ã£®«ì­¨ª®¢
	normals_poi_data dd ? ;¤ ­­ë¥ ­®à¬ «¥© ª â®çª ¬
	normals_poi_count dd ? ;ª®««¨ç¥áâ¢® ­®à¬ «¥© ª â®çª ¬
	normals_tri_data dd ? ;¤ ­­ë¥ ­®à¬ «¥© ª £à ­ï¬
	normals_tri_count dd ? ;ª®««¨ç¥áâ¢® ­®à¬ «¥© ª £à ­ï¬
	x_max dd ?
	x_min dd ?
	x_centr dd ?
	x_scale dd ?
	y_max dd ?
	y_min dd ?
	y_centr dd ?
	y_scale dd ?
	z_max dd ?
	z_min dd ?
	z_centr dd ?
	z_scale dd ?
ends
 
offs_obj_poi_data equ 0 ;ãª § â¥«ì ­  ª®®à¤¨­ âë ¢¥àè¨­
offs_obj_poi_count equ 4 ;ª®««¨ç¥áâ¢® ¢¥àè¨­
offs_obj_tri_data equ 8 ;ãª § â¥«ì ­  ¤ ­­ë¥ âà¥ã£®«ì­¨ª®¢
offs_obj_tri_count equ 12 ;ª®««¨ç¥áâ¢® âà¥ã£®«ì­¨ª®¢
offs_obj_normals_poi_data equ 16
offs_obj_normals_poi_count equ 20
offs_obj_normals_tri_data equ 24
offs_obj_normals_tri_count equ 28
offs_obj_x_max equ 32
offs_obj_x_min equ 36
offs_obj_x_centr equ 40
offs_obj_x_scale equ 44
offs_obj_y_max equ 48
offs_obj_y_min equ 52
offs_obj_y_centr equ 56
offs_obj_y_scale equ 60
offs_obj_z_max equ 64
offs_obj_z_min equ 68
offs_obj_z_centr equ 72
offs_obj_z_scale equ 76
 
struct material
	name dd ?
	col_ambient dd ? ;æ¢¥â ¬ â¥à¨ « 
	col_diffuse dd ?
	col_specular dd ?
ends
 
offs_mat_name equ 0
offs_mat_col_ambient equ 4
offs_mat_col_diffuse equ 8
offs_mat_col_specular equ 12
 
bit_vertexes equ 0
bit_faces equ 1
bit_faces_fill equ 2
bit_light equ 3
 
ini_name db 'info3ds.ini',0
ini_sec_w3d db 'Window 3d',0
key_dv  db 'draw_vertices',0
key_df  db 'draw_faces',0
key_dff db 'draw_faces_fill',0
key_dl  db 'draw_light',0
key_ox  db 'col_ox',0
key_oy  db 'col_oy',0
key_oz  db 'col_oz',0
key_bk  db 'col_bkgnd',0
key_vert db 'col_vertices',0
key_face db 'col_faces',0
key_select db 'col_select',0
 
 
rad_c dd 150 ;¤«ï ¢ëç¨á«¥­¨ï à ¤¨ãá 
 
align 4
proc hex_in_str, buf:dword,val:dword,zif:dword
pushad
	mov edi,dword[buf]
	mov ecx,dword[zif]
	add edi,ecx
	dec edi
	mov ebx,dword[val]
 
	.cycle:
		mov al,bl
		and al,0xf
		cmp al,10
		jl @f
			add al,'a'-'0'-10
		@@:
		add al,'0'
		mov byte[edi],al
		dec edi
		shr ebx,4
	loop .cycle
popad
	ret
endp
 
;ãáâ ­®¢ª  ¢á¥å ®á­®¢­ëå ¯¥à¥¬¥­­ëå ¯® ã¬®«ç ­¨î
align 4
proc obj_clear_param uses edi, o_data:dword
	mov edi,[o_data]
	;®¡­ã«¥­¨¥ ãª § â¥«¥© ­  ¤ ­­ë¥ ®¡ê¥ªâ®¢
	mov dword[edi+offs_obj_poi_data],0
	mov dword[edi+offs_obj_poi_count],0
	mov dword[edi+offs_obj_tri_data],0
	mov dword[edi+offs_obj_tri_count],0
	mov dword[edi+offs_obj_normals_tri_count],0
	mov dword[edi+offs_obj_normals_poi_count],0
	cmp dword[edi+offs_obj_normals_tri_data],0
	je @f
		stdcall mem.Free,[edi+offs_obj_normals_tri_data]
		mov dword[edi+offs_obj_normals_tri_data],0
	@@:
	cmp dword[edi+offs_obj_normals_poi_data],0
	je @f
		stdcall mem.Free,[edi+offs_obj_normals_poi_data]
		mov dword[edi+offs_obj_normals_poi_data],0
	@@:
	ret
endp
 
;¯®¨áª ¤ ­­ëå
;input:
;eax - â¥ªãé¨© ã§¥«
;output:
;eax - áâàãªâãà  â¥ªãé¥£® ã§«  (¨«¨ 0 ¯à¨ ­¥ã¤ ç¥)
align 4
proc found_block_data uses ebx ecx edx, tlist:dword
	mov edx,[tlist]
	mov ecx,eax
	stdcall [tl_node_poi_get_info], edx,0
	@@:
		mov ebx,eax
		stdcall [tl_node_poi_get_data], edx,ebx
		cmp eax,ecx
		je @f ;¥á«¨ ¯®¯ «¨ ­  ¢ë¡à ­­ë© ã§¥«
		stdcall [tl_node_poi_get_next_info], edx,ebx
		cmp eax,0
		jne @b
		jmp .end
	@@:
		mov eax,ebx
	.end:
	ret
endp
 
;ãáâ ­®¢ª  à §¬¥à®¢ ®¡ê¥ªâ 
align 4
proc obj_set_sizes uses eax ebx esi edi, o_data:dword
	mov edi,[o_data]
	cmp dword[edi+offs_obj_poi_count],0
	je .end
		finit
		mov eax,[edi+offs_obj_poi_data]
		mov ebx,dword[eax]
		mov [edi+offs_obj_x_min],ebx
		mov [edi+offs_obj_x_max],ebx
		mov ebx,dword[eax+4]
		mov [edi+offs_obj_y_min],ebx
		mov [edi+offs_obj_y_max],ebx
		mov ebx,dword[eax+8]
		mov [edi+offs_obj_z_min],ebx
		mov [edi+offs_obj_z_max],ebx
 
	mov ebx,[edi+offs_obj_poi_data]
	mov esi,[edi+offs_obj_poi_count]
align 4
	.cycle_0: ;à ¡®â  á ª®®à¤¨­ â®© x
		fld dword[ebx]
		fld dword[edi+offs_obj_x_min]
		fcomp
		fstsw ax
		sahf
		jb @f
			mov eax,[ebx]
			mov [edi+offs_obj_x_min],eax
			ffree st0
			fincstp
			jmp .next_x
		@@:
		fld dword[edi+offs_obj_x_max]
		fcompp
		fstsw ax
		sahf
		ja .next_x
			mov eax,[ebx]
			mov [edi+offs_obj_x_max],eax
		.next_x:
 
		add ebx,12
		dec esi
		jnz .cycle_0
 
		fld1
		fld dword[edi+offs_obj_x_max]
		fsub dword[edi+offs_obj_x_min]
		fst dword[edi+offs_obj_x_centr]
		fdivp ;1/size.x
		fstp dword[edi+offs_obj_x_scale]
 
		fld dword[edi+offs_obj_x_centr]
		fld1
		fld1
		faddp
		fdivp ;centr.x = size.x/2
		fadd dword[edi+offs_obj_x_min]
		fchs
		fstp dword[edi+offs_obj_x_centr]
 
	mov ebx,[edi+offs_obj_poi_data]
	mov esi,[edi+offs_obj_poi_count]
align 4
	.cycle_1: ;à ¡®â  á ª®®à¤¨­ â®© y
		fld dword[ebx+4]
		fld dword[edi+offs_obj_y_min]
		fcomp
		fstsw ax
		sahf
		jb @f
			mov eax,[ebx+4]
			mov [edi+offs_obj_y_min],eax
			ffree st0
			fincstp
			jmp .next_y
		@@:
		fld dword[edi+offs_obj_y_max]
		fcompp
		fstsw ax
		sahf
		ja .next_y
			mov eax,[ebx+4]
			mov [edi+offs_obj_y_max],eax
		.next_y:
 
		add ebx,12
		dec esi
		jnz .cycle_1
 
		fld1
		fld dword[edi+offs_obj_y_max]
		fsub dword[edi+offs_obj_y_min]
		fst dword[edi+offs_obj_y_centr]
		fdivp ;1/size.y
		fstp dword[edi+offs_obj_y_scale]
 
		fld dword[edi+offs_obj_y_centr]
		fld1
		fld1
		faddp
		fdivp ;centr.y = size.y/2
		fadd dword[edi+offs_obj_y_min]
		fchs
		fstp dword[edi+offs_obj_y_centr]
 
	mov ebx,[edi+offs_obj_poi_data]
	mov esi,[edi+offs_obj_poi_count]
align 4
	.cycle_2: ;à ¡®â  á ª®®à¤¨­ â®© z
		fld dword[ebx+8]
		fld dword[edi+offs_obj_z_min]
		fcomp
		fstsw ax
		sahf
		jb @f
			mov eax,[ebx+8]
			mov [edi+offs_obj_z_min],eax
			ffree st0
			fincstp
			jmp .next_z
		@@:
		fld dword[edi+offs_obj_z_max]
		fcompp
		fstsw ax
		sahf
		ja .next_z
			mov eax,[ebx+8]
			mov [edi+offs_obj_z_max],eax
		.next_z:
 
		add ebx,12
		dec esi
		jnz .cycle_2
 
		fld1
		fld dword[edi+offs_obj_z_max]
		fsub dword[edi+offs_obj_z_min]
		fst dword[edi+offs_obj_z_centr]
		fdivp ;1/size.z
		fstp dword[edi+offs_obj_z_scale]
 
		fld dword[edi+offs_obj_z_centr]
		fld1
		fld1
		faddp
		fdivp ;centr.z = size.z/2
		fadd dword[edi+offs_obj_z_min]
		fchs
		fstp dword[edi+offs_obj_z_centr]
 
		;­ å®¤¨¬ à ¤¨ãá ¤«ï áä¥àë
		fld dword[edi+offs_obj_x_max]
		fsub dword[edi+offs_obj_x_min]
		fld dword[edi+offs_obj_y_max]
		fsub dword[edi+offs_obj_y_min]
		faddp
		fild dword[rad_c]
		fdivp ;radius=(size.x+size.y)/rad_c
		fstp dword[sph_radius]
 
	;¤¥« ¥¬ ®¤¨­ ª®¢ë© ¬ áèâ ¡ ¯® ®áï¬ x ¨ y, çâ®-¡ë ­¥ ­ àãè «¨áì ¯à®¯®àæ¨¨ ¨§®¡à ¦¥­¨ï
	fld dword[edi+offs_obj_y_scale]
	fdiv dword[ratio] ;¯à¨¢¥¤¥­¨¥ ¬ áèâ ¡  ¯® ®á¨ y ãç¨âë¢ ï çâ® ¯® ¢ëá®â¥ íªà ­ ¬¥­ìè¥
	fcomp dword[edi+offs_obj_x_scale]
	fstsw ax
	sahf
	jb @f
		;á¦ â¨¥ ¬ áèâ ¡  ¯® y
		fld dword[edi+offs_obj_x_scale]
		fmul dword[ratio]
		fstp dword[edi+offs_obj_y_scale] ;¬ áèâ ¡ ¯® ®á¨ y = ¬ áèâ ¡ ¯® ®á¨ x
		jmp .end
	@@:
		;á¦ â¨¥ ¬ áèâ ¡  ¯® x >...<
		fld	dword[edi+offs_obj_x_scale]
		fdiv dword[ratio]
		fstp dword[edi+offs_obj_x_scale]
	.end:
	ret
endp
 
;ãáâ ­®¢ª  ­®à¬ «¥© ¤«ï £à ­¥©
align 4
proc obj_set_normals, o_data:dword
locals
	tbl1 rd 9 ;ebp-72
	tbl2 rd 9 ;ebp-36
endl
pushad
	mov ecx,[o_data]
	cmp dword[ecx+offs_obj_poi_count],0
	je .end
		mov eax,[ecx+offs_obj_tri_count]
		mov [ecx+offs_obj_normals_tri_count],eax ;­  ª ¦¤ë© âà¥ã£®«ì­¨ª 1 ­®à¬ «ì
		cmp eax,0
		je .end
		finit
		imul eax,12
		stdcall mem.Alloc, eax
		mov [ecx+offs_obj_normals_tri_data],eax
 
		mov edx,[ecx+offs_obj_tri_data]
		mov ebx,[ecx+offs_obj_tri_count]
		mov ecx,[ecx+offs_obj_poi_data]
align 4
		@@:
			mov edi,ebp
			sub edi,36 ;tbl2
			movzx esi,word[edx] ;1-ï ¢¥àè¨­ 
			imul esi,12
			add esi,ecx
			movsd
			movsd
			movsd
			movzx esi,word[edx+2] ;2-ï ¢¥àè¨­ 
			imul esi,12
			add esi,ecx
			movsd
			movsd
			movsd
			movzx esi,word[edx+4] ;3-ï ¢¥àè¨­ 
			imul esi,12
			add esi,ecx
			movsd
			movsd
			movsd
 
			mov esi,ebp
			sub esi,72 ;tbl1
			sub edi,36 ;tbl2
			;v1 <-> v2
			fld dword[edi+12]
			fsub dword[edi]
			fstp dword[esi] ;(x1-x2)
			fld dword[edi+16]
			fsub dword[edi+4]
			fstp dword[esi+4] ;(y1-y2)
			fld dword[edi+20]
			fsub dword[edi+8]
			fstp dword[esi+8] ;(z1-z2)
			;v2 <-> v3
			fld dword[edi+24]
			fsub dword[edi+12]
			fstp dword[esi+12] ;(x2-x3)
			fld dword[edi+28]
			fsub dword[edi+16]
			fstp dword[esi+16] ;(y2-y3)
			fld dword[edi+32]
			fsub dword[edi+20]
			fstp dword[esi+20] ;(z2-z3)
			;v3 <-> v1
			fld dword[edi]
			fsub dword[edi+24]
			fstp dword[esi+24] ;(x3-x1)
			fld dword[edi+4]
			fsub dword[edi+28]
			fstp dword[esi+28] ;(y3-y1)
			fld dword[edi+8]
			fsub dword[edi+32]
			fstp dword[esi+32] ;(z3-z1)
 
			;a1,a2,a3
			fld dword[esi+4]
			fmul dword[esi+8]
			fstp dword[edi] ;a1=(y1-y2)*(z1-z2)
			fld dword[esi+16]
			fmul dword[esi+20]
			fstp dword[edi+4] ;a2=(y2-y3)*(z2-z3)
			fld dword[esi+28]
			fmul dword[esi+32]
			fstp dword[edi+8] ;a3=(y3-y1)*(z3-z1)
			;b1,b2,b3
			fld dword[esi]
			fmul dword[esi+8]
			fstp dword[edi+12] ;b1=(x1-x2)*(z1-z2)
			fld dword[esi+12]
			fmul dword[esi+20]
			fstp dword[edi+16] ;b2=(x2-x3)*(z2-z3)
			fld dword[esi+24]
			fmul dword[esi+32]
			fstp dword[edi+20] ;b3=(x3-x1)*(z3-z1)
			;c1,á2,á3
			fld dword[esi]
			fmul dword[esi+4]
			fstp dword[edi+24] ;c1=(x1-x2)*(y1-y2)
			fld dword[esi+12]
			fmul dword[esi+16]
			fstp dword[edi+28] ;c2=(x2-x3)*(y2-y3)
			fld dword[esi+24]
			fmul dword[esi+28]
			fstp dword[edi+32] ;c3=(x3-x1)*(y3-y1)
			
			fld dword[edi]
			fadd dword[edi+4]
			fadd dword[edi+8]
			fstp dword[eax] ;set normal.a
			fld dword[edi+12]
			fadd dword[edi+16]
			fadd dword[edi+20]
			fstp dword[eax+4] ;set normal.b
			fld dword[edi+24]
			fadd dword[edi+28]
			fadd dword[edi+32]
			fstp dword[eax+8] ;set normal.c
			
			add edx,8 ;à §¬¥à âà¥ã£®«ì­¨ª  = (3 ¢¥àè¨­ë (¯® 2¡) + á¢®©áâ¢  (2¡))
			add eax,12
			dec ebx
			jnz @b
	.end:
popad
	ret
endp
 
;­ áâà®©ª  áâàãªâãàë 3d ®¡ê¥ªâ 
align 4
proc obj_init, o_data:dword
	pushad
	mov edi,[o_data]
	stdcall obj_clear_param, edi
	stdcall [tl_node_get_data],tree1
	xor edx,edx
	cmp eax,0
	je .no_points
		mov ebx,[eax] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ë¡à ­­®£® ¡«®ª 
		add ebx,[open_file_data]
		xor ecx,ecx
		cmp word[ebx],CHUNK_OBJBLOCK
		jne @f
			mov ecx,ebx
			add ecx,dword[ecx+2] ;£à ­¨æ  ¡«®ª 
			push eax edi
				mov edi,ebx
				add edi,6
				cld
				xor al,al
				repne scasb ;¯à®¯ãáª ¨¬¥­¨ ®¡ê¥ªâ 
				mov ebx,edi
			pop edi eax
		@@:
		cmp word[ebx],CHUNK_TRIMESH
		jne @f
			mov ecx,ebx
			add ecx,dword[ecx+2] ;£à ­¨æ  ¡«®ª 
			add ebx,6
		@@:
		cmp word[ebx],CHUNK_VERTLIST
		jne .no_points
			mov esi,ebx
			movzx edx,word[ebx+6] ;ª®««¨ç¥áâ¢® â®ç¥ª
			add ebx,8
			mov [edi+offs_obj_poi_data],ebx
			mov [edi+offs_obj_poi_count],edx
 
			.cycle_0: ;æ¨ª« ¤«ï ¯®¨áª  âà¥ã£®«ì­¨ª®¢
				add esi,dword[esi+2]
				cmp word[esi],CHUNK_FACELIST
				je @f
					cmp ecx,esi
					jg .cycle_0 ;¯®ª  ­¥ ¤®áâ¨£­ãâ  £à­¨æ  áâ àè¥£® ¡«®ª 
					jmp .end_points ;¥á«¨ ­¥ ­ è«¨ âà¥ã£®«ì­¨ª¨
			@@:
			;¥á«¨ ­ è«¨ âà¥ã£®«ì­¨ª¨
			movzx edx,word[esi+6]
			mov [edi+offs_obj_tri_count],edx
			add esi,8 ;2+4+2 (chunk+size+count)
			mov [edi+offs_obj_tri_data],esi
		.end_points:
 
		stdcall obj_set_sizes, edi
		stdcall obj_set_normals, edi
if version_edit eq 0
		stdcall draw_3d, edi
end if
	.no_points:
	popad
	ret
endp
 
;­ áâà®©ª  ¬ â¥à¨ « 
align 4
proc mat_init, m_data:dword
	pushad
	mov edi,[m_data]
 
	;... clear edi ...
	mov dword[edi+offs_mat_name],0
	mov dword[edi+offs_mat_col_ambient],0
	mov dword[edi+offs_mat_col_diffuse],0
	mov dword[edi+offs_mat_col_specular],0
 
	stdcall [tl_node_get_data],tree1
	xor edx,edx
	cmp eax,0
	je .no_material
		mov ebx,[eax] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ë¡à ­­®£® ¡«®ª 
		add ebx,[open_file_data]
		xor ecx,ecx
		cmp word[ebx],CHUNK_MATERIAL
		jne .no_material
			mov ecx,ebx
			add ecx,dword[ecx+2] ;£à ­¨æ  ¡«®ª 
			add ebx,6
		cmp word[ebx],CHUNK_MATNAME
		jne .no_material
			;*** (0) ***
			mov esi,ebx
			add ebx,6
			mov [edi+offs_mat_name],ebx
			sub ebx,6
			;*** (1) ***
			.cycle_0: ;æ¨ª« ¤«ï ¯®¨áª  æ¢¥â  ¬ â¥à¨ « 
				add esi,dword[esi+2]
				cmp word[esi],0xa010
				je @f
					cmp ecx,esi
					jg .cycle_0 ;¯®ª  ­¥ ¤®áâ¨£­ãâ  £à­¨æ  áâ àè¥£® ¡«®ª 
					jmp .end_material ;¥á«¨ ­¥ ­ è«¨ æ¢¥â ¬ â¥à¨ « 
			@@:
			;¥á«¨ ­ è«¨ æ¢¥â ¬ â¥à¨ « 
			add esi,6
			cmp word[esi],0x0011
			jne .end_material
				add esi,6
				mov dl,byte[esi]
				mov [edi+offs_mat_col_ambient+2],dl
				mov dx,word[esi+1]
				ror dx,8
				mov [edi+offs_mat_col_ambient],dx
			;*** (2) ***
			mov esi,ebx
			.cycle_1: ;æ¨ª« ¤«ï ¯®¨áª  æ¢¥â  ¬ â¥à¨ « 
				add esi,dword[esi+2]
				cmp word[esi],0xa020
				je @f
					cmp ecx,esi
					jg .cycle_1 ;¯®ª  ­¥ ¤®áâ¨£­ãâ  £à­¨æ  áâ àè¥£® ¡«®ª 
					jmp .end_material ;¥á«¨ ­¥ ­ è«¨ æ¢¥â ¬ â¥à¨ « 
			@@:
			;¥á«¨ ­ è«¨ æ¢¥â ¬ â¥à¨ « 
			add esi,6
			cmp word[esi],0x0011
			jne .end_material
				add esi,6
				mov dl,byte[esi]
				mov [edi+offs_mat_col_diffuse+2],dl
				mov dx,word[esi+1]
				ror dx,8
				mov [edi+offs_mat_col_diffuse],dx
			;*** (3) ***
			mov esi,ebx
			.cycle_2: ;æ¨ª« ¤«ï ¯®¨áª  æ¢¥â  ¬ â¥à¨ « 
				add esi,dword[esi+2]
				cmp word[esi],0xa030
				je @f
					cmp ecx,esi
					jg .cycle_2 ;¯®ª  ­¥ ¤®áâ¨£­ãâ  £à­¨æ  áâ àè¥£® ¡«®ª 
					jmp .end_material ;¥á«¨ ­¥ ­ è«¨ æ¢¥â ¬ â¥à¨ « 
			@@:
			;¥á«¨ ­ è«¨ æ¢¥â ¬ â¥à¨ « 
			add esi,6
			cmp word[esi],0x0011
			jne .end_material
				add esi,6
				mov dl,byte[esi]
				mov [edi+offs_mat_col_specular+2],dl
				mov dx,word[esi+1]
				ror dx,8
				mov [edi+offs_mat_col_specular],dx
 
			.end_material:
	.no_material:
	popad
	ret
endp
 
align 4
proc buf_draw_beg uses eax, buf:dword
	mov eax,[buf]
	stdcall [buf2d_clear], eax, [eax+16] ;ç¨áâ¨¬ ¡ãä¥à
	stdcall [buf2d_draw_text], eax, buf_1,txt_open_3ds,5,5,0xff
	stdcall [buf2d_draw_text], eax, buf_1,openfile_path,5,15,0xff
	cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦­  ®è¨¡ª  ä ©« 
	jne @f
		stdcall [buf2d_draw_text], eax, buf_1,txt_3ds_err_sizes,5,25,0xff0000
	@@:
	ret
endp
 
;à¨á®¢ ­¨¥ ¬ â¥à¨ « 
align 4
proc draw_material uses edi, m_data:dword
	mov edi,[m_data]
	stdcall buf_draw_beg, buf_ogl
	stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_afff,5,35,0xff
 
	stdcall [buf2d_draw_text], buf_ogl,buf_1,[edi+offs_mat_name],15,45,0 ;¨¬ï ¬ â¥à¨ « 
	stdcall draw_color, [edi+offs_mat_col_ambient], txt_a010,2,55 ;®ªàã¦ îé¨© æ¢¥â
	stdcall draw_color, [edi+offs_mat_col_diffuse], txt_a020,2,75 ;¤¨äã§­ë© æ¢¥â
	stdcall draw_color, [edi+offs_mat_col_specular],txt_a030,2,95 ;§¥àª «ì­ë© æ¢¥â
 
	stdcall [buf2d_draw], buf_ogl
	ret
endp
 
align 4
proc draw_color uses eax ebx, color:dword, text:dword, c_x:dword, c_y:dword
	mov eax,[c_x]
	mov ebx,[c_y]
	; ¯àï¬®ã£®«ì­¨ª
	inc ebx
	stdcall [buf2d_filled_rect_by_size], buf_ogl,eax,ebx,30,17,[color]
	dec ebx
	stdcall [buf2d_rect_by_size], buf_ogl,eax,ebx,30,19, 0
	; ¯®¤¯¨á¨
	add eax,33
	stdcall [buf2d_draw_text], buf_ogl, buf_1,[text],eax,ebx,0
	add ebx,10
	stdcall hex_in_str, buffer,[color],6
	mov byte[buffer+6],0
	stdcall [buf2d_draw_text], buf_ogl, buf_1,buffer,eax,ebx,0
	ret
endp
 
;à¨á®¢ ­¨¥ â®ç¥ª ¢ 3d
align 4
proc draw_3d uses eax ebx ecx edi, o_data:dword
	mov edi,[o_data]
if 0 ;debug
	stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT
	mov eax,[edi+offs_obj_poi_data]
	stdcall convert_int_to_str, txt_select_vert.count,16
	stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_select_vert,5,3,[color_select]
	stdcall [kosglSwapBuffers]
	jmp .end_f
end if
	cmp dword[edi+offs_obj_poi_count],2
	jl .end_f
	stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;®ç¨áâ¨¬ ¡ãä¥à æ¢¥â  ¨ £«ã¡¨­ë
	stdcall [glPushMatrix]
	bt dword[draw_mode],bit_light
	jnc @f
		call SetLight
		jmp .end_l
	@@:
		stdcall [glDisable],GL_LIGHTING
	.end_l:
	stdcall [glTranslatef], 0.0,0.0,0.5 ;correct for z
	stdcall [glScalef], [edi+offs_obj_x_scale],[edi+offs_obj_y_scale],[edi+offs_obj_z_scale]
	stdcall [glScalef], 1.0,1.0,0.7 ;correct for z
	stdcall [glRotatef], [angle_z],0.0,0.0,1.0
	stdcall [glRotatef], [angle_y],0.0,1.0,0.0
	stdcall [glRotatef], [angle_x],1.0,0.0,0.0
	stdcall [glTranslatef], [edi+offs_obj_x_centr],[edi+offs_obj_y_centr],[edi+offs_obj_z_centr]
 
	;à¨á®¢ ­¨¥ â®ç¥ª
	bt dword[draw_mode],bit_vertexes
	jnc .end_points
		stdcall [glColor3ub],[color_vert+2],[color_vert+1],[color_vert]
		stdcall [glBegin],GL_POINTS
		mov eax,[edi+offs_obj_poi_data]
		mov ebx,[edi+offs_obj_poi_count]
		@@:
			stdcall [glVertex3f], [eax],[eax+4],[eax+8]
			add eax,12
			dec ebx
			jnz @b
		stdcall [glEnd]
	.end_points:
 
if version_edit eq 1
	;à¨á®¢ ­¨¥  ªâ¨¢­®© â®çª¨
	stdcall [tl_node_get_data],tree3
	cmp eax,0
	je @f
		;¢ë¤¥«¥­¨¥  ªâ¨¢­®© â®çª¨
		mov eax,[eax]
 
		stdcall [glBegin],GL_LINES
		stdcall [glColor3ub], [color_ox+2],[color_ox+1],[color_ox]
		stdcall [glVertex3f], [edi+offs_obj_x_min],[eax+4],[eax+8]
		stdcall [glVertex3f], [edi+offs_obj_x_max],[eax+4],[eax+8]
		stdcall [glColor3ub], [color_oy+2],[color_oy+1],[color_oy]
		stdcall [glVertex3f], [eax],[edi+offs_obj_y_min],[eax+8]
		stdcall [glVertex3f], [eax],[edi+offs_obj_y_max],[eax+8]
		stdcall [glColor3ub], [color_oz+2],[color_oz+1],[color_oz]
		stdcall [glVertex3f], [eax],[eax+4],[edi+offs_obj_z_min]
		stdcall [glVertex3f], [eax],[eax+4],[edi+offs_obj_z_max]
		stdcall [glEnd]
 
		stdcall [glColor3ub],[color_select+2],[color_select+1],[color_select]
		stdcall [glPushMatrix]
			stdcall [glTranslatef], [eax],[eax+4],[eax+8]
			stdcall [gluSphere], [qObj], [sph_radius], 8,8
		stdcall [glPopMatrix]
	@@:
 
	;à¨á®¢ ­¨¥ ¢ë¤¥«¥­­ëå â®ç¥ª
	cmp dword[obj_poi_sel_c],0
	je .end_select
		mov ecx,dword[obj_poi_sel_c]
		stdcall [glColor3ub],[color_select+2],[color_select+1],[color_select]
		stdcall dword[tl_node_poi_get_info], tree3,0
		@@:
			cmp eax,0
			je .end_select
			mov ebx,eax
			cmp word[ebx],ID_ICON_POINT_SEL
			jne .next_sel
			stdcall [tl_node_poi_get_data], tree3,ebx
			mov eax,[eax]
			stdcall [glPushMatrix]
				stdcall [glTranslatef], [eax],[eax+4],[eax+8]
				stdcall [gluSphere], [qObj], [sph_radius], 4,4
			stdcall [glPopMatrix]
			dec ecx
			jz .end_select
			.next_sel:
			stdcall dword[tl_node_poi_get_next_info], tree3,ebx
			jmp @b
    .end_select:
end if
 
	;à¨á®¢ ­¨¥ £à ­¥©
	bt dword[draw_mode],bit_faces
	jnc .end_triangles
	cmp dword[edi+offs_obj_tri_count],0
	je .end_triangles
	cmp dword[edi+offs_obj_poi_count],0
	je .end_triangles
		bt dword[draw_mode],bit_faces_fill
		jc @f
			push GL_LINE
			jmp .end_0
		@@:
			push GL_FILL
		.end_0:
		stdcall [glPolygonMode], GL_FRONT_AND_BACK ;mode - ã¦¥ ¢ áâ¥ª¥
		stdcall [glColor3ub],[color_face+2],[color_face+1],[color_face]
		stdcall [glBegin],GL_TRIANGLES
		mov eax,[edi+offs_obj_tri_data]
		mov ecx,[edi+offs_obj_tri_count]
		mov edx,[edi+offs_obj_normals_tri_data]
		@@:
			;
			bt dword[draw_mode],bit_light
			jnc .norm
				;[obj_normals_tri_count]
				stdcall [glNormal3fv], edx
				add edx,12
			.norm:
			;
			movzx ebx,word[eax] ;1-ï ¢¥àè¨­ 
			imul ebx,12
			add ebx,[edi+offs_obj_poi_data]
			stdcall [glVertex3f], [ebx],[ebx+4],[ebx+8]
			movzx ebx,word[eax+2] ;2-ï ¢¥àè¨­ 
			imul ebx,12
			add ebx,[edi+offs_obj_poi_data]
			stdcall [glVertex3f], [ebx],[ebx+4],[ebx+8]
			movzx ebx,word[eax+4] ;3-ï ¢¥àè¨­ 
			imul ebx,12
			add ebx,[edi+offs_obj_poi_data]
			stdcall [glVertex3f], [ebx],[ebx+4],[ebx+8]
			add eax,8 ;à §¬¥à âà¥ã£®«ì­¨ª  = (3 ¢¥àè¨­ë (¯® 2¡) + á¢®©áâ¢  (2¡))
			dec ecx
			jnz @b
		stdcall [glEnd]
	.end_triangles:
 
	stdcall [glPopMatrix]
if version_edit eq 1
	cmp dword[obj_poi_sel_c],0
	je @f
		stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_select_vert,5,3,[color_select]
	@@:
end if
	stdcall [kosglSwapBuffers]
	.end_f:
	ret
endp
 
align 4
SetLight:
	stdcall [glLightfv], GL_LIGHT0, GL_POSITION, light_position
	stdcall [glLightfv], GL_LIGHT0, GL_SPOT_DIRECTION, light_dir
 
	stdcall [glLightfv], GL_LIGHT0, GL_DIFFUSE, white_light
	stdcall [glLightfv], GL_LIGHT0, GL_SPECULAR, white_light
 
	stdcall [glEnable], GL_COLOR_MATERIAL
	stdcall [glColorMaterial], GL_FRONT, GL_AMBIENT_AND_DIFFUSE
	stdcall [glMaterialfv], GL_FRONT, GL_SPECULAR, mat_specular
	stdcall [glMaterialf], GL_FRONT, GL_SHININESS, mat_shininess
	stdcall [glLightModelfv], GL_LIGHT_MODEL_AMBIENT, lmodel_ambient
 
	stdcall [glEnable],GL_LIGHTING
	stdcall [glEnable],GL_LIGHT0
	ret
 
;¢ª«îç ¥¬ à¥¦¨¬ à¨á®¢ ­¨ï ¢¥àè¨­
align 4
mnu_vertexes_on:
	or dword[draw_mode], 1 shl bit_vertexes
	and dword[draw_mode], not (1 shl bit_faces) ;¢ëª«îç ¥¬ à¥¦¨¬ à¨á®¢ ­¨ï £à ­¥© (çâ®-¡ë ­¥ ¬¥è «¨)
	call update_obj
	ret
 
;¢ª«îç ¥¬ à¥¦¨¬ à¨á®¢ ­¨ï ª àª á­ëå £à ­¥©
align 4
mnu_edges_on:
	or dword[draw_mode], 1 shl bit_faces
	and dword[draw_mode], not ((1 shl bit_vertexes)+(1 shl bit_faces_fill))
	call update_obj
	ret
 
;¢ª«îç ¥¬ à¥¦¨¬ à¨á®¢ ­¨ï á¯«®è­ëå £à ­¥©
align 4
mnu_faces_on:
	or dword[draw_mode], (1 shl bit_faces)+(1 shl bit_faces_fill)
	and dword[draw_mode], not (1 shl bit_vertexes)
	call update_obj
	ret
 
;¢ª«îç ¥¬ ¨«¨ ®âª«îç ¥¬ ®á¢¥é¥­¨¥
align 4
mnu_light_on_off:
	xor dword[draw_mode], 1 shl bit_light
	call update_obj
	ret
 
align 4
mnu_reset_settings:
	mov dword[angle_x],0.0
	mov dword[angle_y],0.0
	mov dword[angle_z],0.0
	m2m dword[draw_mode],dword[def_dr_mode]
	call update_obj
	ret
 
if version_edit eq 1
 
align 4
update_obj:
	stdcall draw_3d, o3d
	ret
 
else
 
align 4
update_obj:
push eax ebx
	stdcall [tl_node_get_data],tree1
	cmp eax,0
	je @f
		mov ebx,dword[eax] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ë¡à ­­®£® ¡«®ª  ®â­®á¨â¥«ì­® ­ ç «  ä ©« 
		add ebx,dword[open_file_data] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ ¯ ¬ïâ¨
		cmp word[ebx],CHUNK_OBJBLOCK
		jne @f
			add eax,14 ;14=list_offs_obj3d
			stdcall draw_3d, eax
	@@:
pop ebx eax
	ret
 
end if
 
align 4
draw_mode dd 0 ;à¥¦¨¬ à¨á®¢ ­¨ï ®¡ê¥ªâ 
def_dr_mode dd 0 ;à¥¦¨¬ à¨á®¢ ­¨ï ¯® ã¬®«ç ­¨î
delt_size dd 3.0 ;¨§¬¥­¥­¨¥ ã£«®¢ ¯à¨ ¯®¢®à®â å á ª«¨¢¨ âãàë
mouse_drag dd 0 ;à¥¦¨¬ ¯®¢®à®â  áæ¥­ë ®â ¯¥à¥¬¥é¥­¨¨ ªãàá®à  ¬ëè¨
mouse_x dd 0
mouse_y dd 0
sph_radius dd 0 ;à ¤¨ãá áä¥àë ¤«ï ¢ë¤¥«¥­¨ï  ªâ¨¢­®© â®çª¨
>

Rev 6060	Rev 6081
1	;	1	;
2	; áâàãªâãàë ¨ äãªæ¨¨ ¤«ï à¨á®¢ ¨ï 3d ®¡ê¥ªâ®¢	2	; áâàãªâãàë ¨ äãªæ¨¨ ¤«ï à¨á®¢ ¨ï 3d ®¡ê¥ªâ®¢
3	;	3	;
4		4
5	offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'	5	offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'
6		6
7	struct obj_3d	7	struct obj_3d
8	poi_data dd ? ;ãª § â¥«ì ª®®à¤¨ âë ¢¥àè¨	8	poi_data dd ? ;ãª § â¥«ì ª®®à¤¨ âë ¢¥àè¨
9	poi_count dd ? ;ª®««¨ç¥áâ¢® ¢¥àè¨	9	poi_count dd ? ;ª®««¨ç¥áâ¢® ¢¥àè¨
10	tri_data dd ? ;ãª § â¥«ì ¤ ë¥ âà¥ã£®«ì¨ª®¢	10	tri_data dd ? ;ãª § â¥«ì ¤ ë¥ âà¥ã£®«ì¨ª®¢
11	tri_count dd ? ;ª®««¨ç¥áâ¢® âà¥ã£®«ì¨ª®¢	11	tri_count dd ? ;ª®««¨ç¥áâ¢® âà¥ã£®«ì¨ª®¢
12	normals_poi_data dd ? ;¤ ë¥ ®à¬ «¥© ª â®çª ¬	12	normals_poi_data dd ? ;¤ ë¥ ®à¬ «¥© ª â®çª ¬
13	normals_poi_count dd ? ;ª®««¨ç¥áâ¢® ®à¬ «¥© ª â®çª ¬	13	normals_poi_count dd ? ;ª®««¨ç¥áâ¢® ®à¬ «¥© ª â®çª ¬
14	normals_tri_data dd ? ;¤ ë¥ ®à¬ «¥© ª £à ï¬	14	normals_tri_data dd ? ;¤ ë¥ ®à¬ «¥© ª £à ï¬
15	normals_tri_count dd ? ;ª®««¨ç¥áâ¢® ®à¬ «¥© ª £à ï¬	15	normals_tri_count dd ? ;ª®««¨ç¥áâ¢® ®à¬ «¥© ª £à ï¬
16	x_max dd ?	16	x_max dd ?
17	x_min dd ?	17	x_min dd ?
18	x_centr dd ?	18	x_centr dd ?
19	x_scale dd ?	19	x_scale dd ?
20	y_max dd ?	20	y_max dd ?
21	y_min dd ?	21	y_min dd ?
22	y_centr dd ?	22	y_centr dd ?
23	y_scale dd ?	23	y_scale dd ?
24	z_max dd ?	24	z_max dd ?
25	z_min dd ?	25	z_min dd ?
26	z_centr dd ?	26	z_centr dd ?
27	z_scale dd ?	27	z_scale dd ?
28	ends	28	ends
29		29
30	offs_obj_poi_data equ 0 ;ãª § â¥«ì ª®®à¤¨ âë ¢¥àè¨	30	offs_obj_poi_data equ 0 ;ãª § â¥«ì ª®®à¤¨ âë ¢¥àè¨
31	offs_obj_poi_count equ 4 ;ª®««¨ç¥áâ¢® ¢¥àè¨	31	offs_obj_poi_count equ 4 ;ª®««¨ç¥áâ¢® ¢¥àè¨
32	offs_obj_tri_data equ 8 ;ãª § â¥«ì ¤ ë¥ âà¥ã£®«ì¨ª®¢	32	offs_obj_tri_data equ 8 ;ãª § â¥«ì ¤ ë¥ âà¥ã£®«ì¨ª®¢
33	offs_obj_tri_count equ 12 ;ª®««¨ç¥áâ¢® âà¥ã£®«ì¨ª®¢	33	offs_obj_tri_count equ 12 ;ª®««¨ç¥áâ¢® âà¥ã£®«ì¨ª®¢
34	offs_obj_normals_poi_data equ 16	34	offs_obj_normals_poi_data equ 16
35	offs_obj_normals_poi_count equ 20	35	offs_obj_normals_poi_count equ 20
36	offs_obj_normals_tri_data equ 24	36	offs_obj_normals_tri_data equ 24
37	offs_obj_normals_tri_count equ 28	37	offs_obj_normals_tri_count equ 28
38	offs_obj_x_max equ 32	38	offs_obj_x_max equ 32
39	offs_obj_x_min equ 36	39	offs_obj_x_min equ 36
40	offs_obj_x_centr equ 40	40	offs_obj_x_centr equ 40
41	offs_obj_x_scale equ 44	41	offs_obj_x_scale equ 44
42	offs_obj_y_max equ 48	42	offs_obj_y_max equ 48
43	offs_obj_y_min equ 52	43	offs_obj_y_min equ 52
44	offs_obj_y_centr equ 56	44	offs_obj_y_centr equ 56
45	offs_obj_y_scale equ 60	45	offs_obj_y_scale equ 60
46	offs_obj_z_max equ 64	46	offs_obj_z_max equ 64
47	offs_obj_z_min equ 68	47	offs_obj_z_min equ 68
48	offs_obj_z_centr equ 72	48	offs_obj_z_centr equ 72
49	offs_obj_z_scale equ 76	49	offs_obj_z_scale equ 76
-		50
-		51	struct material
-		52	name dd ?
-		53	col_ambient dd ? ;æ¢¥â ¬ â¥à¨ «
-		54	col_diffuse dd ?
-		55	col_specular dd ?
-		56	ends
-		57
-		58	offs_mat_name equ 0
-		59	offs_mat_col_ambient equ 4
-		60	offs_mat_col_diffuse equ 8
50		61	offs_mat_col_specular equ 12
51		62
52	bit_vertexes equ 0	63	bit_vertexes equ 0
53	bit_faces equ 1	64	bit_faces equ 1
54	bit_faces_fill equ 2	65	bit_faces_fill equ 2
55	bit_light equ 3	66	bit_light equ 3
56		67
57	ini_name db 'info3ds.ini',0	68	ini_name db 'info3ds.ini',0
58	ini_sec_w3d db 'Window 3d',0	69	ini_sec_w3d db 'Window 3d',0
59	key_dv db 'draw_vertices',0	70	key_dv db 'draw_vertices',0
60	key_df db 'draw_faces',0	71	key_df db 'draw_faces',0
61	key_dff db 'draw_faces_fill',0	72	key_dff db 'draw_faces_fill',0
62	key_dl db 'draw_light',0	73	key_dl db 'draw_light',0
63	key_ox db 'col_ox',0	74	key_ox db 'col_ox',0
64	key_oy db 'col_oy',0	75	key_oy db 'col_oy',0
65	key_oz db 'col_oz',0	76	key_oz db 'col_oz',0
66	key_bk db 'col_bkgnd',0	77	key_bk db 'col_bkgnd',0
67	key_vert db 'col_vertices',0	78	key_vert db 'col_vertices',0
68	key_face db 'col_faces',0	79	key_face db 'col_faces',0
69	key_select db 'col_select',0	80	key_select db 'col_select',0
70		81
71		82
72	rad_c dd 150 ;¤«ï ¢ëç¨á«¥¨ï à ¤¨ãá	83	rad_c dd 150 ;¤«ï ¢ëç¨á«¥¨ï à ¤¨ãá
-		84
-		85	align 4
-		86	proc hex_in_str, buf:dword,val:dword,zif:dword
-		87	pushad
-		88	mov edi,dword[buf]
-		89	mov ecx,dword[zif]
-		90	add edi,ecx
-		91	dec edi
-		92	mov ebx,dword[val]
-		93
-		94	.cycle:
-		95	mov al,bl
-		96	and al,0xf
-		97	cmp al,10
-		98	jl @f
-		99	add al,'a'-'0'-10
-		100	@@:
-		101	add al,'0'
-		102	mov byte[edi],al
-		103	dec edi
-		104	shr ebx,4
-		105	loop .cycle
-		106	popad
-		107	ret
73		108	endp
74		109
75	;ãáâ ®¢ª ¢á¥å ®á®¢ëå ¯¥à¥¬¥ëå ¯® ã¬®«ç ¨î	110	;ãáâ ®¢ª ¢á¥å ®á®¢ëå ¯¥à¥¬¥ëå ¯® ã¬®«ç ¨î
76	align 4	111	align 4
77	proc obj_clear_param uses edi, o_data:dword	112	proc obj_clear_param uses edi, o_data:dword
78	mov edi,[o_data]	113	mov edi,[o_data]
79	;®¡ã«¥¨¥ ãª § â¥«¥© ¤ ë¥ ®¡ê¥ªâ®¢	114	;®¡ã«¥¨¥ ãª § â¥«¥© ¤ ë¥ ®¡ê¥ªâ®¢
80	mov dword[edi+offs_obj_poi_data],0	115	mov dword[edi+offs_obj_poi_data],0
81	mov dword[edi+offs_obj_poi_count],0	116	mov dword[edi+offs_obj_poi_count],0
82	mov dword[edi+offs_obj_tri_data],0	117	mov dword[edi+offs_obj_tri_data],0
83	mov dword[edi+offs_obj_tri_count],0	118	mov dword[edi+offs_obj_tri_count],0
84	mov dword[edi+offs_obj_normals_tri_count],0	119	mov dword[edi+offs_obj_normals_tri_count],0
85	mov dword[edi+offs_obj_normals_poi_count],0	120	mov dword[edi+offs_obj_normals_poi_count],0
86	cmp dword[edi+offs_obj_normals_tri_data],0	121	cmp dword[edi+offs_obj_normals_tri_data],0
87	je @f	122	je @f
88	stdcall mem.Free,[edi+offs_obj_normals_tri_data]	123	stdcall mem.Free,[edi+offs_obj_normals_tri_data]
89	mov dword[edi+offs_obj_normals_tri_data],0	124	mov dword[edi+offs_obj_normals_tri_data],0
90	@@:	125	@@:
91	cmp dword[edi+offs_obj_normals_poi_data],0	126	cmp dword[edi+offs_obj_normals_poi_data],0
92	je @f	127	je @f
93	stdcall mem.Free,[edi+offs_obj_normals_poi_data]	128	stdcall mem.Free,[edi+offs_obj_normals_poi_data]
94	mov dword[edi+offs_obj_normals_poi_data],0	129	mov dword[edi+offs_obj_normals_poi_data],0
95	@@:	130	@@:
96	ret	131	ret
97	endp	132	endp
98		133
99	;¯®¨áª ¤ ëå	134	;¯®¨áª ¤ ëå
100	;input:	135	;input:
101	;eax - â¥ªãé¨© ã§¥«	136	;eax - â¥ªãé¨© ã§¥«
102	;output:	137	;output:
103	;eax - áâàãªâãà â¥ªãé¥£® ã§« (¨«¨ 0 ¯à¨ ¥ã¤ ç¥)	138	;eax - áâàãªâãà â¥ªãé¥£® ã§« (¨«¨ 0 ¯à¨ ¥ã¤ ç¥)
104	align 4	139	align 4
105	proc found_block_data uses ebx ecx edx, tlist:dword	140	proc found_block_data uses ebx ecx edx, tlist:dword
106	mov edx,[tlist]	141	mov edx,[tlist]
107	mov ecx,eax	142	mov ecx,eax
108	stdcall [tl_node_poi_get_info], edx,0	143	stdcall [tl_node_poi_get_info], edx,0
109	@@:	144	@@:
110	mov ebx,eax	145	mov ebx,eax
111	stdcall [tl_node_poi_get_data], edx,ebx	146	stdcall [tl_node_poi_get_data], edx,ebx
112	cmp eax,ecx	147	cmp eax,ecx
113	je @f ;¥á«¨ ¯®¯ «¨ ¢ë¡à ë© ã§¥«	148	je @f ;¥á«¨ ¯®¯ «¨ ¢ë¡à ë© ã§¥«
114	stdcall [tl_node_poi_get_next_info], edx,ebx	149	stdcall [tl_node_poi_get_next_info], edx,ebx
115	cmp eax,0	150	cmp eax,0
116	jne @b	151	jne @b
117	jmp .end	152	jmp .end
118	@@:	153	@@:
119	mov eax,ebx	154	mov eax,ebx
120	.end:	155	.end:
121	ret	156	ret
122	endp	157	endp
123		158
124	;ãáâ ®¢ª à §¬¥à®¢ ®¡ê¥ªâ	159	;ãáâ ®¢ª à §¬¥à®¢ ®¡ê¥ªâ
125	align 4	160	align 4
126	proc obj_set_sizes uses eax ebx esi edi, o_data:dword	161	proc obj_set_sizes uses eax ebx esi edi, o_data:dword
127	mov edi,[o_data]	162	mov edi,[o_data]
128	cmp dword[edi+offs_obj_poi_count],0	163	cmp dword[edi+offs_obj_poi_count],0
129	je .end	164	je .end
130	finit	165	finit
131	mov eax,[edi+offs_obj_poi_data]	166	mov eax,[edi+offs_obj_poi_data]
132	mov ebx,dword[eax]	167	mov ebx,dword[eax]
133	mov [edi+offs_obj_x_min],ebx	168	mov [edi+offs_obj_x_min],ebx
134	mov [edi+offs_obj_x_max],ebx	169	mov [edi+offs_obj_x_max],ebx
135	mov ebx,dword[eax+4]	170	mov ebx,dword[eax+4]
136	mov [edi+offs_obj_y_min],ebx	171	mov [edi+offs_obj_y_min],ebx
137	mov [edi+offs_obj_y_max],ebx	172	mov [edi+offs_obj_y_max],ebx
138	mov ebx,dword[eax+8]	173	mov ebx,dword[eax+8]
139	mov [edi+offs_obj_z_min],ebx	174	mov [edi+offs_obj_z_min],ebx
140	mov [edi+offs_obj_z_max],ebx	175	mov [edi+offs_obj_z_max],ebx
141		176
142	mov ebx,[edi+offs_obj_poi_data]	177	mov ebx,[edi+offs_obj_poi_data]
143	mov esi,[edi+offs_obj_poi_count]	178	mov esi,[edi+offs_obj_poi_count]
144	align 4	179	align 4
145	.cycle_0: ;à ¡®â á ª®®à¤¨ â®© x	180	.cycle_0: ;à ¡®â á ª®®à¤¨ â®© x
146	fld dword[ebx]	181	fld dword[ebx]
147	fld dword[edi+offs_obj_x_min]	182	fld dword[edi+offs_obj_x_min]
148	fcomp	183	fcomp
149	fstsw ax	184	fstsw ax
150	sahf	185	sahf
151	jb @f	186	jb @f
152	mov eax,[ebx]	187	mov eax,[ebx]
153	mov [edi+offs_obj_x_min],eax	188	mov [edi+offs_obj_x_min],eax
154	ffree st0	189	ffree st0
155	fincstp	190	fincstp
156	jmp .next_x	191	jmp .next_x
157	@@:	192	@@:
158	fld dword[edi+offs_obj_x_max]	193	fld dword[edi+offs_obj_x_max]
159	fcompp	194	fcompp
160	fstsw ax	195	fstsw ax
161	sahf	196	sahf
162	ja .next_x	197	ja .next_x
163	mov eax,[ebx]	198	mov eax,[ebx]
164	mov [edi+offs_obj_x_max],eax	199	mov [edi+offs_obj_x_max],eax
165	.next_x:	200	.next_x:
166		201
167	add ebx,12	202	add ebx,12
168	dec esi	203	dec esi
169	jnz .cycle_0	204	jnz .cycle_0
170		205
171	fld1	206	fld1
172	fld dword[edi+offs_obj_x_max]	207	fld dword[edi+offs_obj_x_max]
173	fsub dword[edi+offs_obj_x_min]	208	fsub dword[edi+offs_obj_x_min]
174	fst dword[edi+offs_obj_x_centr]	209	fst dword[edi+offs_obj_x_centr]
175	fdivp ;1/size.x	210	fdivp ;1/size.x
176	fstp dword[edi+offs_obj_x_scale]	211	fstp dword[edi+offs_obj_x_scale]
177		212
178	fld dword[edi+offs_obj_x_centr]	213	fld dword[edi+offs_obj_x_centr]
179	fld1	214	fld1
180	fld1	215	fld1
181	faddp	216	faddp
182	fdivp ;centr.x = size.x/2	217	fdivp ;centr.x = size.x/2
183	fadd dword[edi+offs_obj_x_min]	218	fadd dword[edi+offs_obj_x_min]
184	fchs	219	fchs
185	fstp dword[edi+offs_obj_x_centr]	220	fstp dword[edi+offs_obj_x_centr]
186		221
187	mov ebx,[edi+offs_obj_poi_data]	222	mov ebx,[edi+offs_obj_poi_data]
188	mov esi,[edi+offs_obj_poi_count]	223	mov esi,[edi+offs_obj_poi_count]
189	align 4	224	align 4
190	.cycle_1: ;à ¡®â á ª®®à¤¨ â®© y	225	.cycle_1: ;à ¡®â á ª®®à¤¨ â®© y
191	fld dword[ebx+4]	226	fld dword[ebx+4]
192	fld dword[edi+offs_obj_y_min]	227	fld dword[edi+offs_obj_y_min]
193	fcomp	228	fcomp
194	fstsw ax	229	fstsw ax
195	sahf	230	sahf
196	jb @f	231	jb @f
197	mov eax,[ebx+4]	232	mov eax,[ebx+4]
198	mov [edi+offs_obj_y_min],eax	233	mov [edi+offs_obj_y_min],eax
199	ffree st0	234	ffree st0
200	fincstp	235	fincstp
201	jmp .next_y	236	jmp .next_y
202	@@:	237	@@:
203	fld dword[edi+offs_obj_y_max]	238	fld dword[edi+offs_obj_y_max]
204	fcompp	239	fcompp
205	fstsw ax	240	fstsw ax
206	sahf	241	sahf
207	ja .next_y	242	ja .next_y
208	mov eax,[ebx+4]	243	mov eax,[ebx+4]
209	mov [edi+offs_obj_y_max],eax	244	mov [edi+offs_obj_y_max],eax
210	.next_y:	245	.next_y:
211		246
212	add ebx,12	247	add ebx,12
213	dec esi	248	dec esi
214	jnz .cycle_1	249	jnz .cycle_1
215		250
216	fld1	251	fld1
217	fld dword[edi+offs_obj_y_max]	252	fld dword[edi+offs_obj_y_max]
218	fsub dword[edi+offs_obj_y_min]	253	fsub dword[edi+offs_obj_y_min]
219	fst dword[edi+offs_obj_y_centr]	254	fst dword[edi+offs_obj_y_centr]
220	fdivp ;1/size.y	255	fdivp ;1/size.y
221	fstp dword[edi+offs_obj_y_scale]	256	fstp dword[edi+offs_obj_y_scale]
222		257
223	fld dword[edi+offs_obj_y_centr]	258	fld dword[edi+offs_obj_y_centr]
224	fld1	259	fld1
225	fld1	260	fld1
226	faddp	261	faddp
227	fdivp ;centr.y = size.y/2	262	fdivp ;centr.y = size.y/2
228	fadd dword[edi+offs_obj_y_min]	263	fadd dword[edi+offs_obj_y_min]
229	fchs	264	fchs
230	fstp dword[edi+offs_obj_y_centr]	265	fstp dword[edi+offs_obj_y_centr]
231		266
232	mov ebx,[edi+offs_obj_poi_data]	267	mov ebx,[edi+offs_obj_poi_data]
233	mov esi,[edi+offs_obj_poi_count]	268	mov esi,[edi+offs_obj_poi_count]
234	align 4	269	align 4
235	.cycle_2: ;à ¡®â á ª®®à¤¨ â®© z	270	.cycle_2: ;à ¡®â á ª®®à¤¨ â®© z
236	fld dword[ebx+8]	271	fld dword[ebx+8]
237	fld dword[edi+offs_obj_z_min]	272	fld dword[edi+offs_obj_z_min]
238	fcomp	273	fcomp
239	fstsw ax	274	fstsw ax
240	sahf	275	sahf
241	jb @f	276	jb @f
242	mov eax,[ebx+8]	277	mov eax,[ebx+8]
243	mov [edi+offs_obj_z_min],eax	278	mov [edi+offs_obj_z_min],eax
244	ffree st0	279	ffree st0
245	fincstp	280	fincstp
246	jmp .next_z	281	jmp .next_z
247	@@:	282	@@:
248	fld dword[edi+offs_obj_z_max]	283	fld dword[edi+offs_obj_z_max]
249	fcompp	284	fcompp
250	fstsw ax	285	fstsw ax
251	sahf	286	sahf
252	ja .next_z	287	ja .next_z
253	mov eax,[ebx+8]	288	mov eax,[ebx+8]
254	mov [edi+offs_obj_z_max],eax	289	mov [edi+offs_obj_z_max],eax
255	.next_z:	290	.next_z:
256		291
257	add ebx,12	292	add ebx,12
258	dec esi	293	dec esi
259	jnz .cycle_2	294	jnz .cycle_2
260		295
261	fld1	296	fld1
262	fld dword[edi+offs_obj_z_max]	297	fld dword[edi+offs_obj_z_max]
263	fsub dword[edi+offs_obj_z_min]	298	fsub dword[edi+offs_obj_z_min]
264	fst dword[edi+offs_obj_z_centr]	299	fst dword[edi+offs_obj_z_centr]
265	fdivp ;1/size.z	300	fdivp ;1/size.z
266	fstp dword[edi+offs_obj_z_scale]	301	fstp dword[edi+offs_obj_z_scale]
267		302
268	fld dword[edi+offs_obj_z_centr]	303	fld dword[edi+offs_obj_z_centr]
269	fld1	304	fld1
270	fld1	305	fld1
271	faddp	306	faddp
272	fdivp ;centr.z = size.z/2	307	fdivp ;centr.z = size.z/2
273	fadd dword[edi+offs_obj_z_min]	308	fadd dword[edi+offs_obj_z_min]
274	fchs	309	fchs
275	fstp dword[edi+offs_obj_z_centr]	310	fstp dword[edi+offs_obj_z_centr]
276		311
277	; å®¤¨¬ à ¤¨ãá ¤«ï áä¥àë	312	; å®¤¨¬ à ¤¨ãá ¤«ï áä¥àë
278	fld dword[edi+offs_obj_x_max]	313	fld dword[edi+offs_obj_x_max]
279	fsub dword[edi+offs_obj_x_min]	314	fsub dword[edi+offs_obj_x_min]
280	fld dword[edi+offs_obj_y_max]	315	fld dword[edi+offs_obj_y_max]
281	fsub dword[edi+offs_obj_y_min]	316	fsub dword[edi+offs_obj_y_min]
282	faddp	317	faddp
283	fild dword[rad_c]	318	fild dword[rad_c]
284	fdivp ;radius=(size.x+size.y)/rad_c	319	fdivp ;radius=(size.x+size.y)/rad_c
285	fstp dword[sph_radius]	320	fstp dword[sph_radius]
286		321
287	;¤¥« ¥¬ ®¤¨ ª®¢ë© ¬ áèâ ¡ ¯® ®áï¬ x ¨ y, çâ®-¡ë ¥ àãè «¨áì ¯à®¯®àæ¨¨ ¨§®¡à ¦¥¨ï	322	;¤¥« ¥¬ ®¤¨ ª®¢ë© ¬ áèâ ¡ ¯® ®áï¬ x ¨ y, çâ®-¡ë ¥ àãè «¨áì ¯à®¯®àæ¨¨ ¨§®¡à ¦¥¨ï
288	fld dword[edi+offs_obj_y_scale]	323	fld dword[edi+offs_obj_y_scale]
289	fdiv dword[ratio] ;¯à¨¢¥¤¥¨¥ ¬ áèâ ¡ ¯® ®á¨ y ãç¨âë¢ ï çâ® ¯® ¢ëá®â¥ íªà ¬¥ìè¥	324	fdiv dword[ratio] ;¯à¨¢¥¤¥¨¥ ¬ áèâ ¡ ¯® ®á¨ y ãç¨âë¢ ï çâ® ¯® ¢ëá®â¥ íªà ¬¥ìè¥
290	fcomp dword[edi+offs_obj_x_scale]	325	fcomp dword[edi+offs_obj_x_scale]
291	fstsw ax	326	fstsw ax
292	sahf	327	sahf
293	jb @f	328	jb @f
294	;á¦ â¨¥ ¬ áèâ ¡ ¯® y	329	;á¦ â¨¥ ¬ áèâ ¡ ¯® y
295	fld dword[edi+offs_obj_x_scale]	330	fld dword[edi+offs_obj_x_scale]
296	fmul dword[ratio]	331	fmul dword[ratio]
297	fstp dword[edi+offs_obj_y_scale] ;¬ áèâ ¡ ¯® ®á¨ y = ¬ áèâ ¡ ¯® ®á¨ x	332	fstp dword[edi+offs_obj_y_scale] ;¬ áèâ ¡ ¯® ®á¨ y = ¬ áèâ ¡ ¯® ®á¨ x
298	jmp .end	333	jmp .end
299	@@:	334	@@:
300	;á¦ â¨¥ ¬ áèâ ¡ ¯® x >...<	335	;á¦ â¨¥ ¬ áèâ ¡ ¯® x >...<
301	fld dword[edi+offs_obj_x_scale]	336	fld dword[edi+offs_obj_x_scale]
302	fdiv dword[ratio]	337	fdiv dword[ratio]
303	fstp dword[edi+offs_obj_x_scale]	338	fstp dword[edi+offs_obj_x_scale]
304	.end:	339	.end:
305	ret	340	ret
306	endp	341	endp
307		342
308	;ãáâ ®¢ª ®à¬ «¥© ¤«ï £à ¥©	343	;ãáâ ®¢ª ®à¬ «¥© ¤«ï £à ¥©
309	align 4	344	align 4
310	proc obj_set_normals, o_data:dword	345	proc obj_set_normals, o_data:dword
311	locals	346	locals
312	tbl1 rd 9 ;ebp-72	347	tbl1 rd 9 ;ebp-72
313	tbl2 rd 9 ;ebp-36	348	tbl2 rd 9 ;ebp-36
314	endl	349	endl
315	pushad	350	pushad
316	mov ecx,[o_data]	351	mov ecx,[o_data]
317	cmp dword[ecx+offs_obj_poi_count],0	352	cmp dword[ecx+offs_obj_poi_count],0
318	je .end	353	je .end
319	mov eax,[ecx+offs_obj_tri_count]	354	mov eax,[ecx+offs_obj_tri_count]
320	mov [ecx+offs_obj_normals_tri_count],eax ; ª ¦¤ë© âà¥ã£®«ì¨ª 1 ®à¬ «ì	355	mov [ecx+offs_obj_normals_tri_count],eax ; ª ¦¤ë© âà¥ã£®«ì¨ª 1 ®à¬ «ì
321	cmp eax,0	356	cmp eax,0
322	je .end	357	je .end
323	finit	358	finit
324	imul eax,12	359	imul eax,12
325	stdcall mem.Alloc, eax	360	stdcall mem.Alloc, eax
326	mov [ecx+offs_obj_normals_tri_data],eax	361	mov [ecx+offs_obj_normals_tri_data],eax
327		362
328	mov edx,[ecx+offs_obj_tri_data]	363	mov edx,[ecx+offs_obj_tri_data]
329	mov ebx,[ecx+offs_obj_tri_count]	364	mov ebx,[ecx+offs_obj_tri_count]
330	mov ecx,[ecx+offs_obj_poi_data]	365	mov ecx,[ecx+offs_obj_poi_data]
331	align 4	366	align 4
332	@@:	367	@@:
333	mov edi,ebp	368	mov edi,ebp
334	sub edi,36 ;tbl2	369	sub edi,36 ;tbl2
335	movzx esi,word[edx] ;1-ï ¢¥àè¨	370	movzx esi,word[edx] ;1-ï ¢¥àè¨
336	imul esi,12	371	imul esi,12
337	add esi,ecx	372	add esi,ecx
338	movsd	373	movsd
339	movsd	374	movsd
340	movsd	375	movsd
341	movzx esi,word[edx+2] ;2-ï ¢¥àè¨	376	movzx esi,word[edx+2] ;2-ï ¢¥àè¨
342	imul esi,12	377	imul esi,12
343	add esi,ecx	378	add esi,ecx
344	movsd	379	movsd
345	movsd	380	movsd
346	movsd	381	movsd
347	movzx esi,word[edx+4] ;3-ï ¢¥àè¨	382	movzx esi,word[edx+4] ;3-ï ¢¥àè¨
348	imul esi,12	383	imul esi,12
349	add esi,ecx	384	add esi,ecx
350	movsd	385	movsd
351	movsd	386	movsd
352	movsd	387	movsd
353		388
354	mov esi,ebp	389	mov esi,ebp
355	sub esi,72 ;tbl1	390	sub esi,72 ;tbl1
356	sub edi,36 ;tbl2	391	sub edi,36 ;tbl2
357	;v1 <-> v2	392	;v1 <-> v2
358	fld dword[edi+12]	393	fld dword[edi+12]
359	fsub dword[edi]	394	fsub dword[edi]
360	fstp dword[esi] ;(x1-x2)	395	fstp dword[esi] ;(x1-x2)
361	fld dword[edi+16]	396	fld dword[edi+16]
362	fsub dword[edi+4]	397	fsub dword[edi+4]
363	fstp dword[esi+4] ;(y1-y2)	398	fstp dword[esi+4] ;(y1-y2)
364	fld dword[edi+20]	399	fld dword[edi+20]
365	fsub dword[edi+8]	400	fsub dword[edi+8]
366	fstp dword[esi+8] ;(z1-z2)	401	fstp dword[esi+8] ;(z1-z2)
367	;v2 <-> v3	402	;v2 <-> v3
368	fld dword[edi+24]	403	fld dword[edi+24]
369	fsub dword[edi+12]	404	fsub dword[edi+12]
370	fstp dword[esi+12] ;(x2-x3)	405	fstp dword[esi+12] ;(x2-x3)
371	fld dword[edi+28]	406	fld dword[edi+28]
372	fsub dword[edi+16]	407	fsub dword[edi+16]
373	fstp dword[esi+16] ;(y2-y3)	408	fstp dword[esi+16] ;(y2-y3)
374	fld dword[edi+32]	409	fld dword[edi+32]
375	fsub dword[edi+20]	410	fsub dword[edi+20]
376	fstp dword[esi+20] ;(z2-z3)	411	fstp dword[esi+20] ;(z2-z3)
377	;v3 <-> v1	412	;v3 <-> v1
378	fld dword[edi]	413	fld dword[edi]
379	fsub dword[edi+24]	414	fsub dword[edi+24]
380	fstp dword[esi+24] ;(x3-x1)	415	fstp dword[esi+24] ;(x3-x1)
381	fld dword[edi+4]	416	fld dword[edi+4]
382	fsub dword[edi+28]	417	fsub dword[edi+28]
383	fstp dword[esi+28] ;(y3-y1)	418	fstp dword[esi+28] ;(y3-y1)
384	fld dword[edi+8]	419	fld dword[edi+8]
385	fsub dword[edi+32]	420	fsub dword[edi+32]
386	fstp dword[esi+32] ;(z3-z1)	421	fstp dword[esi+32] ;(z3-z1)
387		422
388	;a1,a2,a3	423	;a1,a2,a3
389	fld dword[esi+4]	424	fld dword[esi+4]
390	fmul dword[esi+8]	425	fmul dword[esi+8]
391	fstp dword[edi] ;a1=(y1-y2)*(z1-z2)	426	fstp dword[edi] ;a1=(y1-y2)*(z1-z2)
392	fld dword[esi+16]	427	fld dword[esi+16]
393	fmul dword[esi+20]	428	fmul dword[esi+20]
394	fstp dword[edi+4] ;a2=(y2-y3)*(z2-z3)	429	fstp dword[edi+4] ;a2=(y2-y3)*(z2-z3)
395	fld dword[esi+28]	430	fld dword[esi+28]
396	fmul dword[esi+32]	431	fmul dword[esi+32]
397	fstp dword[edi+8] ;a3=(y3-y1)*(z3-z1)	432	fstp dword[edi+8] ;a3=(y3-y1)*(z3-z1)
398	;b1,b2,b3	433	;b1,b2,b3
399	fld dword[esi]	434	fld dword[esi]
400	fmul dword[esi+8]	435	fmul dword[esi+8]
401	fstp dword[edi+12] ;b1=(x1-x2)*(z1-z2)	436	fstp dword[edi+12] ;b1=(x1-x2)*(z1-z2)
402	fld dword[esi+12]	437	fld dword[esi+12]
403	fmul dword[esi+20]	438	fmul dword[esi+20]
404	fstp dword[edi+16] ;b2=(x2-x3)*(z2-z3)	439	fstp dword[edi+16] ;b2=(x2-x3)*(z2-z3)
405	fld dword[esi+24]	440	fld dword[esi+24]
406	fmul dword[esi+32]	441	fmul dword[esi+32]
407	fstp dword[edi+20] ;b3=(x3-x1)*(z3-z1)	442	fstp dword[edi+20] ;b3=(x3-x1)*(z3-z1)
408	;c1,á2,á3	443	;c1,á2,á3
409	fld dword[esi]	444	fld dword[esi]
410	fmul dword[esi+4]	445	fmul dword[esi+4]
411	fstp dword[edi+24] ;c1=(x1-x2)*(y1-y2)	446	fstp dword[edi+24] ;c1=(x1-x2)*(y1-y2)
412	fld dword[esi+12]	447	fld dword[esi+12]
413	fmul dword[esi+16]	448	fmul dword[esi+16]
414	fstp dword[edi+28] ;c2=(x2-x3)*(y2-y3)	449	fstp dword[edi+28] ;c2=(x2-x3)*(y2-y3)
415	fld dword[esi+24]	450	fld dword[esi+24]
416	fmul dword[esi+28]	451	fmul dword[esi+28]
417	fstp dword[edi+32] ;c3=(x3-x1)*(y3-y1)	452	fstp dword[edi+32] ;c3=(x3-x1)*(y3-y1)
418		453
419	fld dword[edi]	454	fld dword[edi]
420	fadd dword[edi+4]	455	fadd dword[edi+4]
421	fadd dword[edi+8]	456	fadd dword[edi+8]
422	fstp dword[eax] ;set normal.a	457	fstp dword[eax] ;set normal.a
423	fld dword[edi+12]	458	fld dword[edi+12]
424	fadd dword[edi+16]	459	fadd dword[edi+16]
425	fadd dword[edi+20]	460	fadd dword[edi+20]
426	fstp dword[eax+4] ;set normal.b	461	fstp dword[eax+4] ;set normal.b
427	fld dword[edi+24]	462	fld dword[edi+24]
428	fadd dword[edi+28]	463	fadd dword[edi+28]
429	fadd dword[edi+32]	464	fadd dword[edi+32]
430	fstp dword[eax+8] ;set normal.c	465	fstp dword[eax+8] ;set normal.c
431		466
432	add edx,8 ;à §¬¥à âà¥ã£®«ì¨ª = (3 ¢¥àè¨ë (¯® 2¡) + á¢®©áâ¢ (2¡))	467	add edx,8 ;à §¬¥à âà¥ã£®«ì¨ª = (3 ¢¥àè¨ë (¯® 2¡) + á¢®©áâ¢ (2¡))
433	add eax,12	468	add eax,12
434	dec ebx	469	dec ebx
435	jnz @b	470	jnz @b
436	.end:	471	.end:
437	popad	472	popad
438	ret	473	ret
439	endp	474	endp
440		475
441	; áâà®©ª áâàãªâãàë 3d ®¡ê¥ªâ	476	; áâà®©ª áâàãªâãàë 3d ®¡ê¥ªâ
442	align 4	477	align 4
443	proc obj_init, o_data:dword	478	proc obj_init, o_data:dword
444	pushad	479	pushad
445	mov edi,[o_data]	480	mov edi,[o_data]
446	stdcall obj_clear_param, edi	481	stdcall obj_clear_param, edi
447	stdcall [tl_node_get_data],tree1	482	stdcall [tl_node_get_data],tree1
448	xor edx,edx	483	xor edx,edx
449	cmp eax,0	484	cmp eax,0
450	je .no_points	485	je .no_points
451	mov ebx,[eax] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ë¡à ®£® ¡«®ª	486	mov ebx,[eax] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ë¡à ®£® ¡«®ª
452	add ebx,[open_file_data]	487	add ebx,[open_file_data]
453	xor ecx,ecx	488	xor ecx,ecx
454	cmp word[ebx],CHUNK_OBJBLOCK	489	cmp word[ebx],CHUNK_OBJBLOCK
455	jne @f	490	jne @f
456	mov ecx,ebx	491	mov ecx,ebx
457	add ecx,dword[ecx+2] ;£à ¨æ ¡«®ª	492	add ecx,dword[ecx+2] ;£à ¨æ ¡«®ª
458	push eax edi	493	push eax edi
459	mov edi,ebx	494	mov edi,ebx
460	add edi,6	495	add edi,6
461	cld	496	cld
462	xor al,al	497	xor al,al
463	repne scasb ;¯à®¯ãáª ¨¬¥¨ ®¡ê¥ªâ	498	repne scasb ;¯à®¯ãáª ¨¬¥¨ ®¡ê¥ªâ
464	mov ebx,edi	499	mov ebx,edi
465	pop edi eax	500	pop edi eax

Subversion Repositories Kolibri OS

(root)/programs/develop/info3ds/info_o3d.inc – Rev 6060 → 6081