From 5473d5d303b55b06438d65c4b3abd2fc0b0f86fc Mon Sep 17 00:00:00 2001
From: equa <equaa@protonmail.com>
Date: Thu, 22 Apr 2021 22:18:58 -0500
Subject: very messy music

---
 lib/cells.fnl       |  2 ++
 lib/game.fnl        | 37 +++++++++++++++++-------
 lib/main.fnl        |  9 +++++-
 lib/music-state.fnl |  1 +
 lib/music.fnl       | 83 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 lib/player.fnl      |  4 +++
 lib/transition.fnl  |  3 ++
 7 files changed, 128 insertions(+), 11 deletions(-)
 create mode 100644 lib/music-state.fnl
 create mode 100644 lib/music.fnl

diff --git a/lib/cells.fnl b/lib/cells.fnl
index e415f21..5cc104e 100644
--- a/lib/cells.fnl
+++ b/lib/cells.fnl
@@ -1,4 +1,5 @@
 (local cell (require :lib.cell))
+(local music-state (require :lib.music-state))
 
 (local neighbors [{:x -1 :y -1}
                   {:x -1 :y 0}
@@ -84,6 +85,7 @@
          nil))
    cell.update
    (fn [self get]
+     (set music-state.fire (math.max music-state.fire self.life))
      (if (> self.life 0.3)
          (setmetatable {:life (* self.life (+ 0.5 (* (math.random 5) 0.1)))} (getmetatable self))
          nil))
diff --git a/lib/game.fnl b/lib/game.fnl
index d07f58c..833de6b 100644
--- a/lib/game.fnl
+++ b/lib/game.fnl
@@ -6,6 +6,7 @@
 (local player (require :lib.player))
 (local transition (require :lib.transition))
 (local fv (require :fennel.view))
+(local music-state (require :lib.music-state))
 
 (fn lerp* [a b c d x]
   (+ c (* (/ (- x a) (- b a)) (- d c))))
@@ -19,6 +20,7 @@
   t)
 
 (fn update [self]
+  (set music-state.screen :game)
   ;; (set ship-pos.x (+ self.ship.x 0.02))
   ;; (set ship-pos.y (+ self.ship.y 0.005))
   (var grid-alive? true)
@@ -26,6 +28,8 @@
 
   (when (= self.tick 0)
     (set grid-alive? false)
+    (set music-state.fire 0)
+    (set music-state.alive 0)
     (for [x 0 (- self.width 1)]
       (for [y 0 (- self.height 1)]
         (fn get [v]
@@ -37,7 +41,8 @@
             (do
               (tset self.grid-alt x y (cell.update (. self.grid x y)
                                                  get))
-              (set grid-alive? true))
+              (set grid-alive? true)
+              (set music-state.alive (+ music-state.alive 1)))
             ;; check for neighbors and then use one at random
             (do
               (var neighbors [])
@@ -88,7 +93,7 @@
                   :death
                   self
                   ((. (getmetatable self) :inner-init)
-                   (getmetatable self) 1 self)
+                   (getmetatable self) (if (> self.level 0) 1 0) self)
                   self.level)
       (not grid-alive?)
       (state.init transition
@@ -204,6 +209,24 @@
              self.max-radius
              (+ self.target-radius 4))))))
 
+(fn make-level [level width height]
+  (if (= level 0)
+      (new-grid width height
+                #(if (or (and (= $2 61) (or (= $1 61) (= $1 62) (= $1 63)))
+                         (and (= $2 62) (= $1 61))
+                         (and (= $2 63) (= $1 62)))
+                     (cell.init cells.life)
+                     nil))
+      true
+      (new-grid width height
+                #(if (= (math.random 6) 1)
+                     (if (> $1 44)
+                         (cell.init cells.life)
+                         (< $1 10)
+                         (cell.init cells.brain)
+                         nil)
+                     nil))))
+
 (fn inner-init [self level past]
   (let [past (or past {})
         width 64
@@ -222,13 +245,7 @@
        :entities (if (= level -1)
                      {}
                      {:player (entity.init player {:x 31.5 :y 31.5})})
-       :grid (new-grid width height #(if (= (math.random 6) 1)
-                                         (if (> $1 44)
-                                             (cell.init cells.life)
-                                             (< $1 10)
-                                             (cell.init cells.brain)
-                                             nil)
-                                         nil))
+       :grid (make-level level width height)
        :grid-alt (new-grid width height #nil)
        }
       self)))
@@ -238,6 +255,6 @@
   (state.init transition
               :menu
               (self.inner-init self -1)
-              (self.inner-init self 1)))
+              (self.inner-init self 0)))
 
 {: inner-init state.draw draw state.init init state.update update state.keypressed keypressed}
diff --git a/lib/main.fnl b/lib/main.fnl
index 4a4de12..e88f704 100644
--- a/lib/main.fnl
+++ b/lib/main.fnl
@@ -2,6 +2,7 @@
 (local proto (require :lib.proto))
 (local state (require :lib.state))
 (local game (require :lib.game))
+(local music (require :lib.music))
 (local font (require :lib.font))
 (local profi (require :vendor.ProFi))
 (local profi? false)
@@ -12,6 +13,7 @@
 ;; TODO: ^
 (local hotswap-modules
   [:lib.player
+   :lib.music
    :lib.translation
    :lib.bullet
    :lib.cells
@@ -23,6 +25,7 @@
 ;; oh thats why it doesnt work lmao
 
 (fn love.load []
+  (music.load)
   (when profi?
     (profi:start)
     (set love.frame 0))
@@ -39,7 +42,7 @@
                 (love.graphics.print (.. "draw: \n" x))))
   (love.graphics.reset)
   ;; (love.graphics.setFont font.small)
-  (love.graphics.print (love.timer.getFPS))
+  ;; (love.graphics.print (love.timer.getFPS))
   ;; (love.graphics.print :soko font.big 100 100)
   (when true ;; debug stuff
     (love.graphics.print (table.concat
@@ -53,6 +56,7 @@
           (set v.ticks (- v.ticks 1))))))
 
 (fn love.update []
+  (music.pre-update)
   (when profi?
     (profi:startHooks)
     (set love.frame (+ love.frame 1))
@@ -69,10 +73,13 @@
                 (table.insert messages
                               {:ticks 1
                                :msg (.. "update: \n" x)})))
+  (music.update)
   (when profi?
     (profi:stopHooks)))
 
 (fn love.keypressed [key scancode repeat]
+  (when (and (= key "f") (not repeat))
+    (love.window.setFullscreen (not (love.window.getFullscreen))))
   (match (pcall #(state.keypressed the-state key scancode repeat))
     (true x) nil
     (false x) (do
diff --git a/lib/music-state.fnl b/lib/music-state.fnl
new file mode 100644
index 0000000..0967ef4
--- /dev/null
+++ b/lib/music-state.fnl
@@ -0,0 +1 @@
+{}
diff --git a/lib/music.fnl b/lib/music.fnl
new file mode 100644
index 0000000..434855b
--- /dev/null
+++ b/lib/music.fnl
@@ -0,0 +1,83 @@
+(local s (require :lib.music-state))
+
+(local sample-rate 8000)
+(local bit-depth 8)
+(local channels 2)
+(local buffers 4)
+(local buffer-size 256)
+
+(fn osc [n freq]
+  (tset s.voices n (% (+ (. s.voices n) (/ freq sample-rate)) 1))
+  (if (= s.screen :game)
+      (math.max -1 (math.min 1 (* (math.sin (* math.pi 2 (. s.voices n))) 2)))
+      (math.max -1 (math.min 1 (* (math.sin (* math.pi 2 (math.min 0.3 (. s.voices n)))) 1)))))
+
+(fn fill [buffer n]
+  (set s.alive* (+ s.alive* (* 0.03 (- s.alive s.alive*))))
+  (when (= (math.random 0 30) 0)
+    ;; (print s.t)
+    (local index (math.random 3 31))
+    (tset s.rhythms index (math.random 3 8))
+    (tset s.freqs index (* (. s.freqs (- index 1))
+                           (. [1 1.2 1.2 1.2 1.5 1.5 1.2 (/ 4 3) 1.75 2]
+                              (math.random 10)))))
+  (for [x 0 (- n 1)]
+    (for [side 1 2]
+      (var total 0)
+      (for [z 0 15]
+        (local vn (+ (* z 2) side -1))
+        (set total
+             (+ total
+                (* (osc vn (* (math.max 0.6 (or s.speed 0)) (/ 0.6) (. s.freqs vn)))
+                   (if (< vn (+ (/ s.alive* 23) 1)) 1 0)
+                   0.04
+                   (math.max 0
+                             (- 1 (* 0.00005
+                                     (% (- s.t (* vn 1600))
+                                        (* (. s.rhythms vn) 1600)))))))))
+      (set total (+ total
+                    (* 0.3
+                       (+ s.fire
+                          (if s.forward 0.3 0)
+                          (if (and s.shot-age (> s.shot-age 0)) 0.4 0))
+                       (^ (- (math.random) 0.5) 2))))
+      (buffer:setSample x side total))
+    (set s.t (+ s.t 1))))
+
+(fn load []
+  (set s.t 0)
+  (set s.alive* 0)
+  (set s.ring {})
+  (set s.ring-index 1)
+  (set s.voices (do (var t []) (for [i 0 31] (tset t i 0)) t))
+  (set s.freqs (do (var t [])
+                 (for [i 0 31]
+                   (tset t i (* 110 (^ 1.2 (math.floor (/ i 2))))))
+                 t))
+  (set s.rhythms (do (var t [])
+                   (for [i 0 31] (tset t i (if (< i 2) 8 (< i 4) 6
+                                               (+ (/ i 2) 8))))
+                   t))
+  (set s.volumes (do (var t []) (for [i 0 31]
+                                  (tset t i (if (< i 6) 1 0))) t))
+  (set s.source (love.audio.newQueueableSource
+                  sample-rate
+                  bit-depth
+                  channels
+                  buffers))
+  (for [i 1 buffers]
+    (tset s.ring i (love.sound.newSoundData buffer-size sample-rate bit-depth channels))))
+
+(fn pre-update []
+  )
+
+(fn update []
+  (when (not (s.source:isPlaying))
+    (s.source:play))
+  (while (> (s.source:getFreeBufferCount) 0)
+    (fill (. s.ring s.ring-index) buffer-size)
+    (do)
+    (s.source:queue (. s.ring s.ring-index))
+    (set s.ring-index (+ (% s.ring-index buffers) 1))))
+
+{: load : update : pre-update}
diff --git a/lib/player.fnl b/lib/player.fnl
index 4693d2e..d40e980 100644
--- a/lib/player.fnl
+++ b/lib/player.fnl
@@ -3,6 +3,7 @@
 (local cell (require :lib.cell))
 (local cells (require :lib.cells))
 (local bullet (require :lib.bullet))
+(local music-state (require :lib.music-state))
 
 (fn init [self pos]
   (setmetatable {entity.position pos
@@ -15,6 +16,7 @@
 (fn steer [self game id controls]
   (when (> self.shot-age 0)
     (set self.shot-age (- self.shot-age 1)))
+  (set music-state.shot-age self.shot-age)
   ;; TODO: smooth turning
   (when controls.left
     (set self.target-spin (- self.target-spin 0.15)))
@@ -23,12 +25,14 @@
     (set self.target-spin (+ self.target-spin 0.15)))
   (set self.direction (% (+ self.direction (* self.target-spin 0.1)) (* math.pi 2)))
   (set self.target-spin (* self.target-spin 0.9))
+  (set music-state.forward controls.up)
   (when controls.up
     (local v (entity.velocity self))
     (set v.x (+ v.x (* (math.cos self.direction) 0.02)))
     (set v.y (+ v.y (* (math.sin self.direction) 0.02)))
     (when (> (vec.mag v) 0.8)
       (tset self entity.velocity (vec.mul v (/ 0.8 (vec.mag v))))))
+  (set music-state.speed (vec.mag (. self entity.velocity)))
   (when (and controls.shoot (= self.shot-age 0))
     (set self.shot-age 10)
     (local v (entity.velocity self))
diff --git a/lib/transition.fnl b/lib/transition.fnl
index 096de9e..e62dcb8 100644
--- a/lib/transition.fnl
+++ b/lib/transition.fnl
@@ -1,6 +1,7 @@
 (local state (require :lib.state))
 (local font (require :lib.font))
 (local translation (require :lib.translation))
+(local music-state (require :lib.music-state))
 
 (fn draw [self]
   (local (width height) (love.graphics.getDimensions))
@@ -34,6 +35,8 @@
   ;; TODO: actually update in case it returns something else
   (when (not= self.type :pause)
     (state.update self.present-state))
+  (when (= self.type :pause)
+    (set music-state.screen :pause))
   (set self.age (math.min 40 (+ self.age 1)))
   (if self.transition
       self.future-state
-- 
cgit 1.3.0-6-gf8a5