e1lama/soundgen
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

feat: saturation

Browse Source
This commit is contained in:
HiveBeats
2022-10-31 00:42:35 +04:00
parent 365797dc36
commit 2e1a5b2bf8
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SoundGen/Program.fs
View File

@@ -37,6 +37,9 @@ let getSemitonesByNote (str: string) =
(octave - defaultOctave - 1) * 12 + noteShift (octave - defaultOctave - 1) * 12 + noteShift
let saturate x =
tanh (6. * x)
let toInt16Sample sample = sample |> (*) 32767. |> int16 let toInt16Sample sample = sample |> (*) 32767. |> int16
let freq hz duration = let freq hz duration =
@@ -62,7 +65,8 @@ let freq hz duration =
x x
|> (*) (2. * System.Math.PI * hz / sampleRate) |> (*) (2. * System.Math.PI * hz / sampleRate)
|> sin |> sin
|> (*) volume) |> (*) volume
)
samples samples
let adsrLength = Seq.length output let adsrLength = Seq.length output
@@ -73,7 +77,7 @@ let freq hz duration =
let release = Seq.rev attackArray let release = Seq.rev attackArray
Seq.zip3 release attackArray output Seq.zip3 release attackArray output
|> Seq.map (fun (x, y, z) -> (x * y * z)) |> Seq.map (fun (x, y, z) -> (x * y * z) |> saturate)
let note semitone beats = let note semitone beats =