Page 1 of 1
Posted: 20 Nov 2010, 18:41
by ethnix73
I'm always a noob script but i would like to use this script found in the matrix pack.
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: Select all
//////////////////////////
//
/////////////////////////
// parameters declaration
var 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 parameters
procedure 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 variables
var 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;
Posted: 21 Nov 2010, 15:43
by 23fx23
mm it 's strange caus it seems it was coded in,
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.
Posted: 24 Nov 2010, 00:15
by martignasse
hi ethnix73,
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
Posted: 24 Nov 2010, 00:47
by 23fx23
mmm now i think i remember im pretty sure i already moded it to add velocity in my MX_zoom_sequencer patch, gonna check it now
edit: mmm yes it seems, maybe try this one:
Code: Select all
//////////////////////////
//
/////////////////////////
// parameters declaration
var 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 parameters
procedure 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 variables
var 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;
Posted: 24 Nov 2010, 00:49
by ethnix73
Thanks for your answer martignasse,
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
Posted: 24 Nov 2010, 00:53
by ethnix73
yeah!
Thanks marvellous 23fx23!
I will try it on tomorrow morning...
Posted: 24 Nov 2010, 01:23
by 23fx23
@martin thx for wise wordz, but i started on much simpler thingz
@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.
Posted: 24 Nov 2010, 10:18
by ethnix73
Thanks 23fx23,
First step with velocity (
MidVolRange) inlet is done...
Code: Select all
//////////////////////////
//
/////////////////////////
// parameters declaration
var 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 parameters
procedure 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 variables
var 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;
Posted: 24 Nov 2010, 11:08
by 23fx23
cool! well done.
Posted: 24 Nov 2010, 11:29
by nay-seven
great !
don't have test but in the old matrix_fall_seq_example, the fade mode send velocity too , so what the difference precisely with yours.?
Posted: 24 Nov 2010, 13:05
by 23fx23
mmm yes that's why i had doubts saying it was already coded, you re right.
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
Posted: 24 Nov 2010, 13:16
by ethnix73
There is an inlet for velocity. So you can set different velocities for each note (=column) in toggle mode with an another matrix for example.
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.
Posted: 24 Nov 2010, 13:21
by nay-seven
ok, thanks, that make sense, could be useful