Subversion Repositories Kolibri OS

use32

	org 0x0

	db 'MENUET01' ;������. �ᯮ��塞��� 䠩�� �ᥣ�� 8 ����

	dd 1, start, i_end, mem, stacktop, file_name, sys_path

include '../../macros.inc'

include '../../proc32.inc'

include '../../KOSfuncs.inc'

include '../../load_img.inc'

include '../../develop/libraries/box_lib/trunk/box_lib.mac'

include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'

include 'lang.inc'

include 'info_fun_float.inc'

include 'info_menu.inc'

include 'data.inc'

version_edit equ 0

3d_wnd_l equ 205 ;����� ��� tinygl ���� ᫥��

3d_wnd_t equ  47 ;����� ��� tinygl ���� ᢥ���

3d_wnd_w equ 344

3d_wnd_h equ 312

@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load

ID_ICON_CHUNK_MAIN equ 0 ;������ �������� �����

ID_ICON_CHUNK_NOT_FOUND equ 1 ;������ �� �����⭮�� �����

ID_ICON_DATA equ 2 ;������ ��� ������ �����, �� ��।������� ��������

ID_ICON_POINT equ 8

ID_ICON_POINT_SEL equ 9

FILE_ERROR_CHUNK_SIZE equ -3 ;�訡�� � ࠧ��� �����

include 'info_o3d.inc'

align 4

fl255 dd 255.0

open_file_data dd 0 ;㪠��⥫� �� ������ ��� ������ 䠩��� 3ds

open_file_size dd 0 ;ࠧ��� ����⮣� 䠩��

;

main_wnd_height equ 460 ;���� �������� ���� �ணࠬ��

fn_toolbar db 'toolbar.png',0

IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3

image_data_toolbar dd 0

;

icon_tl_sys dd 0 ;㪠��⥫� �� ������ ��� �࠭���� ��⥬��� ������

icon_toolbar dd 0 ;㪠��⥫� �� ������ ��� �࠭���� ������ ��ꥪ⮢

;--------------------------------------

level_stack dd 0

offs_last_timer dd 0 ;��᫥���� ᤢ�� �������� � �㭪樨 ⠩���

align 4

file_3ds: ;��६���� �ᯮ��㥬� �� ����⨨ 䠩��

.offs: dd 0 ;+0 㪠��⥫� �� ��砫� �����

.size: dd 0 ;+4 ࠧ��� ����� (��� 1-�� ��ࠬ��� = ࠧ��� 䠩�� 3ds)

rb 8*MAX_FILE_LEVEL

size_one_list equ 42+sizeof.obj_3d

list_offs_chunk_del equ 8 ;����� �� ���� 㤠�����

list_offs_chunk_lev equ 9 ;�஢��� ����� (�ய�ᠭ � ����� 㧫�)

list_offs_p_data equ 10 ;㪠��⥫� �� ������� �����

list_offs_obj3d equ 14 ;㪠��⥫� �� �������� ������ ��� 3d ��ꥪ�

list_offs_text equ 14+sizeof.obj_3d ;ᤢ�� ��砫� ⥪�� � ����

buffer rb size_one_list ;���� ��� ���������� ������� � ᯨ᮪ tree1

txt_3ds_symb db 0,0

;--------------------------------------

align 4

start:

	;--- copy cmd line ---

	mov esi,file_name

	mov edi,openfile_path

@@:

	lodsd

	cmp eax,0

	je @f ;��室, �᫨ 0

	stosd

	jmp @b

@@:

	stosd

	load_libraries l_libs_start,l_libs_end

	;�஢�ઠ �� ᪮�쪮 㤠筮 ���㧨���� ������⥪�

	mov	ebp,lib_0

	.test_lib_open:

	cmp	dword [ebp+ll_struc_size-4],0

	jz	@f

		mcall SF_TERMINATE_PROCESS ;exit not correct

	@@:

	add ebp,ll_struc_size

	cmp ebp,l_libs_end

	jl .test_lib_open

	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors

	mcall SF_SET_EVENTS_MASK,0xC0000027

	stdcall [OpenDialog_Init],OpenDialog_data ;�����⮢�� �������

	;kmenu initialisation

	stdcall [kmenu_init],sc

	stdcall [ksubmenu_new]

	mov [main_menu], eax

	stdcall [ksubmenu_new]

	mov [main_menu_view], eax

	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Vertexes, 10

	stdcall [ksubmenu_add], [main_menu_view], eax

	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Faces, 6

	stdcall [ksubmenu_add], [main_menu_view], eax

	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Faces_Fill, 7

	stdcall [ksubmenu_add], [main_menu_view], eax

	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Light, 8

	stdcall [ksubmenu_add], [main_menu_view], eax

	stdcall [kmenuitem_new], KMENUITEM_SEPARATOR, 0, 0

	stdcall [ksubmenu_add], [main_menu_view], eax

	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Reset, 9

	stdcall [ksubmenu_add], [main_menu_view], eax

	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_View, [main_menu_view]

	stdcall [ksubmenu_add], [main_menu], eax

	mov dword[w_scr_t1.type],1

	stdcall dword[tl_data_init], tree1

	;��⥬�� ������ 16*16 ��� tree_list

	load_image_file 'tl_sys_16.png', icon_tl_sys

	;�᫨ ����ࠦ���� �� ���뫮��, � � icon_tl_sys ����

	;�� ���樠����஢���� �����, �� �訡�� �� �㤥�, �. �. ���� �㦭��� ࠧ���

	mov eax,dword[icon_tl_sys]

	mov dword[tree1.data_img_sys],eax

	load_image_file 'objects.png', icon_toolbar

	mov eax,dword[icon_toolbar]

	mov dword[tree1.data_img],eax

	load_image_file 'font8x9.bmp', image_data_toolbar

	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;ᮧ���� ����

	stdcall mem.Free,[image_data_toolbar] ;�᢮������� ������

	stdcall [buf2d_conv_24_to_8], buf_1,1 ;������ ���� �஧�筮�� 8 ���

	stdcall [buf2d_convert_text_matrix], buf_1

	load_image_file fn_toolbar, image_data_toolbar

	;ࠡ�� � 䠩��� ����஥�

	copy_path ini_name,sys_path,file_name,0

	mov dword[def_dr_mode],0

	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dv,1

	or eax,eax

	jz @f

		or dword[def_dr_mode], 1 shl bit_vertexes

	@@:

	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_df,1

	or eax,eax

	jz @f

		or dword[def_dr_mode], 1 shl bit_faces

	@@:

	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dff,1

	or eax,eax

	jz @f

		or dword[def_dr_mode], 1 shl bit_faces_fill

	@@:

	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dl,1

	or eax,eax

	jz @f

		or dword[def_dr_mode], 1 shl bit_light

	@@:

	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_ox,0x0000ff

	mov [color_ox],eax

	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_oy,0xff0000

	mov [color_oy],eax

	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_oz,0x00ff00

	mov [color_oz],eax

	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_bk,0x000000

	mov [color_bk],eax

	shr eax,8

	mov [color_bk+4],eax

	shr eax,8

	mov [color_bk+8],eax

	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_vert,0xffffff

	mov [color_vert],eax

	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_face,0x808080

	mov [color_face],eax

	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_select,0xffff00

	mov [color_select],eax

	finit

	fild dword[color_bk+8]

	fdiv dword[fl255]

	fstp dword[color_bk+8]

	mov eax,[color_bk+4]

	and eax,0xff

	mov [color_bk+4],eax

	fild dword[color_bk+4]

	fdiv dword[fl255]

	fstp dword[color_bk+4]

	mov eax,[color_bk]

	and eax,0xff

	mov [color_bk],eax

	fild dword[color_bk]

	fdiv dword[fl255]

	fstp dword[color_bk]

	mcall SF_SYSTEM_GET,SSF_TIME_COUNT

	mov [last_time],eax

	stdcall [kosglMakeCurrent], 3d_wnd_l,3d_wnd_t,3d_wnd_w,3d_wnd_h,ctx1

	stdcall [glEnable], GL_DEPTH_TEST

	stdcall [glEnable], GL_NORMALIZE ;����� ��ଠ�� ���������� ����稭� �� ��������� ���䠪⮢

	stdcall [glClearColor], [color_bk+8],[color_bk+4],[color_bk],0.0

	stdcall [glShadeModel], GL_SMOOTH

	stdcall [gluNewQuadric]

	mov [qObj],eax

	mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext

	mov eax,[eax] ;eax -> ZBuffer

	mov eax,[eax+offs_zbuf_pbuf] ;eax -> ZBuffer.pbuf

	mov dword[buf_ogl],eax

	;open file from cmd line

	cmp dword[openfile_path],0

	je @f

		call but_open_file.no_dlg

	@@:

	call draw_window

align 4

still:

	mcall SF_SYSTEM_GET,SSF_TIME_COUNT

	mov ebx,[last_time]

	add ebx,10 ;����প�

	cmp ebx,eax

	jge @f

		mov ebx,eax

	@@:

	sub ebx,eax

	mcall SF_WAIT_EVENT_TIMEOUT

	cmp eax,0

	je timer_funct

	cmp al,1

	jne @f

		call draw_window

		jmp still

	@@:

	cmp al,2

	jz key

	cmp al,3

	jz button

	cmp al,6

	jne @f

		mcall SF_THREAD_INFO,procinfo,-1

		cmp ax,word[procinfo+4]

		jne @f ;���� �� ��⨢��

		call mouse

	@@:

	jmp still

align 4

mouse:

	push eax ebx

	mcall SF_MOUSE_GET,SSF_BUTTON_EXT

	bt eax,0

	jnc .end_m

		;mouse l. but. move

		cmp dword[mouse_drag],1

		jne .end_m

		stdcall [tl_node_get_data],tree1

		cmp eax,0

		je .end_d

			mov ebx,dword[eax]

			add ebx,dword[open_file_data] ;����砥� ���祭�� ᤢ��� � �����

			cmp word[ebx],CHUNK_OBJBLOCK

			jne .end_d

		mcall SF_MOUSE_GET,SSF_WINDOW_POSITION

		mov ebx,eax

		shr ebx,16 ;mouse.x

		cmp ebx,3d_wnd_l

		jg @f

			mov ebx,3d_wnd_l

		@@:

		sub ebx,3d_wnd_l

		cmp ebx,3d_wnd_w

		jle @f

			mov ebx,3d_wnd_w

		@@:

		and eax,0xffff ;mouse.y

		cmp eax,3d_wnd_t

		jg @f

			mov eax,3d_wnd_t

		@@:

		sub eax,3d_wnd_t

		cmp eax,3d_wnd_h

		jle @f

			mov eax,3d_wnd_h

		@@:

		finit

		fild dword[mouse_y]

		mov [mouse_y],eax

		fisub dword[mouse_y]

		fdiv dword[angle_dxm] ;�᫨ ����� �������� �� �� y (����� ��� ����) � ������ ������ ����� �� x

		fadd dword[angle_x]

		fstp dword[angle_x]

		fild dword[mouse_x]

		mov [mouse_x],ebx

		fisub dword[mouse_x]

		fdiv dword[angle_dym] ;�᫨ ����� �������� �� �� x (����� ��� ����) � ������ ������ ����� �� y

		fadd dword[angle_y]

		fstp dword[angle_y]

		stdcall [tl_node_get_data],tree1

		;cmp eax,0 - �� ����, �뫮 ᤥ���� ���

		add eax,list_offs_obj3d

		stdcall draw_3d, eax

		jmp .end_d

	.end_m:

	bt eax,16

	jnc @f

		;mouse l. but. up

		mov dword[mouse_drag],0

		jmp .end_d

	@@:

	bt eax,8

	jnc .end_d

		;mouse l. but. press

		mcall SF_MOUSE_GET,SSF_WINDOW_POSITION

		mov ebx,eax

		shr ebx,16 ;mouse.x

		cmp ebx,3d_wnd_l

		jl .end_d

		sub ebx,3d_wnd_l

		cmp ebx,3d_wnd_w

		jg .end_d

		and eax,0xffff ;mouse.y

		cmp eax,3d_wnd_t

		jl .end_d

		sub eax,3d_wnd_t

		cmp eax,3d_wnd_h

		jg .end_d

		mov dword[mouse_drag],1

		mov dword[mouse_x],ebx

		mov dword[mouse_y],eax

	.end_d:

	stdcall [tl_mouse], dword tree1

	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]

	pop ebx eax

	ret

align 4

timer_funct:

	pushad

	mcall SF_SYSTEM_GET,SSF_TIME_COUNT

	mov [last_time],eax

	;��ᬠ�ਢ��� �뤥����� ���� ������

	stdcall [tl_node_get_data],tree1

	cmp eax,0

	je .end_f

		mov edi,eax

		add edi,list_offs_obj3d

		mov ebx,eax

		mov eax,dword[ebx]

		mov ecx,dword[ebx+4] ;ࠧ��� �����

		stdcall hex_in_str, txt_3ds_offs.dig, eax,8

		stdcall hex_in_str, txt_3ds_offs.siz, ecx,8

		add eax,dword[open_file_data] ;����砥� ���祭�� ᤢ��� � �����

		cmp dword[offs_last_timer],eax

		je .end_f

			;�᫨ �뤥����� ���� ������ �� ᮢ������ � ��᫥���� ����������

			mov dword[offs_last_timer],eax

			cmp word[eax],CHUNK_OBJBLOCK

			jne .end_oblo

			cmp dword[edi+offs_obj_poi_count],2

			jl .ini_oblo

				stdcall draw_3d,edi

				jmp .end_f

			.ini_oblo:

				stdcall obj_init,edi ;����⪠ ����ந�� ��६���� ��ꥪ�

				cmp dword[edi+offs_obj_poi_count],2

				jl .end_f

					call mnu_reset_settings ;��� 㣫�� ������ � ०���� �ᮢ����

				jmp .end_f

			.end_oblo:

			cmp word[eax],CHUNK_MATERIAL

			jne .end_mblo

			cmp dword[edi+offs_mat_name],0

			je .ini_mblo

				stdcall draw_material,edi

				jmp .end_f

			.ini_mblo:

				stdcall mat_init,edi ;����⪠ ����ந�� ����� ���ਠ��

				cmp dword[edi+offs_mat_name],0

				je .end_f

					stdcall draw_material,edi

				jmp .end_f

			.end_mblo:

			stdcall buf_draw_beg, buf_ogl

			stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_3ds_offs,5,35,0xb000

			mov edx,dword[ebx+list_offs_p_data]

			cmp edx,0 ;ᬮ�ਬ ���� �� ���ᠭ�� �����

			je .no_info

				stdcall [buf2d_draw_text], buf_ogl, buf_1,edx,5,45,0xb000

			.no_info:

			stdcall [buf2d_draw], buf_ogl ;������塞 ���� �� ��࠭�

	.end_f:

	popad

	jmp still

align 4

draw_window:

pushad

	mcall SF_REDRAW,SSF_BEGIN_DRAW

	mov edx,[sc.work]

	or  edx,0x33000000

	mcall SF_CREATE_WINDOW, (20 shl 16)+560, (20 shl 16)+main_wnd_height,,, capt

	mcall SF_THREAD_INFO,procinfo,-1

	mov eax,dword[procinfo.box.height]

	cmp eax,250

	jge @f

		mov eax,250

	@@:

	sub eax,30

	sub eax,[tree1.box_top]

	mov [tree1.box_height],eax

	mov word[w_scr_t1.y_size],ax ;���� ࠧ���� �஫�����

	stdcall [kmainmenu_draw], [main_menu]

	mov esi,[sc.work_button]

	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(24 shl 16)+20,0x40000003

	mcall ,(30 shl 16)+20,,0x40000004 ;open

	mcall ,(3d_wnd_l shl 16)+20,,0x40000005 ;���設� ���./�몫.

	mcall ,((3d_wnd_l+25) shl 16)+20,,0x40000006 ;�࠭� ���./�몫.

	mcall ,((3d_wnd_l+50) shl 16)+20,,0x40000007 ;������� �࠭�� ���./�몫.

	mcall ,((3d_wnd_l+75) shl 16)+20,,0x40000008 ;ᢥ� ���./�몫.

	mcall ,((3d_wnd_l+100) shl 16)+20,,0x40000009 ;���

	mcall SF_PUT_IMAGE,[image_data_toolbar],(21 shl 16)+21,(5 shl 16)+24 ;new

	add ebx,IMAGE_TOOLBAR_ICON_SIZE

	mcall ,,,(30 shl 16)+24 ;open

	add ebx,IMAGE_TOOLBAR_ICON_SIZE*6

	mcall ,,,((3d_wnd_l) shl 16)+24 ;���設� ���./�몫.

	add ebx,IMAGE_TOOLBAR_ICON_SIZE

	mcall ,,,((3d_wnd_l+25) shl 16)+24 ;�࠭� ���./�몫.

	add ebx,IMAGE_TOOLBAR_ICON_SIZE

	mcall ,,,((3d_wnd_l+50) shl 16)+24 ;������� �࠭�� ���./�몫.

	add ebx,IMAGE_TOOLBAR_ICON_SIZE

	mcall ,,,((3d_wnd_l+75) shl 16)+24 ;ᢥ� ���./�몫.

	add ebx,IMAGE_TOOLBAR_ICON_SIZE

	mcall ,,,((3d_wnd_l+100) shl 16)+24 ;���

	mov dword[w_scr_t1.all_redraw],1

	stdcall [tl_draw], tree1

	stdcall [buf2d_draw], buf_ogl

	mcall SF_REDRAW,SSF_END_DRAW

popad

	ret

align 4

key:

	mcall SF_GET_KEY

	cmp dword[el_focus], tree1

	jne @f

		stdcall [tl_key], tree1

		jmp .end

	@@:

	cmp ah,178 ;Up

	jne @f

		fld dword[angle_x]

		fadd dword[delt_size]

		fstp dword[angle_x]

		stdcall [tl_node_get_data],tree1

		cmp eax,0

		je .end

		add eax,list_offs_obj3d

		stdcall draw_3d, eax

		jmp .end

	@@:

	cmp ah,177 ;Down

	jne @f

		fld dword[angle_x]

		fsub dword[delt_size]

		fstp dword[angle_x]

		stdcall [tl_node_get_data],tree1

		cmp eax,0

		je .end

		add eax,list_offs_obj3d

		stdcall draw_3d, eax

		jmp .end

	@@:

	cmp ah,176 ;Left

	jne @f

		fld dword[angle_y]

		fadd dword[delt_size]

		fstp dword[angle_y]

		stdcall [tl_node_get_data],tree1

		cmp eax,0

		je .end

		add eax,list_offs_obj3d

		stdcall draw_3d, eax

		jmp .end

	@@:

	cmp ah,179 ;Right

	jne @f

		fld dword[angle_y]

		fsub dword[delt_size]

		fstp dword[angle_y]

		stdcall [tl_node_get_data],tree1

		cmp eax,0

		je .end

		add eax,list_offs_obj3d

		stdcall draw_3d, eax

		;jmp .end

	@@:

	.end:

	jmp still

align 4

button:

	mcall SF_GET_BUTTON

	cmp ah,3

	jne @f

		call but_new_file

		jmp still

	@@:

	cmp ah,4

	jne @f

		call but_open_file

		jmp still

	@@:

	;menu functions

	cmp ah,5

	jne @f

		call mnu_vertexes_on

		jmp still

	@@:

	cmp ah,6

	jne @f

		call mnu_edges_on

		jmp still

	@@:

	cmp ah,7

	jne @f

		call mnu_faces_on

		jmp still

	@@:

	cmp ah,8

	jne @f

		call mnu_light_on_off

		jmp still

	@@:

	cmp ah,9

	jne @f

		call mnu_reset_settings

		jmp still

	@@:

	cmp ah,1

	jne still

.exit:

	mov dword[tree1.data_img],0

	mov dword[tree1.data_img_sys],0

	stdcall [tl_data_clear], tree1

	stdcall [buf2d_delete],buf_1 ;㤠�塞 ����

	stdcall mem.Free,[image_data_toolbar]

	stdcall mem.Free,[open_file_data]

	stdcall [gluDeleteQuadric], [qObj]

	mcall SF_TERMINATE_PROCESS

align 4

but_new_file:

push eax ebx

	stdcall dword[tl_node_poi_get_info], tree1,0

	@@:

		cmp eax,0

		je @f

		mov ebx,eax

		stdcall [tl_node_poi_get_data], tree1,ebx

		add eax,list_offs_obj3d

		stdcall obj_clear_param, eax

		stdcall dword[tl_node_poi_get_next_info], tree1,ebx

		cmp eax,0

		jne @b

	@@:

pop ebx eax

	stdcall [tl_info_clear], tree1 ;���⪠ ᯨ᪠ ��ꥪ⮢

	stdcall [buf2d_clear], buf_ogl, [buf_ogl.color] ;��⨬ ����

	stdcall [tl_draw], tree1

	stdcall [buf2d_draw], buf_ogl ;������塞 ���� �� ��࠭�

	ret

align 4

but_open_file:

	copy_path open_dialog_name,communication_area_default_path,file_name,0

	pushad

	mov [OpenDialog_data.type],0

	stdcall [OpenDialog_Start],OpenDialog_data

	cmp [OpenDialog_data.status],2

	je .end_open_file

	;��� �� 㤠筮� ����⨨ �������

	jmp @f

.no_dlg: ;�᫨ ���㥬 ������ ������ 䠩��

		pushad

	@@:

    mov [run_file_70.Function], SSF_GET_INFO

    mov [run_file_70.Position], 0

    mov [run_file_70.Flags], 0

    mov dword[run_file_70.Count], 0

    mov dword[run_file_70.Buffer], open_b

    mov byte[run_file_70+20], 0

    mov dword[run_file_70.FileName], openfile_path

    mcall SF_FILE,run_file_70

    mov ecx,dword[open_b+32] ;+32 qword: ࠧ��� 䠩�� � �����

    stdcall mem.ReAlloc,[open_file_data],ecx

    mov [open_file_data],eax

    mov [run_file_70.Function], SSF_READ_FILE

    mov [run_file_70.Position], 0

    mov [run_file_70.Flags], 0

    mov dword[run_file_70.Count], ecx

    m2m dword[run_file_70.Buffer], dword[open_file_data]

    mov byte[run_file_70+20], 0

    mov dword[run_file_70.FileName], openfile_path

    mcall SF_FILE,run_file_70 ;����㦠�� 䠩� 3ds

    cmp ebx,0xffffffff

    je .end_open_file

		mov [open_file_size],ebx

		;mcall SF_SET_CAPTION,1,openfile_path

		call init_tree

		stdcall [buf2d_draw], buf_ogl ;������塞 ���� �� ��࠭�

	.end_open_file:

	popad

	ret

align 4

init_tree:

	;��⨬ ������ ������� ��ꥪ⠬�

	stdcall dword[tl_node_poi_get_info], tree1,0

	@@:

		cmp eax,0

		je @f

		mov ebx,eax

		stdcall [tl_node_poi_get_data], tree1,ebx

		cmp eax,0

		je @f

			add eax,list_offs_obj3d

			stdcall obj_clear_param, eax

			stdcall dword[tl_node_poi_get_next_info], tree1,ebx

			cmp eax,0

			jne @b

	@@:

	stdcall [tl_info_clear], tree1 ;���⪠ ᯨ᪠ ��ꥪ⮢

	mov esi,dword[open_file_data]

	cmp word[esi],CHUNK_MAIN

	je @f

		stdcall buf_draw_beg, buf_ogl

		stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_no_3ds,5,25,0xff0000 ;��㥬 ��ப� � ⥪�⮬

		jmp .end_open

	@@:

	;--- ��ࠡ�⪠ ����⮣� *.3ds 䠩��

	mov eax,file_3ds

	mov dword[level_stack],0 ;����塞 �஢��� �⥪�

	mov dword[offs_last_timer],0

	;--- ���������� �������� ����� � ᯨ᮪

	stdcall add_3ds_object, ID_ICON_CHUNK_MAIN,0,dword[esi+2],0

	call block_children ;�室 � ���୨� ����

	mov edi,dword[file_3ds.offs]

	add edi,dword[file_3ds.size]

	.cycle_main:

		cmp dword[level_stack],0

		jle .end_cycle

		cmp esi,edi ;�᫨ ����� 䠩��

		jge .end_cycle

		mov edx,dword[esi+2] ;ࠧ��� �����

		call block_analiz

		cmp word[esi],CHUNK_MATERIAL

		je @f

		cmp word[esi],CHUNK_OBJMESH

		je @f

		cmp word[esi],CHUNK_OBJBLOCK

		je @f

			mov dword[bl_found],0

		@@:

		cmp dword[bl_found],0

		jne @f

			;��ꥪ� �� �����⭮�� ����

			call block_next

			jmp .cycle_main

		@@:

			;��ꥪ� �����⭮�� ����

			mov ecx,dword[bl_found]

			mov bx,word[ecx+2] ;����� ������ ��� ��ꥪ�

			cmp word[esi],CHUNK_OBJBLOCK

			jne .pod1

				add esi,6

				push esi

				sub esi,6

				jmp .pod3

			.pod1:

			cmp word[esi],CHUNK_MATERIAL

			jne .pod2

				cmp word[esi+6],CHUNK_MATNAME

				jne .pod2

				add esi,12

				push esi

				sub esi,12

				jmp .pod3

			.pod2:

				push dword[ecx+5] ;�⠭���⭮� �������� �����

			.pod3:

			stdcall add_3ds_object, ebx,dword[level_stack],edx

			cmp byte[ecx+4],1

			je .bl_data

				;���� ᮤ�ন� ���୨� �����

				call block_children ;�室 � ���୨� ����

				jmp .cycle_main

			.bl_data:

				;���� ᮤ�ন� �����

				call block_analiz_data

				jmp .cycle_main

	.end_cycle:

		stdcall [tl_cur_beg], tree1

		stdcall [tl_draw], tree1

	.end_open:

	ret

;������ ������ �����

;input:

; eax - stack pointer

; esi - memory pointer

;output:

; eax - new stack pointer

; esi - new memory pointer

align 4

proc block_analiz_data uses ebx ecx edx edi

	mov dx,word[esi]

	mov ecx,dword[esi+2]

	sub ecx,6 ;ࠧ��� ������ � �����

	add esi,6

	mov ebx,dword[level_stack]

	inc ebx

	; *** ������ ������ � ࠧ�묨 ����묨 � �뤥������ ���������

	cmp dx,CHUNK_OBJBLOCK ;��ꥪ�

	jne @f

		push ax

			cld

			xor al,al

			mov edi,esi

			repne scasb

		pop ax

		sub edi,esi ;edi - strlen

		add esi,edi

		;sub ecx,edi ;㦥 ᤥ���� � repne

		jmp .next_bl

	@@:

	cmp dx,CHUNK_VERTLIST ;ᯨ᮪ ���設

	je .vertexes

	cmp dx,0x4111 ;䫠�� ���設

	je .vertexes

	cmp dx,CHUNK_MAPLIST ;⥪����� ���न����

	je .vertexes

	jmp @f

	.vertexes: ;��ࠡ�⪠ ������, ᮤ�ঠ�� ����� ���設

		add esi,2

		sub ecx,2

		sub esi,8 ;����⠭������� esi

		call block_next

		jmp .end_f

	@@:

	cmp dx,CHUNK_FACELIST ;ᯨ᮪ �࠭��

	jne @f

		push eax

		movzx eax,word[esi]

		shl eax,3

		add esi,2

		sub ecx,2

		sub ecx,eax

		cmp ecx,1

		jl .data_3 ;�஢��塞 ���� �� ���� ����뢠�騩 ���ਠ�, �ਬ��塞� � ��ꥪ��

if 1

			add esi,eax

			mov ecx,dword[esi+2]

			stdcall add_3ds_object, 10,ebx,ecx,0 ;����� ���ਠ��

			sub esi,eax

else

			add esi,eax

			pop eax

			jmp .next_bl

end if

		.data_3:

		sub esi,8 ;����⠭������� esi

		pop eax

		call block_next

		jmp .end_f

	@@:

	cmp dx,CHUNK_FACEMAT ;���ਠ�� �࠭��

	jne @f

		push ax

			cld

			xor al,al

			mov edi,esi

			repne scasb

		pop ax

		sub edi,esi ;edi - strlen

		stdcall add_3ds_object, ID_ICON_DATA,ebx,edi,0 ;�������� ��ꥪ�

		add esi,edi

		add esi,2

		sub ecx,2

		sub esi,edi ;����⠭������� esi (1)

		sub esi,8   ;����⠭������� esi (2)

		call block_next

		jmp .end_f

	@@:

	; *** ������ ����� � ����묨 �� 㬮�砭�� (��� �뤥����� ���������)

		sub esi,6 ;����⠭������� esi

		call block_next

		jmp .end_f

	.next_bl:

	; *** ����ன�� ��� ������� ��⠢���� ���������

		mov dword[eax],esi ;㪠��⥫� �� ��砫� �����

		mov ebx,dword[esi+2]

		mov dword[eax+4],ebx ;ࠧ��� �����

		inc dword[level_stack]

		add eax,8

	.end_f:

	ret

endp

;�室 � 1-� ���୨� ����

;input:

; eax - 㪠��⥫� �� �६���� �⥪ 䠩�� file_3ds

; esi - ��砫� த�⥫�᪮�� �����

;output:

; ebx - destroy

; esi - ��砫� ������ த�⥫�᪮�� �����

align 4

block_children:

	push ecx

		;�஢�ઠ �ࠢ��쭮�� ࠧ��஢ ���୥�� �����

		mov ebx,esi

		add ebx,6 ;���室 �� ��砫� ���୥�� �����

		add ebx,dword[ebx+2] ;������塞 ࠧ��� ���୥�� �����

		mov ecx,esi

		add ecx,dword[esi+2] ;������塞 ࠧ��� த�⥫�᪮�� �����

		cmp ebx,ecx ;���뢠�� ��������� �� �㦭�, �. �. �ࠢ�������� ⮫쪮 ����� ������

		jle @f

			;��������஢��� �訡�� 䠩��, ���୨� ���� ��室�� �� �।��� த�⥫�᪮��

			mov dword[level_stack],FILE_ERROR_CHUNK_SIZE

			jmp .end_f

		@@:

		mov dword[eax],esi ;㪠��⥫� �� ��砫� �����

		mov ebx,dword[esi+2]

		mov dword[eax+4],ebx ;ࠧ��� �����

		add esi,6 ;���室�� � ����� �����

		inc dword[level_stack]

		add eax,8

	.end_f:

	pop ecx

	ret

;���室 � ᫥��饬� ����� ⥪�饣� �஢��

;input:

; eax - ���� �������� � ��६���묨

align 4

block_next:

push ebx

	add esi,dword[esi+2] ;�ய�᪠�� ����� �����

	;�஢�ઠ ࠧ��஢ த�⥫�᪮�� �����, ��� ���������� ��室� �� ���孨� �஢��� �᫨ ����� �����

	@@:

	mov ebx,dword[eax-8]

	add ebx,dword[eax-4]

	cmp esi,ebx

	jl @f

		dec dword[level_stack]

		sub eax,8

		cmp dword[level_stack],0

		jg @b

	@@:

pop ebx

	ret

;�㭪�� ���᪠ �������� ����뢠�饩 ����

;input:

;esi - memory pointer

;output:

;dword[bl_found] - pointer to chunk struct (= 0 if not found)

align 4

bl_found dd 0

block_analiz:

pushad

	mov dword[bl_found],0

	mov ecx,type_bloks

	@@:

		mov bx,word[ecx]

		cmp word[esi],bx

		je .found

		add ecx,sizeof.block_3ds

		cmp ecx,type_bloks.end

		jl @b

	jmp .no_found

	.found:

		mov dword[bl_found],ecx

	.no_found:

popad

	ret

;input:

; esi - 㪠��⥫� �� ��������㥬� �����

; level - �஢��� ���������� 㧫�

; size_bl - ࠧ��� �����

align 4

proc add_3ds_object, icon:dword,level:dword,size_bl:dword,info_bl:dword

	pushad

		mov bx,word[icon]

		shl ebx,16

		mov bx,word[level]

		mov eax,esi

		sub eax,dword[open_file_data]

		mov dword[buffer],eax ;ᬥ饭�� �����

		mov ecx,dword[size_bl]

		mov dword[buffer+4],ecx ;ࠧ��� ����� (�ᯮ������ � �㭪樨 buf_draw_hex_table ��� �ᮢ���� �����)

		mov ecx,dword[bl_found]

		cmp ecx,0

		je @f

			;... ����� �㦥� ��㣮� ������ ����� �� 㤠�����

			mov cl,byte[ecx+4]

		@@:

		mov byte[buffer+list_offs_chunk_del],cl

		mov ecx,[level]

		mov byte[buffer+list_offs_chunk_lev],cl

		mov ecx,dword[info_bl]

		mov dword[buffer+list_offs_p_data],ecx

		stdcall hex_in_str, buffer+list_offs_text,dword[esi+1],2

		stdcall hex_in_str, buffer+list_offs_text+2,dword[esi],2 ;��� 3ds �����

		cmp ecx,0

		jne @f

			mov byte[buffer+list_offs_text+4],0 ;0 - ᨬ��� ���� ��ப�

			jmp .no_capt

		@@:

			mov byte[buffer+list_offs_text+4],' '

			mov esi,ecx

			mov edi,buffer+list_offs_text+5

			mov ecx,size_one_list-(list_offs_text+5)

			cld

			rep movsb

			mov byte[buffer+size_one_list-1],0 ;0 - ᨬ��� ���� ��ப�

		.no_capt:

		mov ecx,(sizeof.obj_3d)/4

		xor eax,eax

		mov edi,buffer

		add edi,list_offs_obj3d

		rep stosd

		stdcall [tl_node_add], tree1, ebx, buffer

		stdcall [tl_cur_next], tree1

	popad

	ret

endp

;input:

; eax - value

; buf - string buffer

; len - buffer len

;output:

align 4

proc convert_int_to_str, buf:dword, len:dword

pushad

	mov edi,[buf]

	mov esi,[len]

	add esi,edi

	dec esi

	call .str

popad

	ret

endp

align 4

.str:

	mov ecx,0x0a

	cmp eax,ecx

	jb @f

		xor edx,edx

		div ecx

		push edx

		call .str

		pop eax

	@@:

	cmp edi,esi

	jge @f

		or al,0x30

		stosb

		mov byte[edi],0

	@@:

	ret

;����� ��� ������� ������ 䠩���

align 4

OpenDialog_data:

.type			dd 0 ;0 - ������, 1 - ��࠭���, 2 - ����� ��४���

.procinfo		dd procinfo ;+4

.com_area_name	dd communication_area_name ;+8

.com_area		dd 0 ;+12

.opendir_path	dd plugin_path ;+16

.dir_default_path	dd default_dir ;+20

.start_path		dd file_name ;+24 ���� � ������� ������ 䠩���

.draw_window	dd draw_window ;+28

.status 		dd 0 ;+32

.openfile_path	dd openfile_path ;+36 ���� � ���뢠����� 䠩��

.filename_area	dd filename_area ;+40

.filter_area	dd Filter

.x:

.x_size 		dw 420 ;+48 ; Window X size

.x_start		dw 10 ;+50 ; Window X position

.y:

.y_size 		dw 320 ;+52 ; Window y size

.y_start		dw 10 ;+54 ; Window Y position

default_dir db '/rd/1',0

communication_area_name:

	db 'FFFFFFFF_open_dialog',0

open_dialog_name:

	db 'opendial',0

communication_area_default_path:

	db '/rd/1/File managers/',0

Filter:

dd Filter.end - Filter.1

.1:

db '3DS',0

db 'TXT',0

.end:

db 0

align 4

system_dir_0 db '/sys/lib/'

lib_name_0 db 'proc_lib.obj',0

system_dir_1 db '/sys/lib/'

lib_name_1 db 'libimg.obj',0

system_dir_2 db '/sys/lib/'

lib_name_2 db 'box_lib.obj',0

system_dir_3 db '/sys/lib/'

lib_name_3 db 'buf2d.obj',0

system_dir_4 db '/sys/lib/'

lib_name_4 db 'kmenu.obj',0

system_dir_5 db '/kolibrios/lib/'

lib_name_5 db 'tinygl.obj',0

system_dir_6 db '/sys/lib/'

lib_name_6 db 'libini.obj',0

if lang eq ru

	head_f_i:

	head_f_l db '���⥬��� �訡��',0

	err_msg_found_lib_0 db '�� ������� ������⥪� ',39,'proc_lib.obj',39,0

	err_msg_import_0 db '�訡�� �� ������ ������⥪� ',39,'proc_lib.obj',39,0

	err_msg_found_lib_1 db '�� ������� ������⥪� ',39,'libimg.obj',39,0

	err_msg_import_1 db '�訡�� �� ������ ������⥪� ',39,'libimg.obj',39,0

	err_msg_found_lib_2 db '�� ������� ������⥪� ',39,'box_lib.obj',39,0

	err_msg_import_2 db '�訡�� �� ������ ������⥪� ',39,'box_lib',39,0

	err_msg_found_lib_3 db '�� ������� ������⥪� ',39,'buf2d.obj',39,0

	err_msg_import_3 db '�訡�� �� ������ ������⥪� ',39,'buf2d',39,0

	err_msg_found_lib_4 db '�� ������� ������⥪� ',39,'kmenu.obj',39,0

	err_msg_import_4 db '�訡�� �� ������ ������⥪� ',39,'kmenu',39,0

	err_msg_found_lib_5 db '�� ������� ������⥪� ',39,'tinygl.obj',39,0

	err_msg_import_5 db '�訡�� �� ������ ������⥪� ',39,'tinygl',39,0

	err_msg_found_lib_6 db '�� ������� ������⥪� ',39,'libini.obj',39,0

	err_msg_import_6 db '�訡�� �� ������ ������⥪� ',39,'libini',39,0

else

	head_f_i:

	head_f_l db 'System error',0

	err_msg_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,0

	err_msg_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,0

	err_msg_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,0

	err_msg_import_1 db 'Error on load import library ',39,'libimg.obj',39,0

	err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0

	err_msg_import_2 db 'Error on load import library ',39,'box_lib.obj',39,0

	err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'buf2d.obj',39,0

	err_msg_import_3 db 'Error on load import library ',39,'buf2d.obj',39,0

	err_msg_found_lib_4 db 'Sorry I cannot found library ',39,'kmenu.obj',39,0

	err_msg_import_4 db 'Error on load import library ',39,'kmenu.obj',39,0

	err_msg_found_lib_5 db 'Sorry I cannot found library ',39,'tinygl.obj',39,0

	err_msg_import_5 db 'Error on load import library ',39,'tinygl',39,0

	err_msg_found_lib_6 db 'Sorry I cannot found library ',39,'libini.obj',39,0

	err_msg_import_6 db 'Error on load import library ',39,'libini',39,0

end if

align 4

l_libs_start:

	lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\

		err_msg_found_lib_0, head_f_l, proclib_import,err_msg_import_0,head_f_i

	lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\

		err_msg_found_lib_1, head_f_l, import_libimg, err_msg_import_1,head_f_i

	lib_2 l_libs lib_name_2, sys_path, file_name,  system_dir_2,\