Subversion Repositories Kolibri OS

Rev

Rev 7128 | 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 
	;код при удачном открытии диалога
6081 IgorA 523 
	jmp @f
524 
.no_dlg: ;если минуем диалог открытия файла
525 
		pushad
526 
	@@:
527 
    mov [run_file_70.Function], SSF_GET_INFO
5938 IgorA 528 
    mov [run_file_70.Position], 0
529 
    mov [run_file_70.Flags], 0
530 
    mov dword[run_file_70.Count], 0
531 
    mov dword[run_file_70.Buffer], open_b
532 
    mov byte[run_file_70+20], 0
533 
    mov dword[run_file_70.FileName], openfile_path
6081 IgorA 534 
    mcall SF_FILE,run_file_70
2051 IgorA 535 
 
5938 IgorA 536 
    mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах
537 
    stdcall mem.ReAlloc,[open_file_data],ecx
538 
    mov [open_file_data],eax
539 
 
6081 IgorA 540 
    mov [run_file_70.Function], SSF_READ_FILE
5938 IgorA 541 
    mov [run_file_70.Position], 0
542 
    mov [run_file_70.Flags], 0
543 
    mov dword[run_file_70.Count], ecx
544 
    m2m dword[run_file_70.Buffer], dword[open_file_data]
545 
    mov byte[run_file_70+20], 0
546 
    mov dword[run_file_70.FileName], openfile_path
6081 IgorA 547 
    mcall SF_FILE,run_file_70 ;загружаем файл 3ds
5938 IgorA 548 
    cmp ebx,0xffffffff
549 
    je .end_open_file
550 
 
4332 IgorA 551 
	mov [open_file_size],ebx
6081 IgorA 552 
		;mcall SF_SET_CAPTION,1,openfile_path
2051 IgorA 553 
 
2173 IgorA 554 
	mov byte[can_save],0
4332 IgorA 555 
	call init_tree
556 
	stdcall [buf2d_draw], buf_0 ;обновляем буфер на экране
6046 IgorA 557 
	stdcall obj_clear_param, o3d ;чистим параметры окна с координатами
5930 IgorA 558 
	cmp byte[prop_wnd_run],0
559 
	je @f
560 
		;чистим окно с координатами
561 
		stdcall [tl_info_clear], tree3
562 
	@@:
4332 IgorA 563 
 
564 
	.end_open_file:
565 
	popad
566 
	ret
567 
 
568 
align 4
569 
init_tree:
2051 IgorA 570 
	stdcall [tl_info_clear], tree1 ;очистка списка объектов
571 
 
7610 IgorA 572 
	mov esi,[open_file_data]
573 
	stdcall convert_stl_3ds, esi,[open_file_size] ;проверяем файл формата *.stl ?
574 
	or eax,eax
575 
	jz @f
576 
		;если файл в формате *.stl
577 
		mov [open_file_size],ecx
578 
		mov esi,eax
579 
		stdcall mem.Free,[open_file_data]
580 
		mov [open_file_data],esi
581 
		mov byte[can_save],1
582 
	@@:
2051 IgorA 583 
	cmp word[esi],CHUNK_MAIN
584 
	je @f
6081 IgorA 585 
		stdcall buf_draw_beg, buf_0
2051 IgorA 586 
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_no_3ds,5,25,0xff0000 ;рисуем строку с текстом
587 
		jmp .end_open
588 
	@@:
589 
	;--- обработка открытого *.3ds файла
590 
	mov eax,file_3ds
591 
	mov dword[level_stack],0 ;обнуляем уровень стека
592 
	mov dword[offs_last_timer],0
593 
	;--- добавление главного блока в список
2080 IgorA 594 
	stdcall add_3ds_object, ID_ICON_CHUNK_MAIN,0,dword[esi+2],0
2051 IgorA 595 
	call block_children ;вход в дочерний блок
596 
 
7610 IgorA 597 
	mov edi,[file_3ds.offs]
598 
	add edi,[file_3ds.size]
2051 IgorA 599 
	.cycle_main:
600 
		cmp dword[level_stack],0
2052 IgorA 601 
		jle .end_cycle
602 
 
603 
		cmp esi,edi ;если конец файла
604 
		jge .end_cycle
2051 IgorA 605 
 
7610 IgorA 606 
		mov edx,[esi+2] ;размер блока
2051 IgorA 607 
		call block_analiz
2080 IgorA 608 
		cmp dword[bl_found],0
2051 IgorA 609 
		jne @f
610 
			;объект не известного вида
2080 IgorA 611 
			stdcall add_3ds_object, ID_ICON_CHUNK_NOT_FOUND,dword[level_stack],edx,0
2051 IgorA 612 
			call block_next
613 
			jmp .cycle_main
614 
		@@:
615 
			;объект известного вида
2080 IgorA 616 
			mov ecx,dword[bl_found]
2051 IgorA 617 
			mov bx,word[ecx+2] ;номер иконки для объекта
2080 IgorA 618 
			stdcall add_3ds_object, ebx,dword[level_stack],edx,dword[ecx+5]
2051 IgorA 619 
			cmp byte[ecx+4],1
620 
			je .bl_data
621 
				;блок содержит дочерние блоки
622 
				call block_children ;вход в дочерний блок
623 
				jmp .cycle_main
624 
			.bl_data:
625 
				;блок содержит данные
626 
				call block_analiz_data
627 
				jmp .cycle_main
628 
	.end_cycle:
629 
		stdcall [tl_cur_beg], tree1
630 
		stdcall [tl_draw], tree1
631 
	.end_open:
632 
	ret
633 
 
634 
;анализ данных блока
635 
;input:
6081 IgorA 636 
; eax - stack pointer
2051 IgorA 637 
; esi - memory pointer
2080 IgorA 638 
;output:
639 
; eax - new stack pointer
640 
; esi - new memory pointer
2051 IgorA 641 
align 4
642 
block_analiz_data:
2080 IgorA 643 
	push ebx ecx edx edi
644 
		mov dx,word[esi]
2052 IgorA 645 
		mov ecx,dword[esi+2]
646 
		sub ecx,6 ;размер данных в блоке
2051 IgorA 647 
		add esi,6
648 
		mov ebx,dword[level_stack]
649 
		inc ebx
2080 IgorA 650 
		; *** анализ блоков с разными данными и выделением подблоков
651 
		cmp dx,CHUNK_OBJBLOCK ;объект
652 
		jne @f
2136 IgorA 653 
			push ax
654 
				cld
655 
				xor al,al
656 
				mov edi,esi
657 
				repne scasb
658 
			pop ax
659 
			sub edi,esi ;edi - strlen
660 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,edi,0 ;название объекта
661 
			add esi,edi
662 
			;sub ecx,edi ;уже сделано в repne
2080 IgorA 663 
			jmp .next_bl
664 
		@@:
2125 IgorA 665 
		cmp dx,CHUNK_VERTLIST ;список вершин
666 
		je .vertexes
667 
		cmp dx,0x4111 ;флаги вершин
668 
		je .vertexes
2136 IgorA 669 
		cmp dx,CHUNK_MAPLIST ;текстурные координаты
2125 IgorA 670 
		je .vertexes
671 
		jmp @f
672 
		.vertexes: ;обработка блоков, содержащих данные вершин
2136 IgorA 673 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;число вершин
2125 IgorA 674 
			add esi,2
675 
			sub ecx,2
676 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;данные вершин
677 
			sub esi,8 ;восстановление esi
678 
			call block_next
679 
			jmp .end_f
680 
		@@:
2136 IgorA 681 
		cmp dx,CHUNK_FACELIST ;список граней
682 
		jne @f
683 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;число граней
684 
			push eax
6060 IgorA 685 
			movzx eax,word[esi]
2136 IgorA 686 
			shl eax,3
687 
			add esi,2
688 
			sub ecx,2
6046 IgorA 689 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,eax,0 ;данные граней
2136 IgorA 690 
 
691 
			sub ecx,eax
692 
			cmp ecx,1
693 
			jl .data_3 ;проверяем есть ли блок описывающий материал, применяемый к объекту
6081 IgorA 694 
if 0
2136 IgorA 695 
				add esi,eax
6081 IgorA 696 
				mov ecx,dword[esi+2]
697 
				stdcall add_3ds_object, 10,ebx,ecx,0 ;данные материала
698 
				sub esi,eax
699 
else
700 
				add esi,eax
2136 IgorA 701 
				pop eax
702 
				jmp .next_bl
6081 IgorA 703 
end if
2136 IgorA 704 
			.data_3:
705 
 
706 
			sub esi,8 ;восстановление esi
707 
			pop eax
708 
			call block_next
709 
			jmp .end_f
710 
		@@:
711 
		cmp dx,CHUNK_FACEMAT ;материалы граней
712 
		jne @f
713 
			push ax
714 
				cld
715 
				xor al,al
716 
				mov edi,esi
717 
				repne scasb
718 
			pop ax
719 
			sub edi,esi ;edi - strlen
720 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,edi,0 ;название объекта
721 
			add esi,edi
722 
			;sub ecx,edi ;уже сделано в repne
723 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;число граней
724 
			add esi,2
725 
			sub ecx,2
726 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;номера граней, к которым применен материал
727 
			sub esi,edi ;восстановление esi (1)
728 
			sub esi,8   ;восстановление esi (2)
729 
			call block_next
730 
			jmp .end_f
731 
		@@:
2080 IgorA 732 
		; *** анализ блока с данными по умолчанию (без выделения подблоков)
733 
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0
734 
			sub esi,6 ;восстановление esi
735 
			call block_next
736 
			jmp .end_f
737 
		.next_bl:
738 
		; *** настройки для анализа оставшихся подблоков
739 
			mov dword[eax],esi ;указатель на начало блока
740 
			mov ebx,dword[esi+2]
741 
			mov dword[eax+4],ebx ;размер блока
742 
			inc dword[level_stack]
743 
			add eax,8
2051 IgorA 744 
		.end_f:
2080 IgorA 745 
	pop edi edx ecx ebx
2051 IgorA 746 
	ret
747 
 
2052 IgorA 748 
;вход в 1-й дочерний блок
6060 IgorA 749 
;input:
750 
; eax - указатель на временный стек файла file_3ds
751 
; esi - начало родительского блока
2052 IgorA 752 
;output:
6060 IgorA 753 
; ebx - destroy
754 
; esi - начало данных родительского блока
2051 IgorA 755 
align 4
756 
block_children:
2052 IgorA 757 
	push ecx
758 
		;проверка правильности размеров дочернего блока
6060 IgorA 759 
		mov ebx,esi
2052 IgorA 760 
		add ebx,6 ;переход на начало дочернего блока
761 
		add ebx,dword[ebx+2] ;добавляем размер дочернего блока
6060 IgorA 762 
		mov ecx,esi
2052 IgorA 763 
		add ecx,dword[esi+2] ;добавляем размер родительского блока
764 
		cmp ebx,ecx ;учитывать заголовки не нужно, т. к. сравниваются только данные блоков
765 
		jle @f
766 
			;диагностировали ошибку файла, дочерний блок выходит за пределы родительского
767 
			mov dword[level_stack],FILE_ERROR_CHUNK_SIZE
768 
			jmp .end_f
769 
		@@:
7610 IgorA 770 
		mov [eax],esi ;указатель на начало блока
771 
		mov ebx,[esi+2]
772 
		mov [eax+4],ebx ;размер блока
2052 IgorA 773 
		add esi,6 ;переходим к данным блока
774 
		inc dword[level_stack]
775 
		add eax,8
776 
	.end_f:
777 
	pop ecx
2051 IgorA 778 
	ret
779 
 
780 
;переход к следущему блоку текущего уровня
4332 IgorA 781 
;input:
782 
; eax - адрес структуры с переменными
2051 IgorA 783 
align 4
784 
block_next:
785 
push ebx
786 
	add esi,dword[esi+2] ;пропускаем данные блока
787 
 
788 
	;проверка размеров родительского блока, для возможного выхода на верхний уровень если конец блока
2080 IgorA 789 
	@@:
2051 IgorA 790 
	mov ebx,dword[eax-8]
791 
	add ebx,dword[eax-4]
792 
	cmp esi,ebx
793 
	jl @f
794 
		dec dword[level_stack]
795 
		sub eax,8
2080 IgorA 796 
		cmp dword[level_stack],0
797 
		jg @b
2051 IgorA 798 
	@@:
799 
pop ebx
800 
	ret
801 
 
2080 IgorA 802 
;функция поиска структуры описывающей блок
2051 IgorA 803 
;input:
804 
;esi - memory pointer
805 
;output:
2080 IgorA 806 
;dword[bl_found] - pointer to chunk struct (= 0 if not found)
2051 IgorA 807 
align 4
2080 IgorA 808 
bl_found dd 0
2051 IgorA 809 
block_analiz:
810 
pushad
2080 IgorA 811 
	mov dword[bl_found],0
2051 IgorA 812 
	mov ecx,type_bloks
813 
	@@:
814 
		mov bx,word[ecx]
815 
		cmp word[esi],bx
816 
		je .found
817 
		add ecx,sizeof.block_3ds
818 
		cmp ecx,type_bloks.end
819 
		jl @b
820 
	jmp .no_found
821 
	.found:
2080 IgorA 822 
		mov dword[bl_found],ecx
2051 IgorA 823 
	.no_found:
824 
popad
825 
	ret
826 
 
827 
;input:
828 
; esi - указатель на анализируемые данные
7610 IgorA 829 
; icon - номер иконки
4332 IgorA 830 
; level - уровень вложенности узла
831 
; size_bl - размер блока
7610 IgorA 832 
; info_bl - строка с описанием блока
2051 IgorA 833 
align 4
7610 IgorA 834 
proc add_3ds_object, icon:dword, level:dword, size_bl:dword, info_bl:dword
2051 IgorA 835 
	pushad
836 
		mov bx,word[icon]
837 
		shl ebx,16
838 
		mov bx,word[level]
839 
 
840 
		mov eax,esi
5938 IgorA 841 
		sub eax,dword[open_file_data]
2051 IgorA 842 
		mov dword[buffer],eax ;смещение блока
843 
		mov ecx,dword[size_bl]
844 
		mov dword[buffer+4],ecx ;размер блока (используется в функции buf_draw_hex_table для рисования линии)
4332 IgorA 845 
		mov ecx,dword[bl_found]
7610 IgorA 846 
		or ecx,ecx
847 
		jz @f
4332 IgorA 848 
			;... здесь нужен другой алгоритм защиты от удаления
849 
			mov cl,byte[ecx+4]
850 
		@@:
851 
		mov byte[buffer+list_offs_chunk_del],cl
852 
		mov ecx,[level]
853 
		mov byte[buffer+list_offs_chunk_lev],cl
2080 IgorA 854 
		mov ecx,dword[info_bl]
4332 IgorA 855 
		mov dword[buffer+list_offs_p_data],ecx
2080 IgorA 856 
		stdcall hex_in_str, buffer+list_offs_text,dword[esi+1],2
857 
		stdcall hex_in_str, buffer+list_offs_text+2,dword[esi],2 ;код 3ds блока
7610 IgorA 858 
		or ecx,ecx
859 
		jnz @f
4332 IgorA 860 
			mov byte[buffer+list_offs_text+4],0 ;0 - символ конца строки
2080 IgorA 861 
			jmp .no_capt
862 
		@@:
863 
			mov byte[buffer+list_offs_text+4],' '
864 
			mov esi,ecx
865 
			mov edi,buffer+list_offs_text+5
866 
			mov ecx,size_one_list-(list_offs_text+5)
867 
			cld
868 
			rep movsb
5935 IgorA 869 
			mov byte[buffer+size_one_list-1],0 ;0 - символ конца строки
2080 IgorA 870 
		.no_capt:
5911 IgorA 871 
		stdcall [tl_node_add], tree1, ebx, buffer
2051 IgorA 872 
		stdcall [tl_cur_next], tree1
873 
	popad
874 
	ret
875 
endp
876 
 
5935 IgorA 877 
;input:
878 
; eax - value
5938 IgorA 879 
; buf - string buffer
5935 IgorA 880 
; len - buffer len
881 
;output:
882 
align 4
5938 IgorA 883 
proc convert_int_to_str, buf:dword, len:dword
5935 IgorA 884 
pushad
5938 IgorA 885 
	mov edi,[buf]
5935 IgorA 886 
	mov esi,[len]
887 
	add esi,edi
888 
	dec esi
889 
	call .str
890 
popad
891 
	ret
892 
endp
893 
 
894 
align 4
895 
.str:
7610 IgorA 896 
	mov ecx,10
5935 IgorA 897 
	cmp eax,ecx
898 
	jb @f
899 
		xor edx,edx
900 
		div ecx
901 
		push edx
902 
		call .str
903 
		pop eax
904 
	@@:
905 
	cmp edi,esi
906 
	jge @f
907 
		or al,0x30
908 
		stosb
909 
		mov byte[edi],0
910 
	@@:
911 
	ret
912 
 
2051 IgorA 913 
align 4
914 
but_save_file:
2173 IgorA 915 
	pushad
916 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
917 
	mov [OpenDialog_data.type],1
918 
	stdcall [OpenDialog_Start],OpenDialog_data
919 
	cmp [OpenDialog_data.status],2
920 
	je .end_save_file
921 
	;код при удачном открытии диалога
922 
 
6081 IgorA 923 
	mov [run_file_70.Function], SSF_CREATE_FILE
2173 IgorA 924 
	mov [run_file_70.Position], 0
925 
	mov [run_file_70.Flags], 0
5938 IgorA 926 
	mov ebx, dword[open_file_data]
2173 IgorA 927 
	mov [run_file_70.Buffer], ebx
928 
	mov ebx,dword[ebx+2]
929 
	mov dword[run_file_70.Count], ebx ;размер файла
930 
	mov byte[run_file_70+20], 0
931 
	mov dword[run_file_70.FileName], openfile_path
6081 IgorA 932 
	mcall SF_FILE,run_file_70
2173 IgorA 933 
	cmp ebx,0xffffffff
934 
	je .end_save_file
5935 IgorA 935 
		;...сообщение...
2173 IgorA 936 
	.end_save_file:
937 
	popad
2051 IgorA 938 
	ret
939 
 
2165 IgorA 940 
align 4
941 
but_wnd_coords:
942 
	cmp byte[prop_wnd_run],0
943 
	jne @f
944 
		pushad
6081 IgorA 945 
		mcall SF_CREATE_THREAD,1,prop_start,thread_coords
2165 IgorA 946 
		popad
947 
	@@:
948 
	ret
2051 IgorA 949 
 
4332 IgorA 950 
;description:
951 
; удаление выбранного блока из открытого файла
952 
align 4
953 
but_delete_chunk:
954 
	pushad
955 
	stdcall [tl_node_get_data],tree1
5911 IgorA 956 
	cmp eax,0
4332 IgorA 957 
	je .end_f
5911 IgorA 958 
	cmp byte[eax+list_offs_chunk_del],0 ;если блок защищен от удаления
4332 IgorA 959 
	jne .notify
2051 IgorA 960 
 
4332 IgorA 961 
	;(1) копирование нижней части файла
5911 IgorA 962 
	mov edx,dword[eax+4] ;размер блока
4332 IgorA 963 
	sub [open_file_size],edx ;изменение размеров файла
964 
	mov ecx,[open_file_size]
6081 IgorA 965 
	mov ebx,dword[eax]
5911 IgorA 966 
	sub ecx,ebx ;ecx - размер нижней сдвигаемой части файла
5938 IgorA 967 
	add ebx,dword[open_file_data] ;получаем значение сдвига в памяти
5911 IgorA 968 
	mov edi,ebx
969 
	mov esi,ebx
4332 IgorA 970 
	add esi,edx
5911 IgorA 971 
	mov bl,byte[eax+list_offs_chunk_lev] ;берем уровень текущего узла
4332 IgorA 972 
	rep movsb
973 
	mov byte[can_save],1
974 
 
975 
	;(2) изменение размеров родительских блоков
5911 IgorA 976 
	cmp bl,0
4332 IgorA 977 
	je .end_2
978 
	.cycle_2:
979 
	stdcall [tl_cur_perv], tree1
980 
	stdcall [tl_node_get_data],tree1
5911 IgorA 981 
	cmp eax,0
4332 IgorA 982 
	je .end_2
5911 IgorA 983 
		cmp byte[eax+list_offs_chunk_lev],bl
4332 IgorA 984 
		jge .cycle_2
5911 IgorA 985 
		mov bl,byte[eax+list_offs_chunk_lev]
986 
		mov ecx,[eax]
5938 IgorA 987 
		add ecx,[open_file_data]
4332 IgorA 988 
		sub dword[ecx+2],edx
5911 IgorA 989 
		cmp bl,0 ;если самый верхний узел, то bl=0
4332 IgorA 990 
		jne .cycle_2
991 
	.end_2:
992 
 
993 
	;(3) обновление списка tree1
994 
	call init_tree
995 
	call draw_window
996 
 
997 
	jmp .end_f
998 
	.notify:
999 
	notify_window_run txt_not_delete
1000 
	.end_f:
1001 
	popad
1002 
	ret
1003 
 
2051 IgorA 1004 
;данные для диалога открытия файлов
1005 
align 4
1006 
OpenDialog_data:
1007 
.type			dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию
5930 IgorA 1008 
.procinfo		dd procinfo ;+4
1009 
.com_area_name	dd communication_area_name ;+8
1010 
.com_area		dd 0 ;+12
1011 
.opendir_path	dd plugin_path ;+16
2051 IgorA 1012 
.dir_default_path	dd default_dir ;+20
1013 
.start_path		dd file_name ;+24 путь к диалогу открытия файлов
5930 IgorA 1014 
.draw_window	dd draw_window ;+28
1015 
.status 		dd 0 ;+32
1016 
.openfile_path	dd openfile_path ;+36 путь к открываемому файлу
1017 
.filename_area	dd filename_area ;+40
1018 
.filter_area	dd Filter
2051 IgorA 1019 
.x:
1020 
.x_size 		dw 420 ;+48 ; Window X size
1021 
.x_start		dw 10 ;+50 ; Window X position
1022 
.y:
1023 
.y_size 		dw 320 ;+52 ; Window y size
1024 
.y_start		dw 10 ;+54 ; Window Y position
1025 
 
1026 
default_dir db '/rd/1',0
1027 
 
1028 
communication_area_name:
1029 
	db 'FFFFFFFF_open_dialog',0
1030 
open_dialog_name:
1031 
	db 'opendial',0
1032 
communication_area_default_path:
1033 
	db '/rd/1/File managers/',0
1034 
 
1035 
Filter:
1036 
dd Filter.end - Filter.1
1037 
.1:
1038 
db '3DS',0
7610 IgorA 1039 
db 'STL',0
6889 IgorA 1040 
db 'PNG',0
2051 IgorA 1041 
.end:
1042 
db 0
1043 
 
1044 
 
5930 IgorA 1045 
align 4
2051 IgorA 1046 
system_dir_0 db '/sys/lib/'
1047 
lib_name_0 db 'proc_lib.obj',0
1048 
system_dir_1 db '/sys/lib/'
1049 
lib_name_1 db 'libimg.obj',0
1050 
system_dir_2 db '/sys/lib/'
1051 
lib_name_2 db 'box_lib.obj',0
5881 IgorA 1052 
system_dir_3 db '/sys/lib/'
1053 
lib_name_3 db 'buf2d.obj',0
5930 IgorA 1054 
system_dir_4 db '/sys/lib/'
1055 
lib_name_4 db 'kmenu.obj',0
6889 IgorA 1056 
system_dir_5 db '/sys/lib/'
5930 IgorA 1057 
lib_name_5 db 'tinygl.obj',0
5938 IgorA 1058 
system_dir_6 db '/sys/lib/'
1059 
lib_name_6 db 'libini.obj',0
2051 IgorA 1060 
 
5930 IgorA 1061 
if lang eq ru
1062 
	head_f_i:
7610 IgorA 1063 
	head_f_l db '"Системная ошибка',0
1064 
	err_msg_found_lib_0 db 'Не найдена библиотека ',39,'proc_lib.obj',39,'" -tE',0
1065 
	err_msg_import_0 db 'Ошибка при импорте библиотеки ',39,'proc_lib.obj',39,'" -tW',0
1066 
	err_msg_found_lib_1 db 'Не найдена библиотека ',39,'libimg.obj',39,'" -tE',0
1067 
	err_msg_import_1 db 'Ошибка при импорте библиотеки ',39,'libimg.obj',39,'" -tW',0
1068 
	err_msg_found_lib_2 db 'Не найдена библиотека ',39,'box_lib.obj',39,'" -tE',0
1069 
	err_msg_import_2 db 'Ошибка при импорте библиотеки ',39,'box_lib',39,'" -tW',0
1070 
	err_msg_found_lib_3 db 'Не найдена библиотека ',39,'buf2d.obj',39,'" -tE',0
1071 
	err_msg_import_3 db 'Ошибка при импорте библиотеки ',39,'buf2d',39,'" -tW',0
1072 
	err_msg_found_lib_4 db 'Не найдена библиотека ',39,'kmenu.obj',39,'" -tE',0
1073 
	err_msg_import_4 db 'Ошибка при импорте библиотеки ',39,'kmenu',39,'" -tW',0
1074 
	err_msg_found_lib_5 db 'Не найдена библиотека ',39,'tinygl.obj',39,'" -tE',0
1075 
	err_msg_import_5 db 'Ошибка при импорте библиотеки ',39,'tinygl',39,'" -tW',0
1076 
	err_msg_found_lib_6 db 'Не найдена библиотека ',39,'libini.obj',39,'" -tE',0
1077 
	err_msg_import_6 db 'Ошибка при импорте библиотеки ',39,'libini',39,'" -tW',0
5930 IgorA 1078 
else
1079 
	head_f_i:
7610 IgorA 1080 
	head_f_l db '"System error',0
1081 
	err_msg_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0
1082 
	err_msg_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tW',0
1083 
	err_msg_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
1084 
	err_msg_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tW',0
1085 
	err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'box_lib.obj',39,'" -tE',0
1086 
	err_msg_import_2 db 'Error on load import library ',39,'box_lib.obj',39,'" -tW',0
1087 
	err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0
1088 
	err_msg_import_3 db 'Error on load import library ',39,'buf2d.obj',39,'" -tW',0
1089 
	err_msg_found_lib_4 db 'Sorry I cannot found library ',39,'kmenu.obj',39,'" -tE',0
1090 
	err_msg_import_4 db 'Error on load import library ',39,'kmenu.obj',39,'" -tW',0
1091 
	err_msg_found_lib_5 db 'Sorry I cannot found library ',39,'tinygl.obj',39,'" -tE',0
1092 
	err_msg_import_5 db 'Error on load import library ',39,'tinygl',39,'" -tW',0
1093 
	err_msg_found_lib_6 db 'Sorry I cannot found library ',39,'libini.obj',39,'" -tE',0
1094 
	err_msg_import_6 db 'Error on load import library ',39,'libini',39,'" -tW',0
5930 IgorA 1095 
end if
1096 
 
1097 
align 4
2051 IgorA 1098 
l_libs_start:
5881 IgorA 1099 
	lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
6245 IgorA 1100 
		err_msg_found_lib_0, head_f_l, proclib_import,err_msg_import_0,head_f_i
5881 IgorA 1101 
	lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
6245 IgorA 1102 
		err_msg_found_lib_1, head_f_l, import_libimg, err_msg_import_1,head_f_i
6237 IgorA 1103 
	lib_2 l_libs lib_name_2, sys_path, file_name,  system_dir_2,\
5930 IgorA 1104 
		err_msg_found_lib_2, head_f_l, import_box_lib,err_msg_import_2,head_f_i
6237 IgorA 1105 
	lib_3 l_libs lib_name_3, sys_path, file_name,  system_dir_3,\
5930 IgorA 1106 
		err_msg_found_lib_3, head_f_l, import_buf2d,  err_msg_import_3,head_f_i
6237 IgorA 1107 
	lib_4 l_libs lib_name_4, sys_path, file_name,  system_dir_4,\
5930 IgorA 1108 
		err_msg_found_lib_4, head_f_l, import_libkmenu,err_msg_import_4,head_f_i
6237 IgorA 1109 
	lib_5 l_libs lib_name_5, sys_path, file_name,  system_dir_5,\
6247 IgorA 1110 
		err_msg_found_lib_5, head_f_l, import_lib_tinygl,err_msg_import_5,head_f_i
6237 IgorA 1111 
	lib_6 l_libs lib_name_6, sys_path, file_name,  system_dir_6,\
5938 IgorA 1112 
		err_msg_found_lib_6, head_f_l, import_libini, err_msg_import_6,head_f_i
2051 IgorA 1113 
l_libs_end:
1114 
 
1115 
align 4
1116 
import_libimg:
1117 
	dd alib_init1
1118 
	img_is_img  dd aimg_is_img
1119 
	img_info    dd aimg_info
1120 
	img_from_file dd aimg_from_file
1121 
	img_to_file dd aimg_to_file
1122 
	img_from_rgb dd aimg_from_rgb
1123 
	img_to_rgb  dd aimg_to_rgb
1124 
	img_to_rgb2 dd aimg_to_rgb2
1125 
	img_decode  dd aimg_decode
1126 
	img_encode  dd aimg_encode
1127 
	img_create  dd aimg_create
1128 
	img_destroy dd aimg_destroy
1129 
	img_destroy_layer dd aimg_destroy_layer
1130 
	img_count   dd aimg_count
1131 
	img_lock_bits dd aimg_lock_bits
1132 
	img_unlock_bits dd aimg_unlock_bits
1133 
	img_flip    dd aimg_flip
1134 
	img_flip_layer dd aimg_flip_layer
1135 
	img_rotate  dd aimg_rotate
1136 
	img_rotate_layer dd aimg_rotate_layer
1137 
	img_draw    dd aimg_draw
1138 
 
1139 
	dd 0,0
1140 
	alib_init1   db 'lib_init',0
1141 
	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
1142 
	aimg_info    db 'img_info',0
1143 
	aimg_from_file db 'img_from_file',0
1144 
	aimg_to_file db 'img_to_file',0
1145 
	aimg_from_rgb db 'img_from_rgb',0
1146 
	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
1147 
	aimg_to_rgb2 db 'img_to_rgb2',0
1148 
	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
1149 
	aimg_encode  db 'img_encode',0
1150 
	aimg_create  db 'img_create',0
1151 
	aimg_destroy db 'img_destroy',0
1152 
	aimg_destroy_layer db 'img_destroy_layer',0
1153 
	aimg_count   db 'img_count',0
1154 
	aimg_lock_bits db 'img_lock_bits',0
1155 
	aimg_unlock_bits db 'img_unlock_bits',0
1156 
	aimg_flip    db 'img_flip',0
1157 
	aimg_flip_layer db 'img_flip_layer',0
1158 
	aimg_rotate  db 'img_rotate',0
1159 
	aimg_rotate_layer db 'img_rotate_layer',0
1160 
	aimg_draw    db 'img_draw',0
1161 
 
1162 
align 4
1163 
proclib_import: ;описание экспортируемых функций
1164 
	OpenDialog_Init dd aOpenDialog_Init
1165 
	OpenDialog_Start dd aOpenDialog_Start
1166 
dd 0,0
1167 
	aOpenDialog_Init db 'OpenDialog_init',0
1168 
	aOpenDialog_Start db 'OpenDialog_start',0
1169 
 
1170 
align 4
1171 
import_buf2d:
1172 
	dd sz_init0
1173 
	buf2d_create dd sz_buf2d_create
1174 
	buf2d_create_f_img dd sz_buf2d_create_f_img
1175 
	buf2d_clear dd sz_buf2d_clear
1176 
	buf2d_draw dd sz_buf2d_draw
1177 
	buf2d_delete dd sz_buf2d_delete
2136 IgorA 1178 
	buf2d_resize dd sz_buf2d_resize
2051 IgorA 1179 
	buf2d_line dd sz_buf2d_line
1180 
	buf2d_rect_by_size dd sz_buf2d_rect_by_size
1181 
	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
1182 
	buf2d_circle dd sz_buf2d_circle
1183 
	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
1184 
	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
1185 
	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
1186 
	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
1187 
	buf2d_bit_blt dd sz_buf2d_bit_blt
1188 
	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
1189 
	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
1190 
	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
1191 
	buf2d_draw_text dd sz_buf2d_draw_text
1192 
	buf2d_crop_color dd sz_buf2d_crop_color
1193 
	buf2d_offset_h dd sz_buf2d_offset_h
1194 
	buf2d_set_pixel dd sz_buf2d_set_pixel
1195 
	dd 0,0
1196 
	sz_init0 db 'lib_init',0
1197 
	sz_buf2d_create db 'buf2d_create',0
1198 
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
1199 
	sz_buf2d_clear db 'buf2d_clear',0
1200 
	sz_buf2d_draw db 'buf2d_draw',0
1201 
	sz_buf2d_delete db 'buf2d_delete',0
2136 IgorA 1202 
	sz_buf2d_resize db 'buf2d_resize',0
2051 IgorA 1203 
	sz_buf2d_line db 'buf2d_line',0
1204 
	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
1205 
	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
1206 
	sz_buf2d_circle db 'buf2d_circle',0
1207 
	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
1208 
	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
1209 
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
1210 
	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
1211 
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
1212 
	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
1213 
	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
1214 
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
1215 
	sz_buf2d_draw_text db 'buf2d_draw_text',0
1216 
	sz_buf2d_crop_color db 'buf2d_crop_color',0
1217 
	sz_buf2d_offset_h db 'buf2d_offset_h',0
1218 
	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
1219 
 
1220 
align 4
1221 
import_box_lib:
1222 
	dd sz_init1
1223 
	edit_box_draw dd sz_edit_box_draw
1224 
	edit_box_key dd sz_edit_box_key
1225 
	edit_box_mouse dd sz_edit_box_mouse
1226 
	edit_box_set_text dd sz_edit_box_set_text
1227 
	scrollbar_ver_draw dd sz_scrollbar_ver_draw
1228 
	scrollbar_hor_draw dd sz_scrollbar_hor_draw
1229 
 
1230 
	tl_data_init dd sz_tl_data_init
1231 
	tl_data_clear dd sz_tl_data_clear
1232 
	tl_info_clear dd sz_tl_info_clear
1233 
	tl_key dd sz_tl_key
1234 
	tl_mouse dd sz_tl_mouse
1235 
	tl_draw dd sz_tl_draw
1236 
	tl_info_undo dd sz_tl_info_undo
1237 
	tl_info_redo dd sz_tl_info_redo
1238 
	tl_node_add dd sz_tl_node_add
1239 
	tl_node_set_data dd sz_tl_node_set_data
1240 
	tl_node_get_data dd sz_tl_node_get_data
1241 
	tl_node_delete dd sz_tl_node_delete
1242 
	tl_node_move_up dd sz_tl_node_move_up
1243 
	tl_node_move_down dd sz_tl_node_move_down
1244 
	tl_cur_beg dd sz_tl_cur_beg
1245 
	tl_cur_next dd sz_tl_cur_next
1246 
	tl_cur_perv dd sz_tl_cur_perv
1247 
	tl_node_close_open dd sz_tl_node_close_open
1248 
	tl_node_lev_inc dd sz_tl_node_lev_inc
1249 
	tl_node_lev_dec dd sz_tl_node_lev_dec
1250 
	tl_node_poi_get_info dd sz_tl_node_poi_get_info
1251 
	tl_node_poi_get_next_info dd sz_tl_node_poi_get_next_info
1252 
	tl_node_poi_get_data dd sz_tl_node_poi_get_data
1253 
 
1254 
	dd 0,0
1255 
	sz_init1 db 'lib_init',0
1256 
	sz_edit_box_draw db 'edit_box',0
1257 
	sz_edit_box_key db 'edit_box_key',0
1258 
	sz_edit_box_mouse db 'edit_box_mouse',0
1259 
	sz_edit_box_set_text db 'edit_box_set_text',0
1260 
	sz_scrollbar_ver_draw db 'scrollbar_v_draw',0
1261 
	sz_scrollbar_hor_draw db 'scrollbar_h_draw',0
1262 
 
1263 
	sz_tl_data_init db 'tl_data_init',0
1264 
	sz_tl_data_clear db 'tl_data_clear',0
1265 
	sz_tl_info_clear db 'tl_info_clear',0
1266 
	sz_tl_key db 'tl_key',0
1267 
	sz_tl_mouse db 'tl_mouse',0
1268 
	sz_tl_draw db 'tl_draw',0
1269 
	sz_tl_info_undo db 'tl_info_undo',0
1270 
	sz_tl_info_redo db 'tl_info_redo',0
1271 
	sz_tl_node_add db 'tl_node_add',0
1272 
	sz_tl_node_set_data db 'tl_node_set_data',0
1273 
	sz_tl_node_get_data db 'tl_node_get_data',0
1274 
	sz_tl_node_delete db 'tl_node_delete',0
1275 
	sz_tl_node_move_up db 'tl_node_move_up',0
1276 
	sz_tl_node_move_down db 'tl_node_move_down',0
1277 
	sz_tl_cur_beg db 'tl_cur_beg',0
1278 
	sz_tl_cur_next db 'tl_cur_next',0
1279 
	sz_tl_cur_perv db 'tl_cur_perv',0
1280 
	sz_tl_node_close_open db 'tl_node_close_open',0
1281 
	sz_tl_node_lev_inc db 'tl_node_lev_inc',0
1282 
	sz_tl_node_lev_dec db 'tl_node_lev_dec',0
1283 
	sz_tl_node_poi_get_info db 'tl_node_poi_get_info',0
1284 
	sz_tl_node_poi_get_next_info db 'tl_node_poi_get_next_info',0
1285 
	sz_tl_node_poi_get_data db 'tl_node_poi_get_data',0
1286 
 
5930 IgorA 1287 
align 4
1288 
import_libkmenu:
1289 
	kmenu_init		       dd akmenu_init
1290 
	kmainmenu_draw		       dd akmainmenu_draw
1291 
	kmainmenu_dispatch_cursorevent dd akmainmenu_dispatch_cursorevent
1292 
	ksubmenu_new		       dd aksubmenu_new
1293 
	ksubmenu_delete 	       dd aksubmenu_delete
1294 
	ksubmenu_draw		       dd aksubmenu_draw
1295 
	ksubmenu_add		       dd aksubmenu_add
1296 
	kmenuitem_new		       dd akmenuitem_new
1297 
	kmenuitem_delete	       dd akmenuitem_delete
1298 
	kmenuitem_draw		       dd akmenuitem_draw
1299 
dd 0,0
1300 
	akmenu_init			db 'kmenu_init',0
1301 
	akmainmenu_draw 		db 'kmainmenu_draw',0
1302 
	akmainmenu_dispatch_cursorevent db 'kmainmenu_dispatch_cursorevent',0
1303 
	aksubmenu_new			db 'ksubmenu_new',0
1304 
	aksubmenu_delete		db 'ksubmenu_delete',0
1305 
	aksubmenu_draw			db 'ksubmenu_draw',0
1306 
	aksubmenu_add			db 'ksubmenu_add',0
1307 
	akmenuitem_new			db 'kmenuitem_new',0
1308 
	akmenuitem_delete		db 'kmenuitem_delete',0
1309 
	akmenuitem_draw 		db 'kmenuitem_draw',0
2051 IgorA 1310 
 
5911 IgorA 1311 
align 4
5930 IgorA 1312 
import_lib_tinygl:
1313 
macro E_LIB n
1314 
{
1315 
	n dd sz_#n
1316 
}
1317 
include '../../develop/libraries/TinyGL/asm_fork/export.inc'
1318 
	dd 0,0
1319 
macro E_LIB n
1320 
{
1321 
	sz_#n db `n,0
1322 
}
1323 
include '../../develop/libraries/TinyGL/asm_fork/export.inc'
1324 
 
1325 
align 4
5938 IgorA 1326 
import_libini:
1327 
	dd alib_init0
1328 
	ini_get_str   dd aini_get_str
1329 
	ini_get_int   dd aini_get_int
1330 
	ini_get_color dd aini_get_color
1331 
dd 0,0
1332 
	alib_init0     db 'lib_init',0
1333 
	aini_get_str   db 'ini_get_str',0
1334 
	aini_get_int   db 'ini_get_int',0
1335 
	aini_get_color db 'ini_get_color',0
1336 
 
1337 
align 4
6046 IgorA 1338 
mouse_dd dd 0
2051 IgorA 1339 
last_time dd 0
1340 
 
1341 
align 4
1342 
buf_0: dd 0 ;указатель на буфер изображения
2136 IgorA 1343 
.l: dw 205 ;+4 left
2173 IgorA 1344 
.t: dw 35 ;+6 top
2051 IgorA 1345 
.w: dd 340 ;+8 w
5930 IgorA 1346 
.h: dd main_wnd_height-65 ;+12 h
2051 IgorA 1347 
.color: dd 0xffffd0 ;+16 color
1348 
	db 24 ;+20 bit in pixel
1349 
 
1350 
align 4
5944 IgorA 1351 
buf_ogl:
1352 
	dd 0 ;указатель на буфер изображения
1353 
	dw 3d_wnd_l,3d_wnd_t ;+4 left,top
6889 IgorA 1354 
.w: dd 3d_wnd_w
1355 
.h: dd 3d_wnd_h
5944 IgorA 1356 
	dd 0,24 ;+16 color,bit in pixel
1357 
 
1358 
align 4
2051 IgorA 1359 
buf_1:
1360 
	dd 0 ;указатель на буфер изображения
6237 IgorA 1361 
	dw 0,0 ;+4 left,top
5930 IgorA 1362 
	dd 128,144 ;+8 w,h
1363 
	dd 0,24 ;+16 color,bit in pixel
2051 IgorA 1364 
 
5911 IgorA 1365 
align 4
2051 IgorA 1366 
el_focus dd tree1
4332 IgorA 1367 
tree1 tree_list size_one_list,300+2, tl_key_no_edit+tl_draw_par_line,\
6060 IgorA 1368 
	16,16, 0xffffff,0xb0d0ff,0x400040, 5,35,195-16,250, 16,list_offs_text,0,\
1369 
	el_focus,w_scr_t1,0
2051 IgorA 1370 
 
1371 
align 4
5930 IgorA 1372 
w_scr_t1 scrollbar 16,0, 3,0, 15, 100, 0,0, 0,0,0, 1
2051 IgorA 1373 
 
5930 IgorA 1374 
align 4
1375 
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
1376 
;sizeof.TinyGLContext = 28
1377 
 
1378 
qObj dd 0
1379 
 
5935 IgorA 1380 
light_position dd 0.0, 0.0, -2.0, 1.0 ; Расположение источника [0][1][2]
5930 IgorA 1381 
	;[3] = (0.0 - бесконечно удаленный источник, 1.0 - источник света на определенном расстоянии)
1382 
light_dir dd 0.0,0.0,0.0 ;направление лампы
1383 
 
1384 
mat_specular dd 0.3, 0.3, 0.3, 1.0 ; Цвет блика
1385 
mat_shininess dd 3.0 ; Размер блика (обратная пропорция)
1386 
white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность освещения, генерируемого источником
1387 
lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; Параметры фонового освещения
1388 
 
5938 IgorA 1389 
if lang eq ru
7610 IgorA 1390 
capt db 'info 3ds версия 14.03.19',0 ;подпись окна
5938 IgorA 1391 
else
7610 IgorA 1392 
capt db 'info 3ds version 14.03.19',0 ;window caption
5938 IgorA 1393 
end if
1394 
 
5911 IgorA 1395 
align 16
2051 IgorA 1396 
i_end:
5911 IgorA 1397 
	procinfo process_information
5938 IgorA 1398 
	run_file_70 FileInfoBlock
5935 IgorA 1399 
	sc system_colors
5938 IgorA 1400 
	angle_x rd 1 ;углы поворота сцены
1401 
	angle_y rd 1
1402 
	angle_z rd 1
1403 
	color_ox rd 1
1404 
	color_oy rd 1
1405 
	color_oz rd 1
1406 
	color_bk rd 3
1407 
	color_vert rd 1
1408 
	color_face rd 1
5944 IgorA 1409 
	color_select rd 1
6046 IgorA 1410 
	obj_poi_sel_c rd 1
1411 
	o3d obj_3d
5930 IgorA 1412 
	rb 2048
1413 
align 16
2165 IgorA 1414 
thread_coords:
5930 IgorA 1415 
	rb 2048
6237 IgorA 1416 
align 16
2051 IgorA 1417 
stacktop:
5930 IgorA 1418 
	sys_path rb 2048
6237 IgorA 1419 
	file_name rb 4096
2051 IgorA 1420 
	plugin_path rb 4096
1421 
	openfile_path rb 4096
1422 
	filename_area rb 256
1423 
mem: