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

Subversion Repositories Kolibri OS

(root)/programs/develop/info3ds/info_o3d.inc – Rev 6513 → 6889