Subversion Repositories Kolibri OS

Rev

Rev 6245 | Rev 6513 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2051 IgorA 1 
use32
2 
	org 0x0
3 
	db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт
6081 IgorA 4 
	dd 1, start, i_end, mem, stacktop, file_name, sys_path
2051 IgorA 5 
 
6 
include '../../macros.inc'
7 
include '../../proc32.inc'
6083 serge 8 
include '../../KOSfuncs.inc'
6237 IgorA 9 
include '../../load_img.inc'
2051 IgorA 10 
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
5930 IgorA 11 
include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'
2051 IgorA 12 
include 'lang.inc'
2165 IgorA 13 
include 'info_fun_float.inc'
5935 IgorA 14 
include 'info_menu.inc'
6060 IgorA 15 
include 'data.inc'
2051 IgorA 16 
 
6046 IgorA 17 
version_edit equ 1
5944 IgorA 18 
 
2051 IgorA 19 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
20 
 
6046 IgorA 21 
ID_ICON_CHUNK_MAIN equ 0 ;иконка главного блока
22 
ID_ICON_CHUNK_NOT_FOUND equ 1 ;иконка не известного блока
23 
ID_ICON_DATA equ 2 ;иконка для данных блока, не определенной структуры
24 
ID_ICON_POINT equ 8
25 
ID_ICON_POINT_SEL equ 9
26 
 
27 
FILE_ERROR_CHUNK_SIZE equ -3 ;ошибка в размере блока
28 
 
29 
include 'info_o3d.inc'
30 
 
6237 IgorA 31 
main_wnd_height equ 460 ;высота главного окна программы
32 
IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
33 
 
5938 IgorA 34 
align 4
35 
fl255 dd 255.0
36 
open_file_data dd 0 ;указатель на память для открытия файлов 3ds
4332 IgorA 37 
open_file_size dd 0 ;размер открытого файла
2051 IgorA 38 
image_data_toolbar dd 0
39 
icon_tl_sys dd 0 ;указатеель на память для хранения системных иконок
40 
icon_toolbar dd 0 ;указатеель на память для хранения иконок объектов
6237 IgorA 41 
fn_toolbar db 'toolbar.png',0
2051 IgorA 42 
 
6237 IgorA 43 
align 4
2051 IgorA 44 
level_stack dd 0
45 
offs_last_timer dd 0 ;последний сдвиг показаный в функции таймера
46 
 
47 
align 4
4332 IgorA 48 
file_3ds: ;переменные используемые при открытии файла
2051 IgorA 49 
.offs: dd 0 ;+0 указатель на начало блока
50 
.size: dd 0 ;+4 размер блока (для 1-го параметра = размер файла 3ds)
2080 IgorA 51 
rb 8*MAX_FILE_LEVEL
2051 IgorA 52 
 
4332 IgorA 53 
size_one_list equ 42
54 
list_offs_chunk_del equ 8 ;может ли блок удалятся
55 
list_offs_chunk_lev equ 9 ;уровень блока (прописан в данные узла)
56 
list_offs_p_data equ 10 ;указатель на подпись блока
57 
list_offs_text equ 14 ;сдвиг начала текста в листе
2051 IgorA 58 
buffer rb size_one_list ;буфер для добавления структур в список tree1
59 
 
60 
txt_3ds_symb db 0,0
61 
;--------------------------------------
62 
 
2165 IgorA 63 
include 'info_wnd_coords.inc'
2051 IgorA 64 
 
65 
align 4
66 
start:
6081 IgorA 67 
	;--- copy cmd line ---
68 
	mov esi,file_name
69 
	mov edi,openfile_path
70 
@@:
71 
	lodsd
72 
	cmp eax,0
73 
	je @f ;выход, если 0
74 
	stosd
75 
	jmp @b
76 
@@:
77 
	stosd
78 
 
2051 IgorA 79 
	load_libraries l_libs_start,l_libs_end
5881 IgorA 80 
	;проверка на сколько удачно загузились библиотеки
5930 IgorA 81 
	mov	ebp,lib_0
82 
	.test_lib_open:
83 
	cmp	dword [ebp+ll_struc_size-4],0
84 
	jz	@f
6081 IgorA 85 
		mcall SF_TERMINATE_PROCESS ;exit not correct
5911 IgorA 86 
	@@:
5930 IgorA 87 
	add ebp,ll_struc_size
88 
	cmp ebp,l_libs_end
89 
	jl .test_lib_open
6164 leency 90 
	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
6247 IgorA 91 
	mcall SF_SET_EVENTS_MASK,0xC0000027
6081 IgorA 92 
 
2051 IgorA 93 
	stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога
94 
 
5935 IgorA 95 
	;kmenu initialisation
96 
	stdcall [kmenu_init],sc
97 
	stdcall [ksubmenu_new]
98 
	mov [main_menu], eax
99 
 
100 
	stdcall [ksubmenu_new]
101 
	mov [main_menu_view], eax
102 
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Vertexes, 5
103 
	stdcall [ksubmenu_add], [main_menu_view], eax
104 
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Faces, 6
105 
	stdcall [ksubmenu_add], [main_menu_view], eax
5938 IgorA 106 
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Faces_Fill, 7
107 
	stdcall [ksubmenu_add], [main_menu_view], eax
108 
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Light, 8
109 
	stdcall [ksubmenu_add], [main_menu_view], eax
5935 IgorA 110 
	stdcall [kmenuitem_new], KMENUITEM_SEPARATOR, 0, 0
111 
	stdcall [ksubmenu_add], [main_menu_view], eax
5944 IgorA 112 
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Veiw_Reset, 9
113 
	stdcall [ksubmenu_add], [main_menu_view], eax
5935 IgorA 114 
	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_View, [main_menu_view]
115 
	stdcall [ksubmenu_add], [main_menu], eax
116 
 
5944 IgorA 117 
	stdcall [ksubmenu_new]
118 
	mov [main_menu_vertexes], eax
119 
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Vertexes_Select, 10
120 
	stdcall [ksubmenu_add], [main_menu_vertexes], eax
121 
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Vertexes_Deselect, 11
122 
	stdcall [ksubmenu_add], [main_menu_vertexes], eax
123 
	stdcall [kmenuitem_new], KMENUITEM_SEPARATOR, 0, 0
124 
	stdcall [ksubmenu_add], [main_menu_vertexes], eax
125 
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Average_x, 12
126 
	stdcall [ksubmenu_add], [main_menu_vertexes], eax
127 
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Average_y, 13
128 
	stdcall [ksubmenu_add], [main_menu_vertexes], eax
129 
	stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_main_menu_Average_z, 14
130 
	stdcall [ksubmenu_add], [main_menu_vertexes], eax
131 
	stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_main_menu_Vertexes, [main_menu_vertexes]
132 
	stdcall [ksubmenu_add], [main_menu], eax
133 
 
5911 IgorA 134 
	mov dword[w_scr_t1.type],1
2051 IgorA 135 
	stdcall dword[tl_data_init], tree1
136 
	;системные иконки 16*16 для tree_list
6237 IgorA 137 
	load_image_file 'tl_sys_16.png', icon_tl_sys
2051 IgorA 138 
	;если изображение не открылось, то в icon_tl_sys будут
139 
	;не инициализированные данные, но ошибки не будет, т. к. буфер нужного размера
140 
	mov eax,dword[icon_tl_sys]
141 
	mov dword[tree1.data_img_sys],eax
142 
 
6237 IgorA 143 
	load_image_file 'objects.png', icon_toolbar
2051 IgorA 144 
	mov eax,dword[icon_toolbar]
145 
	mov dword[tree1.data_img],eax
146 
 
147 
	stdcall [buf2d_create], buf_0 ;создание буфера
148 
 
6237 IgorA 149 
	load_image_file 'font8x9.bmp', image_data_toolbar
2051 IgorA 150 
	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;создаем буфер
151 
	stdcall mem.Free,[image_data_toolbar] ;освобождаем память
152 
	stdcall [buf2d_conv_24_to_8], buf_1,1 ;делаем буфер прозрачности 8 бит
153 
	stdcall [buf2d_convert_text_matrix], buf_1
154 
 
6237 IgorA 155 
	load_image_file fn_toolbar, image_data_toolbar
2051 IgorA 156 
 
5938 IgorA 157 
	;работа с файлом настроек
158 
	copy_path ini_name,sys_path,file_name,0
159 
	mov dword[def_dr_mode],0
160 
	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dv,1
161 
	or eax,eax
162 
	jz @f
163 
		or dword[def_dr_mode], 1 shl bit_vertexes
164 
	@@:
165 
	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_df,1
166 
	or eax,eax
167 
	jz @f
168 
		or dword[def_dr_mode], 1 shl bit_faces
169 
	@@:
170 
	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dff,1
171 
	or eax,eax
172 
	jz @f
173 
		or dword[def_dr_mode], 1 shl bit_faces_fill
174 
	@@:
175 
	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dl,1
176 
	or eax,eax
177 
	jz @f
178 
		or dword[def_dr_mode], 1 shl bit_light
179 
	@@:
180 
	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_ox,0x0000ff
181 
	mov [color_ox],eax
182 
	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_oy,0xff0000
183 
	mov [color_oy],eax
184 
	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_oz,0x00ff00
185 
	mov [color_oz],eax
186 
	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_bk,0x000000
187 
	mov [color_bk],eax
188 
	shr eax,8
189 
	mov [color_bk+4],eax
190 
	shr eax,8
191 
	mov [color_bk+8],eax
192 
	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_vert,0xffffff
193 
	mov [color_vert],eax
194 
	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_face,0x808080
195 
	mov [color_face],eax
5944 IgorA 196 
	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_select,0xffff00
197 
	mov [color_select],eax
5938 IgorA 198 
	finit
199 
	fild dword[color_bk+8]
200 
	fdiv dword[fl255]
201 
	fstp dword[color_bk+8]
202 
	mov eax,[color_bk+4]
203 
	and eax,0xff
204 
	mov [color_bk+4],eax
205 
	fild dword[color_bk+4]
206 
	fdiv dword[fl255]
207 
	fstp dword[color_bk+4]
208 
	mov eax,[color_bk]
209 
	and eax,0xff
210 
	mov [color_bk],eax
211 
	fild dword[color_bk]
212 
	fdiv dword[fl255]
213 
	fstp dword[color_bk]
2051 IgorA 214 
 
6081 IgorA 215 
	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
2051 IgorA 216 
	mov [last_time],eax
217 
 
5938 IgorA 218 
	stdcall [kosglMakeCurrent], 3d_wnd_l,3d_wnd_t,3d_wnd_w,3d_wnd_h,ctx1
5930 IgorA 219 
	stdcall [glEnable], GL_DEPTH_TEST
220 
	stdcall [glEnable], GL_NORMALIZE ;делам нормали одинаковой величины во избежание артефактов
5938 IgorA 221 
	stdcall [glClearColor], [color_bk+8],[color_bk+4],[color_bk],0.0
5930 IgorA 222 
	stdcall [glShadeModel], GL_SMOOTH
223 
	stdcall [gluNewQuadric]
224 
	mov [qObj],eax
225 
 
6081 IgorA 226 
	mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext
227 
	mov eax,[eax] ;eax -> ZBuffer
228 
	mov eax,[eax+offs_zbuf_pbuf] ;eax -> ZBuffer.pbuf
229 
	mov dword[buf_ogl],eax
230 
 
231 
	;open file from cmd line
232 
	cmp dword[openfile_path],0
233 
	je @f
234 
		call but_open_file.no_dlg
235 
	@@:
2051 IgorA 236 
	call draw_window
237 
 
238 
align 4
239 
still:
6081 IgorA 240 
	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
2051 IgorA 241 
	mov ebx,[last_time]
242 
	add ebx,10 ;задержка
243 
	cmp ebx,eax
244 
	jge @f
245 
		mov ebx,eax
246 
	@@:
247 
	sub ebx,eax
6081 IgorA 248 
	mcall SF_WAIT_EVENT_TIMEOUT
2051 IgorA 249 
	cmp eax,0
250 
	je timer_funct
251 
 
252 
	cmp al,1
5930 IgorA 253 
	jne @f
254 
		call draw_window
255 
		jmp still
256 
	@@:
2051 IgorA 257 
	cmp al,2
258 
	jz key
259 
	cmp al,3
260 
	jz button
261 
	cmp al,6
2125 IgorA 262 
	jne @f
6081 IgorA 263 
		mcall SF_THREAD_INFO,procinfo,-1
2125 IgorA 264 
		cmp ax,word[procinfo+4]
265 
		jne @f ;окно не активно
2051 IgorA 266 
		call mouse
267 
	@@:
268 
	jmp still
269 
 
270 
align 4
271 
mouse:
272 
	stdcall [tl_mouse], dword tree1
273 
	ret
274 
 
275 
align 4
276 
timer_funct:
277 
	pushad
6081 IgorA 278 
	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
2051 IgorA 279 
	mov [last_time],eax
280 
 
5935 IgorA 281 
	;просматриваем выделенный блок данных
2051 IgorA 282 
	stdcall [tl_node_get_data],tree1
5911 IgorA 283 
	cmp eax,0
2051 IgorA 284 
	je @f
5911 IgorA 285 
		mov ebx,eax
6081 IgorA 286 
		mov eax,dword[ebx]
2125 IgorA 287 
		mov ecx,dword[ebx+4] ;размер блока
2051 IgorA 288 
		stdcall hex_in_str, txt_3ds_offs.dig, eax,8
2125 IgorA 289 
		stdcall hex_in_str, txt_3ds_offs.siz, ecx,8
2051 IgorA 290 
 
5938 IgorA 291 
		add eax,dword[open_file_data] ;получаем значение сдвига в памяти
2051 IgorA 292 
		cmp dword[offs_last_timer],eax
293 
		je @f
5935 IgorA 294 
			;если выделенный блок данных не совпадает с последним запомненным
2051 IgorA 295 
			mov dword[offs_last_timer],eax
6081 IgorA 296 
			stdcall buf_draw_beg, buf_0
2080 IgorA 297 
			stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs,5,35,0xb000
4332 IgorA 298 
			mov edx,dword[ebx+list_offs_p_data]
2080 IgorA 299 
			cmp edx,0 ;смотрим есть ли описание блока
300 
			je .no_info
301 
				stdcall [buf2d_draw_text], buf_0, buf_1,edx,5,45,0xb000
302 
			.no_info:
2051 IgorA 303 
			add ecx,eax ;получаем размер блока
304 
			stdcall buf_draw_hex_table,eax,ecx ;добавление 16-ричных данных
305 
			stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране
306 
	@@:
307 
	popad
308 
	jmp still
309 
 
310 
align 4
311 
proc buf_draw_hex_table, offs:dword, size_line:dword
312 
	pushad
313 
	locals
2080 IgorA 314 
		coord_y dd 55 ;координата y для начала вывода таблицы
2051 IgorA 315 
	endl
316 
		mov esi,dword[offs]
5938 IgorA 317 
		mov edi,dword[open_file_data]
2080 IgorA 318 
		add edi,dword[file_3ds.size] ;edi - указатель на конец файла в памяти
2051 IgorA 319 
		mov dword[txt_3ds_offs.dig],0
320 
		cld
321 
		.cycle_rows:
322 
			mov ebx,5 ;отступ слева для цифр
323 
			mov edx,5+10*24 ;отступ слева для текста
324 
			mov ecx,10
325 
			@@:
326 
				stdcall hex_in_str, txt_3ds_offs.dig, dword[esi],2
327 
				stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs.dig,ebx,[coord_y],0
328 
 
329 
				mov al,byte[esi]
330 
				mov byte[txt_3ds_symb],al
331 
				stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_symb,edx,[coord_y],0x808080
332 
				inc esi
333 
				cmp esi,dword[size_line]
334 
				jne .end_block
335 
					stdcall draw_block_end_line, dword[coord_y]
336 
				.end_block:
337 
				cmp esi,edi
338 
				jge @f ;jg ???
339 
				add ebx,24
340 
				add edx,9 ;ширина 1-го символа +1pix
341 
				loop @b
342 
			add dword[coord_y],10 ;высота 1-го символа (или интервал между строками)
343 
			mov ebx,dword[buf_0.h]
344 
			cmp dword[coord_y],ebx
345 
			jl .cycle_rows
346 
		@@:
347 
	popad
348 
	ret
349 
endp
350 
 
351 
align 4
5930 IgorA 352 
proc draw_block_end_line uses eax ebx ecx, coord_y:dword
353 
	add ebx,20 ;20 = width 2.5 symbols
354 
	mov eax,[coord_y]
355 
	sub eax,2
356 
	mov ecx,eax
357 
	add ecx,10
358 
	stdcall [buf2d_line], buf_0, 0,ecx,ebx,ecx ,0xff
359 
	stdcall [buf2d_line], buf_0, ebx,ecx,ebx,eax ,0xff
360 
	stdcall [buf2d_line], buf_0, ebx,eax,5+10*24-4,eax ,0xff
2051 IgorA 361 
	ret
362 
endp
363 
 
364 
align 4
365 
draw_window:
366 
pushad
6081 IgorA 367 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
2051 IgorA 368 
	xor eax,eax
369 
	mov edx,[sc.work]
5930 IgorA 370 
	or  edx,0x33000000
2051 IgorA 371 
	mov edi,capt
5930 IgorA 372 
	mcall , (20 shl 16)+560, (20 shl 16)+main_wnd_height
2051 IgorA 373 
 
6081 IgorA 374 
	mcall SF_THREAD_INFO,procinfo,-1
2125 IgorA 375 
	mov eax,dword[procinfo.box.height]
376 
	cmp eax,250
377 
	jge @f
378 
		mov eax,250
379 
	@@:
380 
	sub eax,65
381 
	mov dword[tree1.box_height],eax
6060 IgorA 382 
	mov word[w_scr_t1.y_size],ax ;новые размеры скроллинга
2136 IgorA 383 
	cmp eax,dword[buf_0.h] ;увеличиваем высоту буфера
384 
	jle @f
6175 IgorA 385 
		stdcall [buf2d_resize],buf_0,0,eax,1
2136 IgorA 386 
		mov dword[offs_last_timer],0 ;для обновления буфера в таймере
387 
	@@:
2125 IgorA 388 
 
2136 IgorA 389 
	mov eax,dword[procinfo.box.width]
390 
	cmp eax,400
391 
	jge @f
392 
		mov eax,400
393 
	@@:
394 
	sub eax,[buf_0.w]
395 
	sub eax,41
396 
	mov dword[tree1.box_width],eax
397 
	add ax,word[tree1.box_left]
6060 IgorA 398 
	mov word[w_scr_t1.x_pos],ax
2136 IgorA 399 
	add ax,16+5
400 
	mov word[buf_0.l],ax
401 
 
2051 IgorA 402 
	mov esi,[sc.work_button]
6130 leency 403 
	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,0x40000003
404 
	mcall ,(30 shl 16)+20,,0x40000004
2051 IgorA 405 
 
2173 IgorA 406 
	cmp byte[can_save],0
407 
	je @f
6130 leency 408 
		mcall ,(55 shl 16)+20,,0x40000005
2173 IgorA 409 
	@@:
6130 leency 410 
	mcall ,(85 shl 16)+20,,0x40000006 ;окно с координатами
411 
	mcall ,(110 shl 16)+20,,0x40000007 ;удаление блока
2051 IgorA 412 
 
6130 leency 413 
	mcall SF_PUT_IMAGE,[image_data_toolbar],(21 shl 16)+21,(5 shl 16)+5 ;new
4332 IgorA 414 
 
2051 IgorA 415 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
6130 leency 416 
	mov edx,(30 shl 16)+5 ;open
2051 IgorA 417 
	int 0x40
418 
 
2173 IgorA 419 
	cmp byte[can_save],0
420 
	je @f
421 
		add ebx,IMAGE_TOOLBAR_ICON_SIZE
6130 leency 422 
		mov edx,(55 shl 16)+5 ;save
2173 IgorA 423 
		int 0x40
4332 IgorA 424 
		sub ebx,IMAGE_TOOLBAR_ICON_SIZE
2173 IgorA 425 
	@@:
2051 IgorA 426 
 
4332 IgorA 427 
	add ebx,4*IMAGE_TOOLBAR_ICON_SIZE
6130 leency 428 
	mov edx,(85 shl 16)+5
4332 IgorA 429 
	int 0x40
430 
 
431 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
6130 leency 432 
	mov edx,(110 shl 16)+5
4332 IgorA 433 
	int 0x40
434 
 
2051 IgorA 435 
	mov dword[w_scr_t1.all_redraw],1
436 
	stdcall [tl_draw],dword tree1
437 
 
438 
	stdcall [buf2d_draw], buf_0
439 
 
6081 IgorA 440 
	mcall SF_REDRAW,SSF_END_DRAW
2051 IgorA 441 
popad
442 
	ret
443 
 
444 
align 4
445 
key:
6081 IgorA 446 
	mcall SF_GET_KEY
2051 IgorA 447 
	stdcall [tl_key], dword tree1
448 
	jmp still
449 
 
450 
 
451 
align 4
452 
button:
6081 IgorA 453 
	mcall SF_GET_BUTTON
2051 IgorA 454 
	cmp ah,3
455 
	jne @f
456 
		call but_new_file
5881 IgorA 457 
		jmp still
2051 IgorA 458 
	@@:
459 
	cmp ah,4
460 
	jne @f
461 
		call but_open_file
5881 IgorA 462 
		jmp still
2051 IgorA 463 
	@@:
464 
	cmp ah,5
465 
	jne @f
466 
		call but_save_file
5881 IgorA 467 
		jmp still
2051 IgorA 468 
	@@:
2165 IgorA 469 
	cmp ah,6
470 
	jne @f
471 
		call but_wnd_coords
5881 IgorA 472 
		jmp still
2165 IgorA 473 
	@@:
4332 IgorA 474 
	cmp ah,7
475 
	jne @f
476 
		call but_delete_chunk
5881 IgorA 477 
		jmp still
4332 IgorA 478 
	@@:
2051 IgorA 479 
 
480 
	cmp ah,1
481 
	jne still
482 
.exit:
483 
	mov dword[tree1.data_img],0
484 
	mov dword[tree1.data_img_sys],0
5911 IgorA 485 
	stdcall [tl_data_clear], tree1
2051 IgorA 486 
	stdcall [buf2d_delete],buf_0
487 
	stdcall [buf2d_delete],buf_1 ;удаляем буфер
488 
	stdcall mem.Free,[image_data_toolbar]
5938 IgorA 489 
	stdcall mem.Free,[open_file_data]
5930 IgorA 490 
	stdcall [gluDeleteQuadric], [qObj]
6081 IgorA 491 
	mcall SF_TERMINATE_PROCESS
2051 IgorA 492 
 
493 
 
494 
align 4
495 
but_new_file:
2173 IgorA 496 
	mov byte[can_save],0
2051 IgorA 497 
	stdcall [tl_info_clear], tree1 ;очистка списка объектов
498 
	stdcall [buf2d_clear], buf_0, [buf_0.color] ;чистим буфер
499 
	stdcall [tl_draw], tree1
500 
	stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране
501 
	ret
502 
 
503 
align 4
504 
but_open_file:
5881 IgorA 505 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
2051 IgorA 506 
	pushad
507 
	mov [OpenDialog_data.type],0
508 
	stdcall [OpenDialog_Start],OpenDialog_data
509 
	cmp [OpenDialog_data.status],2
510 
	je .end_open_file
511 
	;код при удачном открытии диалога
6081 IgorA 512 
	jmp @f
513 
.no_dlg: ;если минуем диалог открытия файла
514 
		pushad
515 
	@@:
516 
    mov [run_file_70.Function], SSF_GET_INFO
5938 IgorA 517 
    mov [run_file_70.Position], 0
518 
    mov [run_file_70.Flags], 0
519 
    mov dword[run_file_70.Count], 0
520 
    mov dword[run_file_70.Buffer], open_b
521 
    mov byte[run_file_70+20], 0
522 
    mov dword[run_file_70.FileName], openfile_path
6081 IgorA 523 
    mcall SF_FILE,run_file_70
2051 IgorA 524 
 
5938 IgorA 525 
    mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах
526 
    stdcall mem.ReAlloc,[open_file_data],ecx
527 
    mov [open_file_data],eax
528 
 
6081 IgorA 529 
    mov [run_file_70.Function], SSF_READ_FILE
5938 IgorA 530 
    mov [run_file_70.Position], 0
531 
    mov [run_file_70.Flags], 0
532 
    mov dword[run_file_70.Count], ecx
533 
    m2m dword[run_file_70.Buffer], dword[open_file_data]
534 
    mov byte[run_file_70+20], 0
535 
    mov dword[run_file_70.FileName], openfile_path
6081 IgorA 536 
    mcall SF_FILE,run_file_70 ;загружаем файл 3ds
5938 IgorA 537 
    cmp ebx,0xffffffff
538 
    je .end_open_file
539 
 
4332 IgorA 540 
	mov [open_file_size],ebx
6081 IgorA 541 
		;mcall SF_SET_CAPTION,1,openfile_path
2051 IgorA 542 
 
2173 IgorA 543 
	mov byte[can_save],0
4332 IgorA 544 
	call init_tree
545 
	stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране
6046 IgorA 546 
	stdcall obj_clear_param, o3d ;чистим параметры окна с координатами
5930 IgorA 547 
	cmp byte[prop_wnd_run],0
548 
	je @f
549 
		;чистим окно с координатами
550 
		stdcall [tl_info_clear], tree3
551 
	@@:
4332 IgorA 552 
 
553 
	.end_open_file:
554 
	popad
555 
	ret
556 
 
557 
align 4
558 
init_tree:
2051 IgorA 559 
	stdcall [tl_info_clear], tree1 ;очистка списка объектов
560 
 
5938 IgorA 561 
	mov esi,dword[open_file_data]
2051 IgorA 562 
	cmp word[esi],CHUNK_MAIN
563 
	je @f
6081 IgorA 564 
		stdcall buf_draw_beg, buf_0
2051 IgorA 565 
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_no_3ds,5,25,0xff0000 ;рисуем строку с текстом
566 
		jmp .end_open
567 
	@@:
568 
	;--- обработка открытого *.3ds файла
569 
	mov eax,file_3ds
570 
	mov dword[level_stack],0 ;обнуляем уровень стека
571 
	mov dword[offs_last_timer],0
572 
	;--- добавление главного блока в список
2080 IgorA 573 
	stdcall add_3ds_object, ID_ICON_CHUNK_MAIN,0,dword[esi+2],0
2051 IgorA 574 
	call block_children ;вход в дочерний блок
575 
 
2052 IgorA 576 
	mov edi,dword[file_3ds.offs]
577 
	add edi,dword[file_3ds.size]
2051 IgorA 578 
	.cycle_main:
579 
		cmp dword[level_stack],0
2052 IgorA 580 
		jle .end_cycle
581 
 
582 
		cmp esi,edi ;если конец файла
583 
		jge .end_cycle
2051 IgorA 584 
 
2080 IgorA 585 
		mov edx,dword[esi+2] ;размер блока
2051 IgorA 586 
		call block_analiz
2080 IgorA 587 
		cmp dword[bl_found],0
2051 IgorA 588 
		jne @f
589 
			;объект не известного вида
2080 IgorA 590 
			stdcall add_3ds_object, ID_ICON_CHUNK_NOT_FOUND,dword[level_stack],edx,0
2051 IgorA 591 
			call block_next
592 
			jmp .cycle_main
593 
		@@:
594 
			;объект известного вида
2080 IgorA 595 
			mov ecx,dword[bl_found]
2051 IgorA 596 
			mov bx,word[ecx+2] ;номер иконки для объекта
2080 IgorA 597 
			stdcall add_3ds_object, ebx,dword[level_stack],edx,dword[ecx+5]
2051 IgorA 598 
			cmp byte[ecx+4],1
599 
			je .bl_data
600 
				;блок содержит дочерние блоки
601 
				call block_children ;вход в дочерний блок
602 
				jmp .cycle_main
603 
			.bl_data:
604 
				;блок содержит данные
605 
				call block_analiz_data
606 
				jmp .cycle_main
607 
	.end_cycle:
608 
		stdcall [tl_cur_beg], tree1
609 
		stdcall [tl_draw], tree1
610 
	.end_open:
611 
	ret
612 
 
613 
;анализ данных блока
614 
;input:
6081 IgorA 615 
; eax - stack pointer
2051 IgorA 616 
; esi - memory pointer
2080 IgorA 617 
;output:
618 
; eax - new stack pointer
619 
; esi - new memory pointer
2051 IgorA 620 
align 4
621 
block_analiz_data:
2080 IgorA 622 
	push ebx ecx edx edi
623 
		mov dx,word[esi]
2052 IgorA 624 
		mov ecx,dword[esi+2]
625 
		sub ecx,6 ;размер данных в блоке
2051 IgorA 626 
		add esi,6
627 
		mov ebx,dword[level_stack]
628 
		inc ebx
2080 IgorA 629 
		; *** анализ блоков с разными данными и выделением подблоков
630 
		cmp dx,CHUNK_OBJBLOCK ;объект
631 
		jne @f
2136 IgorA 632 
			push ax
633 
				cld
634 
				xor al,al
635 
				mov edi,esi
636 
				repne scasb
637 
			pop ax
638 
			sub edi,esi ;edi - strlen
639 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,edi,0 ;название объекта
640 
			add esi,edi
641 
			;sub ecx,edi ;уже сделано в repne
2080 IgorA 642 
			jmp .next_bl
643 
		@@:
2125 IgorA 644 
		cmp dx,CHUNK_VERTLIST ;список вершин
645 
		je .vertexes
646 
		cmp dx,0x4111 ;флаги вершин
647 
		je .vertexes
2136 IgorA 648 
		cmp dx,CHUNK_MAPLIST ;текстурные координаты
2125 IgorA 649 
		je .vertexes
650 
		jmp @f
651 
		.vertexes: ;обработка блоков, содержащих данные вершин
2136 IgorA 652 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;число вершин
2125 IgorA 653 
			add esi,2
654 
			sub ecx,2
655 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;данные вершин
656 
			sub esi,8 ;восстановление esi
657 
			call block_next
658 
			jmp .end_f
659 
		@@:
2136 IgorA 660 
		cmp dx,CHUNK_FACELIST ;список граней
661 
		jne @f
662 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;число граней
663 
			push eax
6060 IgorA 664 
			movzx eax,word[esi]
2136 IgorA 665 
			shl eax,3
666 
			add esi,2
667 
			sub ecx,2
6046 IgorA 668 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,eax,0 ;данные граней
2136 IgorA 669 
 
670 
			sub ecx,eax
671 
			cmp ecx,1
672 
			jl .data_3 ;проверяем есть ли блок описывающий материал, применяемый к объекту
6081 IgorA 673 
if 0
2136 IgorA 674 
				add esi,eax
6081 IgorA 675 
				mov ecx,dword[esi+2]
676 
				stdcall add_3ds_object, 10,ebx,ecx,0 ;данные материала
677 
				sub esi,eax
678 
else
679 
				add esi,eax
2136 IgorA 680 
				pop eax
681 
				jmp .next_bl
6081 IgorA 682 
end if
2136 IgorA 683 
			.data_3:
684 
 
685 
			sub esi,8 ;восстановление esi
686 
			pop eax
687 
			call block_next
688 
			jmp .end_f
689 
		@@:
690 
		cmp dx,CHUNK_FACEMAT ;материалы граней
691 
		jne @f
692 
			push ax
693 
				cld
694 
				xor al,al
695 
				mov edi,esi
696 
				repne scasb
697 
			pop ax
698 
			sub edi,esi ;edi - strlen
699 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,edi,0 ;название объекта
700 
			add esi,edi
701 
			;sub ecx,edi ;уже сделано в repne
702 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;число граней
703 
			add esi,2
704 
			sub ecx,2
705 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;номера граней, к которым применен материал
706 
			sub esi,edi ;восстановление esi (1)
707 
			sub esi,8   ;восстановление esi (2)
708 
			call block_next
709 
			jmp .end_f
710 
		@@:
2080 IgorA 711 
		; *** анализ блока с данными по умолчанию (без выделения подблоков)
712 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0
713 
			sub esi,6 ;восстановление esi
714 
			call block_next
715 
			jmp .end_f
716 
		.next_bl:
717 
		; *** настройки для анализа оставшихся подблоков
718 
			mov dword[eax],esi ;указатель на начало блока
719 
			mov ebx,dword[esi+2]
720 
			mov dword[eax+4],ebx ;размер блока
721 
			inc dword[level_stack]
722 
			add eax,8
2051 IgorA 723 
		.end_f:
2080 IgorA 724 
	pop edi edx ecx ebx
2051 IgorA 725 
	ret
726 
 
2052 IgorA 727 
;вход в 1-й дочерний блок
6060 IgorA 728 
;input:
729 
; eax - указатель на временный стек файла file_3ds
730 
; esi - начало родительского блока
2052 IgorA 731 
;output:
6060 IgorA 732 
; ebx - destroy
733 
; esi - начало данных родительского блока
2051 IgorA 734 
align 4
735 
block_children:
2052 IgorA 736 
	push ecx
737 
		;проверка правильности размеров дочернего блока
6060 IgorA 738 
		mov ebx,esi
2052 IgorA 739 
		add ebx,6 ;переход на начало дочернего блока
740 
		add ebx,dword[ebx+2] ;добавляем размер дочернего блока
6060 IgorA 741 
		mov ecx,esi
2052 IgorA 742 
		add ecx,dword[esi+2] ;добавляем размер родительского блока
743 
		cmp ebx,ecx ;учитывать заголовки не нужно, т. к. сравниваются только данные блоков
744 
		jle @f
745 
			;диагностировали ошибку файла, дочерний блок выходит за пределы родительского
746 
			mov dword[level_stack],FILE_ERROR_CHUNK_SIZE
747 
			jmp .end_f
748 
		@@:
749 
		mov dword[eax],esi ;указатель на начало блока
750 
		mov ebx,dword[esi+2]
751 
		mov dword[eax+4],ebx ;размер блока
752 
		add esi,6 ;переходим к данным блока
753 
		inc dword[level_stack]
754 
		add eax,8
755 
	.end_f:
756 
	pop ecx
2051 IgorA 757 
	ret
758 
 
759 
;переход к следущему блоку текущего уровня
4332 IgorA 760 
;input:
761 
; eax - адрес структуры с переменными
2051 IgorA 762 
align 4
763 
block_next:
764 
push ebx
765 
	add esi,dword[esi+2] ;пропускаем данные блока
766 
 
767 
	;проверка размеров родительского блока, для возможного выхода на верхний уровень если конец блока
2080 IgorA 768 
	@@:
2051 IgorA 769 
	mov ebx,dword[eax-8]
770 
	add ebx,dword[eax-4]
771 
	cmp esi,ebx
772 
	jl @f
773 
		dec dword[level_stack]
774 
		sub eax,8
2080 IgorA 775 
		cmp dword[level_stack],0
776 
		jg @b
2051 IgorA 777 
	@@:
778 
pop ebx
779 
	ret
780 
 
2080 IgorA 781 
;функция поиска структуры описывающей блок
2051 IgorA 782 
;input:
783 
;esi - memory pointer
784 
;output:
2080 IgorA 785 
;dword[bl_found] - pointer to chunk struct (= 0 if not found)
2051 IgorA 786 
align 4
2080 IgorA 787 
bl_found dd 0
2051 IgorA 788 
block_analiz:
789 
pushad
2080 IgorA 790 
	mov dword[bl_found],0
2051 IgorA 791 
	mov ecx,type_bloks
792 
	@@:
793 
		mov bx,word[ecx]
794 
		cmp word[esi],bx
795 
		je .found
796 
		add ecx,sizeof.block_3ds
797 
		cmp ecx,type_bloks.end
798 
		jl @b
799 
	jmp .no_found
800 
	.found:
2080 IgorA 801 
		mov dword[bl_found],ecx
2051 IgorA 802 
	.no_found:
803 
popad
804 
	ret
805 
 
806 
;input:
807 
; esi - указатель на анализируемые данные
4332 IgorA 808 
; level - уровень вложенности узла
809 
; size_bl - размер блока
2051 IgorA 810 
align 4
2080 IgorA 811 
proc add_3ds_object, icon:dword,level:dword,size_bl:dword,info_bl:dword
2051 IgorA 812 
	pushad
813 
		mov bx,word[icon]
814 
		shl ebx,16
815 
		mov bx,word[level]
816 
 
817 
		mov eax,esi
5938 IgorA 818 
		sub eax,dword[open_file_data]
2051 IgorA 819 
		mov dword[buffer],eax ;смещение блока
820 
		mov ecx,dword[size_bl]
821 
		mov dword[buffer+4],ecx ;размер блока (используется в функции buf_draw_hex_table для рисования линии)
4332 IgorA 822 
		mov ecx,dword[bl_found]
823 
		cmp ecx,0
824 
		je @f
825 
			;... здесь нужен другой алгоритм защиты от удаления
826 
			mov cl,byte[ecx+4]
827 
		@@:
828 
		mov byte[buffer+list_offs_chunk_del],cl
829 
		mov ecx,[level]
830 
		mov byte[buffer+list_offs_chunk_lev],cl
2080 IgorA 831 
		mov ecx,dword[info_bl]
4332 IgorA 832 
		mov dword[buffer+list_offs_p_data],ecx
2080 IgorA 833 
		stdcall hex_in_str, buffer+list_offs_text,dword[esi+1],2
834 
		stdcall hex_in_str, buffer+list_offs_text+2,dword[esi],2 ;код 3ds блока
835 
		cmp ecx,0
836 
		jne @f
4332 IgorA 837 
			mov byte[buffer+list_offs_text+4],0 ;0 - символ конца строки
2080 IgorA 838 
			jmp .no_capt
839 
		@@:
840 
			mov byte[buffer+list_offs_text+4],' '
841 
			mov esi,ecx
842 
			mov edi,buffer+list_offs_text+5
843 
			mov ecx,size_one_list-(list_offs_text+5)
844 
			cld
845 
			rep movsb
5935 IgorA 846 
			mov byte[buffer+size_one_list-1],0 ;0 - символ конца строки
2080 IgorA 847 
		.no_capt:
5911 IgorA 848 
		stdcall [tl_node_add], tree1, ebx, buffer
2051 IgorA 849 
		stdcall [tl_cur_next], tree1
850 
	popad
851 
	ret
852 
endp
853 
 
5935 IgorA 854 
;input:
855 
; eax - value
5938 IgorA 856 
; buf - string buffer
5935 IgorA 857 
; len - buffer len
858 
;output:
859 
align 4
5938 IgorA 860 
proc convert_int_to_str, buf:dword, len:dword
5935 IgorA 861 
pushad
5938 IgorA 862 
	mov edi,[buf]
5935 IgorA 863 
	mov esi,[len]
864 
	add esi,edi
865 
	dec esi
866 
	call .str
867 
popad
868 
	ret
869 
endp
870 
 
871 
align 4
872 
.str:
873 
	mov ecx,0x0a
874 
	cmp eax,ecx
875 
	jb @f
876 
		xor edx,edx
877 
		div ecx
878 
		push edx
879 
		call .str
880 
		pop eax
881 
	@@:
882 
	cmp edi,esi
883 
	jge @f
884 
		or al,0x30
885 
		stosb
886 
		mov byte[edi],0
887 
	@@:
888 
	ret
889 
 
2051 IgorA 890 
align 4
891 
but_save_file:
2173 IgorA 892 
	pushad
893 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
894 
	mov [OpenDialog_data.type],1
895 
	stdcall [OpenDialog_Start],OpenDialog_data
896 
	cmp [OpenDialog_data.status],2
897 
	je .end_save_file
898 
	;код при удачном открытии диалога
899 
 
6081 IgorA 900 
	mov [run_file_70.Function], SSF_CREATE_FILE
2173 IgorA 901 
	mov [run_file_70.Position], 0
902 
	mov [run_file_70.Flags], 0
5938 IgorA 903 
	mov ebx, dword[open_file_data]
2173 IgorA 904 
	mov [run_file_70.Buffer], ebx
905 
	mov ebx,dword[ebx+2]
906 
	mov dword[run_file_70.Count], ebx ;размер файла
907 
	mov byte[run_file_70+20], 0
908 
	mov dword[run_file_70.FileName], openfile_path
6081 IgorA 909 
	mcall SF_FILE,run_file_70
2173 IgorA 910 
	cmp ebx,0xffffffff
911 
	je .end_save_file
5935 IgorA 912 
		;...сообщение...
2173 IgorA 913 
	.end_save_file:
914 
	popad
2051 IgorA 915 
	ret
916 
 
2165 IgorA 917 
align 4
918 
but_wnd_coords:
919 
	cmp byte[prop_wnd_run],0
920 
	jne @f
921 
		pushad
6081 IgorA 922 
		mcall SF_CREATE_THREAD,1,prop_start,thread_coords
2165 IgorA 923 
		popad
924 
	@@:
925 
	ret
2051 IgorA 926 
 
4332 IgorA 927 
;description:
928 
; удаление выбранного блока из открытого файла
929 
align 4
930 
but_delete_chunk:
931 
	pushad
932 
	stdcall [tl_node_get_data],tree1
5911 IgorA 933 
	cmp eax,0
4332 IgorA 934 
	je .end_f
5911 IgorA 935 
	cmp byte[eax+list_offs_chunk_del],0 ;если блок защищен от удаления
4332 IgorA 936 
	jne .notify
2051 IgorA 937 
 
4332 IgorA 938 
	;(1) копирование нижней части файла
5911 IgorA 939 
	mov edx,dword[eax+4] ;размер блока
4332 IgorA 940 
	sub [open_file_size],edx ;изменение размеров файла
941 
	mov ecx,[open_file_size]
6081 IgorA 942 
	mov ebx,dword[eax]
5911 IgorA 943 
	sub ecx,ebx ;ecx - размер нижней сдвигаемой части файла
5938 IgorA 944 
	add ebx,dword[open_file_data] ;получаем значение сдвига в памяти
5911 IgorA 945 
	mov edi,ebx
946 
	mov esi,ebx
4332 IgorA 947 
	add esi,edx
5911 IgorA 948 
	mov bl,byte[eax+list_offs_chunk_lev] ;берем уровень текущего узла
4332 IgorA 949 
	rep movsb
950 
	mov byte[can_save],1
951 
 
952 
	;(2) изменение размеров родительских блоков
5911 IgorA 953 
	cmp bl,0
4332 IgorA 954 
	je .end_2
955 
	.cycle_2:
956 
	stdcall [tl_cur_perv], tree1
957 
	stdcall [tl_node_get_data],tree1
5911 IgorA 958 
	cmp eax,0
4332 IgorA 959 
	je .end_2
5911 IgorA 960 
		cmp byte[eax+list_offs_chunk_lev],bl
4332 IgorA 961 
		jge .cycle_2
5911 IgorA 962 
		mov bl,byte[eax+list_offs_chunk_lev]
963 
		mov ecx,[eax]
5938 IgorA 964 
		add ecx,[open_file_data]
4332 IgorA 965 
		sub dword[ecx+2],edx
5911 IgorA 966 
		cmp bl,0 ;если самый верхний узел, то bl=0
4332 IgorA 967 
		jne .cycle_2
968 
	.end_2:
969 
 
970 
	;(3) обновление списка tree1
971 
	call init_tree
972 
	call draw_window
973 
 
974 
	jmp .end_f
975 
	.notify:
976 
	notify_window_run txt_not_delete
977 
	.end_f:
978 
	popad
979 
	ret
980 
 
2051 IgorA 981 
;данные для диалога открытия файлов
982 
align 4
983 
OpenDialog_data:
984 
.type			dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию
5930 IgorA 985 
.procinfo		dd procinfo ;+4
986 
.com_area_name	dd communication_area_name ;+8
987 
.com_area		dd 0 ;+12
988 
.opendir_path	dd plugin_path ;+16
2051 IgorA 989 
.dir_default_path	dd default_dir ;+20
990 
.start_path		dd file_name ;+24 путь к диалогу открытия файлов
5930 IgorA 991 
.draw_window	dd draw_window ;+28
992 
.status 		dd 0 ;+32
993 
.openfile_path	dd openfile_path ;+36 путь к открываемому файлу
994 
.filename_area	dd filename_area ;+40
995 
.filter_area	dd Filter
2051 IgorA 996 
.x:
997 
.x_size 		dw 420 ;+48 ; Window X size
998 
.x_start		dw 10 ;+50 ; Window X position
999 
.y:
1000 
.y_size 		dw 320 ;+52 ; Window y size
1001 
.y_start		dw 10 ;+54 ; Window Y position
1002 
 
1003 
default_dir db '/rd/1',0
1004 
 
1005 
communication_area_name:
1006 
	db 'FFFFFFFF_open_dialog',0
1007 
open_dialog_name:
1008 
	db 'opendial',0
1009 
communication_area_default_path:
1010 
	db '/rd/1/File managers/',0
1011 
 
1012 
Filter:
1013 
dd Filter.end - Filter.1
1014 
.1:
1015 
db '3DS',0
1016 
db 'TXT',0
1017 
.end:
1018 
db 0
1019 
 
1020 
 
5930 IgorA 1021 
align 4
2051 IgorA 1022 
system_dir_0 db '/sys/lib/'
1023 
lib_name_0 db 'proc_lib.obj',0
1024 
system_dir_1 db '/sys/lib/'
1025 
lib_name_1 db 'libimg.obj',0
1026 
system_dir_2 db '/sys/lib/'
1027 
lib_name_2 db 'box_lib.obj',0
5881 IgorA 1028 
system_dir_3 db '/sys/lib/'
1029 
lib_name_3 db 'buf2d.obj',0
5930 IgorA 1030 
system_dir_4 db '/sys/lib/'
1031 
lib_name_4 db 'kmenu.obj',0
6247 IgorA 1032 
system_dir_5 db '/kolibrios/lib/'
5930 IgorA 1033 
lib_name_5 db 'tinygl.obj',0
5938 IgorA 1034 
system_dir_6 db '/sys/lib/'
1035 
lib_name_6 db 'libini.obj',0
2051 IgorA 1036 
 
5930 IgorA 1037 
if lang eq ru
1038 
	head_f_i:
1039 
	head_f_l db 'Системная ошибка',0
1040 
	err_msg_found_lib_0 db 'Не найдена библиотека ',39,'proc_lib.obj',39,0
1041 
	err_msg_import_0 db 'Ошибка при импорте библиотеки ',39,'proc_lib.obj',39,0
1042 
	err_msg_found_lib_1 db 'Не найдена библиотека ',39,'libimg.obj',39,0
1043 
	err_msg_import_1 db 'Ошибка при импорте библиотеки ',39,'libimg.obj',39,0
1044 
	err_msg_found_lib_2 db 'Не найдена библиотека ',39,'box_lib.obj',39,0
1045 
	err_msg_import_2 db 'Ошибка при импорте библиотеки ',39,'box_lib',39,0
1046 
	err_msg_found_lib_3 db 'Не найдена библиотека ',39,'buf2d.obj',39,0
1047 
	err_msg_import_3 db 'Ошибка при импорте библиотеки ',39,'buf2d',39,0
1048 
	err_msg_found_lib_4 db 'Не найдена библиотека ',39,'kmenu.obj',39,0
1049 
	err_msg_import_4 db 'Ошибка при импорте библиотеки ',39,'kmenu',39,0
1050 
	err_msg_found_lib_5 db 'Не найдена библиотека ',39,'tinygl.obj',39,0
1051 
	err_msg_import_5 db 'Ошибка при импорте библиотеки ',39,'tinygl',39,0
5938 IgorA 1052 
	err_msg_found_lib_6 db 'Не найдена библиотека ',39,'libini.obj',39,0
1053 
	err_msg_import_6 db 'Ошибка при импорте библиотеки ',39,'libini',39,0
5930 IgorA 1054 
else
1055 
	head_f_i:
1056 
	head_f_l db 'System error',0
1057 
	err_msg_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,0
1058 
	err_msg_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,0
1059 
	err_msg_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,0
1060 
	err_msg_import_1 db 'Error on load import library ',39,'libimg.obj',39,0
1061 
	err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0
1062 
	err_msg_import_2 db 'Error on load import library ',39,'box_lib.obj',39,0
1063 
	err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'buf2d.obj',39,0
1064 
	err_msg_import_3 db 'Error on load import library ',39,'buf2d.obj',39,0
1065 
	err_msg_found_lib_4 db 'Sorry I cannot found library ',39,'kmenu.obj',39,0
1066 
	err_msg_import_4 db 'Error on load import library ',39,'kmenu.obj',39,0
1067 
	err_msg_found_lib_5 db 'Sorry I cannot found library ',39,'tinygl.obj',39,0
1068 
	err_msg_import_5 db 'Error on load import library ',39,'tinygl',39,0
5938 IgorA 1069 
	err_msg_found_lib_6 db 'Sorry I cannot found library ',39,'libini.obj',39,0
1070 
	err_msg_import_6 db 'Error on load import library ',39,'libini',39,0
5930 IgorA 1071 
end if
1072 
 
1073 
align 4
2051 IgorA 1074 
l_libs_start:
5881 IgorA 1075 
	lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
6245 IgorA 1076 
		err_msg_found_lib_0, head_f_l, proclib_import,err_msg_import_0,head_f_i
5881 IgorA 1077 
	lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
6245 IgorA 1078 
		err_msg_found_lib_1, head_f_l, import_libimg, err_msg_import_1,head_f_i
6237 IgorA 1079 
	lib_2 l_libs lib_name_2, sys_path, file_name,  system_dir_2,\
5930 IgorA 1080 
		err_msg_found_lib_2, head_f_l, import_box_lib,err_msg_import_2,head_f_i
6237 IgorA 1081 
	lib_3 l_libs lib_name_3, sys_path, file_name,  system_dir_3,\
5930 IgorA 1082 
		err_msg_found_lib_3, head_f_l, import_buf2d,  err_msg_import_3,head_f_i
6237 IgorA 1083 
	lib_4 l_libs lib_name_4, sys_path, file_name,  system_dir_4,\
5930 IgorA 1084 
		err_msg_found_lib_4, head_f_l, import_libkmenu,err_msg_import_4,head_f_i
6237 IgorA 1085 
	lib_5 l_libs lib_name_5, sys_path, file_name,  system_dir_5,\
6247 IgorA 1086 
		err_msg_found_lib_5, head_f_l, import_lib_tinygl,err_msg_import_5,head_f_i
6237 IgorA 1087 
	lib_6 l_libs lib_name_6, sys_path, file_name,  system_dir_6,\
5938 IgorA 1088 
		err_msg_found_lib_6, head_f_l, import_libini, err_msg_import_6,head_f_i
2051 IgorA 1089 
l_libs_end:
1090 
 
1091 
align 4
1092 
import_libimg:
1093 
	dd alib_init1
1094 
	img_is_img  dd aimg_is_img
1095 
	img_info    dd aimg_info
1096 
	img_from_file dd aimg_from_file
1097 
	img_to_file dd aimg_to_file
1098 
	img_from_rgb dd aimg_from_rgb
1099 
	img_to_rgb  dd aimg_to_rgb
1100 
	img_to_rgb2 dd aimg_to_rgb2
1101 
	img_decode  dd aimg_decode
1102 
	img_encode  dd aimg_encode
1103 
	img_create  dd aimg_create
1104 
	img_destroy dd aimg_destroy
1105 
	img_destroy_layer dd aimg_destroy_layer
1106 
	img_count   dd aimg_count
1107 
	img_lock_bits dd aimg_lock_bits
1108 
	img_unlock_bits dd aimg_unlock_bits
1109 
	img_flip    dd aimg_flip
1110 
	img_flip_layer dd aimg_flip_layer
1111 
	img_rotate  dd aimg_rotate
1112 
	img_rotate_layer dd aimg_rotate_layer
1113 
	img_draw    dd aimg_draw
1114 
 
1115 
	dd 0,0
1116 
	alib_init1   db 'lib_init',0
1117 
	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
1118 
	aimg_info    db 'img_info',0
1119 
	aimg_from_file db 'img_from_file',0
1120 
	aimg_to_file db 'img_to_file',0
1121 
	aimg_from_rgb db 'img_from_rgb',0
1122 
	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
1123 
	aimg_to_rgb2 db 'img_to_rgb2',0
1124 
	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
1125 
	aimg_encode  db 'img_encode',0
1126 
	aimg_create  db 'img_create',0
1127 
	aimg_destroy db 'img_destroy',0
1128 
	aimg_destroy_layer db 'img_destroy_layer',0
1129 
	aimg_count   db 'img_count',0
1130 
	aimg_lock_bits db 'img_lock_bits',0
1131 
	aimg_unlock_bits db 'img_unlock_bits',0
1132 
	aimg_flip    db 'img_flip',0
1133 
	aimg_flip_layer db 'img_flip_layer',0
1134 
	aimg_rotate  db 'img_rotate',0
1135 
	aimg_rotate_layer db 'img_rotate_layer',0
1136 
	aimg_draw    db 'img_draw',0
1137 
 
1138 
align 4
1139 
proclib_import: ;описание экспортируемых функций
1140 
	OpenDialog_Init dd aOpenDialog_Init
1141 
	OpenDialog_Start dd aOpenDialog_Start
1142 
dd 0,0
1143 
	aOpenDialog_Init db 'OpenDialog_init',0
1144 
	aOpenDialog_Start db 'OpenDialog_start',0
1145 
 
1146 
align 4
1147 
import_buf2d:
1148 
	dd sz_init0
1149 
	buf2d_create dd sz_buf2d_create
1150 
	buf2d_create_f_img dd sz_buf2d_create_f_img
1151 
	buf2d_clear dd sz_buf2d_clear
1152 
	buf2d_draw dd sz_buf2d_draw
1153 
	buf2d_delete dd sz_buf2d_delete
2136 IgorA 1154 
	buf2d_resize dd sz_buf2d_resize
2051 IgorA 1155 
	buf2d_line dd sz_buf2d_line
1156 
	buf2d_rect_by_size dd sz_buf2d_rect_by_size
1157 
	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
1158 
	buf2d_circle dd sz_buf2d_circle
1159 
	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
1160 
	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
1161 
	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
1162 
	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
1163 
	buf2d_bit_blt dd sz_buf2d_bit_blt
1164 
	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
1165 
	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
1166 
	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
1167 
	buf2d_draw_text dd sz_buf2d_draw_text
1168 
	buf2d_crop_color dd sz_buf2d_crop_color
1169 
	buf2d_offset_h dd sz_buf2d_offset_h
1170 
	buf2d_set_pixel dd sz_buf2d_set_pixel
1171 
	dd 0,0
1172 
	sz_init0 db 'lib_init',0
1173 
	sz_buf2d_create db 'buf2d_create',0
1174 
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
1175 
	sz_buf2d_clear db 'buf2d_clear',0
1176 
	sz_buf2d_draw db 'buf2d_draw',0
1177 
	sz_buf2d_delete db 'buf2d_delete',0
2136 IgorA 1178 
	sz_buf2d_resize db 'buf2d_resize',0
2051 IgorA 1179 
	sz_buf2d_line db 'buf2d_line',0
1180 
	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
1181 
	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
1182 
	sz_buf2d_circle db 'buf2d_circle',0
1183 
	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
1184 
	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
1185 
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
1186 
	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
1187 
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
1188 
	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
1189 
	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
1190 
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
1191 
	sz_buf2d_draw_text db 'buf2d_draw_text',0
1192 
	sz_buf2d_crop_color db 'buf2d_crop_color',0
1193 
	sz_buf2d_offset_h db 'buf2d_offset_h',0
1194 
	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
1195 
 
1196 
align 4
1197 
import_box_lib:
1198 
	dd sz_init1
1199 
	edit_box_draw dd sz_edit_box_draw
1200 
	edit_box_key dd sz_edit_box_key
1201 
	edit_box_mouse dd sz_edit_box_mouse
1202 
	edit_box_set_text dd sz_edit_box_set_text
1203 
	scrollbar_ver_draw dd sz_scrollbar_ver_draw
1204 
	scrollbar_hor_draw dd sz_scrollbar_hor_draw
1205 
 
1206 
	tl_data_init dd sz_tl_data_init
1207 
	tl_data_clear dd sz_tl_data_clear
1208 
	tl_info_clear dd sz_tl_info_clear
1209 
	tl_key dd sz_tl_key
1210 
	tl_mouse dd sz_tl_mouse
1211 
	tl_draw dd sz_tl_draw
1212 
	tl_info_undo dd sz_tl_info_undo
1213 
	tl_info_redo dd sz_tl_info_redo
1214 
	tl_node_add dd sz_tl_node_add
1215 
	tl_node_set_data dd sz_tl_node_set_data
1216 
	tl_node_get_data dd sz_tl_node_get_data
1217 
	tl_node_delete dd sz_tl_node_delete
1218 
	tl_node_move_up dd sz_tl_node_move_up
1219 
	tl_node_move_down dd sz_tl_node_move_down
1220 
	tl_cur_beg dd sz_tl_cur_beg
1221 
	tl_cur_next dd sz_tl_cur_next
1222 
	tl_cur_perv dd sz_tl_cur_perv
1223 
	tl_node_close_open dd sz_tl_node_close_open
1224 
	tl_node_lev_inc dd sz_tl_node_lev_inc
1225 
	tl_node_lev_dec dd sz_tl_node_lev_dec
1226 
	tl_node_poi_get_info dd sz_tl_node_poi_get_info
1227 
	tl_node_poi_get_next_info dd sz_tl_node_poi_get_next_info
1228 
	tl_node_poi_get_data dd sz_tl_node_poi_get_data
1229 
 
1230 
	dd 0,0
1231 
	sz_init1 db 'lib_init',0
1232 
	sz_edit_box_draw db 'edit_box',0
1233 
	sz_edit_box_key db 'edit_box_key',0
1234 
	sz_edit_box_mouse db 'edit_box_mouse',0
1235 
	sz_edit_box_set_text db 'edit_box_set_text',0
1236 
	sz_scrollbar_ver_draw db 'scrollbar_v_draw',0
1237 
	sz_scrollbar_hor_draw db 'scrollbar_h_draw',0
1238 
 
1239 
	sz_tl_data_init db 'tl_data_init',0
1240 
	sz_tl_data_clear db 'tl_data_clear',0
1241 
	sz_tl_info_clear db 'tl_info_clear',0
1242 
	sz_tl_key db 'tl_key',0
1243 
	sz_tl_mouse db 'tl_mouse',0
1244 
	sz_tl_draw db 'tl_draw',0
1245 
	sz_tl_info_undo db 'tl_info_undo',0
1246 
	sz_tl_info_redo db 'tl_info_redo',0
1247 
	sz_tl_node_add db 'tl_node_add',0
1248 
	sz_tl_node_set_data db 'tl_node_set_data',0
1249 
	sz_tl_node_get_data db 'tl_node_get_data',0
1250 
	sz_tl_node_delete db 'tl_node_delete',0
1251 
	sz_tl_node_move_up db 'tl_node_move_up',0
1252 
	sz_tl_node_move_down db 'tl_node_move_down',0
1253 
	sz_tl_cur_beg db 'tl_cur_beg',0
1254 
	sz_tl_cur_next db 'tl_cur_next',0
1255 
	sz_tl_cur_perv db 'tl_cur_perv',0
1256 
	sz_tl_node_close_open db 'tl_node_close_open',0
1257 
	sz_tl_node_lev_inc db 'tl_node_lev_inc',0
1258 
	sz_tl_node_lev_dec db 'tl_node_lev_dec',0
1259 
	sz_tl_node_poi_get_info db 'tl_node_poi_get_info',0
1260 
	sz_tl_node_poi_get_next_info db 'tl_node_poi_get_next_info',0
1261 
	sz_tl_node_poi_get_data db 'tl_node_poi_get_data',0
1262 
 
5930 IgorA 1263 
align 4
1264 
import_libkmenu:
1265 
	kmenu_init		       dd akmenu_init
1266 
	kmainmenu_draw		       dd akmainmenu_draw
1267 
	kmainmenu_dispatch_cursorevent dd akmainmenu_dispatch_cursorevent
1268 
	ksubmenu_new		       dd aksubmenu_new
1269 
	ksubmenu_delete 	       dd aksubmenu_delete
1270 
	ksubmenu_draw		       dd aksubmenu_draw
1271 
	ksubmenu_add		       dd aksubmenu_add
1272 
	kmenuitem_new		       dd akmenuitem_new
1273 
	kmenuitem_delete	       dd akmenuitem_delete
1274 
	kmenuitem_draw		       dd akmenuitem_draw
1275 
dd 0,0
1276 
	akmenu_init			db 'kmenu_init',0
1277 
	akmainmenu_draw 		db 'kmainmenu_draw',0
1278 
	akmainmenu_dispatch_cursorevent db 'kmainmenu_dispatch_cursorevent',0
1279 
	aksubmenu_new			db 'ksubmenu_new',0
1280 
	aksubmenu_delete		db 'ksubmenu_delete',0
1281 
	aksubmenu_draw			db 'ksubmenu_draw',0
1282 
	aksubmenu_add			db 'ksubmenu_add',0
1283 
	akmenuitem_new			db 'kmenuitem_new',0
1284 
	akmenuitem_delete		db 'kmenuitem_delete',0
1285 
	akmenuitem_draw 		db 'kmenuitem_draw',0
2051 IgorA 1286 
 
5911 IgorA 1287 
align 4
5930 IgorA 1288 
import_lib_tinygl:
1289 
macro E_LIB n
1290 
{
1291 
	n dd sz_#n
1292 
}
1293 
include '../../develop/libraries/TinyGL/asm_fork/export.inc'
1294 
	dd 0,0
1295 
macro E_LIB n
1296 
{
1297 
	sz_#n db `n,0
1298 
}
1299 
include '../../develop/libraries/TinyGL/asm_fork/export.inc'
1300 
 
1301 
align 4
5938 IgorA 1302 
import_libini:
1303 
	dd alib_init0
1304 
	ini_get_str   dd aini_get_str
1305 
	ini_get_int   dd aini_get_int
1306 
	ini_get_color dd aini_get_color
1307 
dd 0,0
1308 
	alib_init0     db 'lib_init',0
1309 
	aini_get_str   db 'ini_get_str',0
1310 
	aini_get_int   db 'ini_get_int',0
1311 
	aini_get_color db 'ini_get_color',0
1312 
 
1313 
align 4
6046 IgorA 1314 
mouse_dd dd 0
2051 IgorA 1315 
last_time dd 0
1316 
 
1317 
align 4
1318 
buf_0: dd 0 ;указатель на буфер изображения
2136 IgorA 1319 
.l: dw 205 ;+4 left
2173 IgorA 1320 
.t: dw 35 ;+6 top
2051 IgorA 1321 
.w: dd 340 ;+8 w
5930 IgorA 1322 
.h: dd main_wnd_height-65 ;+12 h
2051 IgorA 1323 
.color: dd 0xffffd0 ;+16 color
1324 
	db 24 ;+20 bit in pixel
1325 
 
1326 
align 4
5944 IgorA 1327 
buf_ogl:
1328 
	dd 0 ;указатель на буфер изображения
1329 
	dw 3d_wnd_l,3d_wnd_t ;+4 left,top
1330 
	dd 3d_wnd_w,3d_wnd_h ;+8 w,h
1331 
	dd 0,24 ;+16 color,bit in pixel
1332 
 
1333 
align 4
2051 IgorA 1334 
buf_1:
1335 
	dd 0 ;указатель на буфер изображения
6237 IgorA 1336 
	dw 0,0 ;+4 left,top
5930 IgorA 1337 
	dd 128,144 ;+8 w,h
1338 
	dd 0,24 ;+16 color,bit in pixel
2051 IgorA 1339 
 
5911 IgorA 1340 
align 4
2051 IgorA 1341 
el_focus dd tree1
4332 IgorA 1342 
tree1 tree_list size_one_list,300+2, tl_key_no_edit+tl_draw_par_line,\
6060 IgorA 1343 
	16,16, 0xffffff,0xb0d0ff,0x400040, 5,35,195-16,250, 16,list_offs_text,0,\
1344 
	el_focus,w_scr_t1,0
2051 IgorA 1345 
 
1346 
align 4
5930 IgorA 1347 
w_scr_t1 scrollbar 16,0, 3,0, 15, 100, 0,0, 0,0,0, 1
2051 IgorA 1348 
 
5930 IgorA 1349 
align 4
1350 
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
1351 
;sizeof.TinyGLContext = 28
1352 
 
1353 
qObj dd 0
1354 
 
5935 IgorA 1355 
light_position dd 0.0, 0.0, -2.0, 1.0 ; Расположение источника [0][1][2]
5930 IgorA 1356 
	;[3] = (0.0 - бесконечно удаленный источник, 1.0 - источник света на определенном расстоянии)
1357 
light_dir dd 0.0,0.0,0.0 ;направление лампы
1358 
 
1359 
mat_specular dd 0.3, 0.3, 0.3, 1.0 ; Цвет блика
1360 
mat_shininess dd 3.0 ; Размер блика (обратная пропорция)
1361 
white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность освещения, генерируемого источником
1362 
lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; Параметры фонового освещения
1363 
 
5938 IgorA 1364 
if lang eq ru
6245 IgorA 1365 
capt db 'info 3ds версия 18.02.16',0 ;подпись окна
5938 IgorA 1366 
else
6245 IgorA 1367 
capt db 'info 3ds version 18.02.16',0 ;window caption
5938 IgorA 1368 
end if
1369 
 
5911 IgorA 1370 
align 16
2051 IgorA 1371 
i_end:
5911 IgorA 1372 
	procinfo process_information
5938 IgorA 1373 
	run_file_70 FileInfoBlock
5935 IgorA 1374 
	sc system_colors
5938 IgorA 1375 
	angle_x rd 1 ;углы поворота сцены
1376 
	angle_y rd 1
1377 
	angle_z rd 1
1378 
	color_ox rd 1
1379 
	color_oy rd 1
1380 
	color_oz rd 1
1381 
	color_bk rd 3
1382 
	color_vert rd 1
1383 
	color_face rd 1
5944 IgorA 1384 
	color_select rd 1
6046 IgorA 1385 
	obj_poi_sel_c rd 1
1386 
	o3d obj_3d
5930 IgorA 1387 
	rb 2048
1388 
align 16
2165 IgorA 1389 
thread_coords:
5930 IgorA 1390 
	rb 2048
6237 IgorA 1391 
align 16
2051 IgorA 1392 
stacktop:
5930 IgorA 1393 
	sys_path rb 2048
6237 IgorA 1394 
	file_name rb 4096
2051 IgorA 1395 
	plugin_path rb 4096
1396 
	openfile_path rb 4096
1397 
	filename_area rb 256
1398 
mem: