@audiofab-io/fv1-core 0.2.2 → 0.4.0

package/blocks/filter/bbd_loss.atl

@@ -0,0 +1,79 @@
+---
+{
+  "type": "filter.bbd_loss",
+  "name": "BBD Bucket Loss",
+  "category": "Filter",
+  "description": "Dynamic 12dB/oct low-pass filter that mimics the fidelity loss of analog delay lines (BBD). Fix: Steeper cascade for more pronounced effect.",
+  "color": "#24f26f",
+  "inputs": [
+    {
+      "id": "input",
+      "name": "Audio In",
+      "type": "audio"
+    },
+    {
+      "id": "coupling",
+      "name": "Time Coupling",
+      "type": "control",
+      "required": false,
+      "parameter": "loss_base"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Audio Out",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "loss_base",
+      "name": "Max Loss",
+      "type": "number",
+      "default": 0.85,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01,
+      "description": "How much high-frequency is lost at maximum delay time."
+    }
+  ],
+  "registers": [
+    "lp1",
+    "lp2",
+    "k_coeff"
+  ]
+}
+---
+; BBD Bucket Loss Filter
+; A 2-pole cascaded LPF (12dB/oct) where the coefficient tracks the Coupling input.
+; Fix: Cascaded structure for a much more visible 'analog' roll-off.
+
+@section main
+@if pinConnected(input)
+
+; 1. Calculate dynamic coefficient k from Coupling input
+@cv coupling
+; ACC has Coupling value (0 to 1). 
+; Formula: k = 1.0 - (ACC * loss_base * 0.95)
+; But let's map it aggressively to 0.02 (very dark) to 0.9 (bright)
+sof -0.88, 0.9
+wrax ${reg.k_coeff}, 0.0
+
+; 2. First Stage (6dB/oct)
+rdax ${input.input}, 1.0
+rdax ${reg.lp1}, -1.0
+mulx ${reg.k_coeff}
+rdax ${reg.lp1}, 1.0
+wrax ${reg.lp1}, 0.0
+
+; 3. Second Stage (Total 12dB/oct)
+rdax ${reg.lp1}, 1.0
+rdax ${reg.lp2}, -1.0
+mulx ${reg.k_coeff}
+rdax ${reg.lp2}, 1.0
+wrax ${reg.lp2}, 1.0
+
+; 4. Final Output
+wrax ${output.out}, 0.0
+@endif

package/blocks/filter/shelving_high_pass.atl

@@ -0,0 +1,76 @@
+---
+{
+  "type": "filter.shelving_hpf",
+  "name": "Shelving HPF",
+  "category": "Filter",
+  "description": "High-pass filter with adjustable shelf depth",
+  "color": "#24f26f",
+  "width": 180,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "shelf_ctrl",
+      "name": "Shelf",
+      "type": "control",
+      "required": false
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "frequency",
+      "name": "Frequency (Hz)",
+      "type": "number",
+      "default": 1000,
+      "min": 20,
+      "max": 10000,
+      "conversion": "LOGFREQ",
+      "description": "The corner frequency of the shelving filter in Hz.",
+      "step": 1
+    },
+    {
+      "id": "shelf",
+      "name": "Shelf Depth",
+      "type": "number",
+      "default": -6,
+      "min": -40,
+      "max": -3,
+      "conversion": "DBLEVEL",
+      "step": 0.01
+    }
+  ],
+  "registers": [
+    "hpf_state",
+    "temp"
+  ]
+}
+---
+; Shelving HPF
+rdax ${input.in}, 1.0
+
+@if pinConnected(shelf_ctrl)
+; Shelf modulated by control input
+@comment "Dynamic shelf control"
+wrax ${reg.temp}, -(1.0 - ${shelf})
+rdfx ${reg.hpf_state}, ${frequency}
+wrlx ${reg.hpf_state}, -1.0
+mulx ${input.shelf_ctrl}
+rdax ${reg.temp}, 1.0
+@else
+; Fixed shelf depth
+rdfx ${reg.hpf_state}, ${frequency}
+wrhx ${reg.hpf_state}, -(1.0 - ${shelf})
+@endif
+
+wrax ${output.out}, 0.0

package/blocks/filter/shelving_low_pass.atl

@@ -0,0 +1,76 @@
+---
+{
+  "type": "filter.shelving_lpf",
+  "name": "Shelving LPF",
+  "category": "Filter",
+  "description": "Low-pass filter with adjustable shelf depth",
+  "color": "#24f26f",
+  "width": 180,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "shelf_ctrl",
+      "name": "Shelf",
+      "type": "control",
+      "required": false
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "frequency",
+      "name": "Frequency (Hz)",
+      "type": "number",
+      "default": 1000,
+      "min": 20,
+      "max": 10000,
+      "conversion": "LOGFREQ",
+      "description": "The corner frequency of the shelving filter in Hz.",
+      "step": 1
+    },
+    {
+      "id": "shelf",
+      "name": "Shelf Depth",
+      "type": "number",
+      "default": -6,
+      "min": -40,
+      "max": -3,
+      "conversion": "DBLEVEL",
+      "step": 0.01
+    }
+  ],
+  "registers": [
+    "lpf_state",
+    "temp"
+  ]
+}
+---
+; Shelving LPF
+rdax ${input.in}, 1.0
+
+@if pinConnected(shelf_ctrl)
+; Shelf modulated by control input
+@comment "Dynamic shelf control"
+wrax ${reg.temp}, -(1.0 - ${shelf})
+rdfx ${reg.lpf_state}, ${frequency}
+wrhx ${reg.lpf_state}, -1.0
+mulx ${input.shelf_ctrl}
+rdax ${reg.temp}, 1.0
+@else
+; Fixed shelf depth
+rdfx ${reg.lpf_state}, ${frequency}
+wrlx ${reg.lpf_state}, -(1.0 - ${shelf})
+@endif
+
+wrax ${output.out}, 0.0

package/blocks/filter/svf_2p.atl

@@ -0,0 +1,116 @@
+---
+{
+  "type": "filter.svf_2p",
+  "name": "2-Pole SVF",
+  "category": "Filter",
+  "description": "2-pole State Variable Filter",
+  "color": "#24f26f",
+  "width": 180,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "f_cv",
+      "name": "Freq CV",
+      "type": "control",
+      "required": false,
+      "parameter": "frequency"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "lp",
+      "name": "Low Pass",
+      "type": "audio"
+    },
+    {
+      "id": "bp",
+      "name": "Band Pass",
+      "type": "audio"
+    },
+    {
+      "id": "hp",
+      "name": "High Pass",
+      "type": "audio"
+    },
+    {
+      "id": "notch",
+      "name": "Notch",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "frequency",
+      "name": "Frequency (Hz)",
+      "type": "number",
+      "min": 20,
+      "max": 10000,
+      "default": 1000,
+      "conversion": "SVFFREQ",
+      "description": "Center or cutoff frequency."
+    },
+    {
+      "id": "q",
+      "name": "Resonance (Q)",
+      "type": "number",
+      "min": 0.5,
+      "max": 100.0,
+      "step": 0.001,
+      "default": 0.707,
+      "conversion": "SVF_DAMP",
+      "description": "The maximum resonance filter peak."
+    }
+  ],
+  "registers": [
+    "lp_state",
+    "bp_state"
+  ]
+}
+---
+@section header
+  ; Resonance bounds: Calculate Damping (d = 1/Q)
+  equ d_target (${param.q})
+
+@section main
+  ; --- 2-Pole SVF (Standard Hal Chamberlin Topology) ---
+
+  ; 1. Calculate High Pass (H = I - L_old - d * B_old)
+  ; Fixed Damping (saves register usage & CPU cycles)
+  rdax ${input.in}, 1.0           ; ACC = I
+  rdax ${reg.lp_state}, -1.0      ; ACC = I - L_old
+  rdax ${reg.bp_state}, -(d_target)  ; ACC = I - L_old - d_fixed * B_old = HighPass
+
+  @if pinConnected(hp)
+    wrax ${output.hp}, 1.0          ; EXPORT High Pass (ACC remains H)
+  @endif
+
+  @if pinConnected(notch)
+    ; Perfect Chamberlin Notch: H + L_old
+    rdax ${reg.lp_state}, 1.0       ; ACC = H + L_old
+    wrax ${output.notch}, -1.0      ; EXPORT Notch, ACC = - (H + L_old)
+    rdax ${reg.lp_state}, 1.0       ; ACC = -H - L_old + L_old = -H
+    sof -1.0, 0.0                   ; ACC = H (Restoring H for next integration step)
+  @endif
+
+  ; 2. Calculate Band Pass update (B_new = B_old + F * H)
+  ; High Pass is currently in ACC
+  @mulcv f_cv                       ; ACC = F * H
+  rdax ${reg.bp_state}, 1.0         ; ACC = F * H + B_old = B_new
+  @if pinConnected(bp)
+    wrax ${output.bp}, 1.0          ; EXPORT Band Pass
+  @endif
+  wrax ${reg.bp_state}, 1.0         ; REG_B = B_new, ACC = B_new
+
+  ; 3. Calculate Low Pass update (L_new = L_old + F * B_new)
+  ; Band Pass is currently in ACC
+  @mulcv f_cv                       ; ACC = F * B_new
+  rdax ${reg.lp_state}, 1.0         ; ACC = F * B_new + L_old = L_new
+  @if pinConnected(lp)
+    wrax ${output.lp}, 1.0          ; EXPORT Low Pass
+  @endif
+  wrax ${reg.lp_state}, 0.0         ; REG_L = L_new, ACC = 0

package/blocks/gain_mix/crossfade.atl

@@ -0,0 +1,93 @@
+---
+{
+  "type": "math.crossfade",
+  "name": "Crossfade",
+  "category": "Gain/Mixing",
+  "description": "Crossfades between two audio inputs based on a control signal",
+  "inputs": [
+    {
+      "id": "input1",
+      "name": "Input 1",
+      "type": "audio"
+    },
+    {
+      "id": "input2",
+      "name": "Input 2",
+      "type": "audio"
+    },
+    {
+      "id": "input0",
+      "name": "Fade",
+      "type": "control"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "output",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "fade",
+      "name": "Fade",
+      "type": "number",
+      "min": 0,
+      "max": 1,
+      "step": 0.01,
+      "default": 0.5
+    },
+    {
+      "id": "gain1",
+      "name": "Input 1 Gain",
+      "type": "number",
+      "min": -12,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL"
+    },
+    {
+      "id": "gain2",
+      "name": "Input 2 Gain",
+      "type": "number",
+      "min": -12,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL"
+    }
+  ],
+  "color": "#2468f2"
+}
+---
+@section header
+@comment "Generated from spincad source file crossfade.spincad"
+
+@section main
+; Dynamic interpolation or fixed fallback crossfade
+
+@if pinConnected(input0)
+    ; Dynamic crossfade using control input (Fade)
+    @if pinConnected(input1)
+        rdax ${input.input1}, -${gain1}
+    @endif
+    @if pinConnected(input2)
+        rdax ${input.input2}, ${gain2}
+    @endif
+    
+    mulx ${input.input0}
+    
+    @if pinConnected(input1)
+        rdax ${input.input1}, ${gain1}
+    @endif
+@else
+    ; Fallback to static parameter fade
+    @if pinConnected(input1)
+        rdax ${input.input1}, ((1.0 - ${fade}) * ${gain1})
+    @endif
+    @if pinConnected(input2)
+        rdax ${input.input2}, (${fade} * ${gain2})
+    @endif
+@endif
+
+wrax ${output.output}, 0.0

package/blocks/gain_mix/crossfade2.atl

@@ -0,0 +1,86 @@
+---
+{
+  "type": "math.crossfade2",
+  "name": "Crossfade 2",
+  "category": "Gain/Mixing",
+  "description": "Curbed crossfade between two audio inputs.",
+  "color": "#2468f2",
+  "inputs": [
+    {
+      "id": "input1",
+      "name": "Input 1",
+      "type": "audio"
+    },
+    {
+      "id": "input2",
+      "name": "Input 2",
+      "type": "audio"
+    },
+    {
+      "id": "fade",
+      "name": "Fade",
+      "type": "control"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "output",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "fade",
+      "name": "Fade",
+      "type": "number",
+      "default": 0.5,
+      "min": 0,
+      "max": 1,
+      "step": 0.01
+    }
+  ],
+  "registers": [
+    "temp"
+  ]
+}
+---
+; Crossfade 2
+@section main
+
+@if pinConnected(fade)
+    ; Input 2 path
+    @if pinConnected(input2)
+    clr
+    rdax ${input.fade}, -1.0
+    sof -2.0, 0.0
+    wrax ${reg.temp}, 1.0
+    mulx ${input.input2}
+    wrax ${reg.temp}, 0.0
+    @endif
+
+    ; Input 1 path
+    @if pinConnected(input1)
+    clr
+    rdax ${input.fade}, 1.0
+    sof 1.0, -1.0
+    sof -2.0, 0.0
+    wrax ${reg.temp}, 1.0
+    mulx ${input.input1}
+    @endif
+
+    ; Combined output
+    rdax ${reg.temp}, 1.0
+    wrax ${output.output}, 0.0
+@else
+    ; Fallback to simple crossfade using parameter
+    @equals staticFade ${fade}
+    @equals staticInvFade (1.0 - ${fade})
+    @if pinConnected(input1)
+    rdax ${input.input1}, ${staticInvFade}
+    @endif
+    @if pinConnected(input2)
+    rdax ${input.input2}, ${staticFade}
+    @endif
+    wrax ${output.output}, 0.0
+@endif

package/blocks/gain_mix/crossfade3.atl

@@ -0,0 +1,71 @@
+---
+{
+  "type": "math.crossfade3",
+  "name": "Crossfade 3",
+  "category": "Gain/Mixing",
+  "description": "True crossfade between two inputs with control and parameter fallback",
+  "color": "#4287f5",
+  "inputs": [
+    { "id": "input1", "name": "Input 1", "type": "audio", "required": true },
+    { "id": "input2", "name": "Input 2", "type": "audio", "required": true },
+    { "id": "fade", "name": "Fade", "type": "control", "required": false }
+  ],
+  "outputs": [
+    { "id": "output", "name": "Output", "type": "audio" }
+  ],
+  "parameters": [
+    { "id": "fade", "name": "Fade", "type": "number", "default": 0.5, "min": 0, "max": 1, "step": 0.01 }
+  ],
+  "registers": [ "temp" ]
+}
+---
+; Crossfade 3 (Restored Java logic)
+@section main
+
+@if pinConnected(fade)
+    @if pinConnected(input1) && pinConnected(input2)
+        rdax ${input.fade}, 1.0
+        sof 1.0, -0.5
+        skp neg, fade_neg
+        
+        ; Fade > 0.5 path
+        clr
+        rdax ${input.fade}, 0.586
+        sof 1.0, 0.414
+        mulx ${input.input2}
+        wrax ${reg.temp}, 0.0
+        
+        rdax ${input.fade}, 1.0
+        sof 0.707, -0.707
+        sof -2.0, 0.0
+        mulx ${input.input1}
+        rdax ${reg.temp}, 1.0
+        skp run, fade_done
+
+    fade_neg:
+        ; Fade < 0.5 path
+        clr
+        rdax ${input.fade}, 1.414
+        mulx ${input.input2}
+        wrax ${reg.temp}, 0.0
+        
+        rdax ${input.fade}, -0.586
+        sof 0.999, 0.999
+        mulx ${input.input1}
+        rdax ${reg.temp}, 1.0
+
+    fade_done:
+        wrax ${output.output}, 0.0
+    @endif
+@else
+    ; Fallback to simple crossfade using parameter
+    @equals staticFade ${fade}
+    @equals staticInvFade (1.0 - ${fade})
+    @if pinConnected(input1)
+    rdax ${input.input1}, ${staticInvFade}
+    @endif
+    @if pinConnected(input2)
+    rdax ${input.input2}, ${staticFade}
+    @endif
+    wrax ${output.output}, 0.0
+@endif

package/blocks/gain_mix/gainboost.atl

@@ -0,0 +1,54 @@
+---
+{
+  "type": "math.gainboost",
+  "name": "Gain Boost",
+  "category": "Gain/Mixing",
+  "description": "Adjusts the gain of an audio signal in 6dB steps with correct phase logic.",
+  "color": "#4287f5",
+  "width": 100,
+  "labelTemplate": "${param.gain * 6} dB",
+  "inputs": [
+    { "id": "in", "name": "In", "type": "audio", "required": true }
+  ],
+  "outputs": [
+    { "id": "out", "name": "Out", "type": "audio" }
+  ],
+  "parameters": [
+    {
+      "id": "gain",
+      "name": "Boost (6dB steps)",
+      "type": "number",
+      "default": 1,
+      "min": 0,
+      "max": 4,
+      "step": 1,
+      "description": "Number of 6dB gain stages."
+    }
+  ]
+}
+---
+; Gain Boost (Restored Java logic)
+@section main
+
+rdax ${input.in}, 1.0
+
+; Each 'sof -2.0, 0' adds 6dB but flips phase
+@if param.gain >= 1
+sof -2.0, 0.0
+@endif
+@if param.gain >= 2
+sof -2.0, 0.0
+@endif
+@if param.gain >= 3
+sof -2.0, 0.0
+@endif
+@if param.gain >= 4
+sof -2.0, 0.0
+@endif
+
+; If an odd number of stages was used, flip phase back to original
+@if (param.gain % 2) == 1
+sof -1.0, 0.0
+@endif
+
+wrax ${output.out}, 0.0