Mercurial > games > semicongine
annotate semiconginev2/audio/generators.nim @ 1253:c4f98eb4bb05
fix: a few things
| author | sam <sam@basx.dev> |
|---|---|
| date | Fri, 26 Jul 2024 23:39:24 +0700 |
| parents | 27cd1c21290e |
| children |
| rev | line source |
|---|---|
| 1225 | 1 proc sinewave(f: float): proc(x: float): float = |
| 2 proc ret(x: float): float = | |
| 3 sin(x * 2 * Pi * f) | |
| 4 result = ret | |
| 5 | |
| 6 proc SineSoundData*(f: float, len: float, rate: int, amplitude = 0.5'f32): SoundData = | |
| 7 let dt = 1'f / float(rate) | |
| 8 var sine = sinewave(f) | |
| 9 for i in 0 ..< int(float(rate) * len): | |
| 10 let t = dt * float(i) | |
| 11 let value = int16(sine(t) * float(high(int16)) * amplitude) | |
| 12 result.add [value, value] |