@audiofab-io/fv1-core 0.2.2 → 0.4.0

package/blocks/effects/modulation/organ_synth.atl

@@ -0,0 +1,326 @@
+---
+{
+  "type": "effects.modulation.organ_synth",
+  "name": "Organ Synth",
+  "category": "Effects",
+  "subcategory": "Modulation",
+  "description": "Tonewheel organ emulator inspired by the EHX B9. Generates octave-up, fundamental, and sub-octave voices like organ drawbars, with a tonewheel tone filter and optional rotary vibrato. Play single notes for the best tracking.",
+  "color": "#CC6633",
+  "width": 180,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "rate_cv",
+      "name": "Vibrato Rate",
+      "type": "control",
+      "required": false,
+      "parameter": "vibrato_rate"
+    },
+    {
+      "id": "depth_cv",
+      "name": "Vibrato Depth",
+      "type": "control",
+      "required": false,
+      "parameter": "vibrato_depth"
+    },
+    {
+      "id": "tone_cv",
+      "name": "Tone",
+      "type": "control",
+      "required": false,
+      "parameter": "tone"
+    },
+    {
+      "id": "mix_cv",
+      "name": "Mix",
+      "type": "control",
+      "required": false,
+      "parameter": "mix"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "upper",
+      "name": "Upper (Oct Up)",
+      "type": "number",
+      "default": 0.6,
+      "min": 0.0,
+      "max": 1.5,
+      "step": 0.05,
+      "description": "Level of the +1 octave voice (4' drawbar). Adds brightness and presence."
+    },
+    {
+      "id": "fundamental",
+      "name": "Fundamental",
+      "type": "number",
+      "default": 0.8,
+      "min": 0.0,
+      "max": 1.5,
+      "step": 0.05,
+      "description": "Level of the fundamental voice (8' drawbar). The core organ tone."
+    },
+    {
+      "id": "sub",
+      "name": "Sub (Oct Down)",
+      "type": "number",
+      "default": 0.5,
+      "min": 0.0,
+      "max": 1.5,
+      "step": 0.05,
+      "description": "Level of the -1 octave voice (16' drawbar). Adds bass organ weight."
+    },
+    {
+      "id": "drive",
+      "name": "Key Click / Drive",
+      "type": "number",
+      "default": 0.8,
+      "min": 0.0,
+      "max": 1.99,
+      "step": 0.01,
+      "description": "Waveshaping intensity. Shapes the guitar into a rounder, more organ-like waveform. Higher values add harmonic grit like an overdriven Hammond."
+    },
+    {
+      "id": "tone",
+      "name": "Tone",
+      "type": "number",
+      "default": 2500,
+      "min": 300,
+      "max": 6000,
+      "step": 10,
+      "conversion": "SVFFREQ",
+      "description": "Master lowpass filter. Roll off for a warm jazz organ, open up for a bright rock organ."
+    },
+    {
+      "id": "vibrato_rate",
+      "name": "Vibrato Rate (Hz)",
+      "type": "number",
+      "default": 6.0,
+      "min": 0.5,
+      "max": 10.0,
+      "step": 0.1,
+      "conversion": "HZ_TO_LFO_RATE",
+      "description": "Rotary/vibrato speed. ~6 Hz for classic Leslie slow, ~8 Hz for fast."
+    },
+    {
+      "id": "vibrato_depth",
+      "name": "Vibrato Depth (ms)",
+      "type": "number",
+      "default": 1.0,
+      "min": 0.0,
+      "max": 5.0,
+      "step": 0.1,
+      "conversion": "MS_TO_LFO_RANGE",
+      "description": "Rotary/vibrato depth. Subtle values (~0.5-1 ms) for chorus-vibrato, higher for full Leslie warble."
+    },
+    {
+      "id": "mix",
+      "name": "Dry/Wet Mix",
+      "type": "number",
+      "default": 1.0,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01
+    }
+  ],
+  "memories": [
+    {
+      "id": "sub_buf",
+      "size": 4096
+    },
+    {
+      "id": "sub_temp",
+      "size": 1
+    },
+    {
+      "id": "up_buf",
+      "size": 4096
+    },
+    {
+      "id": "up_temp",
+      "size": 1
+    },
+    {
+      "id": "vib_buf",
+      "size": 512
+    }
+  ],
+  "registers": [
+    "shaped",
+    "sub_lp1",
+    "sub_lp2",
+    "tone_lp1",
+    "tone_lp2",
+    "tone_freq",
+    "vib_out",
+    "dry",
+    "mix_reg"
+  ]
+}
+---
+@section header
+@equals vib_center ${mem.vib_buf} + 256
+
+@section init
+  skp run, done_init
+  ; RMP0: sub-octave (-1 oct, rate -8192)
+  wldr RMP0, -8192, 4096
+  ; RMP1: octave up (+1 oct, rate 16384)
+  wldr RMP1, 16384, 4096
+  ; SIN0: rotary vibrato
+  wlds SIN0, ${param.vibrato_rate}, ${param.vibrato_depth}
+  done_init:
+
+@section main
+@if pinConnected(in)
+
+  ; ======================================================
+  ; Stage 0: Save dry signal
+  ; ======================================================
+  rdax ${input.in}, 1.0
+  wrax ${reg.dry}, 0.0
+
+  ; ======================================================
+  ; Stage 1: Waveshaping (organ-like waveform)
+  ; Soft clipping via cascaded saturation — rounds the
+  ; guitar waveform toward a smoother, organ-like shape.
+  ; ======================================================
+  rdax ${input.in}, 1.0
+  sof 1.99, 0.0
+  sof -1.99, 0.0
+  sof -1.99, 0.0
+  sof 0.5, 0.0
+  wrax ${reg.shaped}, 0.0
+
+  ; Crossfade: out = input + (shaped - input) * drive
+  rdax ${reg.shaped}, 1.0
+  rdax ${input.in}, -1.0
+  sof ${param.drive}, 0.0
+  rdax ${input.in}, 1.0
+  wrax ${reg.shaped}, 0.0
+
+  ; ======================================================
+  ; Stage 2: Write shaped signal to both pitch shift buffers
+  ; ======================================================
+  rdax ${reg.shaped}, 1.0
+  wra ${mem.sub_buf}, 0.0
+  rdax ${reg.shaped}, 1.0
+  wra ${mem.up_buf}, 0.0
+
+  ; ======================================================
+  ; Stage 3: Sub-Octave / 16' drawbar (RMP0, -1 oct)
+  ; ======================================================
+  cho rda, RMP0, REG | COMPC, ${mem.sub_buf}
+  cho rda, RMP0, 0, ${mem.sub_buf} + 1
+  wra ${mem.sub_temp}, 0.0
+  cho rda, RMP0, RPTR2 | COMPC, ${mem.sub_buf}
+  cho rda, RMP0, RPTR2, ${mem.sub_buf} + 1
+  cho sof, RMP0, NA | COMPC, 0.0
+  cho rda, RMP0, NA, ${mem.sub_temp}
+
+  ; 2-pole lowpass to smooth sub artifacts
+  rdax ${reg.sub_lp1}, -1.0
+  sof 0.15, 0.0
+  rdax ${reg.sub_lp1}, 1.0
+  wrax ${reg.sub_lp1}, 1.0
+
+  rdax ${reg.sub_lp2}, -1.0
+  sof 0.15, 0.0
+  rdax ${reg.sub_lp2}, 1.0
+  wrax ${reg.sub_lp2}, 1.0
+
+  ; Scale by sub level
+  sof ${param.sub}, 0.0
+
+  ; ======================================================
+  ; Stage 4: Add Fundamental / 8' drawbar
+  ; ======================================================
+  rdax ${reg.shaped}, ${param.fundamental}
+
+  ; ======================================================
+  ; Stage 5: Octave Up / 4' drawbar (RMP1, +1 oct)
+  ; ======================================================
+  ; Save current voice mix (sub + fundamental) to sub_temp
+  wra ${mem.sub_temp}, 0.0
+
+  cho rda, RMP1, REG | COMPC, ${mem.up_buf}
+  cho rda, RMP1, 0, ${mem.up_buf} + 1
+  wra ${mem.up_temp}, 0.0
+  cho rda, RMP1, RPTR2 | COMPC, ${mem.up_buf}
+  cho rda, RMP1, RPTR2, ${mem.up_buf} + 1
+  cho sof, RMP1, NA | COMPC, 0.0
+  cho rda, RMP1, NA, ${mem.up_temp}
+
+  ; Scale by upper level, add back voice mix
+  sof ${param.upper}, 0.0
+  rda ${mem.sub_temp}, 1.0
+
+  ; ======================================================
+  ; Stage 6: Rotary Vibrato (SIN0)
+  ; ======================================================
+  ; Write mixed voices to vibrato delay FIRST (ACC holds voice mix)
+  wra ${mem.vib_buf}, 0.0
+
+  ; Update vibrato rate/depth from CV (safe to clobber ACC now)
+  @if pinConnected(rate_cv)
+  rdax ${input.rate_cv}, ${param.vibrato_rate} / 511.0
+  sof 1.0, ${param.vibrato_rate.min} / 511.0
+  wrax SIN0_RATE, 0.0
+  @endif
+
+  @if pinConnected(depth_cv)
+  rdax ${input.depth_cv}, ${param.vibrato_depth} / 32767.0
+  sof 1.0, ${param.vibrato_depth.min} / 32767.0
+  wrax SIN0_RANGE, 0.0
+  @endif
+
+  ; Read with LFO modulation for pitch vibrato
+  cho rda, SIN0, SIN | REG | COMPC, ${vib_center}
+  cho rda, SIN0, SIN, ${vib_center} + 1
+
+  ; ======================================================
+  ; Stage 7: Tone Filter (2-pole Lowpass)
+  ; ======================================================
+  ; Save vibrato output, then load tone cutoff from CV
+  wrax ${reg.vib_out}, 0.0
+
+  @cv tone_cv
+  wrax ${reg.tone_freq}, 0.0
+
+  ; Pole 1
+  rdax ${reg.vib_out}, 1.0
+  rdax ${reg.tone_lp1}, -1.0
+  mulx ${reg.tone_freq}
+  rdax ${reg.tone_lp1}, 1.0
+  wrax ${reg.tone_lp1}, 1.0
+
+  ; Pole 2
+  rdax ${reg.tone_lp2}, -1.0
+  mulx ${reg.tone_freq}
+  rdax ${reg.tone_lp2}, 1.0
+  wrax ${reg.tone_lp2}, 1.0
+
+  ; ======================================================
+  ; Stage 8: Dry/Wet Mix
+  ; ======================================================
+  @cv mix_cv
+  wrax ${reg.mix_reg}, 0.0
+
+  rdax ${reg.tone_lp2}, 1.0
+  rdax ${reg.dry}, -1.0
+  mulx ${reg.mix_reg}
+  rdax ${reg.dry}, 1.0
+  wrax ${output.out}, 0.0
+
+@endif

package/blocks/effects/modulation/phaser.atl

@@ -0,0 +1,300 @@
+---
+{
+  "type": "effects.modulation.phaser",
+  "category": "Effects",
+  "subcategory": "Modulation",
+  "name": "Phaser",
+  "description": "Multi-stage phaser with internal SIN1 LFO or external CV control. Produces the classic sweeping notch effect by cascading first-order all-pass filters.",
+  "color": "#00ffff",
+  "labelTemplate": "${param.lfoSel == 0 ? 'SIN0' : 'SIN1'}",
+  "inputs": [
+    {
+      "id": "audio_input",
+      "name": "Audio Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "lfo_speed",
+      "name": "LFO Speed",
+      "type": "control",
+      "required": false,
+      "parameter": "rate"
+    },
+    {
+      "id": "lfo_width",
+      "name": "LFO Width",
+      "type": "control",
+      "required": false,
+      "parameter": "depth"
+    },
+    {
+      "id": "phase_cv",
+      "name": "Phase CV",
+      "type": "control",
+      "required": false,
+      "parameter": "depth"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "mix_out",
+      "name": "Mix Out",
+      "type": "audio"
+    },
+    {
+      "id": "wet_out",
+      "name": "Wet Out",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "lfoSel",
+      "name": "LFO Selection",
+      "type": "select",
+      "default": 0,
+      "options": [
+        { "value": 0, "label": "SIN0" },
+        { "value": 1, "label": "SIN1" }
+      ],
+      "description": "Which SIN oscillator to use (0 or 1)."
+    },
+    {
+      "id": "rate",
+      "name": "LFO Rate",
+      "type": "number",
+      "default": 1.0,
+      "min": 0.05,
+      "max": 10.0,
+      "step": 0.01,
+      "conversion": "HZ_TO_LFO_RATE",
+      "description": "Speed of the internal SIN1 modulation LFO."
+    },
+    {
+      "id": "depth",
+      "name": "Modulation Depth",
+      "type": "number",
+      "default": 0.25,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01,
+      "description": "Depth of the phase sweep."
+    },
+    {
+      "id": "stages",
+      "name": "Stages",
+      "type": "select",
+      "default": 2,
+      "options": [
+        { "label": "2 Stages", "value": 1 },
+        { "label": "4 Stages", "value": 2 },
+        { "label": "6 Stages", "value": 3 },
+        { "label": "8 Stages", "value": 4 },
+        { "label": "10 Stages", "value": 5 }
+      ],
+      "description": "Number of all-pass stages. More stages create more notches in the spectrum."
+    },
+    {
+      "id": "mode",
+      "name": "Control Mode",
+      "type": "select",
+      "default": 0,
+      "options": [
+        { "label": "Internal LFO", "value": 0 },
+        { "label": "Manual / Phase CV", "value": 1 }
+      ],
+      "description": "Source of phase modulation."
+    }
+  ],
+  "registers": [
+    "p1", "p2", "p3", "p4", "p5", "p6", "p7", "p8", "p9", "p10",
+    "temp", "temp1", "phaseReg", "depthReg", "wet"
+  ]
+}
+---
+; Phaser
+; Based on PhaserCADBlock.java
+@if ${param.lfoSel} == 0
+@equals lfoNum SIN0
+@equals lfoRateReg SIN0_RATE
+@else
+@equals lfoNum SIN1
+@equals lfoRateReg SIN1_RATE
+@endif
+
+
+@section init
+@if isequalto mode 0
+skp run, done_lfo
+wlds ${lfoNum}, ${param.rate}, 32767
+done_lfo:
+@endif
+
+@section main
+@if pinConnected(audio_input)
+
+; --- Phase Coefficient Setup ---
+@if isequalto mode 0
+; Internal LFO Configuration
+@if pinConnected(lfo_speed)
+rdax ${input.lfo_speed}, ${rate} / 511.0
+wrax ${lfoRateReg}, 0.0
+@endif
+@if pinConnected(lfo_width)
+@cv lfo_width
+wrax ${reg.depthReg}, 0.0
+@else
+sof 0.0, ${param.depth}
+wrax ${reg.depthReg}, 0.0
+@endif
+
+cho rdal, ${lfoNum}
+sof 0.5, 0.5                    ; Map -1..1 to 0..1
+; Nonlinear sweep approximation
+sof 1.0, -0.5                   ; Center at 0.5
+sof 1.999, 0.0                  ; Expand to -1..1
+mulx ${reg.depthReg}            ; Scale by depth
+sof 0.15, 0.83                  ; Map to all-pass stable range [0.83, 0.98]
+wrax ${reg.phaseReg}, 0.0
+@else
+; External Manual CV
+@cv phase_cv
+sof 0.15, 0.83                  ; Map CV [0..1] to [0.83, 0.98]
+wrax ${reg.phaseReg}, 0.0
+@endif
+
+; --- All-pass Filter Chain ---
+; Use 1/64 attenuation to maintain headroom through the cascade
+rdax ${input.audio_input}, 0.015625
+wrax ${reg.temp}, 0.0           ; Input to first stage
+
+; Stage 1
+rdax ${reg.temp}, 1.0
+wrax ${reg.temp1}, 0.0
+rdax ${reg.p1}, 1.0
+wrax ${reg.temp}, 1.0
+mulx ${reg.phaseReg}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.p1}, -1.0
+mulx ${reg.phaseReg}
+
+; Stage 2
+rdax ${reg.temp}, 1.0
+wrax ${reg.temp1}, 0.0
+rdax ${reg.p2}, 1.0
+wrax ${reg.temp}, 1.0
+mulx ${reg.phaseReg}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.p2}, -1.0
+mulx ${reg.phaseReg}
+
+; Stage 3 & 4
+@if stages >= 2
+rdax ${reg.temp}, 1.0
+wrax ${reg.temp1}, 0.0
+rdax ${reg.p3}, 1.0
+wrax ${reg.temp}, 1.0
+mulx ${reg.phaseReg}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.p3}, -1.0
+mulx ${reg.phaseReg}
+
+rdax ${reg.temp}, 1.0
+wrax ${reg.temp1}, 0.0
+rdax ${reg.p4}, 1.0
+wrax ${reg.temp}, 1.0
+mulx ${reg.phaseReg}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.p4}, -1.0
+mulx ${reg.phaseReg}
+@endif
+
+; Stage 5 & 6
+@if stages >= 3
+rdax ${reg.temp}, 1.0
+wrax ${reg.temp1}, 0.0
+rdax ${reg.p5}, 1.0
+wrax ${reg.temp}, 1.0
+mulx ${reg.phaseReg}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.p5}, -1.0
+mulx ${reg.phaseReg}
+
+rdax ${reg.temp}, 1.0
+wrax ${reg.temp1}, 0.0
+rdax ${reg.p6}, 1.0
+wrax ${reg.temp}, 1.0
+mulx ${reg.phaseReg}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.p6}, -1.0
+mulx ${reg.phaseReg}
+@endif
+
+; Stage 7 & 8
+@if stages >= 4
+rdax ${reg.temp}, 1.0
+wrax ${reg.temp1}, 0.0
+rdax ${reg.p7}, 1.0
+wrax ${reg.temp}, 1.0
+mulx ${reg.phaseReg}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.p7}, -1.0
+mulx ${reg.phaseReg}
+
+rdax ${reg.temp}, 1.0
+wrax ${reg.temp1}, 0.0
+rdax ${reg.p8}, 1.0
+wrax ${reg.temp}, 1.0
+mulx ${reg.phaseReg}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.p8}, -1.0
+mulx ${reg.phaseReg}
+@endif
+
+; Stage 9 & 10
+@if stages >= 5
+rdax ${reg.temp}, 1.0
+wrax ${reg.temp1}, 0.0
+rdax ${reg.p9}, 1.0
+wrax ${reg.temp}, 1.0
+mulx ${reg.phaseReg}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.p9}, -1.0
+mulx ${reg.phaseReg}
+
+rdax ${reg.temp}, 1.0
+wrax ${reg.temp1}, 0.0
+rdax ${reg.p10}, 1.0
+wrax ${reg.temp}, 1.0
+mulx ${reg.phaseReg}
+rdax ${reg.temp1}, 1.0
+wrax ${reg.p10}, -1.0
+mulx ${reg.phaseReg}
+@endif
+
+; Final Stage Output Load
+rdax ${reg.temp}, 1.0
+
+; --- Gain Restoration ---
+; Restores the 1/64 attenuation (6 stages of sof -2.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 ${reg.wet}, 1.0                ; Wet signal in wet register and ACC
+
+; --- Output Routing ---
+@if pinConnected(mix_out)
+rdax ${input.audio_input}, 1.0      ; Dry + Wet
+wrax ${output.mix_out}, 0.0
+@endif
+
+@if pinConnected(wet_out)
+rdax ${reg.wet}, 1.0
+wrax ${output.wet_out}, 0.0
+@endif
+
+@endif

package/blocks/effects/pitch/octave_up_down.atl

@@ -0,0 +1,80 @@
+---
+{
+  "type": "effects.pitch.octave_up_down",
+  "name": "Octave Up & Down",
+  "category": "Effects",
+  "subcategory": "Pitch",
+  "description": "Fixed pitch shifter with both Octave Up and Octave Down outputs.",
+  "color": "#fcba03",
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Input",
+      "type": "audio",
+      "required": true
+    }
+  ],
+  "outputs": [
+    {
+      "id": "octave_down",
+      "name": "Octave Down",
+      "type": "audio"
+    },
+    {
+      "id": "octave_up",
+      "name": "Octave Up",
+      "type": "audio"
+    }
+  ],
+  "memories": [
+    {
+      "id": "delayl",
+      "size": "bufferSize"
+    },
+    {
+      "id": "temp",
+      "size": 1
+    }
+  ],
+  "registers": [],
+  "parameters": []
+}
+---
+@section header
+@equals bufferSize 4096
+
+@section init
+; Octave Up (s = 2; rate = (2-1)*16384 = 16384)
+; Octave Down (s = 0.5; rate = (0.5-1)*16384 = -8192)
+skp run, done_init
+wldr 0, -8192, ${bufferSize}
+wldr 1, 16384, ${bufferSize}
+done_init:
+
+@section main
+rdax ${input.in}, 1.0
+wra ${mem.delayl}, 0.0
+
+@if pinConnected(octave_down)
+; Perform Octave Down (RMP0)
+cho rda, RMP0, REG | COMPC, ${mem.delayl}
+cho rda, RMP0, 0, ${mem.delayl} + 1
+wra ${mem.temp}, 0.0
+cho rda, RMP0, RPTR2 | COMPC, ${mem.delayl}
+cho rda, RMP0, RPTR2, ${mem.delayl} + 1
+cho sof, RMP0, NA | COMPC, 0.0
+cho rda, RMP0, NA, ${mem.temp}
+wrax ${output.octave_down}, 0.0
+@endif
+
+@if pinConnected(octave_up)
+; Perform Octave Up (RMP1)
+cho rda, RMP1, REG | COMPC, ${mem.delayl}
+cho rda, RMP1, 0, ${mem.delayl} + 1
+wra ${mem.temp}, 0.0
+cho rda, RMP1, RPTR2 | COMPC, ${mem.delayl}
+cho rda, RMP1, RPTR2, ${mem.delayl} + 1
+cho sof, RMP1, NA | COMPC, 0.0
+cho rda, RMP1, NA, ${mem.temp}
+wrax ${output.octave_up}, 0.0
+@endif