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