From 6405a3671b890d56e7632e4c7bc2645ef5966fa3 Mon Sep 17 00:00:00 2001
From: lambda <lambda@bjornmossa.net>
Date: Sat, 19 Sep 2026 23:56:33 +0300
Subject: [PATCH] add one more freezer

---
 DSP/spectral/fft_freeze_follow.scd | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 DSP/spectral/fft_freeze_follow.scd

diff --git a/DSP/spectral/fft_freeze_follow.scd b/DSP/spectral/fft_freeze_follow.scd
new file mode 100644
index 0000000..741888e
--- /dev/null
+++ b/DSP/spectral/fft_freeze_follow.scd
@@ -0,0 +1,27 @@
+(
+name: 'fft_freeze_follow',
+func: {
+  var sig = 0;
+  var in = In.ar(\in.kr(0), 1);
+  var amp = Amplitude.kr(in, \atk.kr(0.01), \rel.kr(0.1));
+  var gate = \freezeGate.kr(0);
+  var chain = FFT(LocalBuf(2048), in);
+  chain = PV_Freeze(chain, amp > \ampGate.kr(0.00001));
+  sig = IFFT(chain) * gate;
+  Normalizer.ar(sig, \normLevel.kr(0.5), \normDur.kr(0.03));
+},
+inChannels: 1,
+outChannels: 2,
+requiresBuffer: true,
+usePan: true,
+panning: \pan,
+useSaturation: false,
+specs: (
+  freezeGate: [0, 1, \step, 1, 0],
+  ampGate: [0, 1, \lin, 0.0001, 0.00001],
+  atk: [0.001, 1, \exp, 0.001, 0.01],
+  rel: [0.001, 2, \exp, 0.001, 0.1],
+  normLevel: [0.05, 1, \lin, 0.01, 0.5],
+  normDur: [0.01, 0.5, \lin, 0.01, 0.03],
+),
+)