Info3ds - яЁюуЁрььр яЁюёьюЄЁр ёЄЁєъЄєЁ√ Їрщыют ЇюЁьрЄр *.3ds. ┬ёх Їрщы√ *.3ds ёюёЄю Є шч юяЁхфхыхээ√ї сыюъют, т ъюЄюЁ√ї эрїюфшЄё шэЇюЁьрЎш ю юс·хъЄрї ёЎхэ√. ┬ яЁюуЁрььх ёыхтр т тшфх фхЁхтр яюърчрэр ёЄЁєъЄєЁр сыюъют т Їрщых, р ёяЁртр т√сЁрээ√щ сыюъ яюърч√трхЄё т °хёЄэрфЎрЄхЁшўэюь тшфх. ─ы яЁюёьюЄЁр ¤Єшї Їрщыют т 3-ї ьхЁэюь тшфх шёяюы№чєщЄх яЁюуЁрььє View3ds.
+ +
+╨шё. 1. ┬эх°эшщ тшф яЁюуЁрьь√
+ +╩ююЁфшэрЄ√ тхЁ°шэ юс·хъЄр ьюцэю яЁюёьрЄЁштрЄ№ т тшфх фЁюсэ√ї ўшёхы. ─ы яЁюёьюЄЁр ъююЁфшэрЄ эєцэю (ёь. Ёшё. 2):
+1) тхфхышЄ№ сыюъ ё ъюфюь 4110 (т Ёєёёъющ тхЁёшш яюфяшёрэ ъръ ╤яшёюъ тхЁ°шэ),
+2) эрцрЄ№ ъэюяъє эр ярэхыш шэёЄЁєьхэЄют.
+
+╨шё. 2. ╧ЁюёьюЄЁ ъююЁфшэрЄ тхЁ°шэ юс·хъЄр
+ +IgorA
+ + + \ No newline at end of file diff --git a/programs/develop/info3ds/info3ds.asm b/programs/develop/info3ds/info3ds.asm index 71cba6ad31..a0966801ac 100644 --- a/programs/develop/info3ds/info3ds.asm +++ b/programs/develop/info3ds/info3ds.asm @@ -16,6 +16,7 @@ include '../../develop/libraries/box_lib/trunk/box_lib.mac' include 'mem.inc' include 'dll.inc' include 'lang.inc' +include 'info_fun_float.inc' debug equ 0 @@ -112,6 +113,7 @@ buffer rb size_one_list ; txt_3ds_symb db 0,0 ;-------------------------------------- +include 'info_wnd_coords.inc' align 4 start: @@ -361,6 +363,10 @@ pushad ;mov edx,5 ;int 0x40 + mov ebx,(85 shl 16)+20 + mov ecx,(5 shl 16)+20 + mov edx,6 ;окно с координатами + int 0x40 mov eax,7 mov ebx,[image_data_toolbar] @@ -407,6 +413,10 @@ button: jne @f call but_save_file @@: + cmp ah,6 + jne @f + call but_wnd_coords + @@: cmp ah,1 jne still @@ -808,6 +818,15 @@ if debug end if ret +align 4 +but_wnd_coords: + cmp byte[prop_wnd_run],0 + jne @f + pushad + mcall 51,1,prop_start,thread_coords + popad + @@: + ret ;input: @@ -1223,6 +1242,8 @@ align 4 i_end: rb 1024 +thread_coords: + rb 1024 stacktop: sys_path rb 1024 file_name: diff --git a/programs/develop/info3ds/info_fun_float.inc b/programs/develop/info3ds/info_fun_float.inc new file mode 100644 index 0000000000..94c217f405 --- /dev/null +++ b/programs/develop/info3ds/info_fun_float.inc @@ -0,0 +1,324 @@ +; +; функции для работы с числами float +; + +; Количество знаков числа после запятой (1-17) +NumberSymbolsAD DW 5 +; Константы (10 в степени N) +MConst DQ 1.0E1,1.0E2,1.0E3,1.0E4,1.0E5 + DQ 1.0E6,1.0E7,1.0E8,1.0E9,1.0E10 + DQ 1.0E11,1.0E12,1.0E13,1.0E14,1.0E15 + DQ 1.0E16,1.0E17,1.0E18,1.0E19,1.0E20 + DQ 1.0E21,1.0E22,1.0E23,1.0E24,1.0E25 + DQ 1.0E26,1.0E27,1.0E28,1.0E29,1.0E30 + DQ 1.0E31,1.0E32,1.0E33,1.0E34,1.0E35 + DQ 1.0E36,1.0E37,1.0E38,1.0E39,1.0E40 + DQ 1.0E41,1.0E42,1.0E43,1.0E44,1.0E45 + DQ 1.0E46,1.0E47,1.0E48,1.0E49,1.0E50 + DQ 1.0E51,1.0E52,1.0E53,1.0E54,1.0E55 + DQ 1.0E56,1.0E57,1.0E58,1.0E59,1.0E60 + DQ 1.0E61,1.0E62,1.0E63,1.0E64,1.0E65 + DQ 1.0E66,1.0E67,1.0E68,1.0E69,1.0E70 + DQ 1.0E71,1.0E72,1.0E73,1.0E74,1.0E75 + DQ 1.0E76,1.0E77,1.0E78,1.0E79,1.0E80 + DQ 1.0E81,1.0E82,1.0E83,1.0E84,1.0E85 + DQ 1.0E86,1.0E87,1.0E88,1.0E89,1.0E90 + DQ 1.0E91,1.0E92,1.0E93,1.0E94,1.0E95 + DQ 1.0E96,1.0E97,1.0E98,1.0E99,1.0E100 + DQ 1.0E101,1.0E102,1.0E103,1.0E104,1.0E105 + DQ 1.0E106,1.0E107,1.0E108,1.0E109,1.0E110 + DQ 1.0E111,1.0E112,1.0E113,1.0E114,1.0E115 + DQ 1.0E116,1.0E117,1.0E118,1.0E119,1.0E120 + DQ 1.0E121,1.0E122,1.0E123,1.0E124,1.0E125 + DQ 1.0E126,1.0E127,1.0E128 +; Число с плавающей запятой двойной точности +Data_Double DQ ? +; Число в BCD-формате +Data_BCD DT ? +; Вспомогательный флаг +Data_Flag DB ? +; Знак результата (если не 0 - отрицательное число) +Data_Sign DB ? + + +db 0 ;указатель на сдвиг в памяти +; Строка для хранения числа в коде ASCII +Data_String DB 32 DUP (?) + + + +;******************************************************* +;* ПРЕОБРАЗОВАНИЕ ЧИСЛА С ПЛАВАЮЩЕЙ ЗАПЯТОЙ В СТРОКУ * +;* Число имеет формат с удвоенной точностью, результат * +;* выдается в десятичном коде, в "бытовом" формате с * +;* фиксированным количеством знаков после запятой. * +;* Входные параметры: * +;* Data_Double - преобразуемое число; * +;* NumberSymbolsAD - количество знаков после * +;* запятой (0-17). * +;* Выходные параметры: * +;* Data_String - строка-результат. * +;******************************************************* +DoubleFloat_to_String: + pushad + ; Результат записывать в строку Data_String + mov EDI, Data_String + + ; Сдвигаем число влево на NumberSymbolsAD + ; десятичных разрядов + fninit ;сброс сопроцессора + fld [Data_Double] ;загрузить число + xor ebx,ebx + mov BX,[NumberSymbolsAD] + cmp BX, 0 + je .NoShifts ;нет цифр после запятой + jl .Error ;ошибка + dec BX + shl BX, 3 ;умножаем на 8 + add EBX, MConst + fmul qword [EBX] ;умножить на константу +.NoShifts: + ; Извлечь число в коде BCD + fbstp [Data_BCD] +; Проверить результат на переполнение + mov AX,word [Data_BCD + 8] + cmp AX,0FFFFh ;"десятичное" переполнение? + je .Overflow +; Выделить знак числа и записать его в ASCII-коде + mov AL, byte [Data_BCD + 9] + and AL,AL + jz .NoSign + mov AL,'-' + stosb +.NoSign: +; Распаковать число в код ASCII + mov BX,8 ;смещение последней пары цифр + mov ecx,9 ;счетчик пар цифр + ; Определить позицию десятичной точки в числе + mov DX,18 + sub DX,[NumberSymbolsAD] + js .Error ;ошибка, если отрицательная + jz .Error ;или нулевая позиция +.NextPair: + ; Загрузить очередную пару разрядов + mov AL, byte [BX + Data_BCD] + mov AH,AL + ; Выделить, перевести в ASCII и + ; сохранить старшую тетраду + shr AL,4 + add AL,'0' + stosb + dec DX + jnz .N0 + mov AL,'.' + stosb +.N0: ; Выделить, перевести в ASCII и + ; сохранить младшую тетраду + mov AL,AH + and AL,0Fh + add AL,'0' + stosb + dec DX + jnz .N1 + mov AL,'.' + stosb +.N1: + dec BX + loop .NextPair + mov AL,0 + stosb + +; Убрать незначащие нули слева + mov EDI, Data_String + mov ESI, Data_String + ; Пропустить знак числа, если он есть + cmp byte [ESI],'-' + jne .N2 + inc ESI + inc EDI +.N2: ; Загрузить в счетчик цикла количество разрядов + ; числа плюс 1 (байт десятичной точки) + mov ecx,18+1+1 + ; Пропустить незначащие нули +.N3: + cmp byte [ESI],'0' + jne .N4 + cmp byte [ESI+1],'.' + je .N4 + inc ESI + loop .N3 + ; Ошибка - нет значащих цифр + jmp .Error +; Скопировать значащую часть числа в начало строки +.N4: rep movsb + jmp .End + +; Ошибка +.Error: + mov AL,'E' + stosb + mov AL,'R' + stosb + mov AL,'R' + stosb + xor AL,AL + stosb + jmp .End +; Переполнение разрядной сетки +.Overflow: + mov AL,'#' + stosb + xor AL,AL + stosb +; Конец процедуры +.End: + popad + ret + +;**************************************************** +;* ПРЕОБРАЗОВАТЬ СТРОКУ В ЧИСЛО С ПЛАВАЮЩЕЙ ЗАПЯТОЙ * +;* (число имеет обычный, "бытовой" формат) * +;* Входные параметры: * +;* Data_String - число в коде ASCII. * +;* Выходные параметры: * +;* Data_Double - число в двоичном коде. * +;**************************************************** +String_to_DoubleFloat: + pushad + cld + ; Очищаем Data_BCD + mov dword [Data_BCD],0 + mov dword [Data_BCD+4],0 + mov word [Data_BCD+8],0 + ; Очищаем байт знака + mov [Data_Sign],0 + ; Заносим в SI указатель на строку + mov ESI, Data_String + ; Пропускаем пробелы перед числом + mov ecx,64 ;защита от зацикливания +.ShiftIgnore: + lodsb + cmp AL,' ' + jne .ShiftIgnoreEnd + loop .ShiftIgnore + jmp .Error +.ShiftIgnoreEnd: + ; Проверяем знак числа + cmp AL,'-' + jne .Positive + mov [Data_Sign],80h + lodsb +.Positive: + mov [Data_Flag],0 ;признак наличия точки + mov DX,0 ;позиция точки + mov ecx,18 ;макс. число разрядов +.ASCIItoBCDConversion: + cmp AL,'.' ;точка? + jne .NotDot + cmp [Data_Flag],0 ;точка не встречалась? + jne .Error + mov [Data_Flag],1 + lodsb + cmp AL,0 ;конец строки? + jne .NotDot + jmp .ASCIItoBCDConversionEnd +.NotDot: + ; Увеличить на 1 значение позиции точки, + ; если она еще не встречалась + cmp [Data_Flag],0 + jnz .Figures + inc DX +.Figures: + ; Символы числа должны быть цифрами + cmp AL,'0' + jb .Error + cmp AL,'9' + ja .Error + ; Пишем очередную цифру в младшую тетраду BCD + and AL,0Fh + or byte [Data_BCD],AL + ; Проверка на конец строки + cmp byte [ESI],0 + je .ASCIItoBCDConversionEnd + ; Сдвигаем BCD на 4 разряда влево + ; (сдвигаем старшие 2 байта) + mov AX,word [Data_BCD+6] + shld word [Data_BCD+8],AX,4 + ; (сдвигаем средние 4 байта) + mov EAX, dword [Data_BCD] + shld dword [Data_BCD+4],EAX,4 + ; (сдвигаем младшие 4 байта) + shl dword [Data_BCD],4 + ; Загружаем следующий символ в AL + lodsb + loop .ASCIItoBCDConversion + ; Если 19-й символ не 0 и не точка, + ; то ошибка переполнения + cmp AL,'.' + jne .NotDot2 + inc ecx + lodsb +.NotDot2: + cmp AL,0 + jne .Error ;переполнение разрядной сетки + +; ПРЕОБРАЗОВАТЬ ЧИСЛО ИЗ КОДА BCD В ВЕЩЕСТВЕННОЕ ЧИСЛО +.ASCIItoBCDConversionEnd: + ; Вписать знак в старший байт + mov AL,[Data_Sign] + mov byte [Data_BCD+9],AL + ; Сбросить регистры сопроцессора + fninit + ; Загрузить в сопроцессор число в BCD-формате + fbld [Data_BCD] + ; Вычислить номер делителя + mov EBX,18+1 + sub BX,CX + sub BX,DX + cmp EBX,0 + je .NoDiv + dec EBX + shl EBX,3 ;умножаем на 8 + add EBX, MConst + fdiv qword [EBX] ;разделить на константу +.NoDiv:; Выгрузить число в двоичном формате + fstp [Data_Double] + jmp .End + +.Error:; При любой ошибке обнулить результат + fldz ;занести ноль с стек сопроцессора + fstp [Data_Double] +.End: + popad + ret + +align 4 +proc str_cat, str1:dword, str2:dword + push eax ecx edi esi + mov esi,dword[str2] + stdcall str_len,esi + mov ecx,eax + inc ecx + mov edi,dword[str1] + stdcall str_len,edi + add edi,eax + cld + repne movsb + pop esi edi ecx eax + ret +endp + +;output: +; eax = strlen +align 4 +proc str_len, str1:dword + mov eax,[str1] + @@: + cmp byte[eax],0 + je @f + inc eax + jmp @b + @@: + sub eax,[str1] + ret +endp \ No newline at end of file diff --git a/programs/develop/info3ds/info_wnd_coords.inc b/programs/develop/info3ds/info_wnd_coords.inc new file mode 100644 index 0000000000..4aabdda1df --- /dev/null +++ b/programs/develop/info3ds/info_wnd_coords.inc @@ -0,0 +1,188 @@ +; +; в этом файле собраны функции нужные для создания и +; работы окна с координатами +; + +prop_edits_top equ 25 +prop_edits_height equ 18 +prop_wnd_width equ 350 ;ширина окна со свойствами объекта +SIZE_ONE_FLOAT equ 14 +MAX_OBJECT_SIZE equ (4+SIZE_ONE_FLOAT*3+1) + +prop_wnd_run db 0 ;переменная следящая за тем что-бы не запускать больше 1-го окна со свойствами одновременно + +txt_space: + db SIZE_ONE_FLOAT dup(' ') +.end: + db 0 + +obj_point: ;добавляемый объект + dd 0 ;указатель +.text: + rb MAX_OBJECT_SIZE + + + +;даное окно (процесс) вызываеться функцией but_wnd_coords +align 4 +prop_start: +pushad + mcall 40,0x27 ;маска ожидаемых событий + inc byte[prop_wnd_run] + + stdcall [tl_node_get_data],tree1 + pop ebx + xor edx,edx + cmp ebx,0 + je @f + mov ebx,dword[ebx] ;получаем значение сдвига выбранного блока + add ebx,dword[open_file_lif] + mov dx,word[ebx+6] ;колличество точек + @@: + + ;настройка списка объектов + mov dword[tree3.info_max_count],2 + add dword[tree3.info_max_count],edx ;ставим число узлов, равное колличеству точек (+2 на начало и конец списка) + stdcall dword[tl_data_init], tree3 + mov eax,dword[icon_tl_sys] + mov dword[tree3.data_img_sys],eax + mov eax,dword[icon_toolbar] + mov dword[tree3.data_img],eax + + cmp ebx,0 + je .no_object + cmp word[ebx],CHUNK_VERTLIST + jne .no_object ;если не тот объект + add ebx,8 + finit + .new_point: + mov dword[obj_point],ebx + mov dword[obj_point.text],0 + cld + mov ecx,3 + @@: + fld dword[ebx] + fstp qword[Data_Double] + call DoubleFloat_to_String + add ebx,4 + stdcall str_len, Data_String + mov esi,txt_space + add esi,eax + cmp esi,txt_space.end + jl .normal_size + mov esi,txt_space.end-1 ;минимум 1 пробел нужно добавить, что-бы цифры не слипались + .normal_size: + stdcall str_cat, obj_point.text,esi + stdcall str_cat, obj_point.text,Data_String + loop @b + stdcall dword[tl_node_add], obj_point, (ID_ICON_DATA shl 16), tree3 + stdcall dword[tl_cur_next], tree3 + dec edx + cmp edx,0 + jg .new_point + stdcall dword[tl_cur_beg], tree3 + .no_object: +popad + +align 4 +prop_red_win: +pushad + mcall 12,1 + + xor eax,eax + mov edi,txt_4110 ;caption + mov bx,word[procinfo.box.left] + add bx,word[buf_0.l] + shl ebx,16 + mov bx,prop_wnd_width + mov cx,word[procinfo.box.top] + shl ecx,16 + mov cx,250 + mov edx,0xffffd0 + or edx,0x33000000 + int 0x40 + + mov dword[w_scr_t3.all_redraw],1 + stdcall [scrollbar_ver_draw],dword w_scr_t3 + stdcall [tl_draw], tree3 + mcall 12,2 +popad + +;не отрывать эту функцию от предыдущей +align 4 +prop_still: + pushad + mcall 10 + + cmp al,1 ;изм. положение окна + jz prop_red_win + cmp al,2 + jne @f + call prop_key + @@: + cmp al,3 + jz prop_button + cmp al,6 + jne @f + call prop_mouse + @@: + popad + jmp prop_still + +align 4 +prop_key: +push eax + mcall 2 + stdcall [tl_key], tree3 +pop eax + ret + +align 4 +prop_mouse: + ;push ecx edi + stdcall [tl_mouse], tree3 + ;pop edi ecx + ret + +align 4 +prop_button: + mcall 17 ;получить код нажатой кнопки + + cmp ah,10 + jne @f + ;;;call but_element_change + mov ah,1 ;для закрытия окна + @@: + + cmp ah,1 + jne prop_still +.exit: + mov dword[tree3.data_img],0 ;чистим указатели на иконки что-бы их не удалил деструктор + mov dword[tree3.data_img_sys],0 ;т. к. они еще используються в других элементах + stdcall dword[tl_data_clear], tree3 + mov byte[prop_wnd_run],0 ;обнуляем счетчик окон + mcall -1 ;выход из программы + +;дерево с объектами в пользовательском файле +tree3 tree_list MAX_OBJECT_SIZE,3,\ + tl_key_no_edit+tl_list_box_mode,\ + 16,16, 0xffffff,0xb0d0ff,0xd000ff, 5,30,300,150, 16, 4,0, el_focus,\ + w_scr_t3,0 + +align 4 +w_scr_t3: +.size_x dw 16 ;+0 +rb 2+2+2 +.btn_high dd 15 ;+8 +.type dd 1 ;+12 +.max_area dd 100 ;+16 +rb 4+4 +.bckg_col dd 0xeeeeee ;+28 +.frnt_col dd 0xbbddff ;+32 +.line_col dd 0 ;+36 +rb 4+2+2 +.run_x: +rb 2+2+2+2+4+4+4+4+4+4 +.all_redraw dd 0 ;+80 +.ar_offset dd 1 ;+84 +