From 465b2e11a689526c7a830bb50483dc772d359f84 Mon Sep 17 00:00:00 2001 From: equa Date: Fri, 23 Apr 2021 14:10:37 -0500 Subject: minor music adjustments --- lib/music.fnl | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/lib/music.fnl b/lib/music.fnl index 434855b..d19a269 100644 --- a/lib/music.fnl +++ b/lib/music.fnl @@ -10,13 +10,13 @@ (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))))) + (math.max -1 (math.min 1 (* (math.sin (* math.pi 2 (math.min 0.2 (. 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) + (when (= (math.random 0 35) 0) ;; (print s.t) - (local index (math.random 3 31)) + (local index (math.random 3 23)) (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] @@ -24,12 +24,13 @@ (for [x 0 (- n 1)] (for [side 1 2] (var total 0) - (for [z 0 15] + (for [z 0 11] (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) + (if (> (. s.freqs vn) 1000) 0.3 1) 0.04 (math.max 0 (- 1 (* 0.00005 @@ -49,17 +50,15 @@ (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.voices (do (var t []) (for [i 0 23] (tset t i 0)) t)) (set s.freqs (do (var t []) - (for [i 0 31] + (for [i 0 23] (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 + (for [i 0 23] (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 -- cgit 1.3.0-6-gf8a5