WebSVN – Kolibri OS – Diff – /programs/develop/info3ds/info3ds.asm


use32
	org 0x0
	db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
	dd 1, start, i_end, mem, stacktop, 0, sys_path
 
include '../../macros.inc'
include '../../proc32.inc'
include '../../develop/libraries/box_lib/load_lib.mac'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'
include '../../dll.inc'
include 'lang.inc'
include 'info_fun_float.inc'
include 'info_menu.inc'
 
debug equ 0
 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
struct FileInfoBlock
	Function dd ?
	Position dd ?
	Flags	 dd ?
	Count	 dd ?
	Buffer	 dd ?
		db ?
	FileName dd ?
ends
 
run_file_70 FileInfoBlock
image_data dd 0 ;ãª § â¥«ì ­  ¢à¥¬¥­­ãî ¯ ¬ïâì, ­ã¦¥­ ¤«ï ¯à¥®¡à §®¢ ­¨ï ¨§®¡à ¦¥­¨ï
open_file_lif dd 0 ;ãª § â¥«ì ­  ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds
open_file_size dd 0 ;à §¬¥à ®âªàëâ®£® ä ©« 
 
;
main_wnd_height equ 460 ;¢ëá®â  £« ¢­®£® ®ª­  ¯à®£à ¬¬ë
fn_toolbar db 'toolbar.png',0
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7
image_data_toolbar dd 0
;
TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©«  á á¨áâ¥¬­ë¬¨ ¨ª®­ª ¬¨
icon_tl_sys dd 0 ;ãª § â¥¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨áâ¥¬­ëå ¨ª®­®ª
icon_toolbar dd 0 ;ãª § â¥¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï ¨ª®­®ª ®¡ê¥ªâ®¢
TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*8+54 ;à §¬¥à bmp ä ©«  á ¨ª®­ª ¬¨ ®¡ê¥ªâ®¢
;
IMAGE_FILE1_SIZE equ 128*144*3+54 ;à §¬¥à ä ©«  á ¨§®¡à ¦¥­¨¥¬
 
macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥­¨©
	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥­­®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ ­ «¨ áâà®ª®© ¯ à ¬¥âà path
		jmp @f
			local .path_str
			.path_str db path ;ä®à¬¨àã¥¬ «®ª «ì­ãî ¯¥à¥¬¥­­ãî
			db 0
		@@:
		;32 - áâ ­¤ àâ­ë©  ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥­ ¡ëâì ¡ãä¥à á á¨áâ¥¬­ë¬ ¯ãâ¥¬
		copy_path .path_str,[32],file_name,0
	else
		copy_path path,[32],file_name,0 ;ä®à¬¨àã¥¬ ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
	end if
 
	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
	mov [buf],eax
 
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], dword size
	mov [run_file_70.Buffer], eax
	mov byte[run_file_70+20], 0
	mov [run_file_70.FileName], file_name
	mcall 70,run_file_70 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je @f
		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_decode], dword[buf],ebx,0
		mov dword[image_data],eax
		;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb
		stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
		;ã¤ «ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_destroy], dword[image_data]
	@@:
}
 
;--------------------------------------
include 'data.inc'
 
level_stack dd 0
offs_last_timer dd 0 ;¯®á«¥¤­¨© á¤¢¨£ ¯®ª § ­ë© ¢ äã­ªæ¨¨ â ©¬¥à 
 
ID_ICON_CHUNK_MAIN equ 0 ;¨ª®­ª  £« ¢­®£® ¡«®ª 
ID_ICON_CHUNK_NOT_FOUND equ 1 ;¨ª®­ª  ­¥ ¨§¢¥áâ­®£® ¡«®ª 
ID_ICON_DATA equ 2 ;¨ª®­ª  ¤«ï ¤ ­­ëå ¡«®ª , ­¥ ®¯à¥¤¥«¥­­®© áâàãªâãàë
 
FILE_ERROR_CHUNK_SIZE equ -3 ;®è¨¡ª  ¢ à §¬¥à¥ ¡«®ª 
 
align 4
file_3ds: ;¯¥à¥¬¥­­ë¥ ¨á¯®«ì§ã¥¬ë¥ ¯à¨ ®âªàëâ¨¨ ä ©« 
.offs: dd 0 ;+0 ãª § â¥«ì ­  ­ ç «® ¡«®ª 
.size: dd 0 ;+4 à §¬¥à ¡«®ª  (¤«ï 1-£® ¯ à ¬¥âà  = à §¬¥à ä ©«  3ds)
rb 8*MAX_FILE_LEVEL
 
size_one_list equ 42
list_offs_chunk_del equ 8 ;¬®¦¥â «¨ ¡«®ª ã¤ «ïâáï
list_offs_chunk_lev equ 9 ;ãà®¢¥­ì ¡«®ª  (¯à®¯¨á ­ ¢ ¤ ­­ë¥ ã§« )
list_offs_p_data equ 10 ;ãª § â¥«ì ­  ¯®¤¯¨áì ¡«®ª 
list_offs_text equ 14 ;á¤¢¨£ ­ ç «  â¥ªáâ  ¢ «¨áâ¥
buffer rb size_one_list ;¡ãä¥à ¤«ï ¤®¡ ¢«¥­¨ï áâàãªâãà ¢ á¯¨á®ª tree1
 
txt_3ds_symb db 0,0
;--------------------------------------
 
include 'info_wnd_coords.inc'
 
align 4
start:
	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 -1 ;exit not correct
	@@:
	add ebp,ll_struc_size
	cmp ebp,l_libs_end
	jl .test_lib_open
	mcall 48,3,sc,sizeof.system_colors
	mcall 40,0x27
	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, 5
	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_SEPARATOR, 0, 0
	stdcall [ksubmenu_add], [main_menu_view], eax
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Light, 7
	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,TREE_ICON_SYS16_BMP_SIZE
	;¥á«¨ ¨§®¡à ¦¥­¨¥ ­¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ
	;­¥ ¨­¨æ¨ «¨§¨à®¢ ­­ë¥ ¤ ­­ë¥, ­® ®è¨¡ª¨ ­¥ ¡ã¤¥â, â. ª. ¡ãä¥à ­ã¦­®£® à §¬¥à 
	mov eax,dword[icon_tl_sys]
	mov dword[tree1.data_img_sys],eax
 
	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE
	mov eax,dword[icon_toolbar]
	mov dword[tree1.data_img],eax
 
	stdcall [buf2d_create], buf_0 ;á®§¤ ­¨¥ ¡ãä¥à 
 
	load_image_file 'font8x9.bmp', image_data_toolbar,IMAGE_FILE1_SIZE
	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,IMAGE_TOOLBAR_SIZE
 
	stdcall mem.Alloc,MAX_FILE_SIZE
	mov dword[open_file_lif],eax
 
	mcall 26,9
	mov [last_time],eax
 
	stdcall [kosglMakeCurrent], 5,23,320,240,ctx1
	stdcall [glEnable], GL_DEPTH_TEST
	stdcall [glEnable], GL_NORMALIZE ;¤¥« ¬ ­®à¬ «¨ ®¤¨­ ª®¢®© ¢¥«¨ç¨­ë ¢® ¨§¡¥¦ ­¨¥  àâ¥ä ªâ®¢
	stdcall [glClearColor], 0.0,0.0,0.0,0.0
	stdcall [glShadeModel], GL_SMOOTH
	stdcall [gluNewQuadric]
	mov [qObj],eax
 
	call draw_window
 
align 4
still:
	mcall 26,9
	mov ebx,[last_time]
	add ebx,10 ;§ ¤¥à¦ª 
	cmp ebx,eax
	jge @f
		mov ebx,eax
	@@:
	sub ebx,eax
	mcall 23
	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 9,procinfo,-1
		cmp ax,word[procinfo+4]
		jne @f ;®ª­® ­¥  ªâ¨¢­®
		call mouse
	@@:
	jmp still
 
align 4
mouse:
	stdcall [tl_mouse], dword tree1
	ret
 
align 4
timer_funct:
	pushad
 
 
 
	mcall 26,9
	mov [last_time],eax
 
 
	;¯à®á¬ âà¨¢ ¥¬ ¢ë¤¥«¥­­ë© ¡«®ª ¤ ­­ëå
	stdcall [tl_node_get_data],tree1
	cmp eax,0
	je @f
		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_lif] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ ¯ ¬ïâ¨
		cmp dword[offs_last_timer],eax
		je @f
			;¥á«¨ ¢ë¤¥«¥­­ë© ¡«®ª ¤ ­­ëå ­¥ á®¢¯ ¤ ¥â á ¯®á«¥¤­¨¬ § ¯®¬­¥­­ë¬
			mov dword[offs_last_timer],eax
			call buf_draw_beg
			stdcall [buf2d_draw_text], buf_0, 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_0, buf_1,edx,5,45,0xb000
			.no_info:
			add ecx,eax ;¯®«ãç ¥¬ à §¬¥à ¡«®ª 
			stdcall buf_draw_hex_table,eax,ecx ;¤®¡ ¢«¥­¨¥ 16-à¨ç­ëå ¤ ­­ëå
			stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
	@@:
	popad
 
	;¯à®á¬®âà ®ª­  á ª®®à¤¨­ â ¬¨ â®ç¥ª
	;cmp byte[prop_wnd_run],0
	;je @f
	;	call prop_timer_funct
	;@@:
	jmp still
 
align 4
buf_draw_beg:
	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
	stdcall [buf2d_draw_text], buf_0, buf_1,txt_open_3ds,5,5,0xff
	stdcall [buf2d_draw_text], buf_0, buf_1,openfile_path,5,15,0xff
	cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦­  ®è¨¡ª  ä ©« 
	jne @f
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_err_sizes,5,25,0xff0000
	@@:
	ret
 
align 4
proc buf_draw_hex_table, offs:dword, size_line:dword
	pushad
	locals
		coord_y dd 55 ;ª®®à¤¨­ â  y ¤«ï ­ ç «  ¢ë¢®¤  â ¡«¨æë
	endl
		mov esi,dword[offs]
		mov edi,dword[open_file_lif]
		add edi,dword[file_3ds.size] ;edi - ãª § â¥«ì ­  ª®­¥æ ä ©«  ¢ ¯ ¬ïâ¨
		mov dword[txt_3ds_offs.dig],0
		cld
		.cycle_rows:
			mov ebx,5 ;®âáâã¯ á«¥¢  ¤«ï æ¨äà
			mov edx,5+10*24 ;®âáâã¯ á«¥¢  ¤«ï â¥ªáâ 
			mov ecx,10
			@@:
				stdcall hex_in_str, txt_3ds_offs.dig, dword[esi],2
				stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs.dig,ebx,[coord_y],0
 
				mov al,byte[esi]
				mov byte[txt_3ds_symb],al
				stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_symb,edx,[coord_y],0x808080
				inc esi
				cmp esi,dword[size_line]
				jne .end_block
					stdcall draw_block_end_line, dword[coord_y]
				.end_block:
				cmp esi,edi
				jge @f ;jg ???
				add ebx,24
				add edx,9 ;è¨à¨­  1-£® á¨¬¢®«  +1pix
				loop @b
			add dword[coord_y],10 ;¢ëá®â  1-£® á¨¬¢®«  (¨«¨ ¨­â¥à¢ « ¬¥¦¤ã áâà®ª ¬¨)
			mov ebx,dword[buf_0.h]
			cmp dword[coord_y],ebx
			jl .cycle_rows
		@@:
	popad
	ret
endp
 
align 4
proc draw_block_end_line uses eax ebx ecx, coord_y:dword
	add ebx,20 ;20 = width 2.5 symbols
	mov eax,[coord_y]
	sub eax,2
	mov ecx,eax
	add ecx,10
	stdcall [buf2d_line], buf_0, 0,ecx,ebx,ecx ,0xff
	stdcall [buf2d_line], buf_0, ebx,ecx,ebx,eax ,0xff
	stdcall [buf2d_line], buf_0, ebx,eax,5+10*24-4,eax ,0xff
	ret
endp
 
align 4
draw_window:
pushad
	mcall 12,1
	xor eax,eax
	mov edx,[sc.work]
	or  edx,0x33000000
	mov edi,capt
	mcall , (20 shl 16)+560, (20 shl 16)+main_wnd_height
 
	mcall 9,procinfo,-1
	mov eax,dword[procinfo.box.height]
	cmp eax,250
	jge @f
		mov eax,250
	@@:
	sub eax,65
	mov dword[tree1.box_height],eax
	mov word[w_scr_t1+4],ax ;­®¢ë¥ à §¬¥àë áªà®««¨­£ 
	cmp eax,dword[buf_0.h] ;ã¢¥«¨ç¨¢ ¥¬ ¢ëá®âã ¡ãä¥à 
	jle @f
		stdcall [buf2d_resize],buf_0,0,eax
		mov dword[offs_last_timer],0 ;¤«ï ®¡­®¢«¥­¨ï ¡ãä¥à  ¢ â ©¬¥à¥
	@@:
 
	mov eax,dword[procinfo.box.width]
	cmp eax,400
	jge @f
		mov eax,400
	@@:
	sub eax,[buf_0.w]
	sub eax,41
	mov dword[tree1.box_width],eax
	add ax,word[tree1.box_left]
	mov word[w_scr_t1+sb_offs_start_x],ax
	add ax,16+5
	mov word[buf_0.l],ax
 
	mov esi,[sc.work_button]
	mcall 8,(5 shl 16)+20,(5 shl 16)+20,3
 
	mov ebx,(30 shl 16)+20
	mov edx,4
	int 0x40
 
	cmp byte[can_save],0
	je @f
		mov ebx,(55 shl 16)+20
		mov edx,5
		int 0x40
	@@:
 
	mcall ,(85 shl 16)+20,,6 ;®ª­® á ª®®à¤¨­ â ¬¨
	mcall ,(110 shl 16)+20,,7 ;ã¤ «¥­¨¥ ¡«®ª 
 
	mcall 7,[image_data_toolbar],(16 shl 16)+16,(7 shl 16)+7 ;new
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(32 shl 16)+7 ;open
	int 0x40
 
	cmp byte[can_save],0
	je @f
		add ebx,IMAGE_TOOLBAR_ICON_SIZE
		mov edx,(57 shl 16)+7 ;save
		int 0x40
		sub ebx,IMAGE_TOOLBAR_ICON_SIZE
	@@:
 
	add ebx,4*IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(87 shl 16)+7
	int 0x40
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(112 shl 16)+7
	int 0x40
 
	mov dword[w_scr_t1.all_redraw],1
	stdcall [tl_draw],dword tree1
 
	stdcall [buf2d_draw], buf_0
 
	mcall 12,2
popad
	ret
 
align 4
key:
	mcall 2
	stdcall [tl_key], dword tree1
	jmp still
 
 
align 4
button:
	mcall 17
	cmp ah,3
	jne @f
		call but_new_file
		jmp still
	@@:
	cmp ah,4
	jne @f
		call but_open_file
		jmp still
	@@:
	cmp ah,5
	jne @f
		call but_save_file
		jmp still
	@@:
	cmp ah,6
	jne @f
		call but_wnd_coords
		jmp still
	@@:
	cmp ah,7
	jne @f
		call but_delete_chunk
		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_0
	stdcall [buf2d_delete],buf_1 ;ã¤ «ï¥¬ ¡ãä¥à
	stdcall mem.Free,[image_data_toolbar]
	stdcall mem.Free,[open_file_lif]
	stdcall [gluDeleteQuadric], [qObj]
	mcall -1
 
 
align 4
but_new_file:
	mov byte[can_save],0
	stdcall [tl_info_clear], tree1 ;®ç¨áâª  á¯¨áª  ®¡ê¥ªâ®¢
	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
	stdcall [tl_draw], tree1
	stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
	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
	;ª®¤ ¯à¨ ã¤ ç­®¬ ®âªàëâ¨¨ ¤¨ «®£ 
 
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov dword[run_file_70.Count], MAX_FILE_SIZE
	m2m [run_file_70.Buffer], dword[open_file_lif]
	mov byte[run_file_70+20], 0
	mov dword[run_file_70.FileName], openfile_path
	mcall 70,run_file_70 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je .end_open_file
 
	mov [open_file_size],ebx
	;mcall 71,1,openfile_path
 
	mov byte[can_save],0
	call init_tree
	stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
 
 
	call prop_wnd_clear_param ;ç¨áâ¨¬ ¯ à ¬¥âàë ®ª­  á ª®®à¤¨­ â ¬¨
	cmp byte[prop_wnd_run],0
	je @f
		;ç¨áâ¨¬ ®ª­® á ª®®à¤¨­ â ¬¨
		stdcall [tl_info_clear], tree3
	@@:
 
	.end_open_file:
	popad
	ret
 
align 4
init_tree:
	stdcall [tl_info_clear], tree1 ;®ç¨áâª  á¯¨áª  ®¡ê¥ªâ®¢
 
	mov esi,dword[open_file_lif]
	cmp word[esi],CHUNK_MAIN
	je @f
		call buf_draw_beg
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_no_3ds,5,25,0xff0000 ;à¨áã¥¬ áâà®ªã á â¥ªáâ®¬
		jmp .end_open
	@@:
	cmp dword[esi+2],MAX_FILE_SIZE
	jle @f
		call buf_draw_beg
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_big_file,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 dword[bl_found],0
		jne @f
			;®¡ê¥ªâ ­¥ ¨§¢¥áâ­®£® ¢¨¤ 
			stdcall add_3ds_object, ID_ICON_CHUNK_NOT_FOUND,dword[level_stack],edx,0
			call block_next
			jmp .cycle_main
		@@:
			;®¡ê¥ªâ ¨§¢¥áâ­®£® ¢¨¤ 
			mov ecx,dword[bl_found]
			mov bx,word[ecx+2] ;­®¬¥à ¨ª®­ª¨ ¤«ï ®¡ê¥ªâ 
			stdcall add_3ds_object, ebx,dword[level_stack],edx,dword[ecx+5]
			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:
; esi - memory pointer
;output:
; eax - new stack pointer
; esi - new memory pointer
align 4
block_analiz_data:
	push 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
			stdcall add_3ds_object, ID_ICON_DATA,ebx,edi,0 ;­ §¢ ­¨¥ ®¡ê¥ªâ 
			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: ;®¡à ¡®âª  ¡«®ª®¢, á®¤¥à¦ é¨å ¤ ­­ë¥ ¢¥àè¨­
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;ç¨á«® ¢¥àè¨­
			add esi,2
			sub ecx,2
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;¤ ­­ë¥ ¢¥àè¨­
			sub esi,8 ;¢®ááâ ­®¢«¥­¨¥ esi
			call block_next
			jmp .end_f		
		@@:
		cmp dx,CHUNK_FACELIST ;á¯¨á®ª £à ­¥©
		jne @f
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;ç¨á«® £à ­¥©
			push eax
			xor eax,eax
			mov ax,[esi]
			shl eax,3
			add esi,2
			sub ecx,2
			stdcall add_3ds_object, ID_ICON_DATA,ebx,eax,0 ;¤ ­­ë¥ ¢¥àè¨­
 
			sub ecx,eax
			cmp ecx,1
			jl .data_3 ;¯à®¢¥àï¥¬ ¥áâì «¨ ¡«®ª ®¯¨áë¢ îé¨© ¬ â¥à¨ «, ¯à¨¬¥­ï¥¬ë© ª ®¡ê¥ªâã
				add esi,eax
				pop eax
				jmp .next_bl
				;stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;¤ ­­ë¥ ¬ â¥à¨ « 
				;sub esi,eax ;¢®ááâ ­®¢«¥­¨¥ esi
			.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
			;sub ecx,edi ;ã¦¥ á¤¥« ­® ¢ repne
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;ç¨á«® £à ­¥©
			add esi,2
			sub ecx,2
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;­®¬¥à  £à ­¥©, ª ª®â®àë¬ ¯à¨¬¥­¥­ ¬ â¥à¨ «
			sub esi,edi ;¢®ááâ ­®¢«¥­¨¥ esi (1)
			sub esi,8   ;¢®ááâ ­®¢«¥­¨¥ esi (2)
			call block_next
			jmp .end_f
		@@:
		; ***  ­ «¨§ ¡«®ª  á ¤ ­­ë¬¨ ¯® ã¬®«ç ­¨î (¡¥§ ¢ë¤¥«¥­¨ï ¯®¤¡«®ª®¢)
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0
			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:
	pop edi edx ecx ebx
	ret
 
;¢å®¤ ¢ 1-© ¤®ç¥à­¨© ¡«®ª
;output:
; edx - destroy
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_lif]
		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:
		stdcall [tl_node_add], tree1, ebx, buffer
		stdcall [tl_cur_next], tree1
		if debug
			stdcall print_err,sz_add_3ds_object,buffer+list_offs_text
		end if
	popad
	ret
endp
 
if debug
sz_add_3ds_object db 13,10,'3ds_object',0
 
align 4
proc print_err, fun:dword, mes:dword ;¢ë¢®¤¨¬ á®®¡é¥­¨¥ ®¡ è¨¡ª¥ ­  ¤®áªã ®â« ¤ª¨
	pushad
	mov eax,63
	mov ebx,1
 
	mov esi,[fun]
	@@:
		mov cl,byte[esi]
		int 0x40
		inc esi
		cmp byte[esi],0
		jne @b
	mov cl,':'
	int 0x40
	mov cl,' '
	int 0x40
	mov esi,[mes]
	@@:
		mov cl,byte[esi]
		int 0x40
		inc esi
		cmp byte[esi],0
		jne @b
	popad
	ret
endp
 
;input:
; eax - value
; edi - string buffer
; len - buffer len
;output:
align 4
proc convert_int_to_str, len:dword
pushad
	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
 
end if
 
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
but_save_file:
	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 [run_file_70.Function], 2
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov ebx, dword[open_file_lif]
	mov [run_file_70.Buffer], ebx
	mov ebx,dword[ebx+2]
	mov dword[run_file_70.Count], ebx ;à §¬¥à ä ©« 
	mov byte[run_file_70+20], 0
	mov dword[run_file_70.FileName], openfile_path
	mcall 70,run_file_70
 
	cmp ebx,0xffffffff
	je .end_save_file
 
		;...á®®¡é¥­¨¥...
	.end_save_file:
	popad
	ret
 
align 4
but_wnd_coords:
	cmp byte[prop_wnd_run],0
	jne @f
		pushad
		mcall 51,1,prop_start,thread_coords
		popad
	@@:
	ret
 
;description:
; ã¤ «¥­¨¥ ¢ë¡à ­­®£® ¡«®ª  ¨§ ®âªàëâ®£® ä ©« 
align 4
but_delete_chunk:
	pushad
	stdcall [tl_node_get_data],tree1
	cmp eax,0
	je .end_f
	cmp byte[eax+list_offs_chunk_del],0 ;¥á«¨ ¡«®ª § é¨é¥­ ®â ã¤ «¥­¨ï
	jne .notify
 
	;(1) ª®¯¨à®¢ ­¨¥ ­¨¦­¥© ç áâ¨ ä ©« 
	mov edx,dword[eax+4] ;à §¬¥à ¡«®ª 
	sub [open_file_size],edx ;¨§¬¥­¥­¨¥ à §¬¥à®¢ ä ©« 
	mov ecx,[open_file_size]
	mov ebx,dword[eax] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ë¡à ­­®£® ¡«®ª  ®â­®á¨â¥«ì­® ­ ç «  ä ©« 
	sub ecx,ebx ;ecx - à §¬¥à ­¨¦­¥© á¤¢¨£ ¥¬®© ç áâ¨ ä ©« 
	add ebx,dword[open_file_lif] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ ¯ ¬ïâ¨
	mov edi,ebx
	mov esi,ebx
	add esi,edx
	mov bl,byte[eax+list_offs_chunk_lev] ;¡¥à¥¬ ãà®¢¥­ì â¥ªãé¥£® ã§« 
	rep movsb
	mov byte[can_save],1
 
	;(2) ¨§¬¥­¥­¨¥ à §¬¥à®¢ à®¤¨â¥«ìáª¨å ¡«®ª®¢
	cmp bl,0
	je .end_2
	.cycle_2:
	stdcall [tl_cur_perv], tree1
	stdcall [tl_node_get_data],tree1
	cmp eax,0
	je .end_2
		cmp byte[eax+list_offs_chunk_lev],bl
		jge .cycle_2
		mov bl,byte[eax+list_offs_chunk_lev]
		mov ecx,[eax]
		add ecx,[open_file_lif]
		sub dword[ecx+2],edx
		cmp bl,0 ;¥á«¨ á ¬ë© ¢¥àå­¨© ã§¥«, â® bl=0
		jne .cycle_2
	.end_2:
	
	;(3) ®¡­®¢«¥­¨¥ á¯¨áª  tree1
	call init_tree
	call draw_window
 
	jmp .end_f
	.notify:
	notify_window_run txt_not_delete
	.end_f:
	popad
	ret
 
;input:
; buf - ãª § â¥«ì ­  áâà®ªã, ç¨á«® ¤®«¦­® ¡ëâì ¢ 10 ¨«¨ 16 à¨ç­®¬ ¢¨¤¥
;output:
; eax - ç¨á«®
align 4
proc conv_str_to_int uses ebx ecx esi, buf:dword
	xor eax,eax
	xor ebx,ebx
	mov esi,[buf]
	;®¯à¥¤¥«¥­¨¥ ®âà¨æ â¥«ì­ëå ç¨á¥«
	xor ecx,ecx
	inc ecx
	cmp byte[esi],'-'
	jne @f
		dec ecx
		inc esi
	@@:
 
	cmp word[esi],'0x'
	je .load_digit_16
 
	.load_digit_10: ;áç¨âë¢ ­¨¥ 10-â¨ç­ëå æ¨äà
		mov bl,byte[esi]
		cmp bl,'0'
		jl @f
		cmp bl,'9'
		jg @f
			sub bl,'0'
			imul eax,10
			add eax,ebx
			inc esi
			jmp .load_digit_10
	jmp @f
 
	.load_digit_16: ;áç¨âë¢ ­¨¥ 16-à¨ç­ëå æ¨äà
		add esi,2
	.cycle_16:
		mov bl,byte[esi]
		cmp bl,'0'
		jl @f
		cmp bl,'f'
		jg @f
		cmp bl,'9'
		jle .us1
			cmp bl,'A'
			jl @f ;®âá¥¨¢ ¥¬ á¨¬¢®«ë >'9' ¨ <'A'
		.us1: ;á®áâ ¢­®¥ ãá«®¢¨¥
		cmp bl,'F'
		jle .us2
			cmp bl,'a'
			jl @f ;®âá¥¨¢ ¥¬ á¨¬¢®«ë >'F' ¨ <'a'
			sub bl,32 ;¯¥à¥¢®¤¨¬ á¨¬¢®«ë ¢ ¢¥àå­¨© à¥£¨áâà, ¤«ï ã¯à®é¥­¨ï ¨å ¯®á«¥¤ãé¥© ®¡à ¡®âª¨
		.us2: ;á®áâ ¢­®¥ ãá«®¢¨¥
			sub bl,'0'
			cmp bl,9
			jle .cor1
				sub bl,7 ;convert 'A' to '10'
			.cor1:
			shl eax,4
			add eax,ebx
			inc esi
			jmp .cycle_16
	@@:
	cmp ecx,0 ;¥á«¨ ç¨á«® ®âà¨æ â¥«ì­®¥
	jne @f
		sub ecx,eax
		mov eax,ecx
	@@:
	ret
endp
 
;¤ ­­ë¥ ¤«ï ¤¨ «®£  ®âªàëâ¨ï ä ©«®¢
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 '/sys/lib/'
lib_name_5 db 'tinygl.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
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
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, library_path,  system_dir_2,\
		err_msg_found_lib_2, head_f_l, import_box_lib,err_msg_import_2,head_f_i
	lib_3 l_libs lib_name_3, sys_path, library_path,  system_dir_3,\
		err_msg_found_lib_3, head_f_l, import_buf2d,  err_msg_import_3,head_f_i
	lib_4 l_libs lib_name_4, sys_path, library_path,  system_dir_4,\
		err_msg_found_lib_4, head_f_l, import_libkmenu,err_msg_import_4,head_f_i
	lib_5 l_libs lib_name_5, sys_path, library_path,  system_dir_5,\
		err_msg_found_lib_5, head_f_l, import_lib_tinygl,err_msg_import_5,head_f_i		
l_libs_end:
 
align 4
import_libimg:
	dd alib_init1
	img_is_img  dd aimg_is_img
	img_info    dd aimg_info
	img_from_file dd aimg_from_file
	img_to_file dd aimg_to_file
	img_from_rgb dd aimg_from_rgb
	img_to_rgb  dd aimg_to_rgb
	img_to_rgb2 dd aimg_to_rgb2
	img_decode  dd aimg_decode
	img_encode  dd aimg_encode
	img_create  dd aimg_create
	img_destroy dd aimg_destroy
	img_destroy_layer dd aimg_destroy_layer
	img_count   dd aimg_count
	img_lock_bits dd aimg_lock_bits
	img_unlock_bits dd aimg_unlock_bits
	img_flip    dd aimg_flip
	img_flip_layer dd aimg_flip_layer
	img_rotate  dd aimg_rotate
	img_rotate_layer dd aimg_rotate_layer
	img_draw    dd aimg_draw
 
	dd 0,0
	alib_init1   db 'lib_init',0
	aimg_is_img  db 'img_is_img',0 ;®¯à¥¤¥«ï¥â ¯® ¤ ­­ë¬, ¬®¦¥â «¨ ¡¨¡«¨®â¥ª  á¤¥« âì ¨§ ­¨å ¨§®¡à ¦¥­¨¥
	aimg_info    db 'img_info',0
	aimg_from_file db 'img_from_file',0
	aimg_to_file db 'img_to_file',0
	aimg_from_rgb db 'img_from_rgb',0
	aimg_to_rgb  db 'img_to_rgb',0 ;¯à¥®¡à §®¢ ­¨¥ ¨§®¡à ¦¥­¨ï ¢ ¤ ­­ë¥ RGB
	aimg_to_rgb2 db 'img_to_rgb2',0
	aimg_decode  db 'img_decode',0 ; ¢â®¬ â¨ç¥áª¨ ®¯à¥¤¥«ï¥â ä®à¬ â £à ä¨ç¥áª¨å ¤ ­­ëå
	aimg_encode  db 'img_encode',0
	aimg_create  db 'img_create',0
	aimg_destroy db 'img_destroy',0
	aimg_destroy_layer db 'img_destroy_layer',0
	aimg_count   db 'img_count',0
	aimg_lock_bits db 'img_lock_bits',0
	aimg_unlock_bits db 'img_unlock_bits',0
	aimg_flip    db 'img_flip',0
	aimg_flip_layer db 'img_flip_layer',0
	aimg_rotate  db 'img_rotate',0
	aimg_rotate_layer db 'img_rotate_layer',0
	aimg_draw    db 'img_draw',0
 
align 4
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨àã¥¬ëå äã­ªæ¨©
	OpenDialog_Init dd aOpenDialog_Init
	OpenDialog_Start dd aOpenDialog_Start
dd 0,0
	aOpenDialog_Init db 'OpenDialog_init',0
	aOpenDialog_Start db 'OpenDialog_start',0
 
align 4
import_buf2d:
	dd sz_init0
	buf2d_create dd sz_buf2d_create
	buf2d_create_f_img dd sz_buf2d_create_f_img
	buf2d_clear dd sz_buf2d_clear
	buf2d_draw dd sz_buf2d_draw
	buf2d_delete dd sz_buf2d_delete
	buf2d_resize dd sz_buf2d_resize
	buf2d_line dd sz_buf2d_line
	buf2d_rect_by_size dd sz_buf2d_rect_by_size
	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
	buf2d_circle dd sz_buf2d_circle
	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
	buf2d_bit_blt dd sz_buf2d_bit_blt
	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
	buf2d_curve_bezier dd sz_buf2d_curve_bezier
	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
	buf2d_draw_text dd sz_buf2d_draw_text
	buf2d_crop_color dd sz_buf2d_crop_color
	buf2d_offset_h dd sz_buf2d_offset_h
	buf2d_flood_fill dd sz_buf2d_flood_fill
	buf2d_set_pixel dd sz_buf2d_set_pixel
	dd 0,0
	sz_init0 db 'lib_init',0
	sz_buf2d_create db 'buf2d_create',0
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
	sz_buf2d_clear db 'buf2d_clear',0
	sz_buf2d_draw db 'buf2d_draw',0
	sz_buf2d_delete db 'buf2d_delete',0
	sz_buf2d_resize db 'buf2d_resize',0
	sz_buf2d_line db 'buf2d_line',0
	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
	sz_buf2d_circle db 'buf2d_circle',0
	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
	sz_buf2d_draw_text db 'buf2d_draw_text',0
	sz_buf2d_crop_color db 'buf2d_crop_color',0
	sz_buf2d_offset_h db 'buf2d_offset_h',0
	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
 
align 4
import_box_lib:
	dd sz_init1
	init_checkbox dd sz_init_checkbox
	check_box_draw dd sz_check_box_draw
	edit_box_draw dd sz_edit_box_draw
	edit_box_key dd sz_edit_box_key
	edit_box_mouse dd sz_edit_box_mouse
	edit_box_set_text dd sz_edit_box_set_text
	scrollbar_ver_draw dd sz_scrollbar_ver_draw
	scrollbar_hor_draw dd sz_scrollbar_hor_draw
 
	tl_data_init dd sz_tl_data_init
	tl_data_clear dd sz_tl_data_clear
	tl_info_clear dd sz_tl_info_clear
	tl_key dd sz_tl_key
	tl_mouse dd sz_tl_mouse
	tl_draw dd sz_tl_draw
	tl_info_undo dd sz_tl_info_undo
	tl_info_redo dd sz_tl_info_redo
	tl_node_add dd sz_tl_node_add
	tl_node_set_data dd sz_tl_node_set_data
	tl_node_get_data dd sz_tl_node_get_data
	tl_node_delete dd sz_tl_node_delete
	tl_node_move_up dd sz_tl_node_move_up
	tl_node_move_down dd sz_tl_node_move_down
	tl_cur_beg dd sz_tl_cur_beg
	tl_cur_next dd sz_tl_cur_next
	tl_cur_perv dd sz_tl_cur_perv
	tl_node_close_open dd sz_tl_node_close_open
	tl_node_lev_inc dd sz_tl_node_lev_inc
	tl_node_lev_dec dd sz_tl_node_lev_dec
	tl_node_poi_get_info dd sz_tl_node_poi_get_info
	tl_node_poi_get_next_info dd sz_tl_node_poi_get_next_info
	tl_node_poi_get_data dd sz_tl_node_poi_get_data
 
	dd 0,0
	sz_init1 db 'lib_init',0
	sz_init_checkbox db 'init_checkbox2',0
	sz_check_box_draw db 'check_box_draw2',0
	sz_edit_box_draw db 'edit_box',0
	sz_edit_box_key db 'edit_box_key',0
	sz_edit_box_mouse db 'edit_box_mouse',0
	sz_edit_box_set_text db 'edit_box_set_text',0
	sz_scrollbar_ver_draw db 'scrollbar_v_draw',0
	sz_scrollbar_hor_draw db 'scrollbar_h_draw',0
 
	sz_tl_data_init db 'tl_data_init',0
	sz_tl_data_clear db 'tl_data_clear',0
	sz_tl_info_clear db 'tl_info_clear',0
	sz_tl_key db 'tl_key',0
	sz_tl_mouse db 'tl_mouse',0
	sz_tl_draw db 'tl_draw',0
	sz_tl_info_undo db 'tl_info_undo',0
	sz_tl_info_redo db 'tl_info_redo',0
	sz_tl_node_add db 'tl_node_add',0
	sz_tl_node_set_data db 'tl_node_set_data',0
	sz_tl_node_get_data db 'tl_node_get_data',0
	sz_tl_node_delete db 'tl_node_delete',0
	sz_tl_node_move_up db 'tl_node_move_up',0
	sz_tl_node_move_down db 'tl_node_move_down',0
	sz_tl_cur_beg db 'tl_cur_beg',0
	sz_tl_cur_next db 'tl_cur_next',0
	sz_tl_cur_perv db 'tl_cur_perv',0
	sz_tl_node_close_open db 'tl_node_close_open',0
	sz_tl_node_lev_inc db 'tl_node_lev_inc',0
	sz_tl_node_lev_dec db 'tl_node_lev_dec',0
	sz_tl_node_poi_get_info db 'tl_node_poi_get_info',0
	sz_tl_node_poi_get_next_info db 'tl_node_poi_get_next_info',0
	sz_tl_node_poi_get_data db 'tl_node_poi_get_data',0
 
align 4
import_libkmenu:
	kmenu_init		       dd akmenu_init
	kmainmenu_draw		       dd akmainmenu_draw
	kmainmenu_dispatch_cursorevent dd akmainmenu_dispatch_cursorevent
	ksubmenu_new		       dd aksubmenu_new
	ksubmenu_delete 	       dd aksubmenu_delete
	ksubmenu_draw		       dd aksubmenu_draw
	ksubmenu_add		       dd aksubmenu_add
	kmenuitem_new		       dd akmenuitem_new
	kmenuitem_delete	       dd akmenuitem_delete
	kmenuitem_draw		       dd akmenuitem_draw
dd 0,0
	akmenu_init			db 'kmenu_init',0
	akmainmenu_draw 		db 'kmainmenu_draw',0
	akmainmenu_dispatch_cursorevent db 'kmainmenu_dispatch_cursorevent',0
	aksubmenu_new			db 'ksubmenu_new',0
	aksubmenu_delete		db 'ksubmenu_delete',0
	aksubmenu_draw			db 'ksubmenu_draw',0
	aksubmenu_add			db 'ksubmenu_add',0
	akmenuitem_new			db 'kmenuitem_new',0
	akmenuitem_delete		db 'kmenuitem_delete',0
	akmenuitem_draw 		db 'kmenuitem_draw',0
 
align 4
import_lib_tinygl:
macro E_LIB n
{
	n dd sz_#n
}
include '../../develop/libraries/TinyGL/asm_fork/export.inc'
	dd 0,0
macro E_LIB n
{
	sz_#n db `n,0
}
include '../../develop/libraries/TinyGL/asm_fork/export.inc'
 
align 4
mouse_dd dd 0x0
 
last_time dd 0
 
align 4
buf_0: dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
.l: dw 205 ;+4 left
.t: dw 35 ;+6 top
.w: dd 340 ;+8 w
.h: dd main_wnd_height-65 ;+12 h
.color: dd 0xffffd0 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_1:
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 25,25 ;+4 left,top
	dd 128,144 ;+8 w,h
	dd 0,24 ;+16 color,bit in pixel
 
align 4
el_focus dd tree1
tree1 tree_list size_one_list,300+2, tl_key_no_edit+tl_draw_par_line,\
	16,16, 0xffffff,0xb0d0ff,0x400040, 5,35,195-16,250, 16,list_offs_text,0, el_focus,\
	w_scr_t1,0
 
align 4
w_scr_t1 scrollbar 16,0, 3,0, 15, 100, 0,0, 0,0,0, 1
 
align 4
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
 
qObj dd 0
angle_x dd 0.0
angle_y dd 0.0
angle_z dd 0.0
delt_size dd 3.0
 
light_position dd 0.0, 0.0, -2.0, 1.0 ;  á¯®«®¦¥­¨¥ ¨áâ®ç­¨ª  [0][1][2]
	;[3] = (0.0 - ¡¥áª®­¥ç­® ã¤ «¥­­ë© ¨áâ®ç­¨ª, 1.0 - ¨áâ®ç­¨ª á¢¥â  ­  ®¯à¥¤¥«¥­­®¬ à ááâ®ï­¨¨)
light_dir dd 0.0,0.0,0.0 ;­ ¯à ¢«¥­¨¥ « ¬¯ë
 
mat_specular dd 0.3, 0.3, 0.3, 1.0 ; ¢¥â ¡«¨ª 
mat_shininess dd 3.0 ;  §¬¥à ¡«¨ª  (®¡à â­ ï ¯à®¯®àæ¨ï)
white_light dd 0.8, 0.8, 0.8, 1.0 ; ¢¥â ¨ ¨­â¥­á¨¢­®áâì ®á¢¥é¥­¨ï, £¥­¥à¨àã¥¬®£® ¨áâ®ç­¨ª®¬
lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ;  à ¬¥âàë ä®­®¢®£® ®á¢¥é¥­¨ï
 
align 16
i_end:
	procinfo process_information
	sc system_colors
	rb 2048
align 16
thread_coords:
	rb 2048
stacktop:
	sys_path rb 2048
	file_name rb 4096 
	library_path rb 2048
	plugin_path rb 4096
	openfile_path rb 4096
	filename_area rb 256
mem:
>
>

Rev 5930	Rev 5935
1	use32	1	use32
2	org 0x0	2	org 0x0
3	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â	3	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â
4	dd 1, start, i_end, mem, stacktop, 0, sys_path	4	dd 1, start, i_end, mem, stacktop, 0, sys_path
5		5
6	include '../../macros.inc'	6	include '../../macros.inc'
7	include '../../proc32.inc'	7	include '../../proc32.inc'
8	include '../../develop/libraries/box_lib/load_lib.mac'	8	include '../../develop/libraries/box_lib/load_lib.mac'
9	include '../../develop/libraries/box_lib/trunk/box_lib.mac'	9	include '../../develop/libraries/box_lib/trunk/box_lib.mac'
10	include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'	10	include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'
11	include '../../dll.inc'	11	include '../../dll.inc'
12	include 'lang.inc'	12	include 'lang.inc'
13	include 'info_fun_float.inc'	13	include 'info_fun_float.inc'
-		14	include 'info_menu.inc'
14		15
15	debug equ 0	16	debug equ 0
16		17
17	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load	18	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
18		19
19	struct FileInfoBlock	20	struct FileInfoBlock
20	Function dd ?	21	Function dd ?
21	Position dd ?	22	Position dd ?
22	Flags dd ?	23	Flags dd ?
23	Count dd ?	24	Count dd ?
24	Buffer dd ?	25	Buffer dd ?
25	db ?	26	db ?
26	FileName dd ?	27	FileName dd ?
27	ends	28	ends
28		29
29	run_file_70 FileInfoBlock	30	run_file_70 FileInfoBlock
30	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì, ã¦¥ ¤«ï ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï	31	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì, ã¦¥ ¤«ï ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï
31	open_file_lif dd 0 ;ãª § â¥«ì ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds	32	open_file_lif dd 0 ;ãª § â¥«ì ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds
32	open_file_size dd 0 ;à §¬¥à ®âªàëâ®£® ä ©«	33	open_file_size dd 0 ;à §¬¥à ®âªàëâ®£® ä ©«
33		34
34	;	35	;
35	main_wnd_height equ 460 ;¢ëá®â £« ¢®£® ®ª ¯à®£à ¬¬ë	36	main_wnd_height equ 460 ;¢ëá®â £« ¢®£® ®ª ¯à®£à ¬¬ë
36	fn_toolbar db 'toolbar.png',0	37	fn_toolbar db 'toolbar.png',0
37	IMAGE_TOOLBAR_ICON_SIZE equ 16163	38	IMAGE_TOOLBAR_ICON_SIZE equ 16163
38	IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7	39	IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7
39	image_data_toolbar dd 0	40	image_data_toolbar dd 0
40	;	41	;
41	TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©« á á¨áâ¥¬ë¬¨ ¨ª®ª ¬¨	42	TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©« á á¨áâ¥¬ë¬¨ ¨ª®ª ¬¨
42	icon_tl_sys dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª	43	icon_tl_sys dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª
43	icon_toolbar dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï ¨ª®®ª ®¡ê¥ªâ®¢	44	icon_toolbar dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï ¨ª®®ª ®¡ê¥ªâ®¢
44	TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*8+54 ;à §¬¥à bmp ä ©« á ¨ª®ª ¬¨ ®¡ê¥ªâ®¢	45	TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*8+54 ;à §¬¥à bmp ä ©« á ¨ª®ª ¬¨ ®¡ê¥ªâ®¢
45	;	46	;
46	IMAGE_FILE1_SIZE equ 1281443+54 ;à §¬¥à ä ©« á ¨§®¡à ¦¥¨¥¬	47	IMAGE_FILE1_SIZE equ 1281443+54 ;à §¬¥à ä ©« á ¨§®¡à ¦¥¨¥¬
47		48
48	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©	49	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©
49	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬	50	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
50	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path	51	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path
51	jmp @f	52	jmp @f
52	local .path_str	53	local .path_str
53	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî	54	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî
54	db 0	55	db 0
55	@@:	56	@@:
56	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬	57	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬
57	copy_path .path_str,[32],file_name,0	58	copy_path .path_str,[32],file_name,0
58	else	59	else
59	copy_path path,[32],file_name,0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©	60	copy_path path,[32],file_name,0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
60	end if	61	end if
61		62
62	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï	63	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
63	mov [buf],eax	64	mov [buf],eax
64		65
65	mov [run_file_70.Function], 0	66	mov [run_file_70.Function], 0
66	mov [run_file_70.Position], 0	67	mov [run_file_70.Position], 0
67	mov [run_file_70.Flags], 0	68	mov [run_file_70.Flags], 0
68	mov [run_file_70.Count], dword size	69	mov [run_file_70.Count], dword size
69	mov [run_file_70.Buffer], eax	70	mov [run_file_70.Buffer], eax
70	mov byte[run_file_70+20], 0	71	mov byte[run_file_70+20], 0
71	mov [run_file_70.FileName], file_name	72	mov [run_file_70.FileName], file_name
72	mcall 70,run_file_70 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	73	mcall 70,run_file_70 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
73	cmp ebx,0xffffffff	74	cmp ebx,0xffffffff
74	je @f	75	je @f
75	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data	76	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
76	stdcall dword[img_decode], dword[buf],ebx,0	77	stdcall dword[img_decode], dword[buf],ebx,0
77	mov dword[image_data],eax	78	mov dword[image_data],eax
78	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb	79	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
79	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]	80	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
80	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data	81	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
81	stdcall dword[img_destroy], dword[image_data]	82	stdcall dword[img_destroy], dword[image_data]
82	@@:	83	@@:
83	}	84	}
84		85
85	;--------------------------------------	86	;--------------------------------------
86	include 'data.inc'	87	include 'data.inc'
87		88
88	level_stack dd 0	89	level_stack dd 0
89	offs_last_timer dd 0 ;¯®á«¥¤¨© á¤¢¨£ ¯®ª § ë© ¢ äãªæ¨¨ â ©¬¥à	90	offs_last_timer dd 0 ;¯®á«¥¤¨© á¤¢¨£ ¯®ª § ë© ¢ äãªæ¨¨ â ©¬¥à
90		91
91	ID_ICON_CHUNK_MAIN equ 0 ;¨ª®ª £« ¢®£® ¡«®ª	92	ID_ICON_CHUNK_MAIN equ 0 ;¨ª®ª £« ¢®£® ¡«®ª
92	ID_ICON_CHUNK_NOT_FOUND equ 1 ;¨ª®ª ¥ ¨§¢¥áâ®£® ¡«®ª	93	ID_ICON_CHUNK_NOT_FOUND equ 1 ;¨ª®ª ¥ ¨§¢¥áâ®£® ¡«®ª
93	ID_ICON_DATA equ 2 ;¨ª®ª ¤«ï ¤ ëå ¡«®ª , ¥ ®¯à¥¤¥«¥®© áâàãªâãàë	94	ID_ICON_DATA equ 2 ;¨ª®ª ¤«ï ¤ ëå ¡«®ª , ¥ ®¯à¥¤¥«¥®© áâàãªâãàë
94		95
95	FILE_ERROR_CHUNK_SIZE equ -3 ;®è¨¡ª ¢ à §¬¥à¥ ¡«®ª	96	FILE_ERROR_CHUNK_SIZE equ -3 ;®è¨¡ª ¢ à §¬¥à¥ ¡«®ª
96		97
97	align 4	98	align 4
98	file_3ds: ;¯¥à¥¬¥ë¥ ¨á¯®«ì§ã¥¬ë¥ ¯à¨ ®âªàëâ¨¨ ä ©«	99	file_3ds: ;¯¥à¥¬¥ë¥ ¨á¯®«ì§ã¥¬ë¥ ¯à¨ ®âªàëâ¨¨ ä ©«
99	.offs: dd 0 ;+0 ãª § â¥«ì ç «® ¡«®ª	100	.offs: dd 0 ;+0 ãª § â¥«ì ç «® ¡«®ª
100	.size: dd 0 ;+4 à §¬¥à ¡«®ª (¤«ï 1-£® ¯ à ¬¥âà = à §¬¥à ä ©« 3ds)	101	.size: dd 0 ;+4 à §¬¥à ¡«®ª (¤«ï 1-£® ¯ à ¬¥âà = à §¬¥à ä ©« 3ds)
101	rb 8*MAX_FILE_LEVEL	102	rb 8*MAX_FILE_LEVEL
102		103
103	size_one_list equ 42	104	size_one_list equ 42
104	list_offs_chunk_del equ 8 ;¬®¦¥â «¨ ¡«®ª ã¤ «ïâáï	105	list_offs_chunk_del equ 8 ;¬®¦¥â «¨ ¡«®ª ã¤ «ïâáï
105	list_offs_chunk_lev equ 9 ;ãà®¢¥ì ¡«®ª (¯à®¯¨á ¢ ¤ ë¥ ã§« )	106	list_offs_chunk_lev equ 9 ;ãà®¢¥ì ¡«®ª (¯à®¯¨á ¢ ¤ ë¥ ã§« )
106	list_offs_p_data equ 10 ;ãª § â¥«ì ¯®¤¯¨áì ¡«®ª	107	list_offs_p_data equ 10 ;ãª § â¥«ì ¯®¤¯¨áì ¡«®ª
107	list_offs_text equ 14 ;á¤¢¨£ ç « â¥ªáâ ¢ «¨áâ¥	108	list_offs_text equ 14 ;á¤¢¨£ ç « â¥ªáâ ¢ «¨áâ¥
108	buffer rb size_one_list ;¡ãä¥à ¤«ï ¤®¡ ¢«¥¨ï áâàãªâãà ¢ á¯¨á®ª tree1	109	buffer rb size_one_list ;¡ãä¥à ¤«ï ¤®¡ ¢«¥¨ï áâàãªâãà ¢ á¯¨á®ª tree1
109		110
110	txt_3ds_symb db 0,0	111	txt_3ds_symb db 0,0
111	;--------------------------------------	112	;--------------------------------------
112		113
113	include 'info_wnd_coords.inc'	114	include 'info_wnd_coords.inc'
114		115
115	align 4	116	align 4
116	start:	117	start:
117	load_libraries l_libs_start,l_libs_end	118	load_libraries l_libs_start,l_libs_end
118	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨	119	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨
119	mov ebp,lib_0	120	mov ebp,lib_0
120	.test_lib_open:	121	.test_lib_open:
121	cmp dword [ebp+ll_struc_size-4],0	122	cmp dword [ebp+ll_struc_size-4],0
122	jz @f	123	jz @f
123	mcall -1 ;exit not correct	124	mcall -1 ;exit not correct
124	@@:	125	@@:
125	add ebp,ll_struc_size	126	add ebp,ll_struc_size
126	cmp ebp,l_libs_end	127	cmp ebp,l_libs_end
127	jl .test_lib_open	128	jl .test_lib_open
128	mcall 48,3,sc,sizeof.system_colors	129	mcall 48,3,sc,sizeof.system_colors
129	mcall 40,0x27	130	mcall 40,0x27
130	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª ¤¨ «®£	131	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª ¤¨ «®£
-		132
-		133	;kmenu initialisation
-		134	stdcall [kmenu_init],sc
-		135	stdcall [ksubmenu_new]
-		136	mov [main_menu], eax
-		137
-		138	stdcall [ksubmenu_new]
-		139	mov [main_menu_view], eax
-		140	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Vertexes, 5
-		141	stdcall [ksubmenu_add], [main_menu_view], eax
-		142	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Faces, 6
-		143	stdcall [ksubmenu_add], [main_menu_view], eax
-		144	stdcall [kmenuitem_new], KMENUITEM_SEPARATOR, 0, 0
-		145	stdcall [ksubmenu_add], [main_menu_view], eax
-		146	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Light, 7
-		147	stdcall [ksubmenu_add], [main_menu_view], eax
-		148	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_View, [main_menu_view]
-		149	stdcall [ksubmenu_add], [main_menu], eax
131		150
132	mov dword[w_scr_t1.type],1	151	mov dword[w_scr_t1.type],1
133	stdcall dword[tl_data_init], tree1	152	stdcall dword[tl_data_init], tree1
134	;á¨áâ¥¬ë¥ ¨ª®ª¨ 16*16 ¤«ï tree_list	153	;á¨áâ¥¬ë¥ ¨ª®ª¨ 16*16 ¤«ï tree_list
135	load_image_file 'tl_sys_16.png', icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE	154	load_image_file 'tl_sys_16.png', icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE
136	;¥á«¨ ¨§®¡à ¦¥¨¥ ¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ	155	;¥á«¨ ¨§®¡à ¦¥¨¥ ¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ
137	;¥ ¨¨æ¨ «¨§¨à®¢ ë¥ ¤ ë¥, ® ®è¨¡ª¨ ¥ ¡ã¤¥â, â. ª. ¡ãä¥à ã¦®£® à §¬¥à	156	;¥ ¨¨æ¨ «¨§¨à®¢ ë¥ ¤ ë¥, ® ®è¨¡ª¨ ¥ ¡ã¤¥â, â. ª. ¡ãä¥à ã¦®£® à §¬¥à
138	mov eax,dword[icon_tl_sys]	157	mov eax,dword[icon_tl_sys]
139	mov dword[tree1.data_img_sys],eax	158	mov dword[tree1.data_img_sys],eax
140		159
141	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE	160	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE
142	mov eax,dword[icon_toolbar]	161	mov eax,dword[icon_toolbar]
143	mov dword[tree1.data_img],eax	162	mov dword[tree1.data_img],eax
144		163
145	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à	164	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à
146		165
147	load_image_file 'font8x9.bmp', image_data_toolbar,IMAGE_FILE1_SIZE	166	load_image_file 'font8x9.bmp', image_data_toolbar,IMAGE_FILE1_SIZE
148	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à	167	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à
149	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì	168	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
150	stdcall [buf2d_conv_24_to_8], buf_1,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â	169	stdcall [buf2d_conv_24_to_8], buf_1,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â
151	stdcall [buf2d_convert_text_matrix], buf_1	170	stdcall [buf2d_convert_text_matrix], buf_1
152		171
153	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE	172	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE
154		173
155	stdcall mem.Alloc,MAX_FILE_SIZE	174	stdcall mem.Alloc,MAX_FILE_SIZE
156	mov dword[open_file_lif],eax	175	mov dword[open_file_lif],eax
157		176
158	mcall 26,9	177	mcall 26,9
159	mov [last_time],eax	178	mov [last_time],eax
160		179
161	stdcall [kosglMakeCurrent], 5,3,320,240,ctx1	180	stdcall [kosglMakeCurrent], 5,23,320,240,ctx1
162	stdcall [glEnable], GL_DEPTH_TEST	181	stdcall [glEnable], GL_DEPTH_TEST
163	stdcall [glEnable], GL_NORMALIZE ;¤¥« ¬ ®à¬ «¨ ®¤¨ ª®¢®© ¢¥«¨ç¨ë ¢® ¨§¡¥¦ ¨¥ àâ¥ä ªâ®¢	182	stdcall [glEnable], GL_NORMALIZE ;¤¥« ¬ ®à¬ «¨ ®¤¨ ª®¢®© ¢¥«¨ç¨ë ¢® ¨§¡¥¦ ¨¥ àâ¥ä ªâ®¢
164	stdcall [glClearColor], 0.0,0.0,0.0,0.0	183	stdcall [glClearColor], 0.0,0.0,0.0,0.0
165	stdcall [glShadeModel], GL_SMOOTH	184	stdcall [glShadeModel], GL_SMOOTH
166	stdcall [gluNewQuadric]	185	stdcall [gluNewQuadric]
167	mov [qObj],eax	186	mov [qObj],eax
168		187
169	call draw_window	188	call draw_window
170		189
171	align 4	190	align 4
172	still:	191	still:
173	mcall 26,9	192	mcall 26,9
174	mov ebx,[last_time]	193	mov ebx,[last_time]
175	add ebx,10 ;§ ¤¥à¦ª	194	add ebx,10 ;§ ¤¥à¦ª
176	cmp ebx,eax	195	cmp ebx,eax
177	jge @f	196	jge @f
178	mov ebx,eax	197	mov ebx,eax
179	@@:	198	@@:
180	sub ebx,eax	199	sub ebx,eax
181	mcall 23	200	mcall 23
182	cmp eax,0	201	cmp eax,0
183	je timer_funct	202	je timer_funct
184		203
185	cmp al,1	204	cmp al,1
186	jne @f	205	jne @f
187	call draw_window	206	call draw_window
188	jmp still	207	jmp still
189	@@:	208	@@:
190	cmp al,2	209	cmp al,2
191	jz key	210	jz key
192	cmp al,3	211	cmp al,3
193	jz button	212	jz button
194	cmp al,6	213	cmp al,6
195	jne @f	214	jne @f
196	mcall 9,procinfo,-1	215	mcall 9,procinfo,-1
197	cmp ax,word[procinfo+4]	216	cmp ax,word[procinfo+4]
198	jne @f ;®ª® ¥ ªâ¨¢®	217	jne @f ;®ª® ¥ ªâ¨¢®
199	call mouse	218	call mouse
200	@@:	219	@@:
201	jmp still	220	jmp still
202		221
203	align 4	222	align 4
204	mouse:	223	mouse:
205	stdcall [tl_mouse], dword tree1	224	stdcall [tl_mouse], dword tree1
206	ret	225	ret
207		226
208	align 4	227	align 4
209	timer_funct:	228	timer_funct:
210	pushad	229	pushad
211	if debug	-
212	mcall 4, (5 shl 16)+8, 0xff+0x80000000, txt_0002	-
213	end if	-
214	mcall 26,9	230	mcall 26,9
215	mov [last_time],eax	231	mov [last_time],eax
216		-
-		232
217	;	233	;¯à®á¬ âà¨¢ ¥¬ ¢ë¤¥«¥ë© ¡«®ª ¤ ëå
218	stdcall [tl_node_get_data],tree1	234	stdcall [tl_node_get_data],tree1
219	cmp eax,0	235	cmp eax,0
220	je @f	236	je @f
221	mov ebx,eax	237	mov ebx,eax
222	mov eax,dword[ebx] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ë¡à ®£® ¡«®ª ®â®á¨â¥«ì® ç « ä ©«	238	mov eax,dword[ebx] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ë¡à ®£® ¡«®ª ®â®á¨â¥«ì® ç « ä ©«
223	mov ecx,dword[ebx+4] ;à §¬¥à ¡«®ª	239	mov ecx,dword[ebx+4] ;à §¬¥à ¡«®ª
224	stdcall hex_in_str, txt_3ds_offs.dig, eax,8	240	stdcall hex_in_str, txt_3ds_offs.dig, eax,8
225	stdcall hex_in_str, txt_3ds_offs.siz, ecx,8	241	stdcall hex_in_str, txt_3ds_offs.siz, ecx,8
226		242
227	add eax,dword[open_file_lif] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ ¯ ¬ïâ¨	243	add eax,dword[open_file_lif] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ ¯ ¬ïâ¨
228	cmp dword[offs_last_timer],eax	244	cmp dword[offs_last_timer],eax
229	je @f	245	je @f
-		246	;¥á«¨ ¢ë¤¥«¥ë© ¡«®ª ¤ ëå ¥ á®¢¯ ¤ ¥â á ¯®á«¥¤¨¬ § ¯®¬¥ë¬
230	mov dword[offs_last_timer],eax	247	mov dword[offs_last_timer],eax
231	call buf_draw_beg	248	call buf_draw_beg
232	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs,5,35,0xb000	249	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs,5,35,0xb000
233	mov edx,dword[ebx+list_offs_p_data]	250	mov edx,dword[ebx+list_offs_p_data]
234	cmp edx,0 ;á¬®âà¨¬ ¥áâì «¨ ®¯¨á ¨¥ ¡«®ª	251	cmp edx,0 ;á¬®âà¨¬ ¥áâì «¨ ®¯¨á ¨¥ ¡«®ª
235	je .no_info	252	je .no_info
236	stdcall [buf2d_draw_text], buf_0, buf_1,edx,5,45,0xb000	253	stdcall [buf2d_draw_text], buf_0, buf_1,edx,5,45,0xb000
237	.no_info:	254	.no_info:
238	add ecx,eax ;¯®«ãç ¥¬ à §¬¥à ¡«®ª	255	add ecx,eax ;¯®«ãç ¥¬ à §¬¥à ¡«®ª
239	stdcall buf_draw_hex_table,eax,ecx ;¤®¡ ¢«¥¨¥ 16-à¨çëå ¤ ëå	256	stdcall buf_draw_hex_table,eax,ecx ;¤®¡ ¢«¥¨¥ 16-à¨çëå ¤ ëå
240	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥	257	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥
241	@@:	258	@@:
242	popad	259	popad
-		260
-		261	;¯à®á¬®âà ®ª á ª®®à¤¨ â ¬¨ â®ç¥ª
-		262	;cmp byte[prop_wnd_run],0
-		263	;je @f
-		264	; call prop_timer_funct
-		265	;@@:
243	jmp still	266	jmp still
244		267
245	align 4	268	align 4
246	buf_draw_beg:	269	buf_draw_beg:
247	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à	270	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
248	stdcall [buf2d_draw_text], buf_0, buf_1,txt_open_3ds,5,5,0xff	271	stdcall [buf2d_draw_text], buf_0, buf_1,txt_open_3ds,5,5,0xff
249	stdcall [buf2d_draw_text], buf_0, buf_1,openfile_path,5,15,0xff	272	stdcall [buf2d_draw_text], buf_0, buf_1,openfile_path,5,15,0xff
250	cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦ ®è¨¡ª ä ©«	273	cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦ ®è¨¡ª ä ©«
251	jne @f	274	jne @f
252	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_err_sizes,5,25,0xff0000	275	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_err_sizes,5,25,0xff0000
253	@@:	276	@@:
254	ret	277	ret
255		278
256	align 4	279	align 4
257	proc buf_draw_hex_table, offs:dword, size_line:dword	280	proc buf_draw_hex_table, offs:dword, size_line:dword
258	pushad	281	pushad
259	locals	282	locals
260	coord_y dd 55 ;ª®®à¤¨ â y ¤«ï ç « ¢ë¢®¤ â ¡«¨æë	283	coord_y dd 55 ;ª®®à¤¨ â y ¤«ï ç « ¢ë¢®¤ â ¡«¨æë
261	endl	284	endl
262	mov esi,dword[offs]	285	mov esi,dword[offs]
263	mov edi,dword[open_file_lif]	286	mov edi,dword[open_file_lif]
264	add edi,dword[file_3ds.size] ;edi - ãª § â¥«ì ª®¥æ ä ©« ¢ ¯ ¬ïâ¨	287	add edi,dword[file_3ds.size] ;edi - ãª § â¥«ì ª®¥æ ä ©« ¢ ¯ ¬ïâ¨
265	mov dword[txt_3ds_offs.dig],0	288	mov dword[txt_3ds_offs.dig],0
266	cld	289	cld
267	.cycle_rows:	290	.cycle_rows:
268	mov ebx,5 ;®âáâã¯ á«¥¢ ¤«ï æ¨äà	291	mov ebx,5 ;®âáâã¯ á«¥¢ ¤«ï æ¨äà
269	mov edx,5+10*24 ;®âáâã¯ á«¥¢ ¤«ï â¥ªáâ	292	mov edx,5+10*24 ;®âáâã¯ á«¥¢ ¤«ï â¥ªáâ
270	mov ecx,10	293	mov ecx,10
271	@@:	294	@@:
272	stdcall hex_in_str, txt_3ds_offs.dig, dword[esi],2	295	stdcall hex_in_str, txt_3ds_offs.dig, dword[esi],2
273	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs.dig,ebx,[coord_y],0	296	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs.dig,ebx,[coord_y],0
274		297
275	mov al,byte[esi]	298	mov al,byte[esi]
276	mov byte[txt_3ds_symb],al	299	mov byte[txt_3ds_symb],al
277	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_symb,edx,[coord_y],0x808080	300	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_symb,edx,[coord_y],0x808080
278	inc esi	301	inc esi
279	cmp esi,dword[size_line]	302	cmp esi,dword[size_line]
280	jne .end_block	303	jne .end_block
281	stdcall draw_block_end_line, dword[coord_y]	304	stdcall draw_block_end_line, dword[coord_y]
282	.end_block:	305	.end_block:
283	cmp esi,edi	306	cmp esi,edi
284	jge @f ;jg ???	307	jge @f ;jg ???
285	add ebx,24	308	add ebx,24
286	add edx,9 ;è¨à¨ 1-£® á¨¬¢®« +1pix	309	add edx,9 ;è¨à¨ 1-£® á¨¬¢®« +1pix
287	loop @b	310	loop @b
288	add dword[coord_y],10 ;¢ëá®â 1-£® á¨¬¢®« (¨«¨ ¨â¥à¢ « ¬¥¦¤ã áâà®ª ¬¨)	311	add dword[coord_y],10 ;¢ëá®â 1-£® á¨¬¢®« (¨«¨ ¨â¥à¢ « ¬¥¦¤ã áâà®ª ¬¨)
289	mov ebx,dword[buf_0.h]	312	mov ebx,dword[buf_0.h]
290	cmp dword[coord_y],ebx	313	cmp dword[coord_y],ebx
291	jl .cycle_rows	314	jl .cycle_rows
292	@@:	315	@@:
293	popad	316	popad
294	ret	317	ret
295	endp	318	endp
296		319
297	align 4	320	align 4
298	proc draw_block_end_line uses eax ebx ecx, coord_y:dword	321	proc draw_block_end_line uses eax ebx ecx, coord_y:dword
299	add ebx,20 ;20 = width 2.5 symbols	322	add ebx,20 ;20 = width 2.5 symbols
300	mov eax,[coord_y]	323	mov eax,[coord_y]
301	sub eax,2	324	sub eax,2
302	mov ecx,eax	325	mov ecx,eax
303	add ecx,10	326	add ecx,10
304	stdcall [buf2d_line], buf_0, 0,ecx,ebx,ecx ,0xff	327	stdcall [buf2d_line], buf_0, 0,ecx,ebx,ecx ,0xff
305	stdcall [buf2d_line], buf_0, ebx,ecx,ebx,eax ,0xff	328	stdcall [buf2d_line], buf_0, ebx,ecx,ebx,eax ,0xff
306	stdcall [buf2d_line], buf_0, ebx,eax,5+10*24-4,eax ,0xff	329	stdcall [buf2d_line], buf_0, ebx,eax,5+10*24-4,eax ,0xff
307	ret	330	ret
308	endp	331	endp
309		332
310	align 4	333	align 4
311	draw_window:	334	draw_window:
312	pushad	335	pushad
313	mcall 12,1	336	mcall 12,1
314	xor eax,eax	337	xor eax,eax
315	mov edx,[sc.work]	338	mov edx,[sc.work]
316	or edx,0x33000000	339	or edx,0x33000000
317	mov edi,capt	340	mov edi,capt
318	mcall , (20 shl 16)+560, (20 shl 16)+main_wnd_height	341	mcall , (20 shl 16)+560, (20 shl 16)+main_wnd_height
319		342
320	mcall 9,procinfo,-1	343	mcall 9,procinfo,-1
321	mov eax,dword[procinfo.box.height]	344	mov eax,dword[procinfo.box.height]
322	cmp eax,250	345	cmp eax,250
323	jge @f	346	jge @f
324	mov eax,250	347	mov eax,250
325	@@:	348	@@:
326	sub eax,65	349	sub eax,65
327	mov dword[tree1.box_height],eax	350	mov dword[tree1.box_height],eax
328	mov word[w_scr_t1+4],ax ;®¢ë¥ à §¬¥àë áªà®««¨£	351	mov word[w_scr_t1+4],ax ;®¢ë¥ à §¬¥àë áªà®««¨£
329	cmp eax,dword[buf_0.h] ;ã¢¥«¨ç¨¢ ¥¬ ¢ëá®âã ¡ãä¥à	352	cmp eax,dword[buf_0.h] ;ã¢¥«¨ç¨¢ ¥¬ ¢ëá®âã ¡ãä¥à
330	jle @f	353	jle @f
331	stdcall [buf2d_resize],buf_0,0,eax	354	stdcall [buf2d_resize],buf_0,0,eax
332	mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡ãä¥à ¢ â ©¬¥à¥	355	mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡ãä¥à ¢ â ©¬¥à¥
333	@@:	356	@@:
334		357
335	mov eax,dword[procinfo.box.width]	358	mov eax,dword[procinfo.box.width]
336	cmp eax,400	359	cmp eax,400
337	jge @f	360	jge @f
338	mov eax,400	361	mov eax,400
339	@@:	362	@@:
340	sub eax,[buf_0.w]	363	sub eax,[buf_0.w]
341	sub eax,41	364	sub eax,41
342	mov dword[tree1.box_width],eax	365	mov dword[tree1.box_width],eax
343	add ax,word[tree1.box_left]	366	add ax,word[tree1.box_left]
344	mov word[w_scr_t1+sb_offs_start_x],ax	367	mov word[w_scr_t1+sb_offs_start_x],ax
345	add ax,16+5	368	add ax,16+5
346	mov word[buf_0.l],ax	369	mov word[buf_0.l],ax
347		370
348	mov esi,[sc.work_button]	371	mov esi,[sc.work_button]
349	mcall 8,(5 shl 16)+20,(5 shl 16)+20,3	372	mcall 8,(5 shl 16)+20,(5 shl 16)+20,3
350		373
351	mov ebx,(30 shl 16)+20	374	mov ebx,(30 shl 16)+20
352	mov edx,4	375	mov edx,4
353	int 0x40	376	int 0x40
354		377
355	cmp byte[can_save],0	378	cmp byte[can_save],0
356	je @f	379	je @f
357	mov ebx,(55 shl 16)+20	380	mov ebx,(55 shl 16)+20
358	mov edx,5	381	mov edx,5
359	int 0x40	382	int 0x40
360	@@:	383	@@:
361		384
362	mcall ,(85 shl 16)+20,,6 ;®ª® á ª®®à¤¨ â ¬¨	385	mcall ,(85 shl 16)+20,,6 ;®ª® á ª®®à¤¨ â ¬¨
363	mcall ,(110 shl 16)+20,,7 ;ã¤ «¥¨¥ ¡«®ª	386	mcall ,(110 shl 16)+20,,7 ;ã¤ «¥¨¥ ¡«®ª
364		387
365	mcall 7,[image_data_toolbar],(16 shl 16)+16,(7 shl 16)+7 ;new	388	mcall 7,[image_data_toolbar],(16 shl 16)+16,(7 shl 16)+7 ;new
366		389
367	add ebx,IMAGE_TOOLBAR_ICON_SIZE	390	add ebx,IMAGE_TOOLBAR_ICON_SIZE
368	mov edx,(32 shl 16)+7 ;open	391	mov edx,(32 shl 16)+7 ;open
369	int 0x40	392	int 0x40
370		393
371	cmp byte[can_save],0	394	cmp byte[can_save],0
372	je @f	395	je @f
373	add ebx,IMAGE_TOOLBAR_ICON_SIZE	396	add ebx,IMAGE_TOOLBAR_ICON_SIZE
374	mov edx,(57 shl 16)+7 ;save	397	mov edx,(57 shl 16)+7 ;save
375	int 0x40	398	int 0x40
376	sub ebx,IMAGE_TOOLBAR_ICON_SIZE	399	sub ebx,IMAGE_TOOLBAR_ICON_SIZE
377	@@:	400	@@:
378		401
379	add ebx,4*IMAGE_TOOLBAR_ICON_SIZE	402	add ebx,4*IMAGE_TOOLBAR_ICON_SIZE
380	mov edx,(87 shl 16)+7	403	mov edx,(87 shl 16)+7
381	int 0x40	404	int 0x40
382		405
383	add ebx,IMAGE_TOOLBAR_ICON_SIZE	406	add ebx,IMAGE_TOOLBAR_ICON_SIZE
384	mov edx,(112 shl 16)+7	407	mov edx,(112 shl 16)+7
385	int 0x40	408	int 0x40
386		409
387	mov dword[w_scr_t1.all_redraw],1	410	mov dword[w_scr_t1.all_redraw],1
388	stdcall [tl_draw],dword tree1	411	stdcall [tl_draw],dword tree1
389		412
390	stdcall [buf2d_draw], buf_0	413	stdcall [buf2d_draw], buf_0
391		414
392	mcall 12,2	415	mcall 12,2
393	popad	416	popad
394	ret	417	ret
395		418
396	align 4	419	align 4
397	key:	420	key:
398	mcall 2	421	mcall 2
399	stdcall [tl_key], dword tree1	422	stdcall [tl_key], dword tree1
400	jmp still	423	jmp still
401		424
402		425
403	align 4	426	align 4
404	button:	427	button:
405	mcall 17	428	mcall 17
406	cmp ah,3	429	cmp ah,3
407	jne @f	430	jne @f
408	call but_new_file	431	call but_new_file
409	jmp still	432	jmp still
410	@@:	433	@@:
411	cmp ah,4	434	cmp ah,4
412	jne @f	435	jne @f
413	call but_open_file	436	call but_open_file
414	jmp still	437	jmp still
415	@@:	438	@@:
416	cmp ah,5	439	cmp ah,5
417	jne @f	440	jne @f
418	call but_save_file	441	call but_save_file
419	jmp still	442	jmp still
420	@@:	443	@@:
421	cmp ah,6	444	cmp ah,6
422	jne @f	445	jne @f
423	call but_wnd_coords	446	call but_wnd_coords
424	jmp still	447	jmp still
425	@@:	448	@@:
426	cmp ah,7	449	cmp ah,7
427	jne @f	450	jne @f
428	call but_delete_chunk	451	call but_delete_chunk
429	jmp still	452	jmp still
430	@@:	453	@@:
431		454
432	cmp ah,1	455	cmp ah,1
433	jne still	456	jne still
434	.exit:	457	.exit:
435	mov dword[tree1.data_img],0	458	mov dword[tree1.data_img],0
436	mov dword[tree1.data_img_sys],0	459	mov dword[tree1.data_img_sys],0
437	stdcall [tl_data_clear], tree1	460	stdcall [tl_data_clear], tree1
438	stdcall [buf2d_delete],buf_0	461	stdcall [buf2d_delete],buf_0
439	stdcall [buf2d_delete],buf_1 ;ã¤ «ï¥¬ ¡ãä¥à	462	stdcall [buf2d_delete],buf_1 ;ã¤ «ï¥¬ ¡ãä¥à
440	stdcall mem.Free,[image_data_toolbar]	463	stdcall mem.Free,[image_data_toolbar]
441	stdcall mem.Free,[open_file_lif]	464	stdcall mem.Free,[open_file_lif]
442	stdcall [gluDeleteQuadric], [qObj]	465	stdcall [gluDeleteQuadric], [qObj]
443	mcall -1	466	mcall -1
444		467
445		468
446	align 4	469	align 4
447	but_new_file:	470	but_new_file:
448	mov byte[can_save],0	471	mov byte[can_save],0
449	stdcall [tl_info_clear], tree1 ;®ç¨áâª á¯¨áª ®¡ê¥ªâ®¢	472	stdcall [tl_info_clear], tree1 ;®ç¨áâª á¯¨áª ®¡ê¥ªâ®¢
450	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à	473	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
451	stdcall [tl_draw], tree1	474	stdcall [tl_draw], tree1
452	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥	475	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥
453	ret	476	ret
454		477
455	align 4	478	align 4
456	but_open_file:	479	but_open_file:
457	copy_path open_dialog_name,communication_area_default_path,file_name,0	480	copy_path open_dialog_name,communication_area_default_path,file_name,0
458	pushad	481	pushad
459	mov [OpenDialog_data.type],0	482	mov [OpenDialog_data.type],0
460	stdcall [OpenDialog_Start],OpenDialog_data	483	stdcall [OpenDialog_Start],OpenDialog_data
461	cmp [OpenDialog_data.status],2	484	cmp [OpenDialog_data.status],2
462	je .end_open_file	485	je .end_open_file
463	;ª®¤ ¯à¨ ã¤ ç®¬ ®âªàëâ¨¨ ¤¨ «®£	486	;ª®¤ ¯à¨ ã¤ ç®¬ ®âªàëâ¨¨ ¤¨ «®£
464		487
465	mov [run_file_70.Function], 0	488	mov [run_file_70.Function], 0
466	mov [run_file_70.Position], 0	489	mov [run_file_70.Position], 0
467	mov [run_file_70.Flags], 0	490	mov [run_file_70.Flags], 0
468	mov dword[run_file_70.Count], MAX_FILE_SIZE	491	mov dword[run_file_70.Count], MAX_FILE_SIZE
469	m2m [run_file_70.Buffer], dword[open_file_lif]	492	m2m [run_file_70.Buffer], dword[open_file_lif]
470	mov byte[run_file_70+20], 0	493	mov byte[run_file_70+20], 0
471	mov dword[run_file_70.FileName], openfile_path	494	mov dword[run_file_70.FileName], openfile_path
472	mcall 70,run_file_70 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	495	mcall 70,run_file_70 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
473	cmp ebx,0xffffffff	496	cmp ebx,0xffffffff

Subversion Repositories Kolibri OS

(root)/programs/develop/info3ds/info3ds.asm @ 6164 – Rev 5930 → 5935