diff --git a/data/Tupfile.lua b/data/Tupfile.lua index 93aa5fbf48..3ac3e93803 100644 --- a/data/Tupfile.lua +++ b/data/Tupfile.lua @@ -147,7 +147,6 @@ extra_files = { {"HD_Load/USB_boot_old/", PROGS .. "/hd_load/usb_boot_old/usb_boot_1251.txt"}, {"kolibrios/3D/info3ds/INFO3DS.INI", PROGS .. "/develop/info3ds/info3ds.ini"}, {"kolibrios/3D/info3ds/OBJECTS.PNG", PROGS .. "/develop/info3ds/objects.png"}, - {"kolibrios/3D/info3ds/TL_SYS_16.PNG", PROGS .. "/develop/info3ds/tl_sys_16.png"}, {"kolibrios/3D/info3ds/TOOLBAR.PNG", PROGS .. "/develop/info3ds/toolbar.png"}, {"kolibrios/3D/info3ds/FONT8X9.BMP", PROGS .. "/fs/kfar/trunk/font8x9.bmp"}, {"kolibrios/3D/md2view/", "common/3d/md2view/*"}, diff --git a/programs/develop/info3ds/build_en.bat b/programs/develop/info3ds/build_en.bat index 8e5282954f..1ac1ad1e3e 100644 --- a/programs/develop/info3ds/build_en.bat +++ b/programs/develop/info3ds/build_en.bat @@ -3,11 +3,8 @@ if not exist bin mkdir bin @echo lang fix en >lang.inc @copy objects.png bin\objects.png if not exist bin\info3ds.ini @copy info3ds.ini bin\info3ds.ini -if not exist bin\tl_sys_16.png @copy tl_sys_16.png bin\tl_sys_16.png if not exist bin\toolbar.png @copy toolbar.png bin\toolbar.png if not exist bin\font8x9.bmp @copy ..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp -@fasm.exe -m 16384 ..\libraries\TinyGL\asm_fork\tinygl.asm bin\tinygl.obj -@kpack bin\tinygl.obj @fasm.exe -m 16384 info3ds.asm bin\info3ds.kex @kpack bin\info3ds.kex @fasm.exe -m 16384 info3ds_u.asm bin\info3ds_u.kex diff --git a/programs/develop/info3ds/build_ru.bat b/programs/develop/info3ds/build_ru.bat index 5590eeabff..3aef31cc0c 100644 --- a/programs/develop/info3ds/build_ru.bat +++ b/programs/develop/info3ds/build_ru.bat @@ -3,11 +3,8 @@ if not exist bin mkdir bin @echo lang fix ru >lang.inc @copy objects.png bin\objects.png if not exist bin\info3ds.ini @copy info3ds.ini bin\info3ds.ini -if not exist bin\tl_sys_16.png @copy tl_sys_16.png bin\tl_sys_16.png if not exist bin\toolbar.png @copy toolbar.png bin\toolbar.png if not exist bin\font8x9.bmp @copy ..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp -@fasm.exe -m 16384 ..\libraries\TinyGL\asm_fork\tinygl.asm bin\tinygl.obj -@kpack bin\tinygl.obj @fasm.exe -m 16384 info3ds.asm bin\info3ds.kex @kpack bin\info3ds.kex @fasm.exe -m 16384 info3ds_u.asm bin\info3ds_u.kex diff --git a/programs/develop/info3ds/convert_stl_3ds.inc b/programs/develop/info3ds/convert_stl_3ds.inc new file mode 100644 index 0000000000..f7f4fcb739 --- /dev/null +++ b/programs/develop/info3ds/convert_stl_3ds.inc @@ -0,0 +1,459 @@ +; +; Функции для преобразования файла *.stl в *.3ds +; +; Структура создаваемого файла *.3ds: +; CHUNK_MAIN (40+n+v+f) +; + CHUNK_OBJMESH (34+n+v+f) +; + CHUNK_OBJBLOCK (28+n+v+f) +; + CHUNK_TRIMESH (22+v+f) +; + CHUNK_VERTLIST (8+v) +; + CHUNK_FACELIST (8+f) +; +; в скобках указаны размеры блоков: +; n - память для имени объекта +; v - память для вершин +; f - память для граней + +; Формат бинарного *.stl: +; char[80] - заголовок +; uint32 - число граней +; для каждой грани: +; float[3] - вектор нормали +; float[9] - вершины 1,2,3 +; uint16 - атрибуты + + +if lang eq ru +txt_err_stl_open: + db '"STL',13,10 + db 'Файл *.stl очень большой." -tW',0 +txt_err_stl_null_v: + db '"STL',13,10 + db 'Вершины не найдены." -tE',0 +else +txt_err_stl_open: + db '"STL',13,10 + db 'File *.stl is very large." -tW',0 +txt_err_stl_null_v: + db '"STL',13,10 + db 'Vertexes not found." -tE',0 +end if + +;output: +; eax - указатель на сформированый файл 3ds (в случае неудачи 0) +; ecx - размер сформированого файла 3ds +align 4 +proc convert_stl_3ds uses ebx edx edi esi, f_data:dword, f_size:dword +locals + c_mem dd ? ;память для преобразования (convert memory) + c_size dd ? ;размер памяти для преобразований (convert memory size) + vert_c dd ? ;число вершин (vertex count) + face_c dd ? ;число граней (faces count) +endl + xor eax,eax + mov esi,[f_data] + cmp dword[esi],'soli' + jne .bin_stl + cmp word[esi+4],'d ' + jne .bin_stl + + jmp @f + .bin_stl: + ;проверяем файл на бинарный формат + mov ecx,[esi+80] + imul ecx,50 + add ecx,84 ;заголовок + cmp ecx,[f_size] + jne .no_stl + call convert_binary_stl + jmp .no_stl + @@: + + ;в начале найдено 'solid ' + stdcall txt_next_line, 80 + + mov eax,[f_data] + sub eax,esi + add eax,[f_size] + stdcall get_stl_vertex_count, esi,eax + or eax,eax + jnz @f + notify_window_run txt_err_stl_null_v + jmp .no_stl + @@: + cmp eax,0xffff + jle @f + notify_window_run txt_err_stl_open + mov eax,0xffff + @@: + + mov [vert_c],eax + mov ecx,3 + xor edx,edx + div ecx + mov [face_c],eax + shl eax,3 + mov ecx,[vert_c] + imul ecx,12 + lea ecx,[ecx+eax+40] + lea edx,[esi-6] + sub edx,[f_data] + cmp edx,2 + jge @f + mov edx,2 ;минимальный размер для имени объекта + @@: + add ecx,edx ;for object name + mov [c_size],ecx + stdcall mem.Alloc,ecx + mov [c_mem],eax + mov ebx,eax + + mov word[ebx],CHUNK_MAIN + mov dword[ebx+2],ecx + add ebx,6 + + ;3d3d + mov word[ebx],CHUNK_OBJMESH + sub ecx,6 + mov dword[ebx+2],ecx + add ebx,6 + + ;4000 + mov word[ebx],CHUNK_OBJBLOCK + sub ecx,6 + mov dword[ebx+2],ecx + add ebx,6 + + push ecx esi + mov ecx,edx + mov edi,ebx + mov esi,[f_data] + add esi,6 ;пропускаем 'solid ' + rep movsb ;копируем имя объекта + mov byte[edi-1],0 + add ebx,edx + pop esi ecx + + ;4100 + mov word[ebx],CHUNK_TRIMESH + sub ecx,6 + mov dword[ebx+2],ecx + add ebx,6 + + ;4110 + mov word[ebx],CHUNK_VERTLIST + mov dword[ebx+2],8 ;+ число вершин * 12 + add ebx,6 + + mov edx,ebx + mov word[edx],0 ;кол. вершин + add ebx,2 + finit + .cycle0: + call txt_ignore_space + cmp dword[esi],'face' + jne .end_v + stdcall txt_next_line, 80 + + call txt_ignore_space + cmp dword[esi],'oute' + jne .end_v + stdcall txt_next_line, 80 + + mov ecx,3 ;3 точки на 1 грань + @@: + stdcall stl_vertex_init, ebx + or eax,eax + jz .end_v + add ebx,12 + inc word[edx] + loop @b + + mov eax,[vert_c] + cmp word[edx],ax + jge .end_v + call txt_ignore_space + cmp dword[esi],'endl' + jne .end_v + stdcall txt_next_line, 80 + + call txt_ignore_space + cmp dword[esi],'endf' + jne .end_v + stdcall txt_next_line, 80 + jmp .cycle0 + .end_v: + + movzx eax,word[edx] + imul eax,12 + add [edx-4],eax ;исправляем размер блока 4110 + + ;4120 + mov word[ebx],CHUNK_FACELIST + mov ecx,[face_c] + mov edx,ecx + shl edx,3 ;кол. граней * 8 + add edx,8 + mov [ebx+2],edx + add ebx,6 + mov [ebx],cx ;кол. граней + add ebx,2 + xor eax,eax + @@: + mov [ebx],ax + inc eax + mov [ebx+2],ax + inc eax + mov [ebx+4],ax + inc eax + mov word[ebx+6],0 ;атрибуты + add ebx,8 + loop @b + + mov eax,[c_mem] + mov ecx,[c_size] + .no_stl: + ret +endp + +;input: +; esi - указатель на начало файла +; ecx - размер файла +align 4 +proc convert_binary_stl +locals + c_mem dd ? ;память для преобразования (convert memory) + c_size dd ? ;размер памяти для преобразований (convert memory size) + vert_c dd ? ;число вершин (vertex count) + face_c dd ? ;число граней (faces count) +endl + mov eax,[esi+80] + or eax,eax + jnz @f + notify_window_run txt_err_stl_null_v + jmp .no_stl + @@: + cmp eax,0xffff/3 + jle @f + notify_window_run txt_err_stl_open + mov eax,0xffff/3 + @@: + + mov [face_c],eax + mov ecx,eax + imul eax,3 + mov [vert_c],eax + shl ecx,3 + imul eax,12 + lea ecx,[ecx+eax+40+4] ;+4 размер для имени объекта + mov [c_size],ecx + stdcall mem.Alloc,ecx + mov [c_mem],eax + mov ebx,eax + + mov word[ebx],CHUNK_MAIN + mov dword[ebx+2],ecx + add ebx,6 + + ;3d3d + mov word[ebx],CHUNK_OBJMESH + sub ecx,6 + mov dword[ebx+2],ecx + add ebx,6 + + ;4000 + mov word[ebx],CHUNK_OBJBLOCK + sub ecx,6 + mov dword[ebx+2],ecx + add ebx,6 + mov dword[ebx],'Stl' ;имя объекта + add ebx,4 + + ;4100 + mov word[ebx],CHUNK_TRIMESH + sub ecx,6 + mov dword[ebx+2],ecx + add ebx,6 + + ;4110 + mov word[ebx],CHUNK_VERTLIST + mov dword[ebx+2],8 ;+ число вершин * 12 + add ebx,6 + + mov edx,ebx + mov ecx,[vert_c] + mov word[edx],cx ;кол. вершин + add ebx,2 + + add esi,80+4+12 ;пропуск заголовка, числа граней, 1-го вектора нормалей + mov edi,ebx + mov eax,[face_c] + @@: ;цикл по граням + mov ecx,9 + rep movsd ;копируем координаты 3-х вершин + add esi,14 ;пропуск вектора нормалей и атрибутов + dec eax + jnz @b + mov ebx,edi + + movzx eax,word[edx] + imul eax,12 + add [edx-4],eax ;исправляем размер блока 4110 + + ;4120 + mov word[ebx],CHUNK_FACELIST + mov ecx,[face_c] + mov edx,ecx + shl edx,3 ;кол. граней * 8 + add edx,8 + mov [ebx+2],edx + add ebx,6 + mov [ebx],cx ;кол. граней + add ebx,2 + xor eax,eax + @@: + mov [ebx],ax + inc eax + mov [ebx+2],ax + inc eax + mov [ebx+4],ax + inc eax + mov word[ebx+6],0 ;атрибуты + add ebx,8 + loop @b + + mov eax,[c_mem] + mov ecx,[c_size] + .no_stl: + ret +endp + +;output: +; eax - vertex count +align 4 +proc get_stl_vertex_count uses ebx ecx edi, f_data:dword, f_size:dword + mov al,'v' + xor ebx,ebx + mov ecx,[f_size] + mov edi,[f_data] + .cycle0: + repne scasb + cmp dword[edi],'erte' + jne @f + inc ebx + add edi,4 + sub ecx,4 + cmp ecx,4 + jg .cycle0 + @@: + mov eax,ebx + ret +endp + +;input: +; esi - input description text +; ppoi - pointer to vertex struct +;output: +; eax - 0 (if error init) or 1 +; esi - output description text +align 4 +proc stl_vertex_init uses ebx ecx edi, ppoi:dword + call txt_ignore_space + cmp dword[esi],'vert' + jne .err_init + cmp word[esi+4],'ex' + jne .err_init + add esi,6 + mov ebx,[ppoi] + + call txt_copy_data + call String_to_DoubleFloat + fld qword[Data_Double] + fstp dword[ebx] ;coord X + + call txt_copy_data + call String_to_DoubleFloat + fld qword[Data_Double] + fstp dword[ebx+4] ;coord X + + call txt_copy_data + call String_to_DoubleFloat + fld qword[Data_Double] + fstp dword[ebx+8] ;coord Z + + stdcall txt_next_line, 80 + jmp @f + .err_init: + xor eax,eax + jmp .end_f + @@: + xor eax,eax + inc eax + .end_f: + ret +endp + +;input: +; esi - указатель на начало строки с пробелами +;output: +; al - destroy +; ecx - destroy +; esi - указатель на первый непробельный символ +align 4 +txt_ignore_space: + mov ecx,64 ;защита от зацикливания + @@: + lodsb + cmp al,' ' + jne @f + loop @b + @@: + dec esi + ret + +;input: +; esi - указатель на строку с числом (пробелы в начале строки игнорируються) +;output: +; al - destroy +; ecx - destroy +; edi - destroy +; esi - указатель на конец копированного числа +; Data_String - строка с числом из esi +align 4 +txt_copy_data: + call txt_ignore_space + mov ecx,32 + mov edi,esi + @@: + lodsb + or al,al + jz @f + cmp al,' ' + je @f + cmp al,13 + je @f + loop @b + @@: + mov esi,edi + sub ecx,32 + neg ecx + mov edi,Data_String + rep movsb + mov byte[edi],0 + ret + +;input: +; esi - text pointer +align 4 +proc txt_next_line uses eax ecx edi, mlen:dword + mov al,13 + mov ecx,[mlen] + mov edi,esi + repne scasb + cmp byte[edi],10 + jne @f + inc edi + @@: + mov esi,edi + ret +endp \ No newline at end of file diff --git a/programs/develop/info3ds/data.inc b/programs/develop/info3ds/data.inc index ef7ff963e7..2beb70714d 100644 --- a/programs/develop/info3ds/data.inc +++ b/programs/develop/info3ds/data.inc @@ -291,7 +291,9 @@ end if if lang eq ru txt_open_3ds db 'Открыт файл:',0 -txt_no_3ds db 'Открытый файл не в формате *.3ds',0 +txt_no_3ds: db 'Открытый файл не в формате *.3ds ',39 + .zag: rb 8 + db 39,0 txt_3ds_err_sizes db 'Возможно файл поврежден',0 txt_count db 'Количество',0 txt_3ds_offs: @@ -300,10 +302,13 @@ txt_3ds_offs: db ' Размер: ' .siz: rb 8 db 0 +txt_mat_null db 'Материалы не найдены',0 else txt_open_3ds db 'Open file:',0 -txt_no_3ds db 'Открытый файл не в формате *.3ds',0 -txt_3ds_err_sizes db 'Возможно файл поврежден',0 +txt_no_3ds: db 'Open file not in format *.3ds ',39 + .zag: rb 8 + db 39,0 +txt_3ds_err_sizes db 'File may be corrupted',0 txt_count db 'Count',0 txt_3ds_offs: db 'Offset: ' @@ -311,4 +316,5 @@ txt_3ds_offs: db ' Size: ' .siz: rb 8 db 0 +txt_mat_null db 'No materials found',0 end if \ No newline at end of file diff --git a/programs/develop/info3ds/info3ds.asm b/programs/develop/info3ds/info3ds.asm index 46c1f0f43b..bf516b7c8d 100644 --- a/programs/develop/info3ds/info3ds.asm +++ b/programs/develop/info3ds/info3ds.asm @@ -1,5 +1,5 @@ use32 - org 0x0 + org 0 db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт dd 1, start, i_end, mem, stacktop, file_name, sys_path @@ -16,6 +16,7 @@ include 'lang.inc' include 'info_fun_float.inc' include 'info_menu.inc' include 'data.inc' +include 'convert_stl_3ds.inc' @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load @@ -70,8 +71,8 @@ start: mov edi,openfile_path @@: lodsd - cmp eax,0 - je @f ;выход, если 0 + or eax,eax + jz @f ;выход, если 0 stosd jmp @b @@: @@ -137,9 +138,9 @@ start: stdcall [ksubmenu_add], [main_menu], eax mov dword[w_scr_t1.type],1 - stdcall dword[tl_data_init], tree1 + stdcall [tl_data_init], tree1 ;системные иконки 16*16 для tree_list - load_image_file 'tl_sys_16.png', icon_tl_sys + include_image_file 'tl_sys_16.png', icon_tl_sys ;если изображение не открылось, то в icon_tl_sys будут ;не инициализированные данные, но ошибки не будет, т. к. буфер нужного размера mov eax,dword[icon_tl_sys] @@ -256,8 +257,8 @@ still: @@: sub ebx,eax mcall SF_WAIT_EVENT_TIMEOUT - cmp eax,0 - je timer_funct + or eax,eax + jz timer_funct cmp al,1 jne @f @@ -443,7 +444,7 @@ pushad int 0x40 mov dword[w_scr_t1.all_redraw],1 - stdcall [tl_draw],dword tree1 + stdcall [tl_draw], tree1 stdcall [buf2d_draw], buf_0 @@ -568,7 +569,17 @@ align 4 init_tree: stdcall [tl_info_clear], tree1 ;очистка списка объектов - mov esi,dword[open_file_data] + mov esi,[open_file_data] + stdcall convert_stl_3ds, esi,[open_file_size] ;проверяем файл формата *.stl ? + or eax,eax + jz @f + ;если файл в формате *.stl + mov [open_file_size],ecx + mov esi,eax + stdcall mem.Free,[open_file_data] + mov [open_file_data],esi + mov byte[can_save],1 + @@: cmp word[esi],CHUNK_MAIN je @f stdcall buf_draw_beg, buf_0 @@ -583,8 +594,8 @@ init_tree: stdcall add_3ds_object, ID_ICON_CHUNK_MAIN,0,dword[esi+2],0 call block_children ;вход в дочерний блок - mov edi,dword[file_3ds.offs] - add edi,dword[file_3ds.size] + mov edi,[file_3ds.offs] + add edi,[file_3ds.size] .cycle_main: cmp dword[level_stack],0 jle .end_cycle @@ -592,7 +603,7 @@ init_tree: cmp esi,edi ;если конец файла jge .end_cycle - mov edx,dword[esi+2] ;размер блока + mov edx,[esi+2] ;размер блока call block_analiz cmp dword[bl_found],0 jne @f @@ -756,9 +767,9 @@ block_children: mov dword[level_stack],FILE_ERROR_CHUNK_SIZE jmp .end_f @@: - mov dword[eax],esi ;указатель на начало блока - mov ebx,dword[esi+2] - mov dword[eax+4],ebx ;размер блока + mov [eax],esi ;указатель на начало блока + mov ebx,[esi+2] + mov [eax+4],ebx ;размер блока add esi,6 ;переходим к данным блока inc dword[level_stack] add eax,8 @@ -815,10 +826,12 @@ popad ;input: ; esi - указатель на анализируемые данные +; icon - номер иконки ; level - уровень вложенности узла ; size_bl - размер блока +; info_bl - строка с описанием блока align 4 -proc add_3ds_object, icon:dword,level:dword,size_bl:dword,info_bl:dword +proc add_3ds_object, icon:dword, level:dword, size_bl:dword, info_bl:dword pushad mov bx,word[icon] shl ebx,16 @@ -830,8 +843,8 @@ proc add_3ds_object, icon:dword,level:dword,size_bl:dword,info_bl:dword mov ecx,dword[size_bl] mov dword[buffer+4],ecx ;размер блока (используется в функции buf_draw_hex_table для рисования линии) mov ecx,dword[bl_found] - cmp ecx,0 - je @f + or ecx,ecx + jz @f ;... здесь нужен другой алгоритм защиты от удаления mov cl,byte[ecx+4] @@: @@ -842,8 +855,8 @@ proc add_3ds_object, icon:dword,level:dword,size_bl:dword,info_bl:dword mov dword[buffer+list_offs_p_data],ecx stdcall hex_in_str, buffer+list_offs_text,dword[esi+1],2 stdcall hex_in_str, buffer+list_offs_text+2,dword[esi],2 ;код 3ds блока - cmp ecx,0 - jne @f + or ecx,ecx + jnz @f mov byte[buffer+list_offs_text+4],0 ;0 - символ конца строки jmp .no_capt @@: @@ -880,7 +893,7 @@ endp align 4 .str: - mov ecx,0x0a + mov ecx,10 cmp eax,ecx jb @f xor edx,edx @@ -1023,6 +1036,7 @@ Filter: dd Filter.end - Filter.1 .1: db '3DS',0 +db 'STL',0 db 'PNG',0 .end: db 0 @@ -1046,38 +1060,38 @@ lib_name_6 db 'libini.obj',0 if lang eq ru head_f_i: - head_f_l db 'Системная ошибка',0 - err_msg_found_lib_0 db 'Не найдена библиотека ',39,'proc_lib.obj',39,0 - err_msg_import_0 db 'Ошибка при импорте библиотеки ',39,'proc_lib.obj',39,0 - err_msg_found_lib_1 db 'Не найдена библиотека ',39,'libimg.obj',39,0 - err_msg_import_1 db 'Ошибка при импорте библиотеки ',39,'libimg.obj',39,0 - err_msg_found_lib_2 db 'Не найдена библиотека ',39,'box_lib.obj',39,0 - err_msg_import_2 db 'Ошибка при импорте библиотеки ',39,'box_lib',39,0 - err_msg_found_lib_3 db 'Не найдена библиотека ',39,'buf2d.obj',39,0 - err_msg_import_3 db 'Ошибка при импорте библиотеки ',39,'buf2d',39,0 - err_msg_found_lib_4 db 'Не найдена библиотека ',39,'kmenu.obj',39,0 - err_msg_import_4 db 'Ошибка при импорте библиотеки ',39,'kmenu',39,0 - err_msg_found_lib_5 db 'Не найдена библиотека ',39,'tinygl.obj',39,0 - err_msg_import_5 db 'Ошибка при импорте библиотеки ',39,'tinygl',39,0 - err_msg_found_lib_6 db 'Не найдена библиотека ',39,'libini.obj',39,0 - err_msg_import_6 db 'Ошибка при импорте библиотеки ',39,'libini',39,0 + head_f_l db '"Системная ошибка',0 + err_msg_found_lib_0 db 'Не найдена библиотека ',39,'proc_lib.obj',39,'" -tE',0 + err_msg_import_0 db 'Ошибка при импорте библиотеки ',39,'proc_lib.obj',39,'" -tW',0 + err_msg_found_lib_1 db 'Не найдена библиотека ',39,'libimg.obj',39,'" -tE',0 + err_msg_import_1 db 'Ошибка при импорте библиотеки ',39,'libimg.obj',39,'" -tW',0 + err_msg_found_lib_2 db 'Не найдена библиотека ',39,'box_lib.obj',39,'" -tE',0 + err_msg_import_2 db 'Ошибка при импорте библиотеки ',39,'box_lib',39,'" -tW',0 + err_msg_found_lib_3 db 'Не найдена библиотека ',39,'buf2d.obj',39,'" -tE',0 + err_msg_import_3 db 'Ошибка при импорте библиотеки ',39,'buf2d',39,'" -tW',0 + err_msg_found_lib_4 db 'Не найдена библиотека ',39,'kmenu.obj',39,'" -tE',0 + err_msg_import_4 db 'Ошибка при импорте библиотеки ',39,'kmenu',39,'" -tW',0 + err_msg_found_lib_5 db 'Не найдена библиотека ',39,'tinygl.obj',39,'" -tE',0 + err_msg_import_5 db 'Ошибка при импорте библиотеки ',39,'tinygl',39,'" -tW',0 + err_msg_found_lib_6 db 'Не найдена библиотека ',39,'libini.obj',39,'" -tE',0 + err_msg_import_6 db 'Ошибка при импорте библиотеки ',39,'libini',39,'" -tW',0 else head_f_i: - head_f_l db 'System error',0 - err_msg_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,0 - err_msg_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,0 - err_msg_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,0 - err_msg_import_1 db 'Error on load import library ',39,'libimg.obj',39,0 - err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0 - err_msg_import_2 db 'Error on load import library ',39,'box_lib.obj',39,0 - err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'buf2d.obj',39,0 - err_msg_import_3 db 'Error on load import library ',39,'buf2d.obj',39,0 - err_msg_found_lib_4 db 'Sorry I cannot found library ',39,'kmenu.obj',39,0 - err_msg_import_4 db 'Error on load import library ',39,'kmenu.obj',39,0 - err_msg_found_lib_5 db 'Sorry I cannot found library ',39,'tinygl.obj',39,0 - err_msg_import_5 db 'Error on load import library ',39,'tinygl',39,0 - err_msg_found_lib_6 db 'Sorry I cannot found library ',39,'libini.obj',39,0 - err_msg_import_6 db 'Error on load import library ',39,'libini',39,0 + head_f_l db '"System error',0 + err_msg_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0 + err_msg_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tW',0 + err_msg_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0 + err_msg_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tW',0 + err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'box_lib.obj',39,'" -tE',0 + err_msg_import_2 db 'Error on load import library ',39,'box_lib.obj',39,'" -tW',0 + err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0 + err_msg_import_3 db 'Error on load import library ',39,'buf2d.obj',39,'" -tW',0 + err_msg_found_lib_4 db 'Sorry I cannot found library ',39,'kmenu.obj',39,'" -tE',0 + err_msg_import_4 db 'Error on load import library ',39,'kmenu.obj',39,'" -tW',0 + err_msg_found_lib_5 db 'Sorry I cannot found library ',39,'tinygl.obj',39,'" -tE',0 + err_msg_import_5 db 'Error on load import library ',39,'tinygl',39,'" -tW',0 + err_msg_found_lib_6 db 'Sorry I cannot found library ',39,'libini.obj',39,'" -tE',0 + err_msg_import_6 db 'Error on load import library ',39,'libini',39,'" -tW',0 end if align 4 @@ -1373,9 +1387,9 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ; lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; Параметры фонового освещения if lang eq ru -capt db 'info 3ds версия 10.12.17',0 ;подпись окна +capt db 'info 3ds версия 14.03.19',0 ;подпись окна else -capt db 'info 3ds version 10.12.17',0 ;window caption +capt db 'info 3ds version 14.03.19',0 ;window caption end if align 16 diff --git a/programs/develop/info3ds/info3ds_u.asm b/programs/develop/info3ds/info3ds_u.asm index ac3de39836..a72ba6f71c 100644 --- a/programs/develop/info3ds/info3ds_u.asm +++ b/programs/develop/info3ds/info3ds_u.asm @@ -16,6 +16,7 @@ include 'lang.inc' include 'info_fun_float.inc' include 'info_menu.inc' include 'data.inc' +include 'convert_stl_3ds.inc' 3d_wnd_l equ 205 ;отступ для tinygl буфера слева 3d_wnd_t equ 47 ;отступ для tinygl буфера сверху @@ -78,8 +79,8 @@ start: mov edi,openfile_path @@: lodsd - cmp eax,0 - je @f ;выход, если 0 + or eax,eax + jz @f ;выход, если 0 stosd jmp @b @@: @@ -130,9 +131,9 @@ start: stdcall [ksubmenu_add], [main_menu], eax mov dword[w_scr_t1.type],1 - stdcall dword[tl_data_init], tree1 + stdcall [tl_data_init], tree1 ;системные иконки 16*16 для tree_list - load_image_file 'tl_sys_16.png', icon_tl_sys + include_image_file 'tl_sys_16.png', icon_tl_sys ;если изображение не открылось, то в icon_tl_sys будут ;не инициализированные данные, но ошибки не будет, т. к. буфер нужного размера mov eax,dword[icon_tl_sys] @@ -252,8 +253,8 @@ still: @@: sub ebx,eax mcall SF_WAIT_EVENT_TIMEOUT - cmp eax,0 - je timer_funct + or eax,eax + jz timer_funct cmp al,1 jne @f @@ -284,8 +285,8 @@ mouse: jne .end_m stdcall [tl_node_get_data],tree1 - cmp eax,0 - je .end_d + or eax,eax + jz .end_d mov ebx,dword[eax] add ebx,dword[open_file_data] ;получаем значение сдвига в памяти cmp word[ebx],CHUNK_OBJBLOCK @@ -375,8 +376,8 @@ timer_funct: ;просматриваем выделенный блок данных stdcall [tl_node_get_data],tree1 - cmp eax,0 - je .end_f + or eax,eax + jz .end_f mov edi,eax add edi,list_offs_obj3d mov ebx,eax @@ -422,8 +423,8 @@ timer_funct: stdcall buf_draw_beg, buf_ogl stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_3ds_offs,5,35,0xb000 mov edx,dword[ebx+list_offs_p_data] - cmp edx,0 ;смотрим есть ли описание блока - je .no_info + or edx,edx ;смотрим есть ли описание блока + jz .no_info stdcall [buf2d_draw_text], buf_ogl, buf_1,edx,5,45,0xb000 .no_info: stdcall [buf2d_draw], buf_ogl ;обновляем буфер на экране @@ -508,8 +509,8 @@ key: fadd dword[delt_size] fstp dword[angle_x] stdcall [tl_node_get_data],tree1 - cmp eax,0 - je .end + or eax,eax + jz .end add eax,list_offs_obj3d stdcall draw_3d, eax jmp .end @@ -520,8 +521,8 @@ key: fsub dword[delt_size] fstp dword[angle_x] stdcall [tl_node_get_data],tree1 - cmp eax,0 - je .end + or eax,eax + jz .end add eax,list_offs_obj3d stdcall draw_3d, eax jmp .end @@ -532,8 +533,8 @@ key: fadd dword[delt_size] fstp dword[angle_y] stdcall [tl_node_get_data],tree1 - cmp eax,0 - je .end + or eax,eax + jz .end add eax,list_offs_obj3d stdcall draw_3d, eax jmp .end @@ -544,8 +545,8 @@ key: fsub dword[delt_size] fstp dword[angle_y] stdcall [tl_node_get_data],tree1 - cmp eax,0 - je .end + or eax,eax + jz .end add eax,list_offs_obj3d stdcall draw_3d, eax ;jmp .end @@ -627,17 +628,17 @@ button: align 4 but_new_file: push eax ebx - stdcall dword[tl_node_poi_get_info], tree1,0 + stdcall [tl_node_poi_get_info], tree1,0 @@: - cmp eax,0 - je @f + or eax,eax + jz @f mov ebx,eax stdcall [tl_node_poi_get_data], tree1,ebx add eax,list_offs_obj3d stdcall obj_clear_param, eax - stdcall dword[tl_node_poi_get_next_info], tree1,ebx - cmp eax,0 - jne @b + stdcall [tl_node_poi_get_next_info], tree1,ebx + or eax,eax + jnz @b @@: pop ebx eax stdcall [tl_info_clear], tree1 ;очистка списка объектов @@ -694,25 +695,38 @@ but_open_file: align 4 init_tree: ;чистим память занятую объектами - stdcall dword[tl_node_poi_get_info], tree1,0 + stdcall [tl_node_poi_get_info], tree1,0 @@: - cmp eax,0 - je @f + or eax,eax + jz @f mov ebx,eax stdcall [tl_node_poi_get_data], tree1,ebx - cmp eax,0 - je @f + or eax,eax + jz @f add eax,list_offs_obj3d stdcall obj_clear_param, eax - stdcall dword[tl_node_poi_get_next_info], tree1,ebx - cmp eax,0 - jne @b + stdcall [tl_node_poi_get_next_info], tree1,ebx + or eax,eax + jnz @b @@: stdcall [tl_info_clear], tree1 ;очистка списка объектов - mov esi,dword[open_file_data] + mov esi,[open_file_data] + stdcall convert_stl_3ds, esi,[open_file_size] ;проверяем файл формата *.stl ? + or eax,eax + jz @f + ;если файл в формате *.stl + mov [open_file_size],ecx + mov esi,eax + stdcall mem.Free,[open_file_data] + mov [open_file_data],esi + mov byte[can_save],1 + @@: cmp word[esi],CHUNK_MAIN je @f + mov eax,[esi] + bswap eax + stdcall hex_in_str, txt_no_3ds.zag, eax,8 stdcall buf_draw_beg, buf_ogl stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_no_3ds,5,25,0xff0000 ;рисуем строку с текстом jmp .end_open @@ -725,8 +739,8 @@ init_tree: stdcall add_3ds_object, ID_ICON_CHUNK_MAIN,0,dword[esi+2],0 call block_children ;вход в дочерний блок - mov edi,dword[file_3ds.offs] - add edi,dword[file_3ds.size] + mov edi,[file_3ds.offs] + add edi,[file_3ds.size] .cycle_main: cmp dword[level_stack],0 jle .end_cycle @@ -734,7 +748,7 @@ init_tree: cmp esi,edi ;если конец файла jge .end_cycle - mov edx,dword[esi+2] ;размер блока + mov edx,[esi+2] ;размер блока call block_analiz cmp word[esi],CHUNK_MATERIAL je @f @@ -796,8 +810,8 @@ init_tree: ; esi - new memory pointer align 4 proc block_analiz_data uses ebx ecx edx edi - mov dx,word[esi] - mov ecx,dword[esi+2] + mov dx,[esi] + mov ecx,[esi+2] sub ecx,6 ;размер данных в блоке add esi,6 mov ebx,dword[level_stack] @@ -902,20 +916,19 @@ align 4 block_children: push ecx ;проверка правильности размеров дочернего блока - mov ebx,esi - add ebx,6 ;переход на начало дочернего блока - add ebx,dword[ebx+2] ;добавляем размер дочернего блока + lea ebx,[esi+6] ;переход на начало дочернего блока + add ebx,[ebx+2] ;добавляем размер дочернего блока mov ecx,esi - add ecx,dword[esi+2] ;добавляем размер родительского блока + add ecx,[esi+2] ;добавляем размер родительского блока cmp ebx,ecx ;учитывать заголовки не нужно, т. к. сравниваются только данные блоков jle @f ;диагностировали ошибку файла, дочерний блок выходит за пределы родительского mov dword[level_stack],FILE_ERROR_CHUNK_SIZE jmp .end_f @@: - mov dword[eax],esi ;указатель на начало блока - mov ebx,dword[esi+2] - mov dword[eax+4],ebx ;размер блока + mov [eax],esi ;указатель на начало блока + mov ebx,[esi+2] + mov [eax+4],ebx ;размер блока add esi,6 ;переходим к данным блока inc dword[level_stack] add eax,8 @@ -972,10 +985,12 @@ popad ;input: ; esi - указатель на анализируемые данные +; icon - номер иконки ; level - уровень вложенности узла ; size_bl - размер блока +; info_bl - строка с описанием блока align 4 -proc add_3ds_object, icon:dword,level:dword,size_bl:dword,info_bl:dword +proc add_3ds_object, icon:dword, level:dword, size_bl:dword, info_bl:dword pushad mov bx,word[icon] shl ebx,16 @@ -987,8 +1002,8 @@ proc add_3ds_object, icon:dword,level:dword,size_bl:dword,info_bl:dword mov ecx,dword[size_bl] mov dword[buffer+4],ecx ;размер блока (используется в функции buf_draw_hex_table для рисования линии) mov ecx,dword[bl_found] - cmp ecx,0 - je @f + or ecx,ecx + jz @f ;... здесь нужен другой алгоритм защиты от удаления mov cl,byte[ecx+4] @@: @@ -999,8 +1014,8 @@ proc add_3ds_object, icon:dword,level:dword,size_bl:dword,info_bl:dword mov dword[buffer+list_offs_p_data],ecx stdcall hex_in_str, buffer+list_offs_text,dword[esi+1],2 stdcall hex_in_str, buffer+list_offs_text+2,dword[esi],2 ;код 3ds блока - cmp ecx,0 - jne @f + or ecx,ecx + jnz @f mov byte[buffer+list_offs_text+4],0 ;0 - символ конца строки jmp .no_capt @@: @@ -1042,7 +1057,7 @@ endp align 4 .str: - mov ecx,0x0a + mov ecx,10 cmp eax,ecx jb @f xor edx,edx @@ -1094,6 +1109,7 @@ Filter: dd Filter.end - Filter.1 .1: db '3DS',0 +db 'STL',0 db 'PNG',0 .end: db 0 @@ -1117,38 +1133,38 @@ lib_name_6 db 'libini.obj',0 if lang eq ru head_f_i: - head_f_l db 'Системная ошибка',0 - err_msg_found_lib_0 db 'Не найдена библиотека ',39,'proc_lib.obj',39,0 - err_msg_import_0 db 'Ошибка при импорте библиотеки ',39,'proc_lib.obj',39,0 - err_msg_found_lib_1 db 'Не найдена библиотека ',39,'libimg.obj',39,0 - err_msg_import_1 db 'Ошибка при импорте библиотеки ',39,'libimg.obj',39,0 - err_msg_found_lib_2 db 'Не найдена библиотека ',39,'box_lib.obj',39,0 - err_msg_import_2 db 'Ошибка при импорте библиотеки ',39,'box_lib',39,0 - err_msg_found_lib_3 db 'Не найдена библиотека ',39,'buf2d.obj',39,0 - err_msg_import_3 db 'Ошибка при импорте библиотеки ',39,'buf2d',39,0 - err_msg_found_lib_4 db 'Не найдена библиотека ',39,'kmenu.obj',39,0 - err_msg_import_4 db 'Ошибка при импорте библиотеки ',39,'kmenu',39,0 - err_msg_found_lib_5 db 'Не найдена библиотека ',39,'tinygl.obj',39,0 - err_msg_import_5 db 'Ошибка при импорте библиотеки ',39,'tinygl',39,0 - err_msg_found_lib_6 db 'Не найдена библиотека ',39,'libini.obj',39,0 - err_msg_import_6 db 'Ошибка при импорте библиотеки ',39,'libini',39,0 + head_f_l db '"Системная ошибка',0 + err_msg_found_lib_0 db 'Не найдена библиотека ',39,'proc_lib.obj',39,'" -tE',0 + err_msg_import_0 db 'Ошибка при импорте библиотеки ',39,'proc_lib.obj',39,'" -tW',0 + err_msg_found_lib_1 db 'Не найдена библиотека ',39,'libimg.obj',39,'" -tE',0 + err_msg_import_1 db 'Ошибка при импорте библиотеки ',39,'libimg.obj',39,'" -tW',0 + err_msg_found_lib_2 db 'Не найдена библиотека ',39,'box_lib.obj',39,'" -tE',0 + err_msg_import_2 db 'Ошибка при импорте библиотеки ',39,'box_lib',39,'" -tW',0 + err_msg_found_lib_3 db 'Не найдена библиотека ',39,'buf2d.obj',39,'" -tE',0 + err_msg_import_3 db 'Ошибка при импорте библиотеки ',39,'buf2d',39,'" -tW',0 + err_msg_found_lib_4 db 'Не найдена библиотека ',39,'kmenu.obj',39,'" -tE',0 + err_msg_import_4 db 'Ошибка при импорте библиотеки ',39,'kmenu',39,'" -tW',0 + err_msg_found_lib_5 db 'Не найдена библиотека ',39,'tinygl.obj',39,'" -tE',0 + err_msg_import_5 db 'Ошибка при импорте библиотеки ',39,'tinygl',39,'" -tW',0 + err_msg_found_lib_6 db 'Не найдена библиотека ',39,'libini.obj',39,'" -tE',0 + err_msg_import_6 db 'Ошибка при импорте библиотеки ',39,'libini',39,'" -tW',0 else head_f_i: - head_f_l db 'System error',0 - err_msg_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,0 - err_msg_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,0 - err_msg_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,0 - err_msg_import_1 db 'Error on load import library ',39,'libimg.obj',39,0 - err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0 - err_msg_import_2 db 'Error on load import library ',39,'box_lib.obj',39,0 - err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'buf2d.obj',39,0 - err_msg_import_3 db 'Error on load import library ',39,'buf2d.obj',39,0 - err_msg_found_lib_4 db 'Sorry I cannot found library ',39,'kmenu.obj',39,0 - err_msg_import_4 db 'Error on load import library ',39,'kmenu.obj',39,0 - err_msg_found_lib_5 db 'Sorry I cannot found library ',39,'tinygl.obj',39,0 - err_msg_import_5 db 'Error on load import library ',39,'tinygl',39,0 - err_msg_found_lib_6 db 'Sorry I cannot found library ',39,'libini.obj',39,0 - err_msg_import_6 db 'Error on load import library ',39,'libini',39,0 + head_f_l db '"System error',0 + err_msg_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0 + err_msg_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tW',0 + err_msg_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0 + err_msg_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tW',0 + err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'box_lib.obj',39,'" -tE',0 + err_msg_import_2 db 'Error on load import library ',39,'box_lib.obj',39,'" -tW',0 + err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0 + err_msg_import_3 db 'Error on load import library ',39,'buf2d.obj',39,'" -tW',0 + err_msg_found_lib_4 db 'Sorry I cannot found library ',39,'kmenu.obj',39,'" -tE',0 + err_msg_import_4 db 'Error on load import library ',39,'kmenu.obj',39,'" -tW',0 + err_msg_found_lib_5 db 'Sorry I cannot found library ',39,'tinygl.obj',39,'" -tE',0 + err_msg_import_5 db 'Error on load import library ',39,'tinygl',39,'" -tW',0 + err_msg_found_lib_6 db 'Sorry I cannot found library ',39,'libini.obj',39,'" -tE',0 + err_msg_import_6 db 'Error on load import library ',39,'libini',39,'" -tW',0 end if align 4 @@ -1439,9 +1455,9 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ; lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; Параметры фонового освещения if lang eq ru -capt db 'info 3ds [user] версия 18.04.17',0 ;подпись окна +capt db 'info 3ds [user] версия 14.03.19',0 ;подпись окна else -capt db 'info 3ds [user] version 18.04.17',0 ;window caption +capt db 'info 3ds [user] version 14.03.19',0 ;window caption end if align 16 diff --git a/programs/develop/info3ds/info_o3d.inc b/programs/develop/info3ds/info_o3d.inc index 300667b4d1..5ef6ef643d 100644 --- a/programs/develop/info3ds/info_o3d.inc +++ b/programs/develop/info3ds/info_o3d.inc @@ -348,7 +348,7 @@ pushad je .end finit imul eax,12 - stdcall mem.Alloc, eax + stdcall mem.Alloc,eax mov [ecx+obj_3d.normals_tri_data],eax mov edx,[ecx+obj_3d.tri_data] @@ -638,6 +638,8 @@ proc obj_init, o_data:dword ;поиск материалов граней shl edx,3 add esi,edx + cmp esi,ecx + jge .end_points ;если нет блока с материалом cmp word[esi],CHUNK_FACEMAT jne .end_points mov [edi+obj_3d.mat1_data],esi @@ -825,20 +827,26 @@ if version_edit eq 0 bt dword[draw_mode],bit_faces_mat jnc @f mov eax,[edi+obj_3d.mat1_data] + or eax,eax + jnz .b_found + stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_mat_null,5,3,[color_select] + jmp .mat_null ;если нет материала, рисуем все грани одним цветом .b_found: - cmp eax,0 - je .end_points mov ebx,eax stdcall get_mat_color, eax stdcall draw_3d_faces_color, edi,ebx,eax stdcall found_mat_faces, ebx - jmp .b_found + or eax,eax + jnz .b_found + jmp .end_points + @@: end if ;рисование граней без цветов материалов bt dword[draw_mode],bit_faces jnc .end_triangles + .mat_null: cmp dword[edi+obj_3d.tri_count],0 je .end_triangles cmp dword[edi+obj_3d.poi_count],0 @@ -935,6 +943,8 @@ align 4 @@: bt dword[draw_mode],bit_light jnc .norm0 + or edx,edx + jz .norm0 ;если нормалей нет stdcall [glNormal3fv], edx add edx,12 .norm0: @@ -977,7 +987,7 @@ if version_edit eq 1 je .end_select mov ecx,dword[obj_poi_sel_c] stdcall [glColor3ub],[color_select+2],[color_select+1],[color_select] - stdcall dword[tl_node_poi_get_info], tree3,0 + stdcall [tl_node_poi_get_info], tree3,0 align 4 @@: cmp eax,0 @@ -994,7 +1004,7 @@ align 4 dec ecx jz .end_select .next_sel: - stdcall dword[tl_node_poi_get_next_info], tree3,ebx + stdcall [tl_node_poi_get_next_info], tree3,ebx jmp @b .end_select: end if @@ -1170,6 +1180,8 @@ pop ebx eax align 4 proc found_mat_faces uses ebx, p_mat:dword mov eax,[p_mat] + or eax,eax + jz @f add eax,[eax+2] cmp word[eax],CHUNK_FACEMAT je @f