annotate semiconginev2/audio/generators.nim @ 1252:01e9f41d35b1
add:support for push constants
author |
sam <sam@basx.dev> |
date |
Fri, 26 Jul 2024 23:04:01 +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]
|