From d8b6a26cf1ba7d75c32d918722e4978de795ec67 Mon Sep 17 00:00:00 2001
From: IgorA <IgorA@kolibrios.org>
Date: Fri, 19 Feb 2016 21:36:34 +0000
Subject: [PATCH] update utilites

git-svn-id: svn://kolibrios.org@6259 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 .../media/voxel_editor/trunk/squirrel.vox     | Bin 0 -> 2632 bytes
 .../voxel_editor/utilites/vox_creator.asm     | 110 ++++-----------
 .../media/voxel_editor/utilites/vox_mover.asm | 121 ++++------------
 .../media/voxel_editor/utilites/vox_tgl.asm   | 133 +++++-------------
 4 files changed, 90 insertions(+), 274 deletions(-)
 create mode 100644 programs/media/voxel_editor/trunk/squirrel.vox

diff --git a/programs/media/voxel_editor/trunk/squirrel.vox b/programs/media/voxel_editor/trunk/squirrel.vox
new file mode 100644
index 0000000000000000000000000000000000000000..dda08fc2e1f4701931d3595c136e5a12cd3f0697
GIT binary patch
literal 2632
zcmb7`uWwXA5XZMi4;oA%6*$rqO+s6NDWL*Kkr@5}6yi|Dv5pE{748fg5)usNk~X2@
z2uXu&jz56l(8uSyZ|2?JzI_cenau2WzVmC}-lW42!pfB}7+zbwin$&}v!mnB^E2c_
z2yu;bK&GZ;Hxl9<{BBDhw?5;LBO(ELW?FWV{WxDk?jb<}euzHvv*~H7L7fbLEL*ia
z7g{|#XPR+6_tT7<;)oaTH4=?K$>LsRw&z{1V45LJCKLK>{;-n){=UNh1lH;AKd^%$
z=QulG$4>pAJGGhj33wU*GmF=pLqEgcm92Yr;e3jy|A%1RH!+&+8&~hBjWhdhiCM11
z!%p`Mr<*s#N8nBF5dZj_C^b2%_gl;9wY{!1yaOcfd)%Hw)LVoU`M&)^o*#<wyeYmX
zP8{Vj?nNF`*t+v?<VxSK?P)a2`<q*>rhn^EdAtVxp~r&%_8O&zuR8M*FVE!CoAU4G
zbr*9K_XPI{>8*>;->>F9%<q}=VvZ2^a-U|x|5codoRk=Re@~}=AEt%BlU>BD>I}Zc
z9@#;(8{eiL^j<XQX!b&Jg$(SxTj1J3ot+4_iKzAfnRpLiy3^a{OEt{iagOQT)XU;c
zsZMA2!POi-WBQ%vdFWNx3^~tnvuk^B(|qkd=iJ#rV46$&l0KWiY+wGu*XgAP8!L}V
zEoLM0i>KY#+Yj^J!vC>|X?G#`Qa<>4pG)7G^ERShzT>a$zc=7ZF`PT^0_=u(mMihG
z)2vl~h&MfkZ-3cttln=mXSP?o5AQ*mm<?nxONe@RIQSi0BE-H_oaJbAPh8?G-m(5S
zDDNW0gX_-klXu+q6d<cV_2Sxc3A0@3o3=5_yYY)SH6dPc|FRqPrrMsZk7f?<LH(J)
y-9mcn;u|O*qIoYoPTFwKb&~s37ykq26nd{Xi|g-cJG+~N<9jZ?<@CBM!u|ra4+|Us

literal 0
HcmV?d00001

diff --git a/programs/media/voxel_editor/utilites/vox_creator.asm b/programs/media/voxel_editor/utilites/vox_creator.asm
index 1538012a30..592e4f024d 100644
--- a/programs/media/voxel_editor/utilites/vox_creator.asm
+++ b/programs/media/voxel_editor/utilites/vox_creator.asm
@@ -6,8 +6,7 @@ use32
 include '../../../../programs/macros.inc'
 include '../../../../programs/proc32.inc'
 include '../../../../programs/KOSfuncs.inc'
-include '../../../../programs/develop/libraries/box_lib/load_lib.mac'
-include '../../../../programs/dll.inc'
+include '../../../../programs/load_img.inc'
 include '../trunk/str.inc'
 
 vox_offs_tree_table equ 4
@@ -16,17 +15,7 @@ txt_buf rb 8
 include '../trunk/vox_rotate.inc'
 
 @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
-caption db 'Voxel creator 08.02.16',0 ;подпись окна
-
-struct FileInfoBlock
-	Function dd ?
-	Position dd ?
-	Flags	 dd ?
-	Count	 dd ?
-	Buffer	 dd ?
-		db ?
-	FileName dd ?
-ends
+caption db 'Voxel creator 19.02.16',0 ;подпись окна
 
 BUF_STRUCT_SIZE equ 21
 buf2d_data equ dword[edi] ;данные буфера изображения
@@ -42,7 +31,6 @@ vox_offs_tree_table equ 4
 vox_offs_data equ 12
 
 run_file_70 FileInfoBlock
-image_data dd 0 ;указатель на временную память. для нужен преобразования изображения
 vox_obj_size dd 0 ;размер воксельного объекта (для ускорения вставки)
 txt_space db ' ',0
 txt_pref db ' б ',0,' Кб',0,' Мб',0,' Гб',0 ;приставки: кило, мега, гига
@@ -51,50 +39,10 @@ txt_f_size: db '
 
 fn_toolbar db 'toolbar.png',0
 IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
-IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*9
 image_data_toolbar dd 0
 
 max_open_file_size equ 1024*1024 ;1 Mb
 
-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], SSF_READ_FILE
-	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 SF_FILE,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]
-	@@:
-}
-
-
-
 align 4
 start:
 	load_libraries l_libs_start,l_libs_end
@@ -112,7 +60,7 @@ start:
 	stdcall [buf2d_create], buf_0z
 	stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z
 
-	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE
+	load_image_file fn_toolbar, image_data_toolbar
 
 	stdcall mem.Alloc,max_open_file_size
 	mov dword[open_file_vox],eax
@@ -603,16 +551,14 @@ but_open_file:
 	je .end_open_file
 	;код при удачном открытии диалога
 
-	mov eax,70 ;70-я функция работа с файлами
-	mov [run_file_70.Function], 0
+	mov [run_file_70.Function], SSF_READ_FILE
 	mov [run_file_70.Position], 0
 	mov [run_file_70.Flags], 0
 	mov [run_file_70.Count], dword max_open_file_size
 	m2m [run_file_70.Buffer],dword[open_file_vox]
 	mov byte[run_file_70+20], 0
 	mov dword[run_file_70.FileName], openfile_path
-	mov ebx,run_file_70
-	int 0x40 ;загружаем файл изображения
+	mcall SF_FILE,run_file_70
 	cmp ebx,0xffffffff
 	je .end_open_file
 		; проверка на правильность воксельного формата
@@ -658,16 +604,14 @@ but_save_file:
 
 		stdcall buf2d_vox_obj_get_size, ebx
 		mov dword[run_file_70.Count], eax ;размер файла
-		mov eax,70 ;70-я функция работа с файлами
-		mov [run_file_70.Function], 2
+		mov [run_file_70.Function], SSF_CREATE_FILE
 		mov [run_file_70.Position], 0
 		mov [run_file_70.Flags], 0
 		mov ebx, dword[open_file_vox]
 		mov [run_file_70.Buffer], ebx
 		mov byte[run_file_70+20], 0
 		mov dword[run_file_70.FileName], openfile_path
-		mov ebx,run_file_70
-		int 0x40 ;загружаем файл изображения
+		mcall SF_FILE,run_file_70
 		cmp ebx,0xffffffff
 		je .end_save_file
 
@@ -1162,39 +1106,35 @@ proc open_image_in_buf, buf:dword
 	;stdcall mem.Alloc, dword size ;выделяем память для изображения
 	;mov [buf],eax
 
-	mov eax,70 ;70-я функция работа с файлами
-	mov [run_file_70.Function], 0
+	mov [run_file_70.Function], SSF_READ_FILE
 	mov [run_file_70.Position], 0
 	mov [run_file_70.Flags], 0
 	mov [run_file_70.Count], dword max_open_file_size
 	m2m [run_file_70.Buffer],dword[open_file_img]
 	mov byte[run_file_70+20], 0
 	mov [run_file_70.FileName], openfile_path
-	mov ebx,run_file_70
-	int 0x40 ;загружаем файл изображения
+	mcall SF_FILE,run_file_70
 	cmp ebx,0xffffffff
 	je .end_0
-		;определяем вид изображения и переводим его во временный буфер image_data
+		;определяем вид изображения
 		stdcall dword[img_decode], dword[open_file_img],ebx,0
-		cmp eax,0
-		je .end_0 ;если нарушен формат файла
-		mov dword[image_data],eax
+		or eax,eax
+		jz .end_0 ;если нарушен формат файла
+		mov ebx,eax
 		;преобразуем изображение к формату rgb
-		stdcall dword[img_to_rgb2], dword[image_data],dword[open_file_img]
+		stdcall dword[img_to_rgb2], ebx,dword[open_file_img]
 
-		mov eax,dword[image_data]
 		mov edi,[buf]
 		cmp buf2d_data,0
 		jne @f
-			m2m buf2d_w,dword[eax+4] ;+4 = image width
-			m2m buf2d_h,dword[eax+8] ;+8 = image heihht
+			m2m buf2d_w,dword[ebx+4] ;+4 = image width
+			m2m buf2d_h,dword[ebx+8] ;+8 = image heihht
 			stdcall [buf2d_create_f_img], edi,[open_file_img]
 			jmp .end_1
 		@@:
-			mov ebx,dword[eax+4]
-			mov ecx,dword[eax+8]
-			stdcall [buf2d_resize], edi, ebx,ecx,1 ;изменяем размеры буфера
-			imul ecx,ebx
+			mov ecx,dword[ebx+8]
+			stdcall [buf2d_resize], edi, [ebx+4],ecx,1 ;изменяем размеры буфера
+			imul ecx,[ebx+4]
 			lea ecx,[ecx+ecx*2]
 			mov edi,buf2d_data
 			mov esi,[open_file_img]
@@ -1202,8 +1142,8 @@ proc open_image_in_buf, buf:dword
 			rep movsb ;copy image
 		.end_1:
 
-		;удаляем временный буфер image_data
-		stdcall dword[img_destroy], dword[image_data]
+		;удаляем временный буфер в ebx
+		stdcall dword[img_destroy], ebx
 	.end_0:
 
 	call draw_buffers
@@ -1461,12 +1401,12 @@ import_buf2d:
 align 4
 import_msgbox_lib:
 	mb_create dd amb_create
-;	mb_reinit dd amb_reinit
-;	mb_setfunctions dd amb_setfunctions
+;       mb_reinit dd amb_reinit
+;       mb_setfunctions dd amb_setfunctions
 dd 0,0
 	amb_create db 'mb_create',0
-;	amb_reinit db 'mb_reinit',0
-;	amb_setfunctions db 'mb_setfunctions',0
+;       amb_reinit db 'mb_reinit',0
+;       amb_setfunctions db 'mb_setfunctions',0
 
 mouse_dd dd 0x0
 sc system_colors 
diff --git a/programs/media/voxel_editor/utilites/vox_mover.asm b/programs/media/voxel_editor/utilites/vox_mover.asm
index fef372aa42..62a6ba3a28 100644
--- a/programs/media/voxel_editor/utilites/vox_mover.asm
+++ b/programs/media/voxel_editor/utilites/vox_mover.asm
@@ -1,40 +1,22 @@
 use32
 	org 0x0
 	db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт
-	dd 0x1
-	dd start
-	dd i_end ;размер приложения
-	dd mem
-	dd stacktop
-	dd 0
-	dd sys_path
+	dd 1, start, i_end, mem, stacktop, 0, sys_path
 
 include '../../../../programs/macros.inc'
 include '../../../../programs/proc32.inc'
-include '../../../../programs/develop/libraries/box_lib/load_lib.mac'
-include '../../../../programs/dll.inc'
+include '../../../../programs/KOSfuncs.inc'
+include '../../../../programs/load_img.inc'
 include '../trunk/vox_draw.inc'
 include '../trunk/vox_rotate.inc'
 include '../trunk/str.inc'
 
 @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
-caption db 'Voxel mover 29.01.15',0 ;подпись окна
-
-struct FileInfoBlock
-	Function dd ?
-	Position dd ?
-	Flags	 dd ?
-	Count	 dd ?
-	Buffer	 dd ?
-		db ?
-	FileName dd ?
-ends
+caption db 'Voxel mover 19.02.16',0 ;подпись окна
 
 run_file_70 FileInfoBlock
-image_data dd 0 ;указатель на временную память. для нужен преобразования изображения
 
 IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
-IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*18
 image_data_toolbar dd 0
 
 ;значения задаваемые по умолчанию, без ini файла
@@ -62,45 +44,6 @@ key_t_size db 'tile_size',0
 key_f_size db 'file_size',0
 key_col_b db 'c_background',0
 
-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,0x0
-	else
-		copy_path path,[32],file_name,0x0 ;формируем полный путь к файлу изображения, подразумеваем что он в одной папке с программой
-	end if
-
-	stdcall mem.Alloc, dword size ;выделяем память для изображения
-	mov [buf],eax
-
-	mov eax,70 ;70-я функция работа с файлами
-	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
-	m2m [run_file_70.Buffer], [buf]
-	mov byte[run_file_70+20], 0
-	mov [run_file_70.FileName], file_name
-	mov ebx,run_file_70
-	int 0x40 ;загружаем файл изображения
-	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]
-	@@:
-}
-
 OT_MAP_X  equ  0
 OT_MAP_Y  equ  0
 OT_CAPT_X_COLOR equ  5 ;отступ для подписи цвета
@@ -116,10 +59,10 @@ start:
 	mov	ebp,lib_2
 	cmp	dword [ebp+ll_struc_size-4],0
 	jz	@f
-		mcall -1 ;exit not correct
+		mcall SF_TERMINATE_PROCESS
 	@@:
-	mcall 48,3,sc,sizeof.system_colors
-	mcall 40,0x27
+	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
+	mcall SF_SET_EVENTS_MASK,0xC0000027
 	stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога
 
 ;--- load ini file ---
@@ -174,7 +117,7 @@ start:
 
 	stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z
 
-	load_image_file 'toolbar_m.png', image_data_toolbar,IMAGE_TOOLBAR_SIZE
+	load_image_file 'toolbar_m.png', image_data_toolbar
 
 	stdcall mem.Alloc,[max_open_file_size]
 	mov dword[open_file_vox],eax
@@ -190,7 +133,7 @@ red_win:
 
 align 4
 still:
-	mcall 10
+	mcall SF_WAIT_EVENT
 
 	cmp al,1
 	jz red_win
@@ -200,7 +143,7 @@ still:
 	jz button
 	cmp al,6
 	jne @f
-		mcall 9,procinfo,-1
+		mcall SF_THREAD_INFO,procinfo,-1
 		cmp ax,word[procinfo+4]
 		jne @f ;окно не активно
 		call mouse
@@ -210,10 +153,10 @@ still:
 align 4
 mouse:
 	pushad
-	mcall 37,2
+	mcall SF_MOUSE_GET,SSF_BUTTON
 	bt eax,1 ;right button
 	jnc @f
-		mcall 37,1 ;get mouse coords
+		mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
 		mov ebx,eax
 		shr ebx,16
 		and eax,0xffff
@@ -223,7 +166,7 @@ mouse:
 	@@:
 	bt eax,0 ;left button
 	jnc .end_f
-		mcall 37,1 ;get mouse coords
+		mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
 		mov ebx,eax
 		shr ebx,16
 		and eax,0xffff
@@ -347,16 +290,16 @@ convert_y:
 align 4
 draw_window:
 pushad
-	mcall 12,1
+	mcall SF_REDRAW,SSF_BEGIN_DRAW
 
 	; *** рисование главного окна (выполняется 1 раз при запуске) ***
 	mov edx,[sc.work]
 	or  edx,(3 shl 24)+0x30000000
-	mcall 0,dword[wnd_s_pos],dword[wnd_s_pos+4],,,caption
+	mcall SF_CREATE_WINDOW,dword[wnd_s_pos],dword[wnd_s_pos+4],,,caption
 
 	; *** создание кнопок на панель ***
 	mov esi,[sc.work_button]
-	mcall 8,(5 shl 16)+20,(5 shl 16)+20,3
+	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3
 
 	mov ebx,(30 shl 16)+20
 	mov edx,4
@@ -412,7 +355,7 @@ pushad
 
 	; *** рисование иконок на кнопках ***
 	mov edx,(7 shl 16)+7 ;icon new
-	mcall 7,[image_data_toolbar],(16 shl 16)+16
+	mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16
 
 	add ebx,IMAGE_TOOLBAR_ICON_SIZE
 	add edx,(25 shl 16) ;icon open
@@ -471,7 +414,7 @@ pushad
 	call draw_objects
 	call draw_pok
 
-	mcall 12,2
+	mcall SF_REDRAW,SSF_END_DRAW
 popad
 	ret
 
@@ -480,7 +423,7 @@ draw_pok:
 	mov esi,[sc.work_button_text]
 	or  esi,(1 shl 30)
 	mov edi,[sc.work_button]
-	mcall 47, (3 shl 16)+(1 shl 31), [v_zoom], ((350+6*9) shl 16)+OT_CAPT_Y_COLOR+2 ;масштаб
+	mcall SF_DRAW_NUMBER, (3 shl 16)+(1 shl 31), [v_zoom], ((350+6*9) shl 16)+OT_CAPT_Y_COLOR+2 ;масштаб
 	mov ecx,[n_plane]
 	add edx,115 shl 16 ;9
 	int 0x40 ;номер сечения
@@ -517,7 +460,7 @@ draw_pok:
 	;рисование текста
 	mov ecx,[sc.work_text]
 	or  ecx,0x80000000 ;or (1 shl 30)
-	mcall 4, (OT_CAPT_X_COLOR shl 16)+OT_CAPT_Y_COLOR+2,,txt_color
+	mcall SF_DRAW_TEXT, (OT_CAPT_X_COLOR shl 16)+OT_CAPT_Y_COLOR+2,,txt_color
 
 	mov edx,txt_curor
 	add ebx,115 shl 16
@@ -545,26 +488,26 @@ on_change_color:
 pushad
 	mov ebx,((OT_CAPT_X_COLOR+35) shl 16)+16 ;по оси x
 	mov ecx,(OT_CAPT_Y_COLOR shl 16)+12 ;по оси y
-	mcall 13,,,[v_color]
+	mcall SF_DRAW_RECT,,,[v_color]
 
 	mov ecx,edx
 	mov edx,((OT_CAPT_X_COLOR+55) shl 16)+OT_CAPT_Y_COLOR+2
 	mov esi,[sc.work_text]
 	add esi,(1 shl 30)
 	mov edi,[sc.work]
-	mcall 47,(1 shl 8)+(6 shl 16)
+	mcall SF_DRAW_NUMBER,(1 shl 8)+(6 shl 16)
 popad
 	ret
 
 align 4
 key:
-	mcall 2
+	mcall SF_GET_KEY
 	jmp still
 
 
 align 4
 button:
-	mcall 17
+	mcall SF_GET_BUTTON
 	cmp ah,3
 	jne @f
 		stdcall but_new_file, [open_file_vox]
@@ -659,7 +602,7 @@ button:
 	stdcall mem.Free,[image_data_toolbar]
 	stdcall mem.Free,[open_file_vox]
 	stdcall mem.Free,[moved_file_vox]
-	mcall -1
+	mcall SF_TERMINATE_PROCESS
 
 ;данные для инициализации воксельного объекта
 align 4
@@ -693,22 +636,20 @@ but_open_file:
 	je .end_open_file
 	;код при удачном открытии диалога
 
-	mov eax,70 ;70-я функция работа с файлами
-	mov [run_file_70.Function], 0
+	mov [run_file_70.Function], SSF_READ_FILE
 	mov [run_file_70.Position], 0
 	mov [run_file_70.Flags], 0
 	m2m dword[run_file_70.Count], dword[max_open_file_size]
 	m2m [run_file_70.Buffer], [open_file_vox]
 	mov byte[run_file_70+20], 0
 	mov dword[run_file_70.FileName], openfile_path
-	mov ebx,run_file_70
-	int 0x40 ;загружаем файл изображения
+	mcall SF_FILE,run_file_70
 	cmp ebx,0xffffffff
 	je .end_open_file
 
 	;add ebx,[open_file_vox]
 	;mov byte[ebx],0 ;на случай если ранее был открыт файл большего размера чистим конец буфера с файлом
-	mcall 71,1,openfile_path
+	mcall SF_SET_CAPTION,1,openfile_path
 
 	;---
 	mov eax,[open_file_vox]
@@ -739,16 +680,14 @@ but_save_file:
 
 		stdcall buf2d_vox_obj_get_size, ebx
 		mov dword[run_file_70.Count], eax ;размер файла
-		mov eax,70 ;70-я функция работа с файлами
-		mov [run_file_70.Function], 2
+		mov [run_file_70.Function], SSF_CREATE_FILE
 		mov [run_file_70.Position], 0
 		mov [run_file_70.Flags], 0
 		mov ebx, dword[moved_file_vox]
 		mov [run_file_70.Buffer], ebx
 		mov byte[run_file_70+20], 0
 		mov dword[run_file_70.FileName], openfile_path
-		mov ebx,run_file_70
-		int 0x40 ;загружаем файл изображения
+		mcall SF_FILE,run_file_70
 		cmp ebx,0xffffffff
 		je .end_save_file
 
diff --git a/programs/media/voxel_editor/utilites/vox_tgl.asm b/programs/media/voxel_editor/utilites/vox_tgl.asm
index c2577569b4..adb4e445cb 100644
--- a/programs/media/voxel_editor/utilites/vox_tgl.asm
+++ b/programs/media/voxel_editor/utilites/vox_tgl.asm
@@ -5,77 +5,26 @@ use32
 
 include '../../../../programs/macros.inc'
 include '../../../../programs/proc32.inc'
-include '../../../../programs/develop/libraries/box_lib/load_lib.mac'
-include '../../../../programs/dll.inc'
+include '../../../../programs/KOSfuncs.inc'
+include '../../../../programs/load_img.inc'
 include '../../../../programs/develop/libraries/TinyGL/asm_fork/opengl_const.inc'
 include 'vox_3d.inc'
 include '../trunk/str.inc'
 
 @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
-caption db 'Voxel viewer 07.12.15',0 ;подпись окна
-
-struct FileInfoBlock
-	Function dd ?
-	Position dd ?
-	Flags	 dd ?
-	Count	 dd ?
-	Buffer	 dd ?
-		db ?
-	FileName dd ?
-ends
+caption db 'Voxel viewer 19.02.16',0 ;подпись окна
 
 3d_wnd_l equ   5 ;отступ для tinygl буфера слева
 3d_wnd_t equ  30 ;отступ для tinygl буфера сверху
 3d_wnd_w equ 512
 3d_wnd_h equ 512
 
-image_data dd 0 ;указатель на временную память. для нужен преобразования изображения
-
 IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
 IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*10
 image_data_toolbar dd 0
 
 offs_zbuf_pbuf equ 24
 
-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]
-	@@:
-}
-
-
-
 align 4
 start:
 	load_libraries l_libs_start,l_libs_end
@@ -83,20 +32,20 @@ start:
 	mov	ebp,lib_0
 	cmp	dword [ebp+ll_struc_size-4],0
 	jz	@f
-		mcall -1 ;exit not correct
+		mcall SF_TERMINATE_PROCESS
 	@@:
-	mcall 48,3,sc,sizeof.system_colors
-	mcall 40,0x27
+	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
+	mcall SF_SET_EVENTS_MASK,0xC0000027
 	stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога
 
 	stdcall [buf2d_create], buf_0 ;создание буфера
 
-	load_image_file 'toolbar_t.png', image_data_toolbar,IMAGE_TOOLBAR_SIZE*2 ;*2 for gray icons
+	load_image_file 'toolbar_t.png', image_data_toolbar,,,6 ;6 - for gray icons
 	mov eax,[image_data_toolbar]
 	add eax,IMAGE_TOOLBAR_SIZE
 	stdcall img_to_gray, [image_data_toolbar],eax,(IMAGE_TOOLBAR_SIZE)/3
 
-	mcall 26,9
+	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
 	mov [last_time],eax
 
 	stdcall [kosglMakeCurrent], 3d_wnd_l,3d_wnd_t,3d_wnd_w,3d_wnd_h,ctx1
@@ -114,7 +63,7 @@ red_win:
 
 align 4
 still:
-	mcall 26,9
+	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
 	mov ebx,[last_time]
 	add ebx,50 ;задержка
 	cmp ebx,eax
@@ -122,7 +71,7 @@ still:
 		mov ebx,eax
 	@@:
 	sub ebx,eax
-	mcall 23
+	mcall SF_WAIT_EVENT_TIMEOUT
 	bt word[opt_auto_rotate],0
 	jnc @f
 		or eax,eax
@@ -145,7 +94,7 @@ still:
 align 4
 timer_funct:
 	pushad
-	mcall 26,9
+	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
 	mov [last_time],eax
 
 	;автоматическое изменение угла обзора
@@ -161,17 +110,15 @@ timer_funct:
 align 4
 draw_window:
 pushad
-	mcall 12,1
+	mcall SF_REDRAW,SSF_BEGIN_DRAW
 
 	; *** рисование главного окна (выполняется 1 раз при запуске) ***
-	xor eax,eax
 	mov edx,[sc.work]
 	or  edx,(3 shl 24)+0x30000000
-	mcall ,(20 shl 16)+800,(20 shl 16)+570,,,caption
+	mcall SF_CREATE_WINDOW,(20 shl 16)+800,(20 shl 16)+570,,,caption
 
 	; *** создание кнопок на панель ***
-	mov esi,[sc.work_button]
-	mcall 8,(5 shl 16)+20,(5 shl 16)+20,3
+	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3,[sc.work_button]
 
 	mov ebx,(30 shl 16)+20
 	mov edx,4
@@ -206,7 +153,7 @@ pushad
 	stdcall [buf2d_draw], buf_0
 	stdcall [kosglSwapBuffers]
 
-	mcall 12,2
+	mcall SF_REDRAW,SSF_END_DRAW
 popad
 	ret
 
@@ -215,7 +162,7 @@ align 4
 draw_toolbar_i:
 	; *** рисование иконок на кнопках ***
 	mov edx,(7 shl 16)+7 ;icon new
-	mcall 7,[image_data_toolbar],(16 shl 16)+16
+	mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16
 
 	add ebx,IMAGE_TOOLBAR_ICON_SIZE
 	add edx,(25 shl 16) ;icon open
@@ -278,7 +225,7 @@ draw_toolbar_i:
 
 align 4
 key:
-	mcall 2
+	mcall SF_GET_KEY
 
 	cmp ah,178 ;Up
 	jne @f
@@ -319,13 +266,13 @@ key:
 align 4
 mouse:
 	push eax ebx
-	mcall 37,3
+	mcall SF_MOUSE_GET,SSF_BUTTON_EXT
 	bt eax,0
 	jnc .end_m
 		;mouse l. but. move
 		cmp dword[mouse_drag],1
 		jne .end_m
-		mcall 37,1 ;get mouse coords
+		mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
 		mov ebx,eax
 		shr ebx,16 ;mouse.x
 		cmp ebx,3d_wnd_l
@@ -375,7 +322,7 @@ mouse:
 	bt eax,8
 	jnc .end_d
 		;mouse l. but. press
-		mcall 37,1 ;get mouse coords
+		mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
 		mov ebx,eax
 		shr ebx,16 ;mouse.x
 		cmp ebx,3d_wnd_l
@@ -400,7 +347,7 @@ mouse:
 
 align 4
 button:
-	mcall 17
+	mcall SF_GET_BUTTON
 	cmp ah,3
 	jne @f
 		call but_new_file
@@ -448,7 +395,7 @@ button:
 	stdcall mem.Free,[image_data_toolbar]
 	stdcall mem.Free,[open_file_data]
 	stdcall mem.Free,[open_file_ogl]
-	mcall -1
+	mcall SF_TERMINATE_PROCESS
 
 
 align 4
@@ -461,7 +408,6 @@ but_new_file:
 align 4
 open_file_data dd 0 ;указатель на память для открытия файлов
 open_file_size dd 0 ;размер открытого файла
-open_b rb 560
 open_file_ogl dd 0 ;для записи координат шраней вокселей в показе opengl
 v_zoom dd 0
 
@@ -475,16 +421,14 @@ pushad
 	je .end_open_file
 	;код при удачном открытии диалога
 
-	mov eax,70 ;70-я функция работа с файлами
-	mov [run_file_70.Function], 5
+	mov [run_file_70.Function], SSF_GET_INFO
 	mov [run_file_70.Position], 0
 	mov [run_file_70.Flags], 0
 	mov dword[run_file_70.Count], 0
 	mov dword[run_file_70.Buffer], open_b
 	mov byte[run_file_70+20], 0
 	mov dword[run_file_70.FileName], openfile_path
-	mov ebx,run_file_70
-	int 0x40
+	mcall SF_FILE,run_file_70
 
 	;mov eax,dword[open_b+32]
 	;mov edi,txt_buf
@@ -495,21 +439,19 @@ pushad
 	stdcall mem.ReAlloc,[open_file_data],ecx
 	mov [open_file_data],eax
 	
-	mov eax,70 ;70-я функция работа с файлами
-	mov [run_file_70.Function], 0
+	mov [run_file_70.Function], SSF_READ_FILE
 	mov [run_file_70.Position], 0
 	mov [run_file_70.Flags], 0
 	mov dword[run_file_70.Count], ecx
 	m2m dword[run_file_70.Buffer], dword[open_file_data]
 	mov byte[run_file_70+20], 0
 	mov dword[run_file_70.FileName], openfile_path
-	mov ebx,run_file_70
-	int 0x40 ;загружаем файл изображения
+	mcall SF_FILE,run_file_70
 	cmp ebx,0xffffffff
 	je .end_open_file
 
 	mov [open_file_size],ebx
-	mcall 71,1,openfile_path
+	mcall SF_SET_CAPTION,1,openfile_path
 
 	mov eax,[open_file_data]
 	movzx eax,byte[eax]
@@ -624,22 +566,19 @@ but_save_file:
 	je .end_save_file
 	;код при удачном открытии диалога
 
-	mov eax,70 ;70-я функция работа с файлами
-	mov [run_file_70.Function], 2
+	mov [run_file_70.Function], SSF_CREATE_FILE
 	mov [run_file_70.Position], 0
 	mov [run_file_70.Flags], 0
 	mov ebx, dword[open_file_data]
 	;пишем в файл новый масштаб
 	mov edx,dword[v_zoom]
 	mov byte[ebx],dl
-	;
 	mov [run_file_70.Buffer], ebx
 	mov ebx,[open_file_size]
 	mov dword[run_file_70.Count], ebx ;размер файла
 	mov byte[run_file_70+20], 0
 	mov dword[run_file_70.FileName], openfile_path
-	mov ebx,run_file_70
-	int 0x40 ;сохраняем файл
+	mcall SF_FILE,run_file_70
 	;cmp ebx,0xffffffff
 	;je .end_save_file
 	; ... сообщение о неудачном сохранении ...
@@ -799,7 +738,7 @@ draw_3d:
 		;но все же при поворотах будут отсекатся края, которые вылезут за пределы плоскостей отсечения
 		;в версии opengl под Win координаты идут от -1.0 до 1.0 потому там этого делать не нужно
 	stdcall [glScalef], [scale], [scale], [scale] ;увеличиваем воксельный объект, что-бы не был очень маленьким
-	stdcall [glScalef], 1.0, 1.0, 0.5 ;что-бы края объекта не вылазили за грани отсечения
+	stdcall [glScalef], 1.0, 1.0, 0.25 ;что-бы края объекта не вылазили за грани отсечения
 	stdcall [glRotatef], [angle_x],1.0,0.0,0.0
 	stdcall [glRotatef], [angle_y],0.0,1.0,0.0
 	stdcall [glRotatef], [angle_z],0.0,0.0,1.0
@@ -915,6 +854,11 @@ lib_name_2 db 'buf2d.obj',0
 err_msg_found_lib_2 db 'Не найдена библиотека ',39,'buf2d.obj',39,0
 err_msg_import_2 db 'Ошибка при импорте библиотеки ',39,'buf2d',39,0
 
+system_dir_3 db '/kolibrios/lib/'
+lib_name_3 db 'tinygl.obj',0
+err_msg_found_lib_3 db 'Не найдена библиотека ',39,'tinygl.obj',39,0
+err_msg_import_3 db 'Ошибка при импорте библиотеки ',39,'tinygl',39,0
+
 l_libs_start:
 	lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
 		err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i
@@ -1049,13 +993,6 @@ macro E_LIB n
 }
 include '../../../../programs/develop/libraries/TinyGL/asm_fork/export.inc'
 
-;--------------------------------------------------
-system_dir_3 db '/sys/lib/'
-lib_name_3 db 'tinygl.obj',0
-err_msg_found_lib_3 db 'Не найдена библиотека ',39,'tinygl.obj',39,0
-err_msg_import_3 db 'Ошибка при импорте библиотеки ',39,'tinygl',39,0
-;--------------------------------------------------
-
 last_time dd 0
 
 align 4