Subversion Repositories Kolibri OS

Rev

Rev 6889 | Rev 7861 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6889 Rev 7205
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, 0, sys_path
 4 
	dd 1, start, i_end, mem, stacktop, openfile_path, sys_path
Line 5... Line 5...
5 
 
 5 
 
6 
include '../../../../programs/macros.inc'
 6 
include '../../../../programs/macros.inc'
7 
include '../../../../programs/proc32.inc'
 7 
include '../../../../programs/proc32.inc'
8 
include '../../../../programs/KOSfuncs.inc'
 8 
include '../../../../programs/KOSfuncs.inc'
9 
include '../../../../programs/load_img.inc'
 9 
include '../../../../programs/load_img.inc'
10 
include '../../../../programs/develop/libraries/TinyGL/asm_fork/opengl_const.inc'
 10 
include '../../../../programs/develop/libraries/TinyGL/asm_fork/opengl_const.inc'
11 
include 'vox_3d.inc'
 11 
include 'vox_3d.inc'
Line 12... Line 12...
12 
include '../trunk/str.inc'
 12 
include '../trunk/str.inc'
13 
 
 13 
 
Line 14... Line 14...
14 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 14 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
15 
caption db 'Voxel viewer 18.04.17',0 ;¯®¤¯¨áì ®ª­ 
 15 
caption db 'Voxel viewer 22.03.18',0 ;¯®¤¯¨áì ®ª­ 
16 
 
 16 
 
17 
3d_wnd_l equ   5 ;®âáâ㯠¤«ï tinygl ¡ãä¥à  á«¥¢ 
 17 
3d_wnd_l equ   5 ;®âáâ㯠¤«ï tinygl ¡ãä¥à  á«¥¢ 
Line 38... Line 38...
38 
	mcall SF_SET_EVENTS_MASK,0xC0000027
 38 
	mcall SF_SET_EVENTS_MASK,0xC0000027
39 
	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª  ¤¨ «®£ 
 39 
	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª  ¤¨ «®£ 
Line 40... Line 40...
40 
 
 40 
 
Line 41... Line 41...
41 
	stdcall [buf2d_create], buf_0 ;ᮧ¤ ­¨¥ ¡ãä¥à 
 41 
	stdcall [buf2d_create], buf_0 ;ᮧ¤ ­¨¥ ¡ãä¥à 
42 
 
 42 
 
43 
	load_image_file 'toolbar_t.png', image_data_toolbar,,,6 ;6 - for gray icons
 43 
	include_image_file 'toolbar_t.png', image_data_toolbar,,,6 ;6 - for gray icons
44 
	mov eax,[image_data_toolbar]
 44 
	mov eax,[image_data_toolbar]
Line 45... Line 45...
45 
	add eax,IMAGE_TOOLBAR_SIZE
 45 
	add eax,IMAGE_TOOLBAR_SIZE
Line 53... Line 53...
53 
	stdcall [glEnable], GL_NORMALIZE ;¤¥« ¬ ­®à¬ «¨ ®¤¨­ ª®¢®© ¢¥«¨ç¨­ë ¢® ¨§¡¥¦ ­¨¥  àâ¥ä ªâ®¢
 53 
	stdcall [glEnable], GL_NORMALIZE ;¤¥« ¬ ­®à¬ «¨ ®¤¨­ ª®¢®© ¢¥«¨ç¨­ë ¢® ¨§¡¥¦ ­¨¥  àâ¥ä ªâ®¢
54 
	stdcall [glClearColor], 0.0,0.0,0.0,0.0
 54 
	stdcall [glClearColor], 0.0,0.0,0.0,0.0
55 
	stdcall [glShadeModel], GL_SMOOTH
 55 
	stdcall [glShadeModel], GL_SMOOTH
Line 56... Line 56...
56 
 
 56 
 
- 
 
 57 
	call but_new_file
- 
 
 58 
	;¯à®¢¥àª  ª®¬ ­¤­®© áâப¨
- 
 
 59 
	cmp dword[openfile_path],0
- 
 
 60 
	je @f
57 
	call but_new_file
 61 
		call but_open_file_cmd_lin
Line 58... Line 62...
58 
 
 62 
	@@:
59 
 
 63 
 
60 
align 4
 64 
align 4
Line 416... Line 420...
416 
pushad
 420 
pushad
417 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
 421 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
418 
	mov [OpenDialog_data.type],0
 422 
	mov [OpenDialog_data.type],0
419 
	stdcall [OpenDialog_Start],OpenDialog_data
 423 
	stdcall [OpenDialog_Start],OpenDialog_data
420 
	cmp [OpenDialog_data.status],2
 424 
	cmp [OpenDialog_data.status],2
421 
	je .end_open_file
 425 
	je @f
422 
	;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
 426 
		;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
- 
 
 427 
		call but_open_file_cmd_lin
- 
 
 428 
	@@:
- 
 
 429 
popad
- 
 
 430 
	ret
Line -... Line 431...
- 
 
 431 
 
- 
 
 432 
align 4
- 
 
 433 
but_open_file_cmd_lin:
423 
 
 434 
pushad
424 
	mov [run_file_70.Function], SSF_GET_INFO
 435 
	mov [run_file_70.Function], SSF_GET_INFO
425 
	mov [run_file_70.Position], 0
 436 
	mov [run_file_70.Position], 0
426 
	mov [run_file_70.Flags], 0
 437 
	mov [run_file_70.Flags], 0
427 
	mov dword[run_file_70.Count], 0
 438 
	mov dword[run_file_70.Count], 0
428 
	mov dword[run_file_70.Buffer], open_b
 439 
	mov dword[run_file_70.Buffer], open_b
429 
	mov byte[run_file_70+20], 0
 440 
	mov byte[run_file_70+20], 0
430 
	mov dword[run_file_70.FileName], openfile_path
 441 
	mov dword[run_file_70.FileName], openfile_path
Line 431... Line -...
431 
	mcall SF_FILE,run_file_70
 - 
 
432 
 
 - 
 
433 
	;mov eax,dword[open_b+32]
 - 
 
434 
	;mov edi,txt_buf
 - 
 
435 
	;call conv_int_to_str
 - 
 
436 
	;notify_window_run txt_buf
 442 
	mcall SF_FILE,run_file_70
437 
 
 443 
 
438 
	mov ecx,dword[open_b+32] ;+32 qword: à §¬¥à ä ©«  ¢ ¡ ©â å
 444 
	mov ecx,dword[open_b+32] ;+32 qword: à §¬¥à ä ©«  ¢ ¡ ©â å
Line 439... Line 445...
439 
	stdcall mem.ReAlloc,[open_file_data],ecx
 445 
	stdcall mem.ReAlloc,[open_file_data],ecx