From 3ac1c3cd47f5293e1b46092461c139222637a984 Mon Sep 17 00:00:00 2001
From: Mike Lynch <m.lynch@sydney.edu.au>
Date: Sat, 23 Sep 2023 15:05:33 +1000
Subject: [PATCH] Fixed quantspeed

---
 interface.scd | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/interface.scd b/interface.scd
index fbc1742..e63c94f 100644
--- a/interface.scd
+++ b/interface.scd
@@ -27,13 +27,15 @@ OSCdef.freeAll;
 	});
 });
 
-~quantspeed = { |v| 2.pow((v * 4).round - 5) };
+~quantspeed = { |v| 2.pow((v * 4 + 0.5).round - 5) };
 
 // control ganging is hella laggy, do it in TouchOSC
 
+
 ~setspeed = { | track, v |
 	var speed, qv = if(~speedquant > 0, { ~quantspeed.value(v) }, { v });
 	speed = qv / ~buflen;
+	[ "setspeed", v, qv, speed ].postln;
 	if(~speedlock > 0, {
 		(0..3).do({|n|
 			~possynths[n].set(\speed, speed);