mirror of http://CODE.RHODECODE.COM/u/O/O/O
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
57 lines
1.3 KiB
57 lines
1.3 KiB
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; |
|
);
|
|
|