From e9bc4f7139aed79e37731bc06f64dd0df934315e Mon Sep 17 00:00:00 2001
From: Leo Coogan <leocoogan@mailfence.com>
Date: Tue, 15 Apr 2025 14:23:17 -0400
Subject: [PATCH] pulsar synthesis

---
 grainFM.scd | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 grainFM.scd

diff --git a/grainFM.scd b/grainFM.scd
new file mode 100644
index 0000000..c3342e5
--- /dev/null
+++ b/grainFM.scd
@@ -0,0 +1,35 @@
+(
+SynthDef(\grainFMPad, {
+    |out=0, bufnum=0, rate=1, centerFreq=200, dur=6, amp=0.3, pan=0|
+    var trigRate = 20; // how many grains per second
+    var grainDur = 0.1; // duration of each grain
+    var snd;
+
+    snd = GrainFM.ar(
+        numChannels: 2,
+        trigger: Impulse.kr(trigRate),
+        dur: grainDur,
+        carfreq: LFNoise1.kr(0.2).range(centerFreq * 0.5, centerFreq * 1.5),
+        modfreq: LFNoise1.kr(0.1).range(100, 300),
+        index: LFNoise1.kr(0.05).range(1, 10),
+        pan: LFNoise1.kr(0.5),
+        envbufnum: -1,
+        sndbuf: bufnum,
+        rate: rate
+    );
+
+    // Smoothing the pad
+    snd = snd * EnvGen.kr(Env.linen(2, dur-4, 2), doneAction: 2) * amp;
+    Out.ar(out, snd);
+}).add;
+)
+
+(
+// play it with your buffer b
+x = Synth(\grainFMPad, [
+    \bufnum, b,
+    \centerFreq, 250,
+    \dur, 12,
+    \amp, 0.3
+]);
+)