bombinans
/
multigrain
1
0
Fork 0
Code Issues 3 Pull Requests Packages Projects Releases Wiki Activity

Fixed quantspeed

bugfix-looptober-cleanup
Mike Lynch 2023-09-23 15:05:33 +10:00
parent 932c04717a
commit 3ac1c3cd47
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
interface.scd
View File

@ -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 // control ganging is hella laggy, do it in TouchOSC
~setspeed = { | track, v | ~setspeed = { | track, v |
var speed, qv = if(~speedquant > 0, { ~quantspeed.value(v) }, { v }); var speed, qv = if(~speedquant > 0, { ~quantspeed.value(v) }, { v });
speed = qv / ~buflen; speed = qv / ~buflen;
[ "setspeed", v, qv, speed ].postln;
if(~speedlock > 0, { if(~speedlock > 0, {
(0..3).do({|n| (0..3).do({|n|
~possynths[n].set(\speed, speed); ~possynths[n].set(\speed, speed);