Subversion Repositories Kolibri OS

Rev

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

Rev 7205 Rev 7861
Line 8... Line 8...
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'
12 
include '../trunk/str.inc'
 12 
include '../trunk/str.inc'
- 
 
 13 
include 'lang.inc'
Line 13... Line 14...
13 
 
 14 
 
- 
 
 15 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
14 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 16 
if lang eq ru
- 
 
 17 
caption db 'à®á¬®âà ¢®ªá¥«¥© 04.05.20',0 ;¯®¤¯¨áì ®ª­ 
- 
 
 18 
else
- 
 
 19 
caption db 'Voxel viewer 04.05.20',0
Line 15... Line 20...
15 
caption db 'Voxel viewer 22.03.18',0 ;¯®¤¯¨áì ®ª­ 
 20 
end if
16 
 
 21 
 
17 
3d_wnd_l equ   5 ;®âáâ㯠¤«ï tinygl ¡ãä¥à  á«¥¢ 
 22 
3d_wnd_l equ   5 ;®âáâ㯠¤«ï tinygl ¡ãä¥à  á«¥¢ 
18 
3d_wnd_t equ  30 ;®âáâ㯠¤«ï tinygl ¡ãä¥à  ᢥàåã
 23 
3d_wnd_t equ  30 ;®âáâ㯠¤«ï tinygl ¡ãä¥à  ᢥàåã
Line 353... Line 358...
353 
button:
 358 
button:
354 
	mcall SF_GET_BUTTON
 359 
	mcall SF_GET_BUTTON
355 
	cmp ah,3
 360 
	cmp ah,3
356 
	jne @f
 361 
	jne @f
357 
		call but_new_file
 362 
		call but_new_file
- 
 
 363 
		jmp still
358 
	@@:
 364 
	@@:
359 
	cmp ah,4
 365 
	cmp ah,4
360 
	jne @f
 366 
	jne @f
361 
		call but_open_file
 367 
		call but_open_file
- 
 
 368 
		jmp still
362 
	@@:
 369 
	@@:
363 
	cmp ah,5
 370 
	cmp ah,5
364 
	jne @f
 371 
	jne @f
365 
		call but_save_file
 372 
		call but_save_file
- 
 
 373 
		jmp still
366 
	@@:
 374 
	@@:
367 
	cmp ah,6
 375 
	cmp ah,6
368 
	jne @f
 376 
	jne @f
369 
		call but_zoom_p
 377 
		call but_zoom_p
- 
 
 378 
		jmp still
370 
	@@:
 379 
	@@:
371 
	cmp ah,7
 380 
	cmp ah,7
372 
	jne @f
 381 
	jne @f
373 
		call but_zoom_m
 382 
		call but_zoom_m
- 
 
 383 
		jmp still
374 
	@@:
 384 
	@@:
375 
	cmp ah,8
 385 
	cmp ah,8
376 
	jne @f
 386 
	jne @f
377 
		call but_3
 387 
		call but_light
- 
 
 388 
		jmp still
378 
	@@:
 389 
	@@:
379 
	cmp ah,9
 390 
	cmp ah,9
380 
	jne @f
 391 
	jne @f
381 
		call but_4
 392 
		call but_4
- 
 
 393 
		jmp still
382 
	@@:
 394 
	@@:
383 
	cmp ah,10
 395 
	cmp ah,10
384 
	jne @f
 396 
	jne @f
385 
		call but_5
 397 
		call but_5
- 
 
 398 
		jmp still
386 
	@@:
 399 
	@@:
387 
	cmp ah,11
 400 
	cmp ah,11
388 
	jne @f
 401 
	jne @f
389 
		call but_6
 402 
		call but_info
- 
 
 403 
		jmp still
390 
	@@:
 404 
	@@:
391 
	cmp ah,12
 405 
	cmp ah,12
392 
	jne @f
 406 
	jne @f
393 
		call but_draw_cadr
 407 
		call but_draw_cadr
- 
 
 408 
		jmp still
394 
	@@:
 409 
	@@:
395 
	cmp ah,1
 410 
	cmp ah,1
396 
	jne still
 411 
	jne still
397 
.exit:
 412 
.exit:
398 
	stdcall [buf2d_delete],buf_0
 413 
	stdcall [buf2d_delete],buf_0
Line 415... Line 430...
415 
open_file_ogl dd 0 ;¤«ï § ¯¨á¨ ª®®à¤¨­ â èà ­¥© ¢®ªá¥«¥© ¢ ¯®ª §¥ opengl
 430 
open_file_ogl dd 0 ;¤«ï § ¯¨á¨ ª®®à¤¨­ â èà ­¥© ¢®ªá¥«¥© ¢ ¯®ª §¥ opengl
416 
v_zoom dd 0
 431 
v_zoom dd 0
Line 417... Line 432...
417 
 
 432 
 
418 
align 4
 433 
align 4
419 
but_open_file:
 - 
 
420 
pushad
 434 
but_open_file:
- 
 
 435 
	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
 436 
pushad
422 
	mov [OpenDialog_data.type],0
 437 
	mov [OpenDialog_data.type],0
423 
	stdcall [OpenDialog_Start],OpenDialog_data
 438 
	stdcall [OpenDialog_Start],OpenDialog_data
424 
	cmp [OpenDialog_data.status],2
 439 
	cmp [OpenDialog_data.status],2
425 
	je @f
 440 
	je @f
Line 562... Line 577...
562 
	mov dword[buf_1.w],128
 577 
	mov dword[buf_1.w],128
563 
	ret
 578 
	ret
Line 564... Line 579...
564 
 
 579 
 
565 
align 4
 580 
align 4
566 
but_save_file:
 - 
 
567 
	pushad
 581 
but_save_file:
- 
 
 582 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
568 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
 583 
	pushad
569 
	mov [OpenDialog_data.type],1
 584 
	mov [OpenDialog_data.type],1
570 
	stdcall [OpenDialog_Start],OpenDialog_data
 585 
	stdcall [OpenDialog_Start],OpenDialog_data
571 
	cmp [OpenDialog_data.status],2
 586 
	cmp [OpenDialog_data.status],2
572 
	je .end_save_file
 587 
	je .end_save_file
Line 616... Line 631...
616 
    @@:
 631 
    @@:
617 
    ret
 632 
    ret
618 
endp
 633 
endp
Line 619... Line 634...
619 
 
 634 
 
620 
align 4
 635 
align 4
621 
proc but_3 uses eax ebx ecx edx
 636 
proc but_light uses eax ebx ecx edx
622 
	xor word[opt_light],1
 637 
	xor word[opt_light],1
623 
	cmp word[opt_light],0
 638 
	cmp word[opt_light],0
624 
	je @f
 639 
	je @f
625 
		stdcall [glEnable], GL_LIGHTING
 640 
		stdcall [glEnable], GL_LIGHTING
Line 650... Line 665...
650 
	call draw_toolbar_i
 665 
	call draw_toolbar_i
651 
	ret
 666 
	ret
652 
endp
 667 
endp
Line 653... Line 668...
653 
 
 668 
 
654 
align 4
 669 
align 4
655 
proc but_6 uses eax ebx ecx edx edi
 670 
proc but_info uses eax ebx ecx edx edi
656 
	;¢ëç¨á«¥­¨¥ áâ â¨á⨪¨ ¯® ¢®ªá¥«ï¬
 671 
	;¢ëç¨á«¥­¨¥ áâ â¨á⨪¨ ¯® ¢®ªá¥«ï¬
657 
	mov eax,[open_file_ogl]
 672 
	mov eax,[open_file_ogl]
658 
	or eax,eax
 673 
	or eax,eax
659 
	jz .end_stat
 674 
	jz .end_stat
Line 705... Line 720...
705 
	ret
 720 
	ret
706 
endp
 721 
endp
Line 707... Line 722...
707 
 
 722 
 
708 
align 4
 723 
align 4
- 
 
 724 
txt_stat_m1:
709 
txt_stat_m1:
 725 
if lang eq ru
710 
	db '‘â â¨á⨪ ',13,10,'‚®ªá¥«¥©: '
 726 
	db '‘â â¨á⨪ ',13,10,'‚®ªá¥«¥©: '
711 
.v: rb 70
 727 
.v: rb 70
712 
txt_stat_m2:
 728 
txt_stat_m2:
- 
 
 729 
	db 13,10,'Žâ®¡à ¦ ¥¬ëå £à ­¥©: '
- 
 
 730 
else
- 
 
 731 
	db 'Statistics',13,10,'Voxels: '
- 
 
 732 
.v: rb 70
- 
 
 733 
txt_stat_m2:
- 
 
 734 
	db 13,10,'Facets displayed: '
713 
	db 13,10,'Žâ®¡à ¦ ¥¬ëå £à ­¥©: '
 735 
end if
Line 714... Line 736...
714 
.v: rb 20
 736 
.v: rb 20
715 
 
 737 
 
716 
align 4
 738 
align 4
Line 840... Line 862...
840 
.end:
 862 
.end:
841 
db 0
 863 
db 0
Line 842... Line -...
842 
 
 - 
 
843 
 
 - 
 
844 
 
 - 
 
845 
head_f_i:
 864 
 
846 
head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0
 865 
 
847 
 
 - 
 
848 
system_dir_0 db '/sys/lib/'
 - 
 
849 
lib_name_0 db 'proc_lib.obj',0
 - 
 
850 
err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
 866 
 
851 
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
 867 
system_dir_0 db '/sys/lib/'
852 
 
 - 
 
853 
system_dir_1 db '/sys/lib/'
 - 
 
854 
lib_name_1 db 'libimg.obj',0
 - 
 
855 
err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
 868 
lib_name_0 db 'proc_lib.obj',0
856 
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
 869 
system_dir_1 db '/sys/lib/'
857 
 
 - 
 
858 
system_dir_2 db '/sys/lib/'
 - 
 
859 
lib_name_2 db 'buf2d.obj',0
 - 
 
860 
err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
 870 
lib_name_1 db 'libimg.obj',0
861 
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
 871 
system_dir_2 db '/sys/lib/'
- 
 
 872 
lib_name_2 db 'buf2d.obj',0
- 
 
 873 
system_dir_3 db '/sys/lib/'
- 
 
 874 
lib_name_3 db 'tinygl.obj',0
- 
 
 875 
 
- 
 
 876 
align 4
- 
 
 877 
head_f_i:
- 
 
 878 
if lang eq ru
- 
 
 879 
head_f_l db '"‘¨á⥬­ ï ®è¨¡ª ',0
- 
 
 880 
err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 881 
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 882 
err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,'" -tE',0
862 
 
 883 
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,'" -tE',0
863 
system_dir_3 db '/sys/lib/'
 884 
err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,'" -tE',0
- 
 
 885 
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,'" -tE',0
- 
 
 886 
err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'tinygl.obj',39,'" -tE',0
- 
 
 887 
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'tinygl',39,'" -tE',0
- 
 
 888 
else
- 
 
 889 
head_f_l db '"System error',0
- 
 
 890 
err_message_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 891 
err_message_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 892 
err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
- 
 
 893 
err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
- 
 
 894 
err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0
- 
 
 895 
err_msg_import_2 db 'Error on load import library ',39,'buf2d',39,'" -tE',0
Line 864... Line 896...
864 
lib_name_3 db 'tinygl.obj',0
 896 
err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'tinygl.obj',39,'" -tE',0
865 
err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'tinygl.obj',39,0
 897 
err_msg_import_3 db 'Error on load import library ',39,'tinygl',39,'" -tE',0
866 
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'tinygl',39,0
 898 
end if
867 
 
 899