@audiofab-io/fv1-core 0.2.2 → 0.4.0

package/blocks/effects/pitch/pitch_offset.atl

@@ -0,0 +1,149 @@
+---
+{
+  "type": "effects.pitch.pitch_offset",
+  "name": "Pitch Offset (Hilbert)",
+  "category": "Effects",
+  "subcategory": "Pitch",
+  "description": "Bipolar frequency shift (+/-). Neutral at 12 o'clock, turning down lowers pitch, turning up raises pitch.",
+  "color": "#fcba03",
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Audio Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "shift_ctrl",
+      "name": "Shift CV",
+      "type": "control",
+      "required": false,
+      "parameter": "shiftValue"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "shiftRange",
+      "name": "Shift Range (Hz)",
+      "type": "number",
+      "default": 600,
+      "min": 1,
+      "max": 2000,
+      "conversion": "HZ_TO_HILBERT_SHIFT",
+      "description": "The total frequency range covered by the Shift control (e.g. 600 means +/- 300Hz)."
+    },
+    {
+      "id": "shiftValue",
+      "name": "Shift",
+      "type": "number",
+      "default": 0.5,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01,
+      "description": "Manual control for pitch shift. 0.5 is neutral (no shift)."
+    }
+  ],
+  "registers": [
+    "sigs",
+    "sigc",
+    "lpf",
+    "hpf",
+    "sigfil",
+    "sinosc",
+    "cososc",
+    "temp",
+    "shift_amount",
+    "potfil"
+  ],
+  "memories": [
+    { "id": "ap1", "size": 2 },
+    { "id": "ap2", "size": 2 },
+    { "id": "ap3", "size": 2 },
+    { "id": "ap4", "size": 2 },
+    { "id": "ap5", "size": 2 },
+    { "id": "ap6", "size": 2 }
+  ]
+}
+---
+@section header
+
+@section init
+; Initialize oscillator (cosine = 1.0)
+skp run, done_init
+or $7fffff
+wrax ${reg.cososc}, 0.0
+done_init:
+
+@section main
+; 1. Process CV and smoothing
+@cv shift_ctrl
+; ACC = Shift position (0..1, defaults to 0.5)
+rdfx ${reg.potfil}, 0.001
+wrlx ${reg.potfil}, -1.0
+; Map [0..1] to [Range/2 .. -Range/2]
+; Bipolar: (0.5 - shiftValue) * Range
+sof -1.0, 0.5
+sof ${shiftRange}, 0.0 ; Substitutes converted HZ_TO_HILBERT_SHIFT value
+wrax ${reg.shift_amount}, 0.0
+
+; 2. Audio input filtering (300Hz HPF, 3kHz LPF)
+rdax ${input.in}, 1.0
+rdfx ${reg.hpf}, 0.04
+wrhx ${reg.hpf}, -1.0
+rdfx ${reg.lpf}, 0.4
+wrlx ${reg.lpf}, -1.0
+wrax ${reg.sigfil}, 0.0039 ; Attenuate to avoid clipping in Hilbert chain
+
+; 3. All-pass phase shifter bank (Sine path)
+rda ${mem.ap1} + 1, 0.995 ; 44Hz
+wrap ${mem.ap1}, -0.995
+rda ${mem.ap2} + 1, 0.937 ; 488Hz
+wrap ${mem.ap2}, -0.937
+rda ${mem.ap3} + 1, 0.61 ; 3531Hz
+wrap ${mem.ap3}, -0.61
+wrax ${reg.sigs}, 0.0
+
+; 4. All-pass phase shifter bank (Cosine path)
+rdax ${reg.sigfil}, 0.0039 ; Match Sine path attenuation
+rda ${mem.ap4} + 1, 0.978 ; 178Hz
+wrap ${mem.ap4}, -0.978
+rda ${mem.ap5} + 1, 0.84 ; 1289Hz
+wrap ${mem.ap5}, -0.84
+rda ${mem.ap6} + 1, 0.0
+wrap ${mem.ap6}, 0.0
+wrax ${reg.sigc}, 0.0
+
+; 5. Update Oscillator (Quadrature oscillator)
+rdax ${reg.cososc}, 1.0
+mulx ${reg.shift_amount}
+rdax ${reg.sinosc}, 1.0
+wrax ${reg.sinosc}, -1.0
+mulx ${reg.shift_amount}
+rdax ${reg.cososc}, 1.0
+wrax ${reg.cososc}, 0.0
+
+; 6. Modulation and Summing (Hilbert - SpinCAD pattern)
+; Sum = -2 * (in_c * cos + in_s * sin) -> Frequency DOWN if rate > 0
+rdax ${reg.sigc}, -2.0
+mulx ${reg.cososc}
+wrax ${reg.temp}, 0.0
+rdax ${reg.sigs}, -2.0
+mulx ${reg.sinosc}
+rdax ${reg.temp}, 1.0
+
+; Scale back up to recovery signal level
+sof -2.0, 0.0
+sof -2.0, 0.0
+sof -2.0, 0.0
+sof -2.0, 0.0
+sof -2.0, 0.0
+sof -2.0, 0.0
+sof -2.0, 0.0
+wrax ${output.out}, 0.0

package/blocks/effects/pitch/pitch_offset_dual.atl

@@ -0,0 +1,197 @@
+---
+{
+  "type": "effects.pitch.pitch_offset_dual",
+  "name": "Dual Pitch Offset (Hilbert)",
+  "category": "Effects",
+  "subcategory": "Pitch",
+  "description": "Two independent bipolar frequency offsets mixed to a mono output.",
+  "color": "#fcba03",
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Audio Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "shift1_ctrl",
+      "name": "Shift 1 CV",
+      "type": "control",
+      "required": false,
+      "parameter": "shiftValue1"
+    },
+    {
+      "id": "shift2_ctrl",
+      "name": "Shift 2 CV",
+      "type": "control",
+      "required": false,
+      "parameter": "shiftValue2"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "shiftRange",
+      "name": "Shift Range (Hz)",
+      "type": "number",
+      "default": 600,
+      "min": 1,
+      "max": 2000,
+      "conversion": "HZ_TO_HILBERT_SHIFT",
+      "description": "Total frequency range for both controls."
+    },
+    {
+      "id": "shiftValue1",
+      "name": "Shift 1",
+      "type": "number",
+      "default": 0.5,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01,
+      "description": "Bipolar control for shift 1."
+    },
+    {
+      "id": "shiftValue2",
+      "name": "Shift 2",
+      "type": "number",
+      "default": 0.5,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01,
+      "description": "Bipolar control for shift 2."
+    }
+  ],
+  "registers": [
+    "sigs",
+    "sigc",
+    "lpf",
+    "hpf",
+    "sigfil",
+    "sinosc1",
+    "cososc1",
+    "sinosc2",
+    "cososc2",
+    "temp1",
+    "temp2",
+    "shift1_amt",
+    "shift2_amt",
+    "potfil1",
+    "potfil2"
+  ],
+  "memories": [
+    { "id": "ap1", "size": 2 },
+    { "id": "ap2", "size": 2 },
+    { "id": "ap3", "size": 2 },
+    { "id": "ap4", "size": 2 },
+    { "id": "ap5", "size": 2 },
+    { "id": "ap6", "size": 2 }
+  ]
+}
+---
+@section header
+
+@section init
+; Initialize oscillators (cosine = 1.0)
+skp run, done_init
+or $7fffff
+wrax ${reg.cososc1}, 1.0
+wrax ${reg.cososc2}, 0.0
+done_init:
+
+@section main
+; 1. Process CVs and smoothing
+@cv shift1_ctrl
+rdfx ${reg.potfil1}, 0.001
+wrlx ${reg.potfil1}, -1.0
+; Bipolar mapping: ACC = (0.5 - shift1) * range
+sof -1.0, 0.5
+sof ${shiftRange}, 0.0
+wrax ${reg.shift1_amt}, 0.0
+
+@cv shift2_ctrl
+rdfx ${reg.potfil2}, 0.001
+wrlx ${reg.potfil2}, -1.0
+; Bipolar mapping: ACC = (0.5 - shift2) * range
+sof -1.0, 0.5
+sof ${shiftRange}, 0.0
+wrax ${reg.shift2_amt}, 0.0
+
+; 2. Audio input filtering
+rdax ${input.in}, 1.0
+rdfx ${reg.hpf}, 0.04
+wrhx ${reg.hpf}, -1.0
+rdfx ${reg.lpf}, 0.4
+wrlx ${reg.lpf}, -1.0
+wrax ${reg.sigfil}, 0.0039
+
+; 3. Hilbert phase shifter (Shared)
+; Sine path
+rda ${mem.ap1} + 1, 0.995 ; 44Hz
+wrap ${mem.ap1}, -0.995
+rda ${mem.ap2} + 1, 0.937 ; 488Hz
+wrap ${mem.ap2}, -0.937
+rda ${mem.ap3} + 1, 0.61 ; 3531Hz
+wrap ${mem.ap3}, -0.61
+wrax ${reg.sigs}, 0.0
+
+; Cosine path
+rdax ${reg.sigfil}, 0.0039
+rda ${mem.ap4} + 1, 0.978 ; 178Hz
+wrap ${mem.ap4}, -0.978
+rda ${mem.ap5} + 1, 0.84 ; 1289Hz
+wrap ${mem.ap5}, -0.84
+rda ${mem.ap6} + 1, 0.0
+wrap ${mem.ap6}, 0.0
+wrax ${reg.sigc}, 0.0
+
+; 4. Oscillator 1 update
+rdax ${reg.cososc1}, 1.0
+mulx ${reg.shift1_amt}
+rdax ${reg.sinosc1}, 1.0
+wrax ${reg.sinosc1}, -1.0
+mulx ${reg.shift1_amt}
+rdax ${reg.cososc1}, 1.0
+wrax ${reg.cososc1}, 0.0
+
+; 5. Pitch shift 1 calculation
+rdax ${reg.sigc}, -2.0
+mulx ${reg.cososc1}
+wrax ${reg.temp1}, 0.0
+rdax ${reg.sigs}, -2.0
+mulx ${reg.sinosc1}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.temp1}, 0.0
+
+; 6. Oscillator 2 update
+rdax ${reg.cososc2}, 1.0
+mulx ${reg.shift2_amt}
+rdax ${reg.sinosc2}, 1.0
+wrax ${reg.sinosc2}, -1.0
+mulx ${reg.shift2_amt}
+rdax ${reg.cososc2}, 1.0
+wrax ${reg.cososc2}, 0.0
+
+; 7. Pitch shift 2 calculation
+rdax ${reg.sigc}, -2.0
+mulx ${reg.cososc2}
+wrax ${reg.temp2}, 0.0
+rdax ${reg.sigs}, -2.0
+mulx ${reg.sinosc2}
+rdax ${reg.temp2}, 1.0
+
+; 8. Sum results and scale up
+rdax ${reg.temp1}, 0.5 ; Mix
+sof -2.0, 0.0
+sof -2.0, 0.0
+sof -2.0, 0.0
+sof -2.0, 0.0
+sof -2.0, 0.0
+sof -2.0, 0.0
+sof -2.0, 0.0
+wrax ${output.out}, 0.0

package/blocks/effects/pitch/pitch_shift.atl

@@ -0,0 +1,115 @@
+---
+{
+  "type": "effects.pitch.pitch_shift",
+  "name": "Pitch Shift",
+  "category": "Effects",
+  "subcategory": "Pitch",
+  "description": "Adjustable pitch shifter using Ramp LFOs.",
+  "color": "#fcba03",
+  "width": 180,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "pitch_ctrl",
+      "name": "Pitch CV",
+      "type": "control",
+      "required": false,
+      "parameter": "semitones"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "semitones",
+      "name": "Pitch (Semitones)",
+      "type": "number",
+      "default": 12,
+      "min": -24,
+      "max": 24,
+      "step": 0.1,
+      "conversion": "SEMITONES_TO_RATE",
+      "description": "Base pitch shift in semitones. If Pitch CV is connected, this acts as the maximum shift range."
+    },
+    {
+      "id": "lfoWidth",
+      "name": "Buffer Size",
+      "type": "select",
+      "default": 4096,
+      "options": [
+        { "label": "4096 (Smooth)", "value": 4096 },
+        { "label": "2048", "value": 2048 },
+        { "label": "1024", "value": 1024 },
+        { "label": "512 (Lo-fi)", "value": 512 }
+      ],
+      "description": "Size of the pitch shift buffer. Larger values are smoother but add more latency."
+    },
+    {
+      "id": "lfoSel",
+      "name": "LFO Slot",
+      "type": "select",
+      "default": 0,
+      "options": [
+        { "label": "Ramp 0", "value": 0 },
+        { "label": "Ramp 1", "value": 1 }
+      ]
+    }
+  ],
+  "memories": [
+    {
+      "id": "buffer",
+      "size": "lfoWidth"
+    },
+    {
+      "id": "temp",
+      "size": 1
+    }
+  ],
+  "registers": []
+}
+---
+@section header
+@if lfoSel == 0
+@equals lfo RMP0
+@equals lfo_rate RMP0_RATE
+@else
+@equals lfo RMP1
+@equals lfo_rate RMP1_RATE
+@endif
+
+@section init
+; Initialize Ramp LFO
+skp run, done_init
+wldr ${lfoSel}, ${semitones}, ${lfoWidth}
+done_init:
+
+@section main
+; Write input to delay buffer
+rdax ${input.in}, 1.0
+wra ${mem.buffer}, 0.0
+
+; Update pitch shift rate via CV
+@cv pitch_ctrl
+wrax ${lfo_rate}, 0.0
+
+; Perform pitch shift (dual-tap for crossfading)
+cho rda, ${lfo}, REG | COMPC, ${mem.buffer}
+cho rda, ${lfo}, 0, ${mem.buffer} + 1
+wra ${mem.temp}, 0.0
+
+cho rda, ${lfo}, RPTR2 | COMPC, ${mem.buffer}
+cho rda, ${lfo}, RPTR2, ${mem.buffer} + 1
+cho sof, ${lfo}, NA | COMPC, 0.0
+cho rda, ${lfo}, NA, ${mem.temp}
+
+wrax ${output.out}, 0.0

package/blocks/effects/pitch/sub_octave.atl

@@ -0,0 +1,100 @@
+---
+{
+  "type": "fx.sub_octave",
+  "name": "Sub-Octave Synth",
+  "category": "Effects",
+  "subcategory": "Pitch",
+  "description": "Clean -1 octave generator with an integrated lowpass filter to remove pitch-shifting artifacts.",
+  "color": "#fcba03",
+  "width": 180,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Input",
+      "type": "audio",
+      "required": true
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "sub_level",
+      "name": "Sub Level",
+      "type": "number",
+      "default": 1.0,
+      "min": 0.0,
+      "max": 1.5,
+      "step": 0.05
+    },
+    {
+      "id": "filter_freq",
+      "name": "Filter Frequency",
+      "type": "number",
+      "default": 250,
+      "min": 80,
+      "max": 800,
+      "step": 10,
+      "conversion": "SVFFREQ",
+      "description": "Frequency cutoff to remove digital fuzz from the pitch shifted signal."
+    }
+  ],
+  "memories": [
+    {
+      "id": "buffer",
+      "size": 4096
+    },
+    {
+      "id": "temp",
+      "size": 1
+    }
+  ],
+  "registers": [
+    "lps",
+    "lp2"
+  ]
+}
+---
+@section init
+  ; Initialize Ramp LFO for EXACTLY -1 Octave (rate -8192 = 0.5x speed)
+  skp run, init_sub
+  wldr RMP0, -8192, 4096
+  init_sub:
+
+@section main
+  ; Write input to delay buffer
+  rdax ${input.in}, 1.0
+  wra ${mem.buffer}, 0.0
+
+  ; Read Pitch -1 Octave
+  cho rda, RMP0, REG | COMPC, ${mem.buffer}
+  cho rda, RMP0, 0, ${mem.buffer} + 1
+  wra ${mem.temp}, 0.0
+  cho rda, RMP0, RPTR2 | COMPC, ${mem.buffer}
+  cho rda, RMP0, RPTR2, ${mem.buffer} + 1
+  cho sof, RMP0, NA | COMPC, 0.0
+  cho rda, RMP0, NA, ${mem.temp}
+  
+  ; ACC now contains the raw -1 octave signal
+  ; Apply 2-Pole Lowpass filter to clean it up into a synth sine wave
+  
+  ; Pole 1
+  rdax ${reg.lps}, -1.0
+  sof ${param.filter_freq}, 0.0
+  rdax ${reg.lps}, 1.0
+  wrax ${reg.lps}, 1.0
+  
+  ; Pole 2
+  rdax ${reg.lp2}, -1.0
+  sof ${param.filter_freq}, 0.0
+  rdax ${reg.lp2}, 1.0
+  wrax ${reg.lp2}, 1.0
+  
+  ; Gain
+  sof ${param.sub_level}, 0.0
+  wrax ${output.out}, 0.0

package/blocks/effects/reverb/ducking_reverb.atl

@@ -0,0 +1,145 @@
+---
+{
+  "type": "fx.ducking_reverb",
+  "name": "Ducking Reverb",
+  "category": "Effects",
+  "subcategory": "Reverb",
+  "description": "Reverb that automatically ducks in volume while you are playing.",
+  "color": "#7100fc",
+  "width": 180,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Audio Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "decay_cv",
+      "name": "Decay",
+      "type": "control",
+      "required": false,
+      "parameter": "decay"
+    },
+    {
+      "id": "duck_sens_cv",
+      "name": "Sensitivity",
+      "type": "control",
+      "required": false,
+      "parameter": "duck_sens"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Audio Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "decay",
+      "name": "Reverb Decay",
+      "type": "number",
+      "default": 0.85,
+      "min": 0,
+      "max": 0.99,
+      "step": 0.01,
+      "description": "Length of the reverb tail."
+    },
+    {
+      "id": "duck_sens",
+      "name": "Ducking Sensitivity",
+      "type": "number",
+      "default": 2.0,
+      "min": 0.0,
+      "max": 10.0,
+      "step": 0.1,
+      "description": "How hard the reverb ducks when you play."
+    }
+  ],
+  "memories": [
+    { "id": "ap1", "size": 142 },
+    { "id": "ap2", "size": 379 },
+    { "id": "ap3", "size": 842 },
+    { "id": "ap4", "size": 1111 },
+    { "id": "del1", "size": 4012 },
+    { "id": "del2", "size": 5211 }
+  ],
+  "registers": [
+    "env",
+    "gain",
+    "apout",
+    "duck_sens_val",
+    "decay_val"
+  ]
+}
+---
+@section main
+  @equals kap 0.5
+  
+  ; Evaluate CVs
+  @cv duck_sens_cv
+  wrax ${reg.duck_sens_val}, 0.0
+  @cv decay_cv
+  wrax ${reg.decay_val}, 0.0
+  
+  ; 1. Envelope Follower (Fast Attack, Slow Release)
+  rdax ${input.in}, 1.0
+  absa
+  rdax ${reg.env}, -1.0           ; ACC = |IN| - ENV
+  skp gez, attack
+  ; Release path
+  sof 0.005, 0.0                  ; Slow release
+  skp run, update_env
+attack:
+  sof 0.5, 0.0                    ; Fast attack
+update_env:
+  rdax ${reg.env}, 1.0            ; ACC = Delta + ENV
+  wrax ${reg.env}, 1.0            ; Update ENV register, keeping ENV in ACC
+  
+  ; 2. Calculate Ducking Gain (Gain = 1.0 - Sens * ENV)
+  ; Limit Gain from dropping below 0
+  rdax ${reg.env}, -0.25         ; ACC = -ENV/4 (Scale down env impact to allow high sens numbers)
+  mulx ${reg.duck_sens_val}      ; ACC = -ENV/4 * Sens
+  sof 1.0, 1.0                   ; ACC = 1.0 - (ENV/4 * Sens)
+  
+  ; Clamp Gain to positive values
+  skp gez, no_clamp
+  sof 0.0, 0.0
+no_clamp:
+  wrax ${reg.gain}, 0.0           ; Save final Ducking Gain
+  
+  ; 3. Reverb Input scaling (Wet signal only)
+  rdax ${input.in}, 0.25
+  mulx ${reg.gain}                ; ACC = Input * DuckingGain
+
+  ; 4. Reverb Processing (Minimal 4 Allpass, 2 Delay Network)
+  rda ${mem.ap1}#, ${kap}
+  wrap ${mem.ap1}, -1.0
+  rda ${mem.ap2}#, ${kap}
+  wrap ${mem.ap2}, -1.0
+  rda ${mem.ap3}#, ${kap}
+  wrap ${mem.ap3}, -1.0
+  rda ${mem.ap4}#, ${kap}
+  wrap ${mem.ap4}, -1.0
+  
+  ; Saving Allpass Output to write into the reverb tank
+  wrax ${reg.apout}, 0.0
+  
+  ; Delay Loop 1 (Tank Left)
+  rdax ${reg.apout}, 1.0
+  rda ${mem.del2}#, 1.0
+  mulx ${reg.decay_val}
+  wra ${mem.del1}, 0.0
+
+  ; Delay Loop 2 (Tank Right)
+  rdax ${reg.apout}, 1.0
+  rda ${mem.del1}#, 1.0
+  mulx ${reg.decay_val}
+  wra ${mem.del2}, 0.0
+  
+  ; 5. Output
+  rda ${mem.del1}#, 1.0
+  rda ${mem.del2}#, 1.0
+  wrax ${output.out}, 0.0