Add(BASS_RecordStart,890969,665,238)
{
 Freq=44100
 Channels=2
 Mode=1
 Name="mainrecstream"
}
Add(InlineCode,2111790,609,238)
{
 WorkPoints=#25:doStart=Стартовое событие|25:doWork=Расчитать значения|
 EventPoints=#31:onAmpl=Выход канала светомузыки|21:onIndex=Индекс канала|
 DataPoints=#25:Name=Имя звукового потока|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|26:uses kol,Share,Debug,bass;|0:|4:type|28: THiAsmClass = class(TDebug)|11:   private |15:    h:cardinal;|22:    //_Name:^cardinal |9:   public|19:    Name:THI_Event;|25:    _data_Data:THI_Event;|21:    onAmpl:THI_Event;|22:    onIndex:THI_Event;|51:    procedure doStart(var _Data:TData; Index:word);|53:    procedure doWork(var _Data:TData; Index:word);   |4:end;|0:|14:implementation|45:  Type TFFTData  = array [0..1024] of Single;|2:  |30:procedure THiAsmClass.doStart;|24: var _Name:^cardinal;   |6: begin|26:  _Name:='mainrecstream'^;|13:  h := Name^;|7: end;  |2:  |29:procedure THiAsmClass.doWork;|23: var FFTData:TFFTData; |17:     i:integer;  |6: begin|0:|28:     _hi_onEvent(onAmpl, 1);|31:     _hi_onEvent(onIndex, 1);  |5: end;|1: |4:end.|
}