aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--oscillator.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/oscillator.bqn b/oscillator.bqn
index 2713074..e918072 100644
--- a/oscillator.bqn
+++ b/oscillator.bqn
@@ -27,7 +27,7 @@ White ⇐ Rand ≢ # White noise
Brown ⇐ +` White # Brown noise
# Pink noise
#Pink ⇐ ÷⟜(⌈´|) (2⊸/⊸+˜´∘⌽ · Rand¨ 2⋆↕)⊸÷∘(1+·⌈2⋆⁼⊢)⊸(↑˜)∘≠
-Pink ⇐ ÷⟜(⌈´|) (+` ·⥊∘⍉∘≍´ ·-⟜«∘Rand¨ 2⋆1⌈⌽∘↕)∘(1+·⌈2⋆⁼⊢)⊸(↑˜)∘≠
+Pink ⇐ {÷⟜(⌈´|) +` 𝕩 ↑ ⥊∘⍉∘≍´⌽ -⟜«∘Rand¨ (1⌈↕∘⌈)⌾(2⋆⁼⊢)2⌈𝕩}∘≠
# Karplus-Stong algorithm for a plucked string
Pluck ⇐ { 𝕊 f‿len‿att: # Frequency, length, attenuation