]]>
This is not the "lighter on cpu" solution but i needed it for an important modification for the base patch for the launchpad, to make it polyphonic...I decided to use different matrix module for note, velo, octave and lenght settings.
Statistics: Posted by ethnix73 — 24 Nov 2010, 13:16
]]>
don't remember what i moded then, and why but i definitely changed something lol
now checkin booth i see the script is different in a section where i put something that seems to make a note off when cell is 0,
the other was not really muting the note by sending a noteoff, but sending a velocity of 0 if i well remember or something like that.
to be honest i don't remember , but i needed that to fix something lol
Statistics: Posted by 23fx23 — 24 Nov 2010, 13:05
]]>
Statistics: Posted by nay-seven — 24 Nov 2010, 11:29
]]>
]]>
First step with velocity (MidVolRange) inlet is done...
CODE:
//////////////////////////// /////////////////////////// parameters declarationvar RowIn : Tparameter;var OnModeIn : Tparameter;var OffModeIn : Tparameter;var MidVolRangeIn : Tparameter;var BaseOctaveIn : Tparameter;var TickIn : Tparameter;var MidiOut : Tparameter;var BaseOctave : integer;var NbOfMidiNotes : integer;var OnMode : integer;var OffMode : integer;var PlayNotes : boolean;var CurrentNotes : array of single;var CurrentNotesLen : integer;var LastNotes : array of single;var MidVolRange : integer;CONST MID_NOTE_ON = 144;CONST MID_NOTE_OFF = 128;CONST OCTAVE_RANGE = 12;CONST ON_MODE = '"each","group"';CONST OFF_MODE = '"hold","cut"'; // initialisation : create parametersprocedure init;begin RowIn := CreateParam('row in',ptArray); SetIsOutput(RowIn,false); MidVolRangeIn := CreateParam('MidVolRange',ptDataFader); SetIsOutput (MidVolRangeIn,false); SetMin (MidVolRangeIn , 0); SetMax (MidVolRangeIn , 127); SetDefaultValue (MidVolRangeIn , 64); OnModeIn := CreateParam('on mode',ptListBox); SetIsOutput(OnModeIn,false); SetListBoxString(OnModeIn,ON_MODE); OffModeIn := CreateParam('off mode',ptListBox); SetIsOutput(OffModeIn,false); SetListBoxString(OffModeIn,OFF_MODE); BaseOctaveIn := CreateParam('octave',ptDataFader); SetIsOutput (BaseOctaveIn,false); SetMin (BaseOctaveIn , 1); SetMax (BaseOctaveIn , 10); SetDefaultValue(BaseOctaveIn , 5); SetFormat (BaseOctaveIn , '%.0f'); TickIn := CreateParam('tick',ptButton); SetIsOutput(RowIn,false); MidiOut := CreateParam('midi out',ptMidi); SetIsInput(MidiOut,false); BaseOctave := 5; MidVolRange :=64; NbOfMidiNotes := 0; OnMode := 0; OffMode := 0; PlayNotes := FALSE; SetArrayLength(CurrentNotes , 0); CurrentNotesLen := 0;end;// Global variablesvar Miditmp : TMidi;//////////////////////////////// callback proc//////////////////////////////procedure Callback(n:integer);var i : integer;var vol : single;begin if (n = RowIn) then begin CurrentNotesLen := GetLength(RowIn); SetArrayLength(CurrentNotes , CurrentNotesLen); SetArrayLength(LastNotes , CurrentNotesLen); i := 0; while i < CurrentNotesLen do begin vol := GetDataArrayValue(RowIn, i); CurrentNotes[i] := vol; i := i+1; end; end else if (n = OnModeIn) then begin OnMode := round( GetValue(OnModeIn) ); end else if (n = OffModeIn) then begin OffMode := round( GetValue(OffModeIn) ); end else if (n=MidVolRangeIn) then begin MidVolRange := round( GetValue(MidVolRangeIn) ); end else if (n = BaseOctaveIn) then begin BaseOctave := round( GetValue(BaseOctaveIn) ); end else if (n = TickIn) then begin NbOfMidiNotes := 0; i := 0; while i < CurrentNotesLen do begin if ((OnMode = 1) and (CurrentNotes[i] <> LastNotes[i]) and (CurrentNotes[i] > 0)) or ((OnMode = 0) and (CurrentNotes[i] > 0)) or ((OffMode = 1) and (CurrentNotes[i] = 0)) then begin Miditmp.Channel := byte(1); if currentNotes[i]>0 then begin Miditmp.Msg := MID_NOTE_ON; end else begin Miditmp.Msg := MID_NOTE_OFF; end; Miditmp.Data1 := byte( (BaseOctave * OCTAVE_RANGE) + i); Miditmp.Data2 := round(MidVolRange * CurrentNotes[i]); SetMidiArrayValue(MidiOut, NbOfMidiNotes ,Miditmp); // set output value NbOfMidiNotes := NbOfMidiNotes + 1; end; LastNotes[i] := CurrentNotes[i]; i := i+1; end; SetLength(MidiOut,NbOfMidiNotes); PlayNotes := TRUE; end;end;//////////////////////////////// main proc//////////////////////////////Procedure Process;var i : integer;var len : integer;var vol : single;begin if PlayNotes then begin PlayNotes := FALSE; end else begin SetLength(MidiOut,0); end;end;Statistics: Posted by ethnix73 — 24 Nov 2010, 10:18
]]>
@ethnix: note there is no lenght setting here but velocity should be ok as i can see it clicking on wire,
Also, it would need to be optimized by checking only the needed midi events and set the midiarray out of that size. actually, it is constantly of the row size, wich is probably ok for a 8x matrix, (i tested on a 32xok) but could be problematic with bigger matrixes
and could be a tiny lower cpu with optimized code.
Note lengh is another much harder challenge at it implies dealing with time variable internally, and ideally in a polyphonic way,
mean keep a track of wich notes were on, trig time counters for each ect. but i would also love to make a mx sequencer with two XY variables, one for velocity and one for lengh. think that's a pretty much harder scripting challenge, still possible.
I was thinking from a while of a different should be easier technique, instead of dealing midi inside the scripts, matrix would
remote the pianoroll, entering notes, length and velocity and so pianoroll would handle the midi playing , being able to save
or recall sequences, finer later editing ect without bothering complex scripting.
It should be pretty doable if olivier manage to make the events array in possible to receive infos ans spread the notes.
Statistics: Posted by 23fx23 — 24 Nov 2010, 01:23
]]>
Thanks marvellous 23fx23!
I will try it on tomorrow morning...
Statistics: Posted by ethnix73 — 24 Nov 2010, 00:53
]]>
I will have a look, and make some try even if it's a hard way...
Anyway, learning script becomes more and more essential, so i will start with this one because i need it
Statistics: Posted by ethnix73 — 24 Nov 2010, 00:49
]]>
edit: mmm yes it seems, maybe try this one:
CODE:
//////////////////////////// /////////////////////////// parameters declarationvar RowIn : Tparameter;var OnModeIn : Tparameter;var OffModeIn : Tparameter;var BaseOctaveIn : Tparameter;var TickIn : Tparameter;var MidiOut : Tparameter;var BaseOctave : integer;var NbOfMidiNotes : integer;var OnMode : integer;var OffMode : integer;var PlayNotes : boolean;var CurrentNotes : array of single;var CurrentNotesLen : integer;var LastNotes : array of single;CONST MID_NOTE_ON = 144;CONST MID_NOTE_OFF = 128;CONST MID_VOL_RANGE = 127;CONST OCTAVE_RANGE = 12;CONST ON_MODE = '"each","group"';CONST OFF_MODE = '"hold","cut"'; // initialisation : create parametersprocedure init;begin RowIn := CreateParam('row in',ptArray); SetIsOutput(RowIn,false); OnModeIn := CreateParam('on mode',ptListBox); SetIsOutput(OnModeIn,false); SetListBoxString(OnModeIn,ON_MODE); OffModeIn := CreateParam('off mode',ptListBox); SetIsOutput(OffModeIn,false); SetListBoxString(OffModeIn,OFF_MODE); BaseOctaveIn := CreateParam('octave',ptDataFader); SetIsOutput (BaseOctaveIn,false); SetMin (BaseOctaveIn , 1); SetMax (BaseOctaveIn , 10); SetDefaultValue(BaseOctaveIn , 5); SetFormat (BaseOctaveIn , '%.0f'); TickIn := CreateParam('tick',ptButton); SetIsOutput(RowIn,false); MidiOut := CreateParam('midi out',ptMidi); SetIsInput(MidiOut,false); BaseOctave := 5; NbOfMidiNotes := 0; OnMode := 0; OffMode := 0; PlayNotes := FALSE; SetArrayLength(CurrentNotes , 0); CurrentNotesLen := 0;end;// Global variablesvar Miditmp : TMidi;//////////////////////////////// callback proc//////////////////////////////procedure Callback(n:integer);var i : integer;var vol : single;begin if (n = RowIn) then begin CurrentNotesLen := GetLength(RowIn); SetArrayLength(CurrentNotes , CurrentNotesLen); SetArrayLength(LastNotes , CurrentNotesLen); i := 0; while i < CurrentNotesLen do begin vol := GetDataArrayValue(RowIn, i); CurrentNotes[i] := vol; i := i+1; end; end else if (n = OnModeIn) then begin OnMode := round( GetValue(OnModeIn) ); end else if (n = OffModeIn) then begin OffMode := round( GetValue(OffModeIn) ); end else if (n = BaseOctaveIn) then begin BaseOctave := round( GetValue(BaseOctaveIn) ); end else if (n = TickIn) then begin NbOfMidiNotes := 0; i := 0; while i < CurrentNotesLen do begin if ((OnMode = 1) and (CurrentNotes[i] <> LastNotes[i]) and (CurrentNotes[i] > 0)) or ((OnMode = 0) and (CurrentNotes[i] > 0)) or ((OffMode = 1) and (CurrentNotes[i] = 0)) then begin Miditmp.Channel := byte(1); if currentNotes[i]>0 then begin Miditmp.Msg := MID_NOTE_ON; end else begin Miditmp.Msg := MID_NOTE_OFF; end; Miditmp.Data1 := byte( (BaseOctave * OCTAVE_RANGE) + i); Miditmp.Data2 := round(MID_VOL_RANGE * CurrentNotes[i]); SetMidiArrayValue(MidiOut, NbOfMidiNotes ,Miditmp); // set output value NbOfMidiNotes := NbOfMidiNotes + 1; end; LastNotes[i] := CurrentNotes[i]; i := i+1; end; SetLength(MidiOut,NbOfMidiNotes); PlayNotes := TRUE; end;end;//////////////////////////////// main proc//////////////////////////////Procedure Process;var i : integer;var len : integer;var vol : single;begin if PlayNotes then begin PlayNotes := FALSE; end else begin SetLength(MidiOut,0); end;end;Statistics: Posted by 23fx23 — 24 Nov 2010, 00:47
]]>
arf, it's a pretty tricky script you try to custom here :rolleyes: (the hard way to learn script...23fx23 is kind of unique about learning curve;) )
anyway, if i remember correctly, we speak about the 'arr to midi' script of the 'matrix_fall_seq_example'
the note length is just a matter of note on and note off time laps.
in this script, 'on mode' and 'off mode' trigger when we should fire a note on and a note off, finally, it's processed in the 'else if (n = TickIn) then begin' section.
velocity, isn't triggered in this script, but i believe it's just a matter of multiplying the volume by the velocity (i'm not a midi master...)
hope it help
Statistics: Posted by martignasse — 24 Nov 2010, 00:15
]]>
i still fight a bit with midi and script, but ill try to have a look tonight.
but if martin watch i thinks this one is from him.
Statistics: Posted by 23fx23 — 21 Nov 2010, 15:43
]]>
I want to use it with my launchpad patch, but i'm really enable to modify it...
Is there any script guru who could help me to add velocity and note lenght to this script?
CODE:
//////////////////////////// /////////////////////////// parameters declarationvar RowIn : Tparameter;var OnModeIn : Tparameter;var OffModeIn : Tparameter;var BaseOctaveIn : Tparameter;var TickIn : Tparameter;var MidiOut : Tparameter;var BaseOctave : integer;var NbOfMidiNotes : integer;var OnMode : integer;var OffMode : integer;var PlayNotes : boolean;var CurrentNotes : array of single;var CurrentNotesLen : integer;var LastNotes : array of single;CONST MID_NOTE_ON = 144;CONST MID_VOL_RANGE = 127;CONST OCTAVE_RANGE = 12;CONST ON_MODE = '"each","group"';CONST OFF_MODE = '"hold","cut"'; // initialisation : create parametersprocedure init;begin RowIn := CreateParam('row in',ptArray); SetIsOutput(RowIn,false); OnModeIn := CreateParam('on mode',ptListBox); SetIsOutput(OnModeIn,false); SetListBoxString(OnModeIn,ON_MODE); OffModeIn := CreateParam('off mode',ptListBox); SetIsOutput(OffModeIn,false); SetListBoxString(OffModeIn,OFF_MODE); BaseOctaveIn := CreateParam('octave',ptDataFader); SetIsOutput (BaseOctaveIn,false); SetMin (BaseOctaveIn , 1); SetMax (BaseOctaveIn , 10); SetDefaultValue(BaseOctaveIn , 5); SetFormat (BaseOctaveIn , '%.0f'); TickIn := CreateParam('tick',ptButton); SetIsOutput(RowIn,false); MidiOut := CreateParam('midi out',ptMidi); SetIsInput(MidiOut,false); BaseOctave := 5; NbOfMidiNotes := 0; OnMode := 0; OffMode := 0; PlayNotes := FALSE; SetArrayLength(CurrentNotes , 0); CurrentNotesLen := 0;end;// Global variablesvar Miditmp : TMidi;//////////////////////////////// callback proc//////////////////////////////procedure Callback(n:integer);var i : integer;var vol : single;begin if (n = RowIn) then begin CurrentNotesLen := GetLength(RowIn); SetArrayLength(CurrentNotes , CurrentNotesLen); SetArrayLength(LastNotes , CurrentNotesLen); i := 0; while i < CurrentNotesLen do begin vol := GetDataArrayValue(RowIn, i); CurrentNotes[i] := vol; i := i+1; end; end else if (n = OnModeIn) then begin OnMode := round( GetValue(OnModeIn) ); end else if (n = OffModeIn) then begin OffMode := round( GetValue(OffModeIn) ); end else if (n = BaseOctaveIn) then begin BaseOctave := round( GetValue(BaseOctaveIn) ); end else if (n = TickIn) then begin NbOfMidiNotes := 0; i := 0; while i < CurrentNotesLen do begin if ((OnMode = 1) and (CurrentNotes[i] <> LastNotes[i]) and (CurrentNotes[i] > 0)) or ((OnMode = 0) and (CurrentNotes[i] > 0)) or ((OffMode = 1) and (CurrentNotes[i] = 0)) then begin Miditmp.Channel := byte(1); Miditmp.Msg := MID_NOTE_ON; Miditmp.Data1 := byte( (BaseOctave * OCTAVE_RANGE) + i); Miditmp.Data2 := round(MID_VOL_RANGE * CurrentNotes[i]); SetMidiArrayValue(MidiOut, NbOfMidiNotes ,Miditmp); // set output value NbOfMidiNotes := NbOfMidiNotes + 1; end; LastNotes[i] := CurrentNotes[i]; i := i+1; end; SetLength(MidiOut,NbOfMidiNotes); PlayNotes := TRUE; end;end;//////////////////////////////// main proc//////////////////////////////Procedure Process;var i : integer;var len : integer;var vol : single;begin if PlayNotes then begin PlayNotes := FALSE; end else begin SetLength(MidiOut,0); end;end;Statistics: Posted by ethnix73 — 20 Nov 2010, 18:41
]]>