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

Subversion Repositories Kolibri OS

(root)/programs/develop/info3ds/info_o3d.inc – Rev 6509 → 6510