mwinter/ostinato_and_interrupt
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases 1 Wiki Activity

metronome and score tweaks

Browse source
This commit is contained in:
Michael Winter 2019-11-21 15:24:24 -06:00
parent 90113bc9e2
commit 81c9d6be56
4 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
ostinato_and_interrupt_score.pdf
View file

Binary file not shown.

BIN
supercollider/gen_data_resources/ostinato_and_interrupt_data.wav
View file

Binary file not shown.

BIN
supercollider/gen_data_resources/ostinato_and_interrupt_osc
View file

Binary file not shown.

8
supercollider/ostinato_and_interrupt_gui_generator_function.scd
View file

@ -21,9 +21,9 @@
arg div;
var min, sec;
sec = (div / 5).trunc;
min = (sec / 60).trunc.asString;
min = (sec / 60).asInteger.asString;
if(min.size == 1, {min = "0" ++ min}, {});
sec = (sec % 60).trunc.asString;
sec = (sec % 60).asInteger.asString;
if(sec.size == 1, {sec = "0" ++ sec}, {});
min ++ ":" ++ sec
};
@ -84,7 +84,7 @@
{| pState |
pauseButton.value = 0;
if(pState.value == 0, {~play.set(\playRate, 0, \startTrig, 0);
clock.string = clockStringFunc.value((startPos * ~totalDur * 5).trunc)},
clock.string = clockStringFunc.value((startPos * ~totalDur * 5).asInteger)},
{~play.set(\startPos, startPos, \playRate, 1, \startTrig, 1)})}),
pauseButton = Button(view).states_([["pause", Color.black], ["pause", Color.black, Color.grey]]).action_(
{| pState |
@ -93,7 +93,7 @@
[Slider(view, Rect(0, 0, 30, 5)).action_(
{|pos|
var min, sec;
startPosText.string = clockStringFunc.value((pos.value * ~totalDur * 5).trunc);
startPosText.string = clockStringFunc.value((pos.value * ~totalDur * 5).asInteger);
startPos = pos.value;
}), stretch: 1],
startPosText = StaticText(win).string_("00:00").font_(Font("Monaco", 15)),