desc:XFSJ.O_ENORD_IDIM_O_MIDI_DRONE_O.JSFX

slider1:0<0,15,1{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16}>O_LENAHC_O_CHANEL_O
slider2:57<0,127,1{C0,C#0,D0,D#0,E0,F0,F#0,G0,G#0,A0,A#0,B0,C 1,C#1,D1,D#1,E1,F1,F#1,G1,G#1,A1,A#1,B1,C2,C#2,D2, D#2,E2,F2,F#2,G2,G#2,A2,A#2,B2,C3,C#3,D3,D#3,E3,F3 ,F#3,G3,G#3,A3,A#3,B3,C4,C#4,D4,D#4,E4,F4,F#4,G4,G #4,A4,A#4,B4,C5,C#5,D5,D#5,E5,F5,F#5,G5,G#5,A5,A#5 ,B5,C6,C#6,D6,D#6,E6,F6,F#6,G6,G#6,A6,A#6,B6,C7,C# 7,D7,D#7,E7,F7,F#7,G7,G#7,A7,A#7,B7,C8,C#8,D8,D#8, E8,F8,F#8,G8,G#8,A8,A#8,B8,C9,C#9,D9,D#9,E9,F9,F#9 ,G9,G#9,A9,A#9,B9,C10,C#10,D10,D#10,E10,F10,F#10,G 10}>O_ETON_O_NOTE_O
slider3:127<1,127,1>O_YTICOLEV_O_VELOCITY_O
slider4:0<0,1,1>O

@init
ext_noinit = 1;
prevNote = -1;
prevChannel = -1;
playing = -1;

@slider
channel = slider1;
note = slider2;
slider3 | 0 != velocity ?
(
velocity = slider3 | 0;
playing = -1;
);

play = slider4;

@block
function DoNoteOff(n, v, c)
(
midisend(0, 0x80 | c, n | (v << 8));
midisend(0, 0x90 | c, n );
);

note != prevNote || channel != prevChannel ?
(
!(prevNote < 0) ?
(
DoNoteOff(prevNote, prevVelocity, prevChannel);
);

prevNote = note;
prevChannel = channel;

playing = -1;
);

playing != play ?
(
play ?
(
midisend(0, 0x90, note | (velocity << 8));
prevVelocity = velocity;
)
:
(
DoNoteOff(note, prevVelocity, channel);
);
playing = play;
);