asrael/pxl8
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

improve script hot reload

Browse source
This commit is contained in:
asrael 2026-01-08 01:19:25 -06:00
parent 01d6e09a91
commit 15041984f1
25 changed files with 1516 additions and 293 deletions
Download patch file Download diff file Expand all files Collapse all files

63
demo/mod/music.fnl
View file

@ -7,15 +7,32 @@
(var bass-params nil)
(var playing false)
(local melody [60 64 67 72 67 64 60 64 67 72 76 72 67 64 62 66 69 74 69 66 62 66 69 74 78 74 69 66])
(local bass [36 50 40 36 38 38 50 38])
(local step-duration 0.15)
(local bpm 120)
(local beat (/ 60 bpm))
(local whole (* 4 beat))
(local half (* 2 beat))
(local quarter beat)
(local eighth (/ beat 2))
(local sixteenth (/ beat 4))
(local melody [[60 eighth] [64 eighth] [67 eighth] [72 eighth]
[67 eighth] [64 eighth] [60 eighth] [64 eighth]
[67 eighth] [72 eighth] [76 eighth] [72 eighth]
[67 eighth] [64 eighth] [62 eighth] [66 eighth]
[69 eighth] [74 eighth] [69 eighth] [66 eighth]
[62 eighth] [66 eighth] [69 eighth] [74 eighth]
[78 eighth] [74 eighth] [69 eighth] [66 eighth]])
; (local bass [[36 half] [40 half] [36 half] [38 half]
; [38 half] [36 half] [40 half] [38 half]])
(local step-duration eighth)
(fn init []
(set ctx (pxl8.sfx_context_create))
(local delay (pxl8.sfx_delay_create {:time_l 350 :time_r 500 :feedback 0.4 :mix 0.25}))
(local reverb (pxl8.sfx_reverb_create {:room 0.5 :damping 0.5 :mix 0.3}))
(local delay (pxl8.sfx_delay_create {:time_l 350 :time_r 500 :feedback 0.6 :mix 0.2}))
(local reverb (pxl8.sfx_reverb_create {:room 0.25 :damping 0.5 :mix 0.5}))
(local compressor (pxl8.sfx_compressor_create {:threshold -12 :ratio 4 :attack 10 :release 100}))
(pxl8.sfx_context_append_node ctx delay)
@ -26,19 +43,20 @@
(set params (pxl8.sfx_voice_params
{:waveform pxl8.SFX_WAVE_TRIANGLE
:attack 0.005 :decay 0.08 :sustain 0.0 :release 0.05
:attack 0.01 :decay 0.25 :sustain 0.0 :release 0.01
:filter_type pxl8.SFX_FILTER_LOWPASS
:filter_cutoff 2500 :filter_resonance 0.15
:filter_attack 0.005 :filter_decay 0.1 :filter_sustain 0.1 :filter_release 0.05
:filter_cutoff 2500 :filter_resonance 0.05
:filter_attack 0.05 :filter_decay 0.1 :filter_sustain 0.2 :filter_release 0.05
:filter_env_depth 1500
:fx_send 0.3}))
:fx_send 0.7})))
(set bass-params (pxl8.sfx_voice_params
{:waveform pxl8.SFX_WAVE_SQUARE
:attack 0.005 :decay 0.1 :sustain 0.0 :release 0.05
:filter_type pxl8.SFX_FILTER_LOWPASS
:filter_cutoff 600 :filter_resonance 0.2
:fx_send 0.2})))
; (set bass-params (pxl8.sfx_voice_params
; {:waveform pxl8.SFX_WAVE_SAW
; :attack 0.02 :decay 0.3 :sustain 0.6 :release 0.4
; :filter_type pxl8.SFX_FILTER_LOWPASS
; :filter_attack 0.02 :filter_decay 0.3 :filter_sustain 0.6 :filter_release 0.4
; :filter_cutoff 90 :filter_resonance 0.25
; :fx_send 0.2})))
(fn start []
(set playing true)
@ -54,11 +72,16 @@
(set time (+ time dt))
(when (>= time step-duration)
(set time (- time step-duration))
(local note (. melody (+ 1 (% step (length melody)))))
(pxl8.sfx_play_note ctx note params 0.4)
(when (= (% step 4) 0)
(local bass-note (. bass (+ 1 (% (math.floor (/ step 4)) (length bass)))))
(pxl8.sfx_play_note ctx bass-note bass-params 0.35))
(local melody-entry (. melody (+ 1 (% step (length melody)))))
(local note (. melody-entry 1))
(local dur (. melody-entry 2))
(pxl8.sfx_play_note ctx note params 0.4 dur)
; (when (= (% step 4) 0)
; (local bass-idx (+ 1 (% (math.floor (/ step 4)) (length bass))))
; (local bass-entry (. bass bass-idx))
; (local bass-note (. bass-entry 1))
; (local bass-dur (. bass-entry 2))
; (pxl8.sfx_play_note ctx bass-note bass-params 0.35 bass-dur))
(set step (+ step 1)))))
{:init init