Леонид писал(а):
Gunta, вы можете перевести на Паскаль шедевры:Это обычная функция y=f(x) где
Х - (t) – это время 1/8000 секунды (8000 Гц)
Y – может принимать значение от 0 до 255 (8 бит). Поэтому при Y=t прямая превращается в пилу. При Y=-t пила направлена в обратную сторону.
Всё остальное:
Математические операторы: ( ) + - * / %
Побитовые операторы: & | ^ << >>
Условные операторы: < > <= >= == !=
Из непонятного (или нет прямых аналогов в Hiasm)
% - это (x mod y) остаток от деления
AND(&) – это битовое И
OR(|) – это битовое ИЛИ
XOR (^) - это исключающее ИЛИ
<< - это битовый сдвиг влево
>> - это битовый сдвиг вправо
Слушать это невозможно, но посмотреть на график – пожалуйста.
Add(MainForm,493884,294,196)
{
Width=1100
link(onCreate,490923:doEvent1,[])
}
Add(MathParse,11847206,553,308)
{
DataCount=1
MathStr="%1"
ResultType=0
Point(doMathStr)
link(onResult,13828687:doConvert,[])
}
Add(Plotter,12712431,826,308)
{
Width=1084
Height=261
Align=5
Name="Bytebeat"
}
Add(Replace,3578264,490,266)
{
SubStr="t"
DestStr="%1"
link(onReplace,11847206:doMathStr,[(529,272)(529,321)])
link(Str,14823762:String,[])
}
Add(PlotLines,12628120,763,308)
{
Grapher="Bytebeat"
link(ValueX,6061727:Position,[(776,299)(755,299)(755,348)(433,348)])
}
Add(For,6061727,427,308)
{
End=1000
link(onEvent,11847206:doCalc,[])
}
Add(ComboBox,14823762,483,182)
{
Left=430
Top=290
Align=2
Font=[MS Sans Serif,12,0,0,1]
Strings=#1:t|2:-t|8:t mod 4|8:t mod 2|5:t * 2|3:t*t|11:t mod 2 -t|24:(t mod 255)+(t mod 64)|0:|1:0|0:|2:0 |0:|0:|
Text="t"
Point(doSelect)
link(onClick,7368748:doEvent1,[(522,195)(522,230)(382,230)(382,265)])
}
Add(Hub,490923,350,210)
{
link(onEvent1,14823762:doSelect,[])
link(onEvent2,7368748:doEvent2,[(375,223)(375,272)])
}
Add(Hub,7368748,392,259)
{
InCount=2
OutCount=3
link(onEvent1,12628120:doClear,[(746,265)(746,321)])
link(onEvent2,3578264:doReplace,[])
link(onEvent3,6061727:doFor,[(417,279)(417,314)])
}
Add(Convertor,13828687,602,308)
{
Mode=8
link(onResult,13292992:doCopy,[])
}
Add(Convertor,3952402,700,308)
{
Mode=7
link(onResult,12628120:doAdd,[])
}
Add(Copy,13292992,651,308)
{
Count=8
Direction=1
link(onCopy,3952402:doConvert,[])
}
P.S. Исправил небольшую ошибку