@audiofab-io/fv1-core 0.2.2 → 0.4.0

package/blocks/effects/reverb/room_reverb.atl

@@ -0,0 +1,293 @@
+---
+{
+  "type": "effects.reverb.room",
+  "category": "Effects",
+  "subcategory": "Reverb",
+  "name": "Room Reverb",
+  "description": "Hall-style reverb with pre-delay, damping, and stereo output",
+  "color": "#7100FC",
+  "inputs": [
+    { "id": "input", "name": "Input", "type": "audio", "required": true },
+    { "id": "pre_delay", "name": "Pre Delay", "type": "control", "required": false, "parameter": "preDelay" },
+    { "id": "reverb_time", "name": "Reverb Time", "type": "control", "required": false, "parameter": "reverbTime" },
+    { "id": "hf_loss", "name": "HF Loss", "type": "control", "required": false, "parameter": "hfLoss" }
+  ],
+  "outputs": [
+    { "id": "outputL", "name": "Output L", "type": "audio" },
+    { "id": "outputR", "name": "Output R", "type": "audio" }
+  ],
+  "parameters": [
+    {
+      "id": "inputGain",
+      "name": "Input Gain",
+      "type": "number",
+      "min": -24,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL"
+    },
+    {
+      "id": "preDelay",
+      "name": "Pre-Delay (ms)",
+      "type": "number",
+      "default": 25,
+      "min": 0,
+      "max": 100,
+      "conversion": "MS_TO_SAMPLES",
+      "step": 1
+    },
+    {
+      "id": "reverbTime",
+      "name": "Reverb Time",
+      "type": "number",
+      "default": 0.5,
+      "min": 0.05,
+      "max": 0.95,
+      "step": 0.01
+    },
+    {
+      "id": "hfDamping",
+      "name": "HF Damping",
+      "type": "number",
+      "min": 40,
+      "max": 1000,
+      "default": 100,
+      "conversion": "LOGFREQ"
+    },
+    {
+      "id": "inputAllpassCoeff",
+      "name": "Input Allpass",
+      "type": "number",
+      "default": 0.5,
+      "min": 0.05,
+      "max": 0.95,
+      "step": 0.01
+    },
+    {
+      "id": "delayAllpassCoeff",
+      "name": "Delay Allpass",
+      "type": "number",
+      "default": 0.5,
+      "min": 0.05,
+      "max": 0.95,
+      "step": 0.01
+    },
+    {
+      "id": "hfLoss",
+      "name": "HF Loss",
+      "type": "number",
+      "default": 1.0,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01,
+      "description": "High-frequency loss applied in the reverb loops. 1.0 = full HF, 0.0 = maximum loss."
+    },
+    {
+      "id": "lfoRate",
+      "name": "LFO Rate (Hz)",
+      "type": "number",
+      "default": 0.25,
+      "min": 0.05,
+      "max": 2.0,
+      "conversion": "HZ_TO_LFO_RATE",
+      "description": "Frequency of the LFO modulation in Hz.",
+      "step": 0.01
+    }
+  ],
+  "memories": [
+    { "id": "pdel", "size": 3276 },
+    { "id": "tdel", "size": 4000 },
+    { "id": "ap1", "size": 473 },
+    { "id": "ap2", "size": 536 },
+    { "id": "ap3", "size": 667 },
+    { "id": "ap4", "size": 791 },
+    { "id": "tap1", "size": 452 },
+    { "id": "tap2", "size": 561 },
+    { "id": "lap1a", "size": 878 },
+    { "id": "lap1b", "size": 1287 },
+    { "id": "d1", "size": 1536 },
+    { "id": "lap2a", "size": 968 },
+    { "id": "lap2b", "size": 1367 },
+    { "id": "d2", "size": 1891 },
+    { "id": "lap3a", "size": 678 },
+    { "id": "lap3b", "size": 1127 },
+    { "id": "d3", "size": 1936 },
+    { "id": "lap4a", "size": 1263 },
+    { "id": "lap4b", "size": 1198 },
+    { "id": "d4", "size": 1781 }
+  ],
+  "registers": [
+    "apout", "temp", "kd", "rt_cv", "lp1", "lp2", "lp3", "lp4", "hp1", "hp2", "tlp"
+  ]
+}
+---
+@section init
+@if pinConnected(input)
+; Room Reverb init
+skp run, room_reverb_init
+wrax ${reg.lp1}, 0.0
+wrax ${reg.lp2}, 0.0
+wrax ${reg.hp1}, 0.0
+wrax ${reg.hp2}, 0.0
+wrax ${reg.tlp}, 0.0
+wlds SIN0, ${lfoRate}, 100
+room_reverb_init:
+@endif
+
+@section main
+@if pinConnected(input)
+
+; Room Reverb
+
+; Evaluate Control Voltages globally
+@cv hf_loss
+wrax ${reg.kd}, 0.0
+
+@cv reverb_time
+wrax ${reg.rt_cv}, 0.0
+
+@cv pre_delay
+sof 0.1, 0.0
+wrax ADDR_PTR, 0.0
+
+; Feed input to pre-delay
+rdax ${input.input}, ${inputGain}
+wra ${mem.pdel}, 0.0
+
+; Read pre-delay and write to tap delay
+rmpa 1.0
+wra ${mem.tdel}, 1.0
+
+; 4 input allpass filters
+rda ${mem.ap1}^, ${inputAllpassCoeff}
+wrap ${mem.ap1}, -${inputAllpassCoeff}
+rda ${mem.ap2}^, ${inputAllpassCoeff}
+wrap ${mem.ap2}, -${inputAllpassCoeff}
+rda ${mem.ap3}^, ${inputAllpassCoeff}
+wrap ${mem.ap3}, -${inputAllpassCoeff}
+rda ${mem.ap4}^, ${inputAllpassCoeff}
+wrap ${mem.ap4}, -${inputAllpassCoeff}
+wrax ${reg.apout}, 0.0
+
+; Delay loop 1
+rda ${mem.d4}^, ${reverbTime}
+mulx ${reg.rt_cv}
+rdax ${reg.apout}, 1.0
+rda ${mem.lap1a}^, ${delayAllpassCoeff}
+wrap ${mem.lap1a}, -${delayAllpassCoeff}
+rda ${mem.lap1b}^, -${delayAllpassCoeff}
+wrap ${mem.lap1b}, ${delayAllpassCoeff}
+rdfx ${reg.hp1}, ${hfDamping}
+wrhx ${reg.hp1}, -0.5
+wrax ${reg.temp}, -1.0
+rdfx ${reg.lp1}, 0.5
+wrhx ${reg.lp1}, -1.0
+mulx ${reg.kd}
+rdax ${reg.temp}, 1.0
+wra ${mem.d1}, 0.0
+
+; Delay loop 2
+rda ${mem.d1}^, -${reverbTime}
+mulx ${reg.rt_cv}
+rdax ${reg.apout}, 1.0
+rda ${mem.lap2a}^, ${delayAllpassCoeff}
+wrap ${mem.lap2a}, -${delayAllpassCoeff}
+rda ${mem.lap2b}^, ${delayAllpassCoeff}
+wrap ${mem.lap2b}, -${delayAllpassCoeff}
+rdfx ${reg.hp2}, ${hfDamping}
+wrhx ${reg.hp2}, -0.5
+wrax ${reg.temp}, -1.0
+rdfx ${reg.lp2}, 0.5
+wrhx ${reg.lp2}, -1.0
+mulx ${reg.kd}
+rdax ${reg.temp}, 1.0
+wra ${mem.d2}, 0.0
+
+; Delay loop 3
+rda ${mem.d2}^, -1.0
+mulx ${reg.rt_cv}
+rdax ${reg.apout}, 1.0
+rda ${mem.lap3a}^, ${delayAllpassCoeff}
+wrap ${mem.lap3a}, -${delayAllpassCoeff}
+rda ${mem.lap3b}^, ${delayAllpassCoeff}
+wrap ${mem.lap3b}, -${delayAllpassCoeff}
+rdfx ${reg.hp2}, 0.05
+wrhx ${reg.hp2}, -0.5
+wrax ${reg.temp}, -1.0
+rdfx ${reg.lp3}, 0.5
+wrhx ${reg.lp3}, -1.0
+mulx ${reg.kd}
+rdax ${reg.temp}, 1.0
+wra ${mem.d3}, 0.0
+
+; Delay loop 4
+rda ${mem.d3}^, -1.0
+mulx ${reg.rt_cv}
+rdax ${reg.apout}, 1.0
+rda ${mem.lap4a}^, ${delayAllpassCoeff}
+wrap ${mem.lap4a}, -${delayAllpassCoeff}
+rda ${mem.lap4b}^, ${delayAllpassCoeff}
+wrap ${mem.lap4b}, -${delayAllpassCoeff}
+wrax ${reg.temp}, -1.0
+rdfx ${reg.lp4}, 0.5
+wrhx ${reg.lp4}, -1.0
+mulx ${reg.kd}
+rdax ${reg.temp}, 1.0
+wra ${mem.d4}, 0.0
+
+; Tap delay processing
+rda ${mem.tdel}+100, 1.0
+rda ${mem.tap1}^, 0.5
+wrap ${mem.tap1}, -0.5
+wrax ${reg.temp}, 1.0
+rdfx ${reg.tlp}, 0.1
+wrhx ${reg.tlp}, -1.0
+mulx ${reg.kd}
+rdax ${reg.temp}, 1.0
+wra ${mem.tdel}+101, 0.0
+
+rda ${mem.tdel}+1000, 1.0
+rda ${mem.tap2}^, 0.5
+wrap ${mem.tap2}, -0.5
+wra ${mem.tdel}+1001, 0.0
+
+; Left output mix
+rda ${mem.tdel}+701, 0.7
+rda ${mem.tdel}+956, 0.6
+rda ${mem.tdel}+409, 0.5
+rda ${mem.tdel}+1323, 0.4
+
+@if pinConnected(outputR)
+rda ${mem.d1}, 1.5
+@else
+rda ${mem.d1}^, 0.7
+rda ${mem.d2}^, 0.8
+@endif
+@if pinConnected(outputL)
+wrax ${output.outputL}, 0.0
+@else
+wrax ADDR_PTR, 0.0
+@endif
+
+; Right output mix
+@if pinConnected(outputR)
+rda ${mem.tdel}+582, 0.7
+rda ${mem.tdel}+956, 0.6
+rda ${mem.tdel}+1047, 0.5
+rda ${mem.tdel}+1323, 0.4
+rda ${mem.d3}, 1.5
+wrax ${output.outputR}, 0.0
+@endif
+
+; LFO chorus modulation
+cho rda, SIN0, REG|COMPC, ${mem.lap1b}+100
+cho rda, SIN0, SIN, ${mem.lap1b}+101
+wra ${mem.lap1b}+200, 0.0
+
+cho rda, SIN0, COS|REG|COMPC, ${mem.lap3b}+100
+cho rda, SIN0, COS, ${mem.lap3b}+101
+wra ${mem.lap3b}+200, 0.0
+
+@else
+; Room Reverb (no input connected)
+@endif

package/blocks/effects/reverb/smear.atl

@@ -0,0 +1,90 @@
+---
+{
+  "type": "effects.smear",
+  "name": "Spectral Smear",
+  "category": "Effects",
+  "subcategory": "Reverb",
+  "description": "Diffusion bank of prime-numbered all-pass filters.",
+  "color": "#6f24f2",
+  "inputs": [
+    { "id": "input", "name": "Audio In", "type": "audio" },
+    { "id": "density", "name": "Density", "type": "control", "required": false, "parameter": "feedback" }
+  ],
+  "outputs": [
+    { "id": "out", "name": "Audio Out", "type": "audio" }
+  ],
+  "parameters": [
+    {
+      "id": "feedback",
+      "name": "Density (Feedback)",
+      "type": "number",
+      "default": 0.5,
+      "min": 0.0,
+      "max": 0.65,
+      "step": 0.01,
+      "description": "Density of the smear. Capped at 0.65 for stability."
+    }
+  ],
+  "memories": [
+    { "id": "ap1", "size": 151 },
+    { "id": "ap2", "size": 211 },
+    { "id": "ap3", "size": 331 },
+    { "id": "ap4", "size": 439 }
+  ],
+  "registers": [ "fb_reg", "ap_in", "ap_out", "ap_temp" ]
+}
+---
+; Spectral Smear - Multi-tap Diffusion (Stable Unity Gain)
+
+@section main
+@if pinConnected(input)
+; Load feedback (parameter JSON already caps max at 0.65 for stability)
+@cv density
+wrax ${reg.fb_reg}, 0.0
+
+rdax ${input.input}, 1.0
+wrax ${reg.ap_in}, 1.0
+
+; --- AP Stages (Discrete Unrolled All-pass) ---
+; Stage 1
+rda ${mem.ap1}#, 1.0
+wrax ${reg.ap_out}, -1.0
+mulx ${reg.fb_reg}
+rdax ${reg.ap_in}, 1.0
+wra ${mem.ap1}, 1.0
+mulx ${reg.fb_reg}
+rdax ${reg.ap_out}, 1.0
+wrax ${reg.ap_in}, 0.0
+
+; Stage 2
+rda ${mem.ap2}#, 1.0
+wrax ${reg.ap_out}, -1.0
+mulx ${reg.fb_reg}
+rdax ${reg.ap_in}, 1.0
+wra ${mem.ap2}, 1.0
+mulx ${reg.fb_reg}
+rdax ${reg.ap_out}, 1.0
+wrax ${reg.ap_in}, 0.0
+
+; Stage 3
+rda ${mem.ap3}#, 1.0
+wrax ${reg.ap_out}, -1.0
+mulx ${reg.fb_reg}
+rdax ${reg.ap_in}, 1.0
+wra ${mem.ap3}, 1.0
+mulx ${reg.fb_reg}
+rdax ${reg.ap_out}, 1.0
+wrax ${reg.ap_in}, 0.0
+
+; Stage 4
+rda ${mem.ap4}#, 1.0
+wrax ${reg.ap_out}, -1.0
+mulx ${reg.fb_reg}
+rdax ${reg.ap_in}, 1.0
+wra ${mem.ap4}, 1.0
+mulx ${reg.fb_reg}
+rdax ${reg.ap_out}, 1.0
+
+; Output (Unity Gain)
+wrax ${output.out}, 0.0
+@endif