Subversion Repositories Kolibri OS

Rev

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

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