Subversion Repositories Kolibri OS

Rev

Rev 7205 | Rev 8442 | 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 '../trunk/vox_draw.inc'
 10 
include '../trunk/vox_draw.inc'
11 
include '../trunk/vox_rotate.inc'
 11 
include '../trunk/vox_rotate.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 mover 04.05.20',0
Line 15... Line 20...
15 
caption db 'Voxel mover 22.03.18',0 ;¯®¤¯¨áì ®ª­ 
 20 
end if
Line 16... Line 21...
16 
 
 21 
 
17 
run_file_70 FileInfoBlock
 22 
run_file_70 FileInfoBlock
Line 516... Line 521...
516 
	cmp ah,3
 521 
	cmp ah,3
517 
	jne @f
 522 
	jne @f
518 
		stdcall but_new_file, [open_file_vox]
 523 
		stdcall but_new_file, [open_file_vox]
519 
		call draw_objects
 524 
		call draw_objects
520 
		call draw_pok
 525 
		call draw_pok
- 
 
 526 
		jmp still
521 
	@@:
 527 
	@@:
522 
	cmp ah,4
 528 
	cmp ah,4
523 
	jne @f
 529 
	jne @f
524 
		call but_open_file
 530 
		call but_open_file
- 
 
 531 
		jmp still
525 
	@@:
 532 
	@@:
526 
	cmp ah,5
 533 
	cmp ah,5
527 
	jne @f
 534 
	jne @f
528 
		call but_save_file
 535 
		call but_save_file
- 
 
 536 
		jmp still
529 
	@@:
 537 
	@@:
530 
	cmp ah,6
 538 
	cmp ah,6
531 
	jne @f
 539 
	jne @f
532 
		call but_zoom_p
 540 
		call but_zoom_p
- 
 
 541 
		jmp still
533 
	@@:
 542 
	@@:
534 
	cmp ah,7
 543 
	cmp ah,7
535 
	jne @f
 544 
	jne @f
536 
		call but_zoom_m
 545 
		call but_zoom_m
- 
 
 546 
		jmp still
537 
	@@:
 547 
	@@:
538 
	cmp ah,8
 548 
	cmp ah,8
539 
	jne @f
 549 
	jne @f
540 
		call but_3
 550 
		call but_3
- 
 
 551 
		jmp still
541 
	@@:
 552 
	@@:
542 
	cmp ah,9
 553 
	cmp ah,9
543 
	jne @f
 554 
	jne @f
544 
		call but_4
 555 
		call but_4
- 
 
 556 
		jmp still
545 
	@@:
 557 
	@@:
546 
	cmp ah,10
 558 
	cmp ah,10
547 
	jne @f
 559 
	jne @f
548 
		call but_plane_inc
 560 
		call but_plane_inc
- 
 
 561 
		jmp still
549 
	@@:
 562 
	@@:
550 
	cmp ah,11
 563 
	cmp ah,11
551 
	jne @f
 564 
	jne @f
552 
		call but_plane_dec
 565 
		call but_plane_dec
- 
 
 566 
		jmp still
553 
	@@:
 567 
	@@:
554 
	cmp ah,12
 568 
	cmp ah,12
555 
	jne @f
 569 
	jne @f
556 
		call but_light
 570 
		call but_light
- 
 
 571 
		jmp still
557 
	@@:
 572 
	@@:
558 
	cmp ah,13
 573 
	cmp ah,13
559 
	jne @f
 574 
	jne @f
560 
		call but_rend_2_2
 575 
		call but_rend_2_2
- 
 
 576 
		jmp still
561 
	@@:
 577 
	@@:
562 
	cmp ah,14
 578 
	cmp ah,14
563 
	jne @f
 579 
	jne @f
564 
		call but_move
 580 
		call but_move
- 
 
 581 
		jmp still
565 
	@@:
 582 
	@@:
566 
	cmp ah,15
 583 
	cmp ah,15
567 
	jne @f
 584 
	jne @f
568 
		dec dword[mov_x]
 585 
		dec dword[mov_x]
569 
		call draw_pok
 586 
		call draw_pok
- 
 
 587 
		jmp still
570 
	@@:
 588 
	@@:
571 
	cmp ah,16
 589 
	cmp ah,16
572 
	jne @f
 590 
	jne @f
573 
		inc dword[mov_x]
 591 
		inc dword[mov_x]
574 
		call draw_pok
 592 
		call draw_pok
- 
 
 593 
		jmp still
575 
	@@:
 594 
	@@:
576 
	cmp ah,17
 595 
	cmp ah,17
577 
	jne @f
 596 
	jne @f
578 
		dec dword[mov_y]
 597 
		dec dword[mov_y]
579 
		call draw_pok
 598 
		call draw_pok
- 
 
 599 
		jmp still
580 
	@@:
 600 
	@@:
581 
	cmp ah,18
 601 
	cmp ah,18
582 
	jne @f
 602 
	jne @f
583 
		inc dword[mov_y]
 603 
		inc dword[mov_y]
584 
		call draw_pok
 604 
		call draw_pok
- 
 
 605 
		jmp still
585 
	@@:
 606 
	@@:
586 
	cmp ah,19
 607 
	cmp ah,19
587 
	jne @f
 608 
	jne @f
588 
		dec dword[mov_z]
 609 
		dec dword[mov_z]
589 
		call draw_pok
 610 
		call draw_pok
- 
 
 611 
		jmp still
590 
	@@:
 612 
	@@:
591 
	cmp ah,20
 613 
	cmp ah,20
592 
	jne @f
 614 
	jne @f
593 
		inc dword[mov_z]
 615 
		inc dword[mov_z]
594 
		call draw_pok
 616 
		call draw_pok
- 
 
 617 
		jmp still
595 
	@@:
 618 
	@@:
596 
	cmp ah,1
 619 
	cmp ah,1
597 
	jne still
 620 
	jne still
598 
.exit:
 621 
.exit:
599 
	stdcall [buf2d_delete],buf_0
 622 
	stdcall [buf2d_delete],buf_0
Line 631... Line 654...
631 
open_file_vox dd 0 ;㪠§ â¥«ì ­  ®¡« áâì ¤«ï ®âªàëâ¨ï ä ©«®¢
 654 
open_file_vox dd 0 ;㪠§ â¥«ì ­  ®¡« áâì ¤«ï ®âªàëâ¨ï ä ©«®¢
632 
moved_file_vox dd 0
 655 
moved_file_vox dd 0
Line 633... Line 656...
633 
 
 656 
 
634 
align 4
 657 
align 4
635 
but_open_file:
 - 
 
636 
pushad
 658 
but_open_file:
- 
 
 659 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
637 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
 660 
pushad
638 
	mov [OpenDialog_data.type],0
 661 
	mov [OpenDialog_data.type],0
639 
	stdcall [OpenDialog_Start],OpenDialog_data
 662 
	stdcall [OpenDialog_Start],OpenDialog_data
640 
	cmp [OpenDialog_data.status],2
 663 
	cmp [OpenDialog_data.status],2
641 
	je @f
 664 
	je @f
Line 674... Line 697...
674 
popad
 697 
popad
675 
	ret
 698 
	ret
Line 676... Line 699...
676 
 
 699 
 
677 
align 4
 700 
align 4
678 
but_save_file:
 - 
 
679 
	pushad
 701 
but_save_file:
- 
 
 702 
		copy_path open_dialog_name,communication_area_default_path,file_name,0
680 
		copy_path open_dialog_name,communication_area_default_path,file_name,0
 703 
	pushad
681 
		mov [OpenDialog_data.type],1
 704 
		mov [OpenDialog_data.type],1
682 
		stdcall [OpenDialog_Start],OpenDialog_data
 705 
		stdcall [OpenDialog_Start],OpenDialog_data
683 
		cmp [OpenDialog_data.status],2
 706 
		cmp [OpenDialog_data.status],2
684 
		je .end_save_file
 707 
		je .end_save_file
Line 1131... Line 1154...
1131 
dd 1 shl 30,1 shl 30,1 shl 30,1 shl 30,1 shl 30
 1154 
dd 1 shl 30,1 shl 30,1 shl 30,1 shl 30,1 shl 30
1132 
dd 1 shl 30,1 shl 30,1 shl 30,1 shl 30,1 shl 30
 1155 
dd 1 shl 30,1 shl 30,1 shl 30,1 shl 30,1 shl 30
1133 
dd 1 shl 31,1 shl 30,1 shl 30,1 shl 30,1 shl 31
 1156 
dd 1 shl 31,1 shl 30,1 shl 30,1 shl 30,1 shl 31
1134 
rd 999 ;32*32-25
 1157 
rd 999 ;32*32-25
Line -... Line 1158...
- 
 
 1158 
 
1135 
 
 1159 
if lang eq ru
1136 
txt_zoom db 'Œ áèâ ¡:',0
 1160 
txt_zoom db 'Œ áèâ ¡:',0
1137 
txt_curor: db 'Šãàá®à: '
 1161 
txt_curor: db 'Šãàá®à: '
1138 
.size: rb 10
 1162 
.size: rb 10
1139 
txt_n_plane db '‘¥ç¥­¨¥:',0
 1163 
txt_n_plane db '‘¥ç¥­¨¥:',0
1140 
txt_color db '–¢¥â:',0
 1164 
txt_color db '–¢¥â:',0
- 
 
 1165 
txt_mov_offs: db '‘¬¥é¥­¨¥: '
- 
 
 1166 
else
- 
 
 1167 
txt_zoom db 'Scale:',0
- 
 
 1168 
txt_curor: db 'Cursor: '
- 
 
 1169 
.size: rb 10
- 
 
 1170 
txt_n_plane db 'Section:',0
- 
 
 1171 
txt_color db 'Color:',0
- 
 
 1172 
txt_mov_offs: db 'Offset: '
1141 
txt_mov_offs: db '‘¬¥é¥­¨¥: '
 1173 
end if
1142 
.size: rb 30
 1174 
.size: rb 30
1143 
txt_mull db '*',0
 1175 
txt_mull db '*',0
1144 
txt_space db ' ',0
 1176 
txt_space db ' ',0
Line 1290... Line 1322...
1290 
db 'VOX',0
 1322 
db 'VOX',0
1291 
.end:
 1323 
.end:
1292 
db 0
 1324 
db 0
Line 1293... Line -...
1293 
 
 - 
 
1294 
 
 - 
 
1295 
 
 - 
 
1296 
head_f_i:
 - 
 
1297 
head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0
 1325 
 
1298 
 
 1326 
 
1299 
system_dir_0 db '/sys/lib/'
 - 
 
1300 
lib_name_0 db 'proc_lib.obj',0
 - 
 
1301 
err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
 - 
 
1302 
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
 1327 
system_dir_0 db '/sys/lib/'
1303 
 
 1328 
lib_name_0 db 'proc_lib.obj',0
1304 
system_dir_1 db '/sys/lib/'
 - 
 
1305 
lib_name_1 db 'libimg.obj',0
 - 
 
1306 
err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
 - 
 
1307 
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
 1329 
system_dir_1 db '/sys/lib/'
1308 
 
 1330 
lib_name_1 db 'libimg.obj',0
1309 
system_dir_2 db '/sys/lib/'
 - 
 
1310 
lib_name_2 db 'buf2d.obj',0
 - 
 
1311 
err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
 - 
 
1312 
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
 1331 
system_dir_2 db '/sys/lib/'
1313 
 
 1332 
lib_name_2 db 'buf2d.obj',0
- 
 
 1333 
system_dir_3 db '/sys/lib/'
- 
 
 1334 
lib_name_3 db 'libini.obj',0
- 
 
 1335 
 
- 
 
 1336 
align 4
- 
 
 1337 
head_f_i:
- 
 
 1338 
if lang eq ru
- 
 
 1339 
head_f_l db '"‘¨á⥬­ ï ®è¨¡ª ',0
- 
 
 1340 
err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 1341 
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 1342 
err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,'" -tE',0
- 
 
 1343 
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,'" -tE',0
1314 
system_dir_3 db '/sys/lib/'
 1344 
err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,'" -tE',0
1315 
lib_name_3 db 'libini.obj',0
 1345 
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,'" -tE',0
- 
 
 1346 
err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libini.obj',39,'" -tE',0
- 
 
 1347 
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libini',39,'" -tE',0
- 
 
 1348 
else
- 
 
 1349 
head_f_l db '"System error',0
- 
 
 1350 
err_message_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 1351 
err_message_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 1352 
err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
- 
 
 1353 
err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
- 
 
 1354 
err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0
- 
 
 1355 
err_msg_import_2 db 'Error on load import library ',39,'buf2d',39,'" -tE',0
- 
 
 1356 
err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'libini.obj',39,'" -tE',0
Line 1316... Line 1357...
1316 
err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libini.obj',39,0
 1357 
err_msg_import_3 db 'Error on load import library ',39,'libini',39,'" -tE',0
1317 
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libini',39,0
 1358 
end if
1318 
 
 1359 
 
1319 
l_libs_start:
 1360 
l_libs_start:
Line 1467... Line 1508...
1467 
	alib_init2     db 'lib_init',0
 1508 
	alib_init2     db 'lib_init',0
1468 
	aini_get_str   db 'ini_get_str',0
 1509 
	aini_get_str   db 'ini_get_str',0
1469 
	aini_get_int   db 'ini_get_int',0
 1510 
	aini_get_int   db 'ini_get_int',0
1470 
	aini_get_color db 'ini_get_color',0
 1511 
	aini_get_color db 'ini_get_color',0
Line 1471... Line 1512...
1471 
 
 1512 
 
1472 
mouse_dd dd 0x0
 1513 
mouse_dd dd 0
Line 1473... Line 1514...
1473 
sc system_colors
1514 
sc system_colors
1474 
 
 1515