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

feat: sweet dreams

Browse Source
This commit is contained in:
HiveBeats
2022-10-30 21:58:17 +04:00
parent 5b8c7aa17b
commit 8ebd6e8c8a
1 changed files with 32 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

147
SoundGen/Program.fs
View File

@@ -2,7 +2,7 @@
open System.IO open System.IO
let sampleRate = 48000. let sampleRate = 48000.
let bpm = 128. let bpm = 120.
let beatDuration = 60. / bpm let beatDuration = 60. / bpm
let pitchStandard = 440. let pitchStandard = 440.
let volume = 0.5 let volume = 0.5
@@ -52,128 +52,45 @@ let note semitone beats =
let song = let song =
[ [
// //
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.5
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25
note 0 0.25;
note 0 0.5;
note 5 0.25;
note 5 0.25;
note 5 0.25;
note 5 0.25;
note 5 0.25
note 5 0.25;
note 5 0.5;
note 3 0.25;
note 3 0.25;
note 3 0.25;
note 3 0.25;
note 3 0.25
note 3 0.25;
note 3 0.5 note 3 0.5
note (-2) 0.5
//
//
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.5
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25
note 0 0.25;
note 0 0.5;
note 5 0.25;
note 5 0.25;
note 5 0.25;
note 5 0.25;
note 5 0.25
note 5 0.25;
note 5 0.5;
note 3 0.25;
note 3 0.25;
note 3 0.25;
note 3 0.25;
note 3 0.25
note 3 0.25;
note 3 0.5 note 3 0.5
note (-2) 0.5 note 15 0.5
// note 15 0.5
//
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.5
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25
note 0 0.25;
note 0 0.5;
note 5 0.25; note 6 0.5
note 5 0.25; note 18 0.5
note 5 0.25;
note 5 0.25;
note 5 0.25
note 5 0.25;
note 5 0.5;
note 3 0.25;
note 3 0.25;
note 3 0.25;
note 3 0.25;
note 3 0.25
note 3 0.25;
note 3 0.5 note 3 0.5
note 15 0.5
note (-1) 0.5
note (-1) 0.5
note 11 0.5
note 15 0.5
note (-2) 0.5 note (-2) 0.5
note (-2) 0.5
note 10 0.5
note 15 0.5
// //
//
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.5
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25;
note 0 0.25
note 0 0.25;
note 0 0.5;
note 5 0.25;
note 5 0.25;
note 5 0.25;
note 5 0.25;
note 5 0.25
note 5 0.25;
note 5 0.5;
note 3 0.25;
note 3 0.25;
note 3 0.25;
note 3 0.25;
note 3 0.25
note 3 0.25;
note 3 0.5 note 3 0.5
note 3 0.5
note 15 0.5
note 15 0.5
note 6 0.5
note 18 0.5
note 3 0.5
note 15 0.5
note (-1) 0.5
note (-1) 0.5
note 11 0.5
note 15 0.5
note (-2) 0.5 note (-2) 0.5
note (-2) 0.5
note 10 0.5
note 15 0.5
// //
] |> Seq.concat ] |> Seq.concat