Вверх ↑
Этот топик читают: Гость
Ответов: 1309
Рейтинг: 29
#16: 2021-02-19 22:21:30 ЛС | профиль | цитата
временным решением для X64 сделал так:

Add(InlineCode,10053706,154,455)
{
@Color=5592575
WorkPoints=#3:doM|
EventPoints=#3:onM|
DataPoints=#1:x|1:y|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|17:uses Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|0:|10: private|0:|9: public|17: x,y:THI_Event;|19: onM:THI_Event;|48: procedure doM(var _Data:TData; Index:word);|0:|5: end;|0:|45: function atan2(x, y: Double): Double; cdecl;|58: external 'api-ms-win-crt-math-l1-1-0.dll' name 'atan2'; |0:|14:implementation|0:|0:|0:|0:|26:procedure THiAsmClass.doM;|0:|0:|5:begin|75:_hi_onEvent(onM, (atan2(ReadReal(_Data, x), ReadReal(_Data, y)))/(pi/180));|4:end;|0:|4:end.|
}

Редактировалось 3 раз(а), последний 2021-02-19 22:43:25
карма: 2

0
16
Сообщение
...
Прикрепленные файлы
(файлы не залиты)