Subversion Repositories Kolibri OS

Rev

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

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