@audiofab-io/fv1-core 0.2.3 → 0.4.0

package/blocks/effects/delay/mn3011.atl

@@ -0,0 +1,281 @@
+---
+{
+  "type": "effects.delay.mn3011",
+  "name": "MN3011 Multitap BBD Delay",
+  "category": "Effects",
+  "subcategory": "Delay",
+  "description": "Simulation of the classic MN3011 mult-tap BBD delay chip",
+  "color": "#6060c4",
+  "width": 230,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Audio In",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "fb_in",
+      "name": "Feedback",
+      "type": "audio",
+      "required": false
+    },
+    {
+      "id": "time_cv",
+      "name": "Delay Time",
+      "type": "control",
+      "required": false,
+      "parameter": "time"
+    },
+    {
+      "id": "fb_level_cv",
+      "name": "Feedback Level",
+      "type": "control",
+      "required": false,
+      "parameter": "fb_level"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "mix",
+      "name": "Mix Out",
+      "type": "audio"
+    },
+    {
+      "id": "tap6",
+      "name": "Tap 6 Out",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "input_gain",
+      "name": "Input Gain",
+      "type": "number",
+      "min": -24,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL",
+      "description": "Gain of the dry signal entering the delay line."
+    },
+    {
+      "id": "fb_level",
+      "name": "Feedback Level",
+      "type": "number",
+      "min": 0,
+      "max": 1,
+      "default": 0.5,
+      "step": 0.01,
+      "description": "Amount of feedback signal mixed in."
+    },
+    {
+      "id": "fbk_gain",
+      "name": "Feedback Gain",
+      "type": "number",
+      "min": -24,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL",
+      "description": "Master gain coefficient for the feedback loop."
+    },
+    {
+      "id": "time",
+      "name": "Delay Time (Scaling)",
+      "type": "number",
+      "min": 0,
+      "max": 1,
+      "default": 1.0,
+      "step": 0.01,
+      "description": "Global time scaling for all BBD taps (simulates clock rate)."
+    },
+    {
+      "id": "max_delay",
+      "name": "Max BBD Clock (ms)",
+      "type": "number",
+      "min": 1,
+      "max": 1000,
+      "default": 1000,
+      "conversion": "LENGTHTOTIME",
+      "description": "Maximum possible delay of the longest tap (3328 stages)."
+    },
+    {
+      "id": "tap1_gain",
+      "name": "Tap 1 Gain",
+      "type": "number",
+      "min": -24,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL"
+    },
+    {
+      "id": "tap2_gain",
+      "name": "Tap 2 Gain",
+      "type": "number",
+      "min": -24,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL"
+    },
+    {
+      "id": "tap3_gain",
+      "name": "Tap 3 Gain",
+      "type": "number",
+      "min": -24,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL"
+    },
+    {
+      "id": "tap4_gain",
+      "name": "Tap 4 Gain",
+      "type": "number",
+      "min": -24,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL"
+    },
+    {
+      "id": "tap5_gain",
+      "name": "Tap 5 Gain",
+      "type": "number",
+      "min": -24,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL"
+    },
+    {
+      "id": "tap6_gain",
+      "name": "Tap 6 Gain",
+      "type": "number",
+      "min": -24,
+      "max": 0,
+      "default": -6,
+      "conversion": "DBLEVEL"
+    }
+  ],
+  "registers": [
+    "pot_val",
+    "mix_acc",
+    "tap_out"
+  ],
+  "memories": [
+    {
+      "id": "buffer",
+      "size": "max_delay"
+    }
+  ]
+}
+---
+@section header
+  ; MN3011 Target Ratios (stage / 3328)
+  equ t1_ratio 0.118990   ; 396/3328
+  equ t2_ratio 0.198918   ; 662/3328
+  equ t3_ratio 0.358774   ; 1194/3328
+  equ t4_ratio 0.518630   ; 1726/3328
+  equ t5_ratio 0.838341   ; 2790/3328
+  equ t6_ratio 1.0        ; 3328/3328
+  
+@section main
+  ; 1. Feedback Processing
+  @if pinConnected(fb_in)
+    rdax ${input.fb_in}, 1.0
+    @mulcv fb_level_cv
+    sof ${param.fbk_gain}, 0.0
+  @else
+    clr
+  @endif
+  
+  ; 2. Input Summing & Write
+  rdax ${input.in}, ${param.input_gain}
+  wra ${mem.buffer}, 0.0
+
+  ; 3. Multitap Summation
+  @if pinConnected(time_cv)
+    ; --- Dynamic Time (ADDR_PTR mode) ---
+    @cv time_cv
+    wrax ${reg.pot_val}, 0.0
+    
+    ; Tap 6 (processed first for fb_out convenience)
+    rdax ${reg.pot_val}, 1.0
+    sof t6_ratio, 0
+    sof (${max_delay} / 32768.0), ((${mem.buffer} + 1) / 32768.0)
+    wrax ADDR_PTR, 0
+    rmpa 1.0
+    @if pinConnected(tap6)
+      wrax ${output.tap6}, 1.0
+    @endif
+    sof ${param.tap6_gain}, 0.0
+    wrax ${reg.mix_acc}, 0.0
+    
+    ; Tap 1
+    rdax ${reg.pot_val}, 1.0
+    sof t1_ratio, 0
+    sof (${max_delay} / 32768.0), ((${mem.buffer} + 1) / 32768.0)
+    wrax ADDR_PTR, 0
+    rmpa ${param.tap1_gain}
+    rdax ${reg.mix_acc}, 1.0
+    wrax ${reg.mix_acc}, 0.0
+    
+    ; Tap 2
+    rdax ${reg.pot_val}, 1.0
+    sof t2_ratio, 0
+    sof (${max_delay} / 32768.0), ((${mem.buffer} + 1) / 32768.0)
+    wrax ADDR_PTR, 0
+    rmpa ${param.tap2_gain}
+    rdax ${reg.mix_acc}, 1.0
+    wrax ${reg.mix_acc}, 0.0
+    
+    ; Tap 3
+    rdax ${reg.pot_val}, 1.0
+    sof t3_ratio, 0
+    sof (${max_delay} / 32768.0), ((${mem.buffer} + 1) / 32768.0)
+    wrax ADDR_PTR, 0
+    rmpa ${param.tap3_gain}
+    rdax ${reg.mix_acc}, 1.0
+    wrax ${reg.mix_acc}, 0.0
+    
+    ; Tap 4
+    rdax ${reg.pot_val}, 1.0
+    sof t4_ratio, 0
+    sof (${max_delay} / 32768.0), ((${mem.buffer} + 1) / 32768.0)
+    wrax ADDR_PTR, 0
+    rmpa ${param.tap4_gain}
+    rdax ${reg.mix_acc}, 1.0
+    wrax ${reg.mix_acc}, 0.0
+    
+    ; Tap 5
+    rdax ${reg.pot_val}, 1.0
+    sof t5_ratio, 0
+    sof (${max_delay} / 32768.0), ((${mem.buffer} + 1) / 32768.0)
+    wrax ADDR_PTR, 0
+    rmpa ${param.tap5_gain}
+    rdax ${reg.mix_acc}, 1.0
+    
+  @else
+    ; --- Static Time (Fixed RDA mode) ---
+    
+    ; Tap 6
+    rda ${mem.buffer} + (${max_delay} * ${param.time} * t6_ratio), 1.0
+    @if pinConnected(tap6)
+      wrax ${output.tap6}, 1.0
+    @endif
+    sof ${param.tap6_gain}, 0.0
+    
+    ; Tap 5
+    rda ${mem.buffer} + (${max_delay} * ${param.time} * t5_ratio), ${param.tap5_gain}
+    
+    ; Tap 4
+    rda ${mem.buffer} + (${max_delay} * ${param.time} * t4_ratio), ${param.tap4_gain}
+    
+    ; Tap 3
+    rda ${mem.buffer} + (${max_delay} * ${param.time} * t3_ratio), ${param.tap3_gain}
+    
+    ; Tap 2
+    rda ${mem.buffer} + (${max_delay} * ${param.time} * t2_ratio), ${param.tap2_gain}
+    
+    ; Tap 1
+    rda ${mem.buffer} + (${max_delay} * ${param.time} * t1_ratio), ${param.tap1_gain}
+  @endif
+  
+  ; 4. Export Final Mix
+  wrax ${output.mix}, 0.0

package/blocks/effects/delay/simple_delay.atl

@@ -0,0 +1,96 @@
+---
+{
+  "type": "effects.delay.simple",
+  "name": "Simple Delay",
+  "category": "Effects",
+  "subcategory": "Delay",
+  "description": "Simple delay line with variable time and mix control",
+  "color": "#6060c4",
+  "width": 180,
+  "inputs": [
+    {
+      "id": "audio_input",
+      "name": "Audio Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "delay_time",
+      "name": "Delay Time",
+      "type": "control",
+      "required": false,
+      "parameter": "delayLength"
+    },
+    {
+      "id": "mix_ctrl",
+      "name": "Mix",
+      "type": "control",
+      "required": false,
+      "parameter": "mix"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "audio_output",
+      "name": "Audio Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "delayLength",
+      "name": "Delay Length (ms)",
+      "type": "number",
+      "default": 500,
+      "min": 1,
+      "max": 1000,
+      "conversion": "MS_TO_SAMPLES",
+      "description": "The delay time in milliseconds. Determines the maximum possible delay time when controlled via a control signal.",
+      "step": 1
+    },
+    {
+      "id": "mix",
+      "name": "Mix",
+      "type": "number",
+      "default": 0.5,
+      "min": 0,
+      "max": 1,
+      "step": 0.01,
+      "description": "Dry/Wet mix balance. 0.0 is pure dry, 1.0 is pure wet."
+    }
+  ],
+  "memories": [
+    {
+      "id": "delayl",
+      "size": "delayLength"
+    }
+  ],
+  "registers": [
+    "dry",
+    "wet"
+  ]
+}
+---
+; Simple Delay with Mix
+; Store dry signal and write to delay
+rdax ${input.audio_input}, 1.0
+wrax ${reg.dry}, 1.0
+wra ${mem.delayl}, 0.0
+
+; Calculate Delay Pointer (ADDR_PTR is an absolute address in delay RAM)
+@cv delay_time
+; Control sweeps from [base] to [base + size]
+sof ${delayLength}/${Fs}, (${mem.delayl} + 1)/${Fs}
+wrax ADDR_PTR, 0.0
+
+; Read wet signal
+rmpa 1.0
+
+; Mixing logic: dry + mix * (wet - dry)
+rdax ${reg.dry}, -0.999 ; ACC now equals (wet - dry)
+wrax ${reg.wet}, 0.0    ; Store wet-dry in reg.wet temporarily
+
+@cv mix_ctrl
+mulx ${reg.wet}
+rdax ${reg.dry}, 1.0
+wrax ${output.audio_output}, 0.0

package/blocks/effects/delay/triple_tap_delay.atl

@@ -0,0 +1,176 @@
+---
+{
+  "type": "fx.delay.tripletap",
+  "name": "ThreeTap",
+  "category": "Effects",
+  "subcategory": "Delay",
+  "description": "Triple tap delay with independent outputs and CV modulation",
+  "color": "#6060c4",
+  "width": 200,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "feedback",
+      "name": "Feedback",
+      "type": "audio",
+      "required": false
+    },
+    {
+      "id": "delay_time_1",
+      "name": "Delay Time 1",
+      "type": "control",
+      "required": false,
+      "parameter": "tap1Time"
+    },
+    {
+      "id": "delay_time_2",
+      "name": "Delay Time 2",
+      "type": "control",
+      "required": false,
+      "parameter": "tap2Time"
+    },
+    {
+      "id": "delay_time_3",
+      "name": "Delay Time 3",
+      "type": "control",
+      "required": false,
+      "parameter": "tap3Time"
+    },
+    {
+      "id": "fbk_ctrl",
+      "name": "Feedback Gain",
+      "type": "control",
+      "required": false,
+      "parameter": "fbkGain"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "tap1",
+      "name": "Tap 1 Out",
+      "type": "audio"
+    },
+    {
+      "id": "tap2",
+      "name": "Tap 2 Out",
+      "type": "audio"
+    },
+    {
+      "id": "tap3",
+      "name": "Tap 3 Out",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "inputGain",
+      "name": "Input Gain (dB)",
+      "type": "number",
+      "default": 0,
+      "min": -24,
+      "max": 0,
+      "conversion": "DBLEVEL",
+      "step": 0.01
+    },
+    {
+      "id": "fbkGain",
+      "name": "Feedback Gain (dB)",
+      "type": "number",
+      "default": -6,
+      "min": -24,
+      "max": 0,
+      "conversion": "DBLEVEL",
+      "step": 0.01
+    },
+    {
+      "id": "delayTime",
+      "name": "Total Delay (ms)",
+      "type": "number",
+      "default": 1000,
+      "min": 10,
+      "max": 1000,
+      "conversion": "MS_TO_SAMPLES",
+      "description": "The total delay memory allocated in ms.",
+      "step": 1
+    },
+    {
+      "id": "tap1Time",
+      "name": "Tap 1 Time",
+      "type": "number",
+      "default": 0.85,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01
+    },
+    {
+      "id": "tap2Time",
+      "name": "Tap 2 Time",
+      "type": "number",
+      "default": 0.60,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01
+    },
+    {
+      "id": "tap3Time",
+      "name": "Tap 3 Time",
+      "type": "number",
+      "default": 0.45,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01
+    }
+  ],
+  "memories": [
+    {
+      "id": "delayl",
+      "size": "delayTime"
+    }
+  ],
+  "registers": [
+    "temp"
+  ]
+}
+---
+; ThreeTap Delay
+@if pinConnected(feedback)
+rdax ${input.feedback}, 1.0    ; Read at unity — @cv fbk_ctrl applies the gain scaling below
+wrax ${reg.temp}, 0.0
+@cv fbk_ctrl                   ; ACC = fbkGain_linear * pot (or just fbkGain_linear if unconnected)
+mulx ${reg.temp}               ; ACC = feedback * fbkGain [* pot]
+@endif
+rdax ${input.in}, ${inputGain}
+wra ${mem.delayl}, 0.0
+
+@if pinConnected(tap1)
+; Tap 1
+@cv delay_time_1
+sof (${delayTime} / ${Fs}), ((${mem.delayl} + 1.0) / ${Fs})
+wrax ADDR_PTR, 0.0
+rmpa 1.0
+wrax ${output.tap1}, 0.0
+@endif
+
+@if pinConnected(tap2)
+; Tap 2
+@cv delay_time_2
+sof (${delayTime} / ${Fs}), ((${mem.delayl} + 1.0) / ${Fs})
+wrax ADDR_PTR, 0.0
+rmpa 1.0
+wrax ${output.tap2}, 0.0
+@endif
+
+@if pinConnected(tap3)
+; Tap 3
+@cv delay_time_3
+sof (${delayTime} / ${Fs}), ((${mem.delayl} + 1.0) / ${Fs})
+wrax ADDR_PTR, 0.0
+rmpa 1.0
+wrax ${output.tap3}, 0.0
+@endif
+

package/blocks/effects/lo-fi/bit_mangler.atl

@@ -0,0 +1,74 @@
+---
+{
+  "type": "effects.bit_mangler",
+  "name": "The Bit-Mangler",
+  "category": "Effects",
+  "subcategory": "Lo-Fi",
+  "description": "An enveloped sample-rate reducer (Fixed: Namespaced labels and gain staging).",
+  "color": "#6f24f2",
+  "inputs": [
+    { "id": "input", "name": "Audio In", "type": "audio" },
+    { "id": "sensCV", "name": "Sensitivity", "type": "control", "required": false, "parameter": "sens" },
+    { "id": "mixCV", "name": "Mix", "type": "control", "required": false, "parameter": "mix" }
+  ],
+  "outputs": [
+    { "id": "out", "name": "Audio Out", "type": "audio" }
+  ],
+  "parameters": [
+    { "id": "base_rate", "name": "Crush Step", "type": "number", "default": 0.05, "min": 0, "max": 0.5, "step": 0.001 },
+    { "id": "sens", "name": "Env Sensitivity", "type": "number", "default": 0.1, "min": 0, "max": 1, "step": 0.01 },
+    { "id": "mix", "name": "Dry/Wet Mix", "type": "number", "default": 1.0, "min": 0, "max": 1, "step": 0.01 }
+  ],
+  "registers": [ "env", "counter", "held", "temp_mix", "dry_val" ]
+}
+---
+; The Bit-Mangler - Namespaced SRR
+; Fixes jump collisions and hardware register leakage (Register 0).
+
+@section main
+@if pinConnected(input)
+; 0. Initialization (First Run only)
+skp run, ${local.SKIP_INIT}
+rdax ${input.input}, 1.0
+wrax ${reg.held}, 0.0
+${local.SKIP_INIT}:
+
+; 1. Envelope Follower
+clr
+rdax ${input.input}, 1.0
+absa
+rdfx ${reg.env}, 0.001
+wrax ${reg.env}, 0.0
+
+; 2. S&H Counter
+; Increment = base_rate + (env * sens)
+@cv sensCV                  ; ACC = sensCV
+mulx ${reg.env}             ; ACC = sensCV * env
+rdax ${reg.counter}, 1.0    ; ACC = (sensCV * env) + counter
+sof 1.0, ${param.base_rate} ; ACC = (sensCV * env) + counter + base_rate
+wrax ${reg.counter}, 1.0
+
+; 3. Check for Sample Event (trigger at 0.99)
+sof 1.0, -0.99
+skp neg, ${local.SKIP_SAMPLE}
+
+; --- Sample Block (Runs only on Trigger) ---
+clr                     ; MUST clear ACC to avoid using the 'counter-0.95' residual!
+rdax ${input.input}, 1.0
+wrax ${reg.held}, 0.0    ; Update S&H value
+sof 0.0, 0.0
+wrax ${reg.counter}, 0.0 ; Reset counter
+
+${local.SKIP_SAMPLE}:
+; 4. Final Output Mix: Out = Dry + (Wet - Dry) * Mix
+clr                     ; Clear ACC after skip to avoid counter pollution
+@cv mixCV               ; Load mix value (0 to 1) 
+wrax ${reg.temp_mix}, 0.0
+
+rdax ${input.input}, 1.0 ; Dry signal
+wrax ${reg.dry_val}, -1.0 ; dry_val = dry, ACC = -dry
+rdax ${reg.held}, 1.0    ; ACC = wet - dry
+mulx ${reg.temp_mix}      ; ACC = (wet - dry) * mix
+rdax ${reg.dry_val}, 1.0 ; ACC = dry + (wet - dry) * mix
+wrax ${output.out}, 0.0
+@endif