From 8b0d53684b932e8a4a8ee91c451395991839cfd9 Mon Sep 17 00:00:00 2001
From: Mike Lynch <mike@mikelynch.org>
Date: Fri, 7 Apr 2023 15:58:40 +1000
Subject: [PATCH] First version that sort of works

---
 classes/Granulator.sc | 63 ++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 62 insertions(+), 1 deletion(-)

diff --git a/classes/Granulator.sc b/classes/Granulator.sc
index 6e2de93..f47b0ea 100644
--- a/classes/Granulator.sc
+++ b/classes/Granulator.sc
@@ -1,3 +1,64 @@
 
 
-Granulator {
\ No newline at end of file
+Granulator {
+	var <buflen, <inb, <outb, <posb, <triggerb, <pitchb, <modb, <buffer, <recorder, <grains, server;
+	classvar server;
+	*init {
+		| s |
+		server = s;
+		"Adding some synthdefs".postln;
+		s.postln;
+		SynthDef(
+			\grain_record,
+			{
+				arg in = 2, buffer = 0, mix = 0.25, record = 0.0;
+				var insig = record * In.ar(in, 1);
+				RecordBuf.ar(insig, buffer, 0, mix, 1 - mix, loop: 1)
+			}
+		).add();
+
+		SynthDef(
+			\grain_play,
+			{
+				arg out=0, buffer, blen, pitchb, triggerb, posb, modb, size=0.1, amp=0.5, pan=0, track=0.25, jitter=0, blur=0.0;
+				var pitch, trigger, chor, pos, pans, grains, filtfreq;
+				trigger = In.kr(triggerb);
+				pitch = In.kr(pitchb);
+				pos = Wrap.kr(In.kr(posb, 1) + WhiteNoise.kr(blur), 0, 1);
+				pans = pan + WhiteNoise.kr(jitter) + (track * (In.kr(posb, 1) - 1));
+				grains = TGrains.ar(2, trigger, buffer, pitch, pos * blen, size, pans, amp);
+				Out.ar(out, grains);
+			}
+		).add();
+
+	}
+
+	*new { | buflen, inb, outb, posb, triggerb, pitchb |
+		^super.newCopyArgs(buflen, inb, outb, posb, triggerb, pitchb);
+	}
+
+	init {
+		server = Server.default;
+		buffer = Buffer.alloc(server, server.sampleRate * buflen, 1);
+		recorder = Synth.new(\grain_record, [
+			\in, inb,
+			\buffer, buffer,
+			\record, 0
+		], server, \addToTail);
+		grains = Synth.new(
+		\grain_play,
+		[
+			\out, outb,
+			\buffer, buffer,
+			\blen, buflen,
+			\posb, posb,
+			\triggerb, triggerb,
+			\pitchb, pitchb,
+			\modb, modb,
+			\size, 0.1
+		],
+		server);
+	}
+
+
+}
\ No newline at end of file