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



use32
	org 0
	db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
	dd 1, start, i_end, mem, stacktop, file_name, sys_path

 

version_edit equ 0
 
include '../../macros.inc'
include '../../proc32.inc'
include '../../KOSfuncs.inc'
include '../../develop/libraries/libs-dev/libimg/libimg.inc'
include '../../load_img.inc'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'

			;¥á«¨ ¢ë¤¥«¥­­ë© ¡«®ª ¤ ­­ëå ­¥ á®¢¯ ¤ ¥â á ¯®á«¥¤­¨¬ § ¯®¬­¥­­ë¬
			mov dword[offs_last_timer],eax

 
			cmp word[eax],CHUNK_OBJBLOCK
			jne .end_oblo
			cmp dword[edi+obj_3d.poi_count],2
			jl .ini_oblo
				stdcall draw_3d,edi
				jmp .end_f
			.ini_oblo:
				stdcall obj_init,edi ;¯®¯ëâª  ­ áâà®¨âì ¯¥à¥¬¥­­ë¥ ®¡ê¥ªâ 
				cmp dword[edi+obj_3d.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+material.name],0
			je .ini_mblo
				stdcall draw_material,edi
				jmp .end_f
			.ini_mblo:
				stdcall mat_init,edi,eax ;¯®¯ëâª  ­ áâà®¨âì ¤ ­­ë¥ ¬ â¥à¨ « 
				cmp dword[edi+material.name],0
				je .end_f
					stdcall draw_material,edi

	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 ,((3d_wnd_l+125) shl 16)+20,,0x4000000a ;á£« ¦¨¢ ­¨¥
	mcall ,((3d_wnd_l+150) shl 16)+20,,0x4000000b ;á¡à®á
	mcall ,((3d_wnd_l+175) shl 16)+20,,0x4000000c ;áªà¨­ ¨§ 3d ®ª­ 

 
	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

	mcall ,,,((3d_wnd_l+150) 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+125) shl 16)+24 ;á£« ¦¨¢ ­¨¥
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mcall ,,,((3d_wnd_l+175) shl 16)+24 ;áªà¨­ ¨§ 3d ®ª­ 

 
	mov dword[w_scr_t1.all_redraw],1
	stdcall [tl_draw], tree1

	cmp ah,11
	jne @f
		call mnu_reset_settings
		jmp still
	@@:
	cmp ah,12
	jne @f
		call mnu_make_scrshot
		jmp still
	@@:

 
	cmp ah,1
	jne still
.exit:

 
Filter:
dd Filter.end - Filter.1
.1:
db '3DS',0
db 'PNG',0
.end:

db 0

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
system_dir_6 db '/sys/lib/'
lib_name_6 db 'libini.obj',0

 

 
align 4
buf_ogl:
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 3d_wnd_l,3d_wnd_t ;+4 left,top
.w: dd 3d_wnd_w
.h: dd 3d_wnd_h
.color: dd 0xffffd0

	dd 24 ;+16 color,bit in pixel
 

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 ;  à ¬¥âàë ä®­®¢®£® ®á¢¥é¥­¨ï

 
if lang eq ru
capt db 'info 3ds [user] ¢¥àá¨ï 18.04.17',0 ;¯®¤¯¨áì ®ª­ 
else
capt db 'info 3ds [user] version 18.04.17',0 ;window caption

end if
 
align 16

Rev 6513	Rev 6889
Line 1...	Line 1...
1	use32	1	use32
2	org 0x0	2	org 0
3	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â	3	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â
4	dd 1, start, i_end, mem, stacktop, file_name, sys_path	4	dd 1, start, i_end, mem, stacktop, file_name, sys_path
Line 5...	Line 5...
5		5
Line 6...	Line 6...
6	version_edit equ 0	6	version_edit equ 0
7		7
8	include '../../macros.inc'	8	include '../../macros.inc'
-		9	include '../../proc32.inc'
9	include '../../proc32.inc'	10	include '../../KOSfuncs.inc'
10	include '../../KOSfuncs.inc'	11	include '../../develop/libraries/libs-dev/libimg/libimg.inc'
11	include '../../load_img.inc'	12	include '../../load_img.inc'
12	include '../../develop/libraries/box_lib/trunk/box_lib.mac'	13	include '../../develop/libraries/box_lib/trunk/box_lib.mac'
13	include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'	14	include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'
Line 390...	Line 391...
390	;¥á«¨ ¢ë¤¥«¥ë© ¡«®ª ¤ ëå ¥ á®¢¯ ¤ ¥â á ¯®á«¥¤¨¬ § ¯®¬¥ë¬	391	;¥á«¨ ¢ë¤¥«¥ë© ¡«®ª ¤ ëå ¥ á®¢¯ ¤ ¥â á ¯®á«¥¤¨¬ § ¯®¬¥ë¬
391	mov dword[offs_last_timer],eax	392	mov dword[offs_last_timer],eax
Line 392...	Line 393...
392		393
393	cmp word[eax],CHUNK_OBJBLOCK	394	cmp word[eax],CHUNK_OBJBLOCK
394	jne .end_oblo	395	jne .end_oblo
395	cmp dword[edi+offs_obj_poi_count],2	396	cmp dword[edi+obj_3d.poi_count],2
396	jl .ini_oblo	397	jl .ini_oblo
397	stdcall draw_3d,edi	398	stdcall draw_3d,edi
398	jmp .end_f	399	jmp .end_f
399	.ini_oblo:	400	.ini_oblo:
400	stdcall obj_init,edi ;¯®¯ëâª áâà®¨âì ¯¥à¥¬¥ë¥ ®¡ê¥ªâ	401	stdcall obj_init,edi ;¯®¯ëâª áâà®¨âì ¯¥à¥¬¥ë¥ ®¡ê¥ªâ
401	cmp dword[edi+offs_obj_poi_count],2	402	cmp dword[edi+obj_3d.poi_count],2
402	jl .end_f	403	jl .end_f
403	call mnu_reset_settings ;á¡à®á ã£«®¢ ¯®¢®à®â ¨ à¥¦¨¬®¢ à¨á®¢ ¨ï	404	call mnu_reset_settings ;á¡à®á ã£«®¢ ¯®¢®à®â ¨ à¥¦¨¬®¢ à¨á®¢ ¨ï
404	jmp .end_f	405	jmp .end_f
Line 405...	Line 406...
405	.end_oblo:	406	.end_oblo:
406		407
407	cmp word[eax],CHUNK_MATERIAL	408	cmp word[eax],CHUNK_MATERIAL
408	jne .end_mblo	409	jne .end_mblo
409	cmp dword[edi+offs_mat_name],0	410	cmp dword[edi+material.name],0
410	je .ini_mblo	411	je .ini_mblo
411	stdcall draw_material,edi	412	stdcall draw_material,edi
412	jmp .end_f	413	jmp .end_f
413	.ini_mblo:	414	.ini_mblo:
414	stdcall mat_init,edi,eax ;¯®¯ëâª áâà®¨âì ¤ ë¥ ¬ â¥à¨ «	415	stdcall mat_init,edi,eax ;¯®¯ëâª áâà®¨âì ¤ ë¥ ¬ â¥à¨ «
415	cmp dword[edi+offs_mat_name],0	416	cmp dword[edi+material.name],0
416	je .end_f	417	je .end_f
417	stdcall draw_material,edi	418	stdcall draw_material,edi
Line 459...	Line 460...
459	mcall ,((3d_wnd_l+50) shl 16)+20,,0x40000007 ;§ «¨¢ª £à ¥© ¢ª«.	460	mcall ,((3d_wnd_l+50) shl 16)+20,,0x40000007 ;§ «¨¢ª £à ¥© ¢ª«.
460	mcall ,((3d_wnd_l+75) shl 16)+20,,0x40000008 ;£à ¨ ¯® ¬ â¥à¨ « ¬ ¢ª«.	461	mcall ,((3d_wnd_l+75) shl 16)+20,,0x40000008 ;£à ¨ ¯® ¬ â¥à¨ « ¬ ¢ª«.
461	mcall ,((3d_wnd_l+100) shl 16)+20,,0x40000009 ;á¢¥â ¢ª«./¢ëª«.	462	mcall ,((3d_wnd_l+100) shl 16)+20,,0x40000009 ;á¢¥â ¢ª«./¢ëª«.
462	mcall ,((3d_wnd_l+125) shl 16)+20,,0x4000000a ;á£« ¦¨¢ ¨¥	463	mcall ,((3d_wnd_l+125) shl 16)+20,,0x4000000a ;á£« ¦¨¢ ¨¥
463	mcall ,((3d_wnd_l+150) shl 16)+20,,0x4000000b ;á¡à®á	464	mcall ,((3d_wnd_l+150) shl 16)+20,,0x4000000b ;á¡à®á
-		465	mcall ,((3d_wnd_l+175) shl 16)+20,,0x4000000c ;áªà¨ ¨§ 3d ®ª
Line 464...	Line 466...
464		466
465	mcall SF_PUT_IMAGE,[image_data_toolbar],(21 shl 16)+21,(5 shl 16)+24 ;new	467	mcall SF_PUT_IMAGE,[image_data_toolbar],(21 shl 16)+21,(5 shl 16)+24 ;new
466	add ebx,IMAGE_TOOLBAR_ICON_SIZE	468	add ebx,IMAGE_TOOLBAR_ICON_SIZE
467	mcall ,,,(30 shl 16)+24 ;open	469	mcall ,,,(30 shl 16)+24 ;open
Line 477...	Line 479...
477	mcall ,,,((3d_wnd_l+150) shl 16)+24 ;á¡à®á	479	mcall ,,,((3d_wnd_l+150) shl 16)+24 ;á¡à®á
478	add ebx,IMAGE_TOOLBAR_ICON_SIZE	480	add ebx,IMAGE_TOOLBAR_ICON_SIZE
479	mcall ,,,((3d_wnd_l+75) shl 16)+24 ;£à ¨ ¯® ¬ â¥à¨ « ¬ ¢ª«.	481	mcall ,,,((3d_wnd_l+75) shl 16)+24 ;£à ¨ ¯® ¬ â¥à¨ « ¬ ¢ª«.
480	add ebx,IMAGE_TOOLBAR_ICON_SIZE	482	add ebx,IMAGE_TOOLBAR_ICON_SIZE
481	mcall ,,,((3d_wnd_l+125) shl 16)+24 ;á£« ¦¨¢ ¨¥	483	mcall ,,,((3d_wnd_l+125) shl 16)+24 ;á£« ¦¨¢ ¨¥
-		484	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-		485	mcall ,,,((3d_wnd_l+175) shl 16)+24 ;áªà¨ ¨§ 3d ®ª
Line 482...	Line 486...
482		486
483	mov dword[w_scr_t1.all_redraw],1	487	mov dword[w_scr_t1.all_redraw],1
484	stdcall [tl_draw], tree1	488	stdcall [tl_draw], tree1
Line 599...	Line 603...
599	cmp ah,11	603	cmp ah,11
600	jne @f	604	jne @f
601	call mnu_reset_settings	605	call mnu_reset_settings
602	jmp still	606	jmp still
603	@@:	607	@@:
-		608	cmp ah,12
-		609	jne @f
-		610	call mnu_make_scrshot
-		611	jmp still
-		612	@@:
Line 604...	Line 613...
604		613
605	cmp ah,1	614	cmp ah,1
606	jne still	615	jne still
607	.exit:	616	.exit:
Line 1083...	Line 1092...
1083		1092
1084	Filter:	1093	Filter:
1085	dd Filter.end - Filter.1	1094	dd Filter.end - Filter.1
1086	.1:	1095	.1:
1087	db '3DS',0	1096	db '3DS',0
1088	db 'TXT',0	1097	db 'PNG',0
1089	.end:	1098	.end:
Line 1090...	Line 1099...
1090	db 0	1099	db 0
Line 1099...	Line 1108...
1099	lib_name_2 db 'box_lib.obj',0	1108	lib_name_2 db 'box_lib.obj',0
1100	system_dir_3 db '/sys/lib/'	1109	system_dir_3 db '/sys/lib/'
1101	lib_name_3 db 'buf2d.obj',0	1110	lib_name_3 db 'buf2d.obj',0
1102	system_dir_4 db '/sys/lib/'	1111	system_dir_4 db '/sys/lib/'
1103	lib_name_4 db 'kmenu.obj',0	1112	lib_name_4 db 'kmenu.obj',0
1104	system_dir_5 db '/kolibrios/lib/'	1113	system_dir_5 db '/sys/lib/'
1105	lib_name_5 db 'tinygl.obj',0	1114	lib_name_5 db 'tinygl.obj',0
1106	system_dir_6 db '/sys/lib/'	1115	system_dir_6 db '/sys/lib/'
1107	lib_name_6 db 'libini.obj',0	1116	lib_name_6 db 'libini.obj',0
Line 1108...	Line 1117...
1108		1117
Line 1391...	Line 1400...
1391		1400
1392	align 4	1401	align 4
1393	buf_ogl:	1402	buf_ogl:
1394	dd 0 ;ãª § â¥«ì ¡ãä¥à ¨§®¡à ¦¥¨ï	1403	dd 0 ;ãª § â¥«ì ¡ãä¥à ¨§®¡à ¦¥¨ï
-		1404	dw 3d_wnd_l,3d_wnd_t ;+4 left,top
1395	dw 3d_wnd_l,3d_wnd_t ;+4 left,top	1405	.w: dd 3d_wnd_w
1396	dd 3d_wnd_w,3d_wnd_h ;+8 w,h	1406	.h: dd 3d_wnd_h
1397	.color: dd 0xffffd0	1407	.color: dd 0xffffd0
Line 1398...	Line 1408...
1398	dd 24 ;+16 color,bit in pixel	1408	dd 24 ;+16 color,bit in pixel
1399		1409
Line 1427...	Line 1437...
1427	mat_shininess dd 3.0 ; §¬¥à ¡«¨ª (®¡à â ï ¯à®¯®àæ¨ï)	1437	mat_shininess dd 3.0 ; §¬¥à ¡«¨ª (®¡à â ï ¯à®¯®àæ¨ï)
1428	white_light dd 0.8, 0.8, 0.8, 1.0 ; ¢¥â ¨ ¨â¥á¨¢®áâì ®á¢¥é¥¨ï, £¥¥à¨àã¥¬®£® ¨áâ®ç¨ª®¬	1438	white_light dd 0.8, 0.8, 0.8, 1.0 ; ¢¥â ¨ ¨â¥á¨¢®áâì ®á¢¥é¥¨ï, £¥¥à¨àã¥¬®£® ¨áâ®ç¨ª®¬
1429	lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; à ¬¥âàë ä®®¢®£® ®á¢¥é¥¨ï	1439	lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; à ¬¥âàë ä®®¢®£® ®á¢¥é¥¨ï
Line 1430...	Line 1440...
1430		1440
1431	if lang eq ru	1441	if lang eq ru
1432	capt db 'info 3ds [user] ¢¥àá¨ï 05.09.16',0 ;¯®¤¯¨áì ®ª	1442	capt db 'info 3ds [user] ¢¥àá¨ï 18.04.17',0 ;¯®¤¯¨áì ®ª
1433	else	1443	else
1434	capt db 'info 3ds [user] version 05.09.16',0 ;window caption	1444	capt db 'info 3ds [user] version 18.04.17',0 ;window caption
Line 1435...	Line 1445...
1435	end if	1445	end if
1436		1446
1437	align 16	1447	align 16

Subversion Repositories Kolibri OS

(root)/programs/develop/info3ds/info3ds_u.asm – Rev 6513 → 6889