From fc1b68da060062bb28cdcbb07e54a9ae57401594 Mon Sep 17 00:00:00 2001
From: Mike Lynch <bombinans@tilde.town>
Date: Sat, 7 Oct 2023 07:58:14 +1100
Subject: [PATCH] Put all of the timing stuff in main

---
 interface.scd |  2 --
 main.scd      | 11 ++++++++++-
 sequencer.scd |  4 ++--
 3 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/interface.scd b/interface.scd
index 6cf1a7a..279e862 100644
--- a/interface.scd
+++ b/interface.scd
@@ -27,10 +27,8 @@ OSCdef.freeAll;
 
 ~quantharmonics = {
 	arg f, quantise=0;
-	quantise.postln;
 	if(quantise != 0, {
 		var fraction = f.asFraction(7, false);
-		[f, fraction].postln;
 		fraction[0] / fraction[1];
 	},
 	{ f }
diff --git a/main.scd b/main.scd
index 5fc64e4..8564112 100644
--- a/main.scd
+++ b/main.scd
@@ -15,8 +15,16 @@ Routine.run({
 	~usbinput1 = 2;
 	~usbinput2 = 3;
 
-	~buflen = 4.0;
+	~bpm = 55;
+	~bps = ~bpm / 60;
 	~beatsperbar = 4;
+	~buflen = ~beatsperbar / ~bps;
+
+	[ "bpm", ~bpm ].postln;
+	[ "buffer length", ~buflen ].postln;
+
+	~tc = TempoClock.new(~bps);
+
 
 	~touchosc_ip = "192.168.0.209";
 
@@ -36,3 +44,4 @@ Routine.run({
 )
 
 
+
diff --git a/sequencer.scd b/sequencer.scd
index 0a1983f..ce93b85 100644
--- a/sequencer.scd
+++ b/sequencer.scd
@@ -1,8 +1,6 @@
 
 (
 
-~bps = ~beatsperbar / ~buflen;
-~tc = TempoClock.new(~bps);
 
 SynthDef(\metronome, {
 	arg out=0, amp=1, pan=0, filter=1000, atk=0.01, rel=0.1;
@@ -32,3 +30,5 @@ SynthDef(\metronome, {
 
 )
 
+
+