@audiofab-io/fv1-core 0.2.3 → 0.4.0

package/blocks/effects/modulation/guitar_synth.atl

@@ -0,0 +1,350 @@
+---
+{
+  "type": "effects.modulation.guitar_synth",
+  "name": "Guitar Synth",
+  "category": "Effects",
+  "subcategory": "Modulation",
+  "description": "Searing monophonic synth lead. Hard-clips the guitar into a square wave oscillator, pitch-shifts up one octave for brightness, and sweeps a resonant filter on each pick attack. Inspired by the Micro Synthesizer tones of late '70s new wave. Play single notes for the best tracking.",
+  "color": "#8833CC",
+  "width": 180,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "filter_base_cv",
+      "name": "Filter Base",
+      "type": "control",
+      "required": false,
+      "parameter": "filter_base"
+    },
+    {
+      "id": "filter_sweep_cv",
+      "name": "Filter Sweep",
+      "type": "control",
+      "required": false,
+      "parameter": "filter_sweep"
+    },
+    {
+      "id": "resonance_cv",
+      "name": "Resonance",
+      "type": "control",
+      "required": false,
+      "parameter": "resonance"
+    },
+    {
+      "id": "mix_cv",
+      "name": "Mix",
+      "type": "control",
+      "required": false,
+      "parameter": "mix"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "drive",
+      "name": "Oscillator Drive",
+      "type": "number",
+      "default": 1.5,
+      "min": 0.5,
+      "max": 1.99,
+      "step": 0.01,
+      "description": "Pre-gain into the hard clipper. Higher values sustain the square wave longer as the guitar decays."
+    },
+    {
+      "id": "octave_level",
+      "name": "Octave Up",
+      "type": "number",
+      "default": 0.7,
+      "min": 0.0,
+      "max": 1.5,
+      "step": 0.05,
+      "description": "Level of the +1 octave voice. This is what makes the lead cut — the synth sits above the guitar."
+    },
+    {
+      "id": "fundamental",
+      "name": "Fundamental",
+      "type": "number",
+      "default": 0.5,
+      "min": 0.0,
+      "max": 1.5,
+      "step": 0.05,
+      "description": "Level of the fundamental square wave voice."
+    },
+    {
+      "id": "filter_base",
+      "name": "Filter Base",
+      "type": "number",
+      "default": 1500,
+      "min": 300,
+      "max": 5000,
+      "step": 10,
+      "conversion": "SVFFREQ",
+      "description": "Resting filter frequency. High values keep the tone bright and searing even between picks."
+    },
+    {
+      "id": "filter_sweep",
+      "name": "Filter Sweep",
+      "type": "number",
+      "default": 0.35,
+      "min": 0.0,
+      "max": 0.6,
+      "step": 0.01,
+      "description": "How far the envelope sweeps the filter on each pick. Adds the 'pew' synth attack."
+    },
+    {
+      "id": "resonance",
+      "name": "Resonance",
+      "type": "number",
+      "default": 0.85,
+      "min": 0.0,
+      "max": 0.97,
+      "step": 0.01,
+      "description": "Filter Q. High values give the focused, laser-like synth lead character."
+    },
+    {
+      "id": "attack",
+      "name": "Attack",
+      "type": "number",
+      "default": 0.15,
+      "min": 0.01,
+      "max": 0.5,
+      "step": 0.01,
+      "description": "Envelope attack speed. Fast attack tracks every pick for snappy synth response."
+    },
+    {
+      "id": "release",
+      "name": "Release",
+      "type": "number",
+      "default": 0.003,
+      "min": 0.001,
+      "max": 0.02,
+      "step": 0.001,
+      "description": "Envelope release speed. Controls how quickly the filter closes after a pick."
+    },
+    {
+      "id": "vibrato_rate",
+      "name": "Vibrato Rate (Hz)",
+      "type": "number",
+      "default": 5.5,
+      "min": 0.0,
+      "max": 10.0,
+      "step": 0.1,
+      "conversion": "HZ_TO_LFO_RATE",
+      "description": "Vibrato speed. Classic synth lead vibrato sits around 5-6 Hz."
+    },
+    {
+      "id": "vibrato_depth",
+      "name": "Vibrato Depth (ms)",
+      "type": "number",
+      "default": 0.5,
+      "min": 0.0,
+      "max": 3.0,
+      "step": 0.1,
+      "conversion": "MS_TO_LFO_RANGE",
+      "description": "Vibrato depth. Subtle values add life without detuning. Set to 0 for no vibrato."
+    },
+    {
+      "id": "mix",
+      "name": "Dry/Wet Mix",
+      "type": "number",
+      "default": 1.0,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01
+    }
+  ],
+  "memories": [
+    {
+      "id": "oct_buf",
+      "size": 4096
+    },
+    {
+      "id": "oct_temp",
+      "size": 1
+    },
+    {
+      "id": "vib_buf",
+      "size": 512
+    }
+  ],
+  "registers": [
+    "env",
+    "hp_state",
+    "oscillator",
+    "oct_voice",
+    "voice_mix",
+    "bp",
+    "lp",
+    "freq_reg",
+    "damp_reg",
+    "sweep_reg",
+    "base_reg",
+    "dry",
+    "mix_reg"
+  ]
+}
+---
+@section header
+@equals vib_center ${mem.vib_buf} + 256
+
+@section init
+  skp run, done_init
+  ; RMP0: octave up (+1 oct = rate 16384)
+  wldr RMP0, 16384, 4096
+  ; SIN0: 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: Envelope Follower (fast attack, moderate release)
+  ; Tracks every pick for snappy synth filter response.
+  ; ======================================================
+  rdax ${input.in}, 1.0
+  sof 1.99, 0.0                      ; 2x pre-boost for detection
+  absa
+  rdax ${reg.env}, -1.0              ; ACC = |input| - env
+  skp gez, ${local.ATK}
+  ; Release path
+  sof ${param.release}, 0.0
+  skp run, ${local.UPD}
+${local.ATK}:
+  sof ${param.attack}, 0.0
+${local.UPD}:
+  rdax ${reg.env}, 1.0
+  wrax ${reg.env}, 0.0
+
+  ; ======================================================
+  ; Stage 2: VCO — Hard-clip guitar into square wave
+  ;
+  ; Highpass removes low-freq content for cleaner clipping,
+  ; then pre-gain + triple saturation produces a constant-
+  ; amplitude square wave rich in odd harmonics.
+  ; ======================================================
+
+  ; Highpass (~200 Hz) for clean clipping
+  rdax ${input.in}, 1.0
+  rdax ${reg.hp_state}, -1.0
+  sof 0.04, 0.0
+  rdax ${reg.hp_state}, 1.0
+  wrax ${reg.hp_state}, -1.0
+  rdax ${input.in}, 1.0              ; ACC = input - LP = highpassed
+
+  ; Pre-gain + hard clip
+  sof ${param.drive}, 0.0
+  sof 1.99, 0.0
+  sof 1.99, 0.0
+  sof 1.99, 0.0
+  sof 0.25, 0.0
+  wrax ${reg.oscillator}, 0.0
+
+  ; ======================================================
+  ; Stage 3: Octave Up (+1 oct via RMP0)
+  ; The octave up is what makes it a LEAD — sits above the
+  ; guitar, cuts through the mix.
+  ; ======================================================
+  rdax ${reg.oscillator}, 1.0
+  wra ${mem.oct_buf}, 0.0
+
+  cho rda, RMP0, REG | COMPC, ${mem.oct_buf}
+  cho rda, RMP0, 0, ${mem.oct_buf} + 1
+  wra ${mem.oct_temp}, 0.0
+  cho rda, RMP0, RPTR2 | COMPC, ${mem.oct_buf}
+  cho rda, RMP0, RPTR2, ${mem.oct_buf} + 1
+  cho sof, RMP0, NA | COMPC, 0.0
+  cho rda, RMP0, NA, ${mem.oct_temp}
+
+  ; Scale octave up level
+  sof ${param.octave_level}, 0.0
+  wrax ${reg.oct_voice}, 0.0
+
+  ; ======================================================
+  ; Stage 4: Voice Mixer + Vibrato
+  ; ======================================================
+  ; Mix fundamental + octave up
+  rdax ${reg.oscillator}, ${param.fundamental}
+  rdax ${reg.oct_voice}, 1.0
+
+  ; Write to vibrato delay
+  wra ${mem.vib_buf}, 0.0
+
+  ; Read with vibrato LFO
+  cho rda, SIN0, SIN | REG | COMPC, ${vib_center}
+  cho rda, SIN0, SIN, ${vib_center} + 1
+
+  ; ======================================================
+  ; Stage 5: Prepare filter coefficients
+  ; ======================================================
+  wrax ${reg.voice_mix}, 0.0         ; Save vibrato output
+
+  ; Damping: damp = 1 - resonance
+  @cv resonance_cv
+  sof -1.0, 1.0
+  wrax ${reg.damp_reg}, 0.0
+
+  ; Swept cutoff: freq = base + env * sweep
+  @cv filter_sweep_cv
+  wrax ${reg.sweep_reg}, 0.0
+
+  @cv filter_base_cv
+  wrax ${reg.base_reg}, 0.0
+
+  rdax ${reg.env}, 1.0
+  mulx ${reg.sweep_reg}
+  rdax ${reg.base_reg}, 1.0
+  wrax ${reg.freq_reg}, 0.0
+
+  ; ======================================================
+  ; Stage 6: Resonant SVF (Lowpass)
+  ; The resonant peak + bright base frequency gives the
+  ; searing, focused synth lead character.
+  ; ======================================================
+  rdax ${reg.voice_mix}, 1.0         ; Reload vibrato output
+  rdax ${reg.lp}, -1.0
+  wrax ${reg.voice_mix}, 0.0         ; temp = (input - lp_old)
+
+  rdax ${reg.bp}, 1.0
+  mulx ${reg.damp_reg}
+  rdax ${reg.voice_mix}, -1.0        ; ACC = damp*bp - (input - lp)
+  sof -1.0, 0.0                      ; ACC = HP
+
+  mulx ${reg.freq_reg}               ; ACC = F * HP
+  rdax ${reg.bp}, 1.0
+  wrax ${reg.bp}, 1.0                ; bp_new
+
+  mulx ${reg.freq_reg}               ; ACC = F * bp_new
+  rdax ${reg.lp}, 1.0
+  wrax ${reg.lp}, 0.0                ; lp_new
+
+  ; ======================================================
+  ; Stage 7: Dry/Wet Mix
+  ; ======================================================
+  @cv mix_cv
+  wrax ${reg.mix_reg}, 0.0
+
+  rdax ${reg.lp}, 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/harmonic_trem.atl

@@ -0,0 +1,129 @@
+---
+{
+  "type": "fx.harmonic_tremolo",
+  "name": "Harmonic Tremolo",
+  "category": "Effects",
+  "subcategory": "Modulation",
+  "description": "True vintage harmonic tremolo using a crossover.",
+  "color": "#24F2F2",
+  "width": 180,
+  "inputs": [
+    {
+      "id": "in",
+      "name": "Input",
+      "type": "audio",
+      "required": true
+    },
+    {
+      "id": "rate_cv",
+      "name": "Rate",
+      "type": "control",
+      "required": false,
+      "parameter": "rate"
+    },
+    {
+      "id": "depth_cv",
+      "name": "Depth",
+      "type": "control",
+      "required": false,
+      "parameter": "depth"
+    }
+  ],
+  "outputs": [
+    {
+      "id": "out",
+      "name": "Output",
+      "type": "audio"
+    }
+  ],
+  "parameters": [
+    {
+      "id": "rate",
+      "name": "Tremolo Rate (Hz)",
+      "type": "number",
+      "default": 3.0,
+      "min": 0.5,
+      "max": 12.0,
+      "step": 0.1,
+      "conversion": "HZ_TO_LFO_RATE"
+    },
+    {
+      "id": "depth",
+      "name": "Depth",
+      "type": "number",
+      "default": 1.0,
+      "min": 0.0,
+      "max": 1.0,
+      "step": 0.01,
+      "description": "Intensity of the tremolo effect."
+    },
+    {
+      "id": "crossover",
+      "name": "Crossover Freq",
+      "type": "number",
+      "default": 600,
+      "min": 100,
+      "max": 2000,
+      "step": 10,
+      "conversion": "SVFFREQ",
+      "description": "Frequency split for the two bands."
+    }
+  ],
+  "registers": [
+    "lpf_state",
+    "lfo_val",
+    "lfo_inv",
+    "depth_temp"
+  ]
+}
+---
+@section init
+  skp run, init_trem
+  ; Depth in WLDS is useless for RDAL (RDAL reads raw sine), so max it
+  wlds SIN0, ${rate}, 32767
+  init_trem:
+
+@section main
+  ; 0. Evaluate Rate CV dynamically (Scaled manually to avoid SOF > 1.99 limits from HZ_TO_LFO_RATE bounds)
+  @if pinConnected(rate_cv)
+    rdax ${input.rate_cv}, ${rate} / 511.0
+    wrax SIN0_RATE, 0.0
+  @endif
+
+  ; 1. Evaluate Depth CV dynamically
+  @cv depth_cv                      ; ACC = Depth (0.0 to 1.0)
+  sof 0.5, 0.0                      ; ACC = Depth / 2
+  wrax ${reg.depth_temp}, 0.0       ; Save scaled depth
+
+  ; 2. Generate LFO
+  cho rdal, SIN0                    ; ACC = LFO (-1.0 to 1.0)
+  mulx ${reg.depth_temp}            ; ACC = LFO * (Depth / 2)
+  sof 1.0, 0.5                      ; ACC = LFO * (Depth / 2) + 0.5 (Scale to 0.0 - 1.0)
+  wrax ${reg.lfo_val}, -1.0         ; Save LFO_VAL, ACC = -LFO_VAL
+  sof 1.0, 1.0                      ; ACC = 1.0 - LFO_VAL
+  wrax ${reg.lfo_inv}, 0.0          ; Save LFO_INV, ACC = 0
+  
+  ; 2. Crossover Filter (1-Pole)
+  ; Lowpass = L_old + F * (Input - L_old)
+  rdax ${input.in}, 1.0             ; ACC = Input
+  rdax ${reg.lpf_state}, -1.0       ; ACC = Input - L_old
+  sof ${param.crossover}, 0.0       ; ACC = F * (Input - L_old)
+  rdax ${reg.lpf_state}, 1.0        ; ACC = F * (Input - L_old) + L_old
+  wrax ${reg.lpf_state}, -1.0       ; REG_L = Lowpass, ACC = -Lowpass
+  
+  ; Highpass = Input - Lowpass
+  rdax ${input.in}, 1.0             ; ACC = Input - Lowpass = Highpass
+  
+  ; 3. Modulate Highpass
+  mulx ${reg.lfo_inv}               ; ACC = Highpass * LFO_INV
+  
+  ; 4. Modulate Lowpass & Mix
+  ; Need to bring Highpass to a free register, but we can just use lfo_inv as a temp
+  wrax ${reg.lfo_inv}, 0.0          ; Save modulated Highpass in lfo_inv
+  
+  rdax ${reg.lpf_state}, 1.0        ; ACC = Lowpass
+  mulx ${reg.lfo_val}               ; ACC = Lowpass * LFO_VAL
+  rdax ${reg.lfo_inv}, 1.0          ; ACC = (Lowpass * LFO) + (Highpass * LFO_INV)
+  
+  ; 5. Output
+  wrax ${output.out}, 0.0