From 8ebd6e8c8a6280e771ec7af1afd82acc5b8a5547 Mon Sep 17 00:00:00 2001
From: HiveBeats <38073817+HiveBeats@users.noreply.github.com>
Date: Sun, 30 Oct 2022 21:58:17 +0400
Subject: [PATCH] feat: sweet dreams

---
 SoundGen/Program.fs | 147 ++++++++++----------------------------------
 1 file changed, 32 insertions(+), 115 deletions(-)

diff --git a/SoundGen/Program.fs b/SoundGen/Program.fs
index 1f4d004..27515a5 100644
--- a/SoundGen/Program.fs
+++ b/SoundGen/Program.fs
@@ -2,7 +2,7 @@
 open System.IO
 
 let sampleRate = 48000.
-let bpm = 128.
+let bpm = 120.
 let beatDuration = 60. / bpm
 let pitchStandard = 440.
 let volume = 0.5
@@ -52,128 +52,45 @@ let note semitone beats =
 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 (-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 (-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 15 0.5
+     note 15 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 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 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 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 10 0.5
+     note 15 0.5
      //
      ] |> Seq.concat