Subversion Repositories Kolibri OS

;

; áâàãªâãàë ¨ ä㭪樨 ¤«ï à¨á®¢ ­¨ï 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 ;£à ­¨ á 梥⮬ ¬ â¥à¨ « 

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

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

			stdcall V3_Norm,eax

			add edx,8 ;à §¬¥à âà¥ã£®«ì­¨ª  = (3 ¢¥à設ë (¯® 2¡) + ᢮©á⢠ (2¡))

			add eax,12

			dec ebx

			jnz @b

		;­®à¬ «¨ ª ¢¥à設 ¬

		mov ebx,[o_data]

		mov ecx,[ebx+offs_obj_poi_count]

		mov [ebx+offs_obj_normals_poi_count],ecx

		cmp ecx,0

		je .end

		imul ecx,12

		stdcall mem.Alloc,ecx

		mov [ebx+offs_obj_normals_poi_data],eax

		mov edi,eax

		mov eax,0.0

		shr ecx,2

		rep stosd ;®ç¨á⪠ 0-¬¨ float

		mov edx,[ebx+offs_obj_tri_count]

		mov edi,[ebx+offs_obj_tri_data]

		mov eax,[ebx+offs_obj_normals_tri_data]

		mov ecx,[ebx+offs_obj_poi_data]

		mov ebx,[ebx+offs_obj_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+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]

	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_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+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]

		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+offs_obj_tri_data]

			mov ecx,[edi+offs_obj_tri_count]

			mov edx,[edi+offs_obj_normals_tri_data]

align 4

			@@:

				movzx ebx,word[eax] ;1-ï ¢¥à設 

				imul ebx,12

					add ebx,[edi+offs_obj_normals_poi_data]

					stdcall [glNormal3fv], ebx

					sub ebx,[edi+offs_obj_normals_poi_data]

				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_normals_poi_data]

					stdcall [glNormal3fv], ebx

					sub ebx,[edi+offs_obj_normals_poi_data]

				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_normals_poi_data]

					stdcall [glNormal3fv], ebx

					sub ebx,[edi+offs_obj_normals_poi_data]

				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]

			jmp .end_points

		.triangles_flat:

		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]

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+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]

		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+offs_obj_poi_data]

		mov ebx,[edi+offs_obj_poi_count]

		mov edx,[edi+offs_obj_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+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

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

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