Fork Code: SimpleMIDIFile help

name

code content

(
m = SimpleMIDIFile.read("C:/Users/WM/Documents/Peter code/Midi/Croatia.mid");
m.timeMode_('seconds'); // convert ticks to seconds
);
(
MIDIClient.init; // check list for available devices
MIDIClient.destinations;
a = MIDIOut(2); //Midi number of destination
);
(
~cont = 0;
~tiempo = 0.2;
~transpose = 12;
t = Task({
	e = m.noteSustainEvents(nil, nil); // get notes from track 1
e.do{arg event;
        a.noteOn(1, e[~cont][4] + ~transpose, e[~cont][5]);
        e[~cont][6]*~tiempo.wait; // durations, you can scale this number to change the durations
        a.noteOff(1, e[~cont][4] + ~transpose, e[~cont][5]);
        ~cont=~cont+1;
        ~cont.postln;
};
});
);
//Gui

(
var window, button, fader;
window = Window("Peter´s Code", Rect(100, 100, 400, 500)).front;
button = Button(window, Rect(30, 380, 150, 100));
fader = Slider(window,  Rect(30, 40, 50, 320));
fader.action_({|obj|
	var tr;
	tr = obj.value.linlin(0,1,-12,12).postln;
	tr + ~transpose;
	{a.allNotesOff};
});
button.states = [["Off", Color.white, Color.black], ["On", Color.black, Color.red]];
button.action = {|val| if(val.value == 1, {t.play; "Task On".postln}, {t.stop; "Task Off".postln})};
);

code description use markdown for formating

category tags comma separated, i.g. "wild, siren" (do not enter default SC class names, please)

ancestor(s) comma separated identificators, i.g. "1-C,1-1,1-4M,1-x"

Private? the code will be accessible by direct url and not visible in public activity

comment of change