69 lines
1.8 KiB
Plaintext
69 lines
1.8 KiB
Plaintext
/*
|
|
This file is part of "Interface Fractures III - Silicon".
|
|
Copyright (c) 2015 Luka Prinčič, All rights reserved.
|
|
This program is free software distributed under
|
|
GNU General Public Licence. See COPYING for more info.
|
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
gui_main.scd - responsible for GUI elements under
|
|
the 'main' tab ...
|
|
|
|
********************************************************** */
|
|
|
|
|
|
~tab_views[~tab_names.at("main")].layout = HLayout(
|
|
|
|
nil,
|
|
|
|
HLayout(
|
|
|
|
nil,
|
|
Button()
|
|
.states_([
|
|
["Clock"],
|
|
["Clock", Color.gray(0.2), Color.grey(0.8)] ])
|
|
.mouseDownAction_({ | state |
|
|
switch(state.value,
|
|
0, {
|
|
postln("\n- - - - - - - - - - - - - - - - - - - - - - - - - - - - ");
|
|
postln("~~~ starting clock!");
|
|
TempoClock.default.sched(0, ~mainTimeline);
|
|
~mainTimeline.reset;
|
|
},
|
|
1, {
|
|
postln("\n~~~ stopping clock!");
|
|
~mainTimeline.stop;
|
|
//~mainTimeline.reset;
|
|
postln("~~~ some synths might still be running");
|
|
}
|
|
);
|
|
})
|
|
.minHeight_(70).minWidth_(70),
|
|
|
|
Button().minHeight_(70).minWidth_(70)
|
|
.states_([ ["Test pattern"], ["Test pattern", Color.gray(0.2), Color.grey(0.8)] ])
|
|
.mouseDownAction_({ | state |
|
|
switch(state.value,
|
|
0, { postln("~~~ test pattern on!");
|
|
~zarquOsc.sendMsg("/sc", "testPatternToggle", 1); },
|
|
1, { postln("~~~ test pattern off!");
|
|
~zarquOsc.sendMsg("/sc", "testPatternToggle", 0); }
|
|
);
|
|
}),
|
|
|
|
Button().minHeight_(70).minWidth_(70)
|
|
.states_([ ["Test picture"], ["Test picture", Color.gray(0.2), Color.grey(0.8)] ])
|
|
.mouseDownAction_({ | state |
|
|
switch(state.value,
|
|
0, { postln("~~~ test picture on!");
|
|
~zarquOsc.sendMsg("/sc", "testPictureToggle", 1); },
|
|
1, { postln("~~~ test pattern off!");
|
|
~zarquOsc.sendMsg("/sc", "testPictureToggle", 0); }
|
|
);
|
|
}),
|
|
nil
|
|
),
|
|
nil
|
|
);
|
|
|