BrainModular

Question #1: What MIDI Mapper functions would you like to see in V5?

2010-01-10T12:47:11+02:00

crap, this still isn't working.... and it's getting late.

tomorrow....

Statistics: Posted by woodslanding — 10 Jan 2010, 11:47

Question #1: What MIDI Mapper functions would you like to see in V5?

2010-01-10T12:32:26+02:00

okay, I figured out what was going on. Just what Bsork said--the callback loop was getting called before the process loop had a chance to respond.

So I put in a couple of booleans to decide whether to send the note offs and disable the instrument, but then I called the actual methods from within process. Seems to work! Here's the code:

CODE:

(*/////////////////////////////////////////////////////// CHANNEL  // Version 2009-11-21; author: eric moon//// based on work by Bsork and amiga909//////////////////////////////////////////////////////*)//  This takes a number of midi inputs (on separate cables, for visual clarity)//  and performs the following operations on each.//  enable, disable--per input//  strip CCs and AT and send them out a separate output//  read CC64 values (or a CC of your choice) to withhold noteoffs until the sus pedal is released.//  limit to minimum and maximum notes--one range affects all inputs, as it's assumed you'll typically be using one input at a time//  transpose--again, one range for all inputs.//  output rechannelizing--all outs are a single channel.  Use multiple strips to control multi-timbral modules.//  bypass output for turning off unused instruments.  waits for all notes to be released....//  drone switch that keeps current notes sounding, but discards new notesOns as long as it is held//  It is designed to function as part of a mixer channel strip, running between several keyboards and a vsti.//  When the 'learn' function is enabled, notes are sent out output 2//  the first note sets the lower range, the second note sets the upper limit.//  when both notes are sent, learn is disabled, and notes go to output 1 as usual.CONST SUS_PED= 64;    //change if you use an unorthodox CC for sustaining.CONST INPUT_COUNT = 2;  //allows up to 16 inputs, one per channelCONST NOTE_ON        = 144;CONST NOTE_OFF       = 128;CONST CONTROL        = 176;CONST PITCHBEND      = 224;VAR   noteList                              : ARRAY OF boolean;VAR   transList                             : ARRAY OF integer;VAR   midi,noteOff                          : TMidi; var midiIns                                 :  ARRAY OF Tparameter;var enables                                 :  ARRAY OF TParameter;var notesOut  : Tparameter;var otherOut  : Tparameter;       // all CCs except the sustain value go out this output.  So does AT and PgChvar octave    : TParameter;var semi      : TParameter;var hiNote    : TParameter;var lowNote   : TParameter;var drone     : TParameter;       // sustains, but ignores new noteonsvar outChan   : TParameter;       // everything goes out one channel.  It's a channel strip. Use more if you need other channels!var instEnable: TParameter;var lower    : Tparameter;var upper   : Tparameter; var learn     : TParameter;VAR   octVal, semiVal, transpose            : integer;VAR   hiVal, lowVal                         : integer; VAR   midiInCount                           : integer;VAR   otherOutCount, notesOutCount          : integer;VAR   key, inputNum, byteNum                : integer; VAR   minChn, maxChn, minKey, maxKey        : integer;VAR   outputChannel                         : integer;VAR   isSustained,noInput                   : boolean;VAR   isEnabled                             : Array of boolean;VAR   learning                              : boolean;VAR   droning                               : boolean;VAR   release                               : boolean;VAR   disablable                            : boolean;var   learnCount                            : integer;//////////////////////////////////////////////////////// initialize//////////////////////////////////////////////////////PROCEDURE init;    BEGIN      minChn := INPUT_COUNT - 1;   // these are initially set to their opposite extremes....    maxChn := 0;     minKey := 128;     maxKey := 0;        isSustained := FALSE;              setArrayLength(noteList, 128);      FOR key:=0 TO 127 DO BEGIN         noteList[key]:=FALSE;    END;    SetArrayLength(transList, 128);    FOR key:=0 TO 127 DO BEGIN         transList[key]:=0;    END;           setArrayLength(midiIns, INPUT_COUNT);    setArrayLength(enables, INPUT_COUNT);    FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        enables[inputNum]  := CreateParam('enable ' + intToStr(inputNum + 1),ptSwitch);         SetValue(enables[inputNum], 1);               SetIsOutPut(enables[inputNum],false);            END;           octave      := CreateParam('octave',ptDataFader);          SetIsOutPut(octave,false);    semi        := CreateParam('semi',ptDataFader);            SetIsOutPut(semi,false);    SetFormat(octave,'%.0f'); SetMin(octave,-4);  SetMax(octave,4);        SetFormat(semi,'%.0f');   SetMin(semi,-7);    SetMax(semi,7);      hiNote        := CreateParam('high note',ptMidiNoteFader);   SetIsOutPut(hiNote,false);    lowNote       := CreateParam('low note',ptMidiNoteFader);    SetIsOutPut(lowNote,false);      outChan       := CreateParam('output chan', ptDataFader);     SetIsOutPut(outchan,false);     SetFormat(outChan,'%.0f'); SetMin(outChan,1);  SetMax(outChan,16);    SetValue(lowNote, 10);    SetValue(hiNote, 115);      drone         := CreateParam('drone', ptSwitch);              SetIsOutput(drone,false);    instEnable  := CreateParam('inst enable', ptSwitch);          SetIsInput(instEnable,false);     FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        midiIns[inputNum]  := CreateParam('MIDIin ' + intToStr(inputNum + 1) ,ptMidi);               SetIsOutPut(midiIns[inputNum],false);    END;        notesOut      := CreateParam('NoteMIDI',ptMidi);             SetIsInput(notesOut,false);      otherOut      := CreateParam('otherMIDI',ptMidi);             SetIsInput(otherOut,false);    learn := CreateParam('learn',ptButton);                       SetIsOutPut(learn,false);    lower := CreateParam('lower',ptMidiNoteFader);                SetIsInPut(lower,false);    upper := CreateParam('upper',ptMidiNoteFader);                SetIsInPut(upper,false);         notesOutCount := 0;    otherOutCount := 0;    learnCount    := 0;    disablable   := FALSE;    droning       := FALSE;    release       := FALSE;       SetArrayLength(isEnabled, INPUT_COUNT); END;//  isNoteOn:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOn(midi: tMidi): boolean;BEGIN       IF (midi.msg = NOTE_ON) AND (midi.data2>0) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  isNoteOff:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOff(midi: tMidi): boolean;BEGIN          IF (midi.msg = NOTE_OFF) OR ((midi.msg = NOTE_ON) AND (midi.data2 = 0)) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;    END;END; //  isSusPed:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isSusPed(midi: tMidi) : boolean;BEGIN    IF (midi.msg = CONTROL) AND (midi.data1 = SUS_PED) THEN BEGIN        result := true;    END    ELSE BEGIN        result := false;    END;END; //  isPitchBend:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isPitchBend(midi: tMidi): boolean;BEGIN     IF (midi.msg = PITCHBEND) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  global function inRange--eliminates only noteons outside the range limits FUNCTION inRange(midi: tMidi) : boolean;BEGIN    IF (isNoteOn(midi)) AND (midi.data1 > lowVal) AND (midi.data1 < hiVal) THEN BEGIN        result := TRUE;    END    ELSE BEGIN        result := FALSE;    END; END;//  isClear//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//FUNCTION isClear()  : boolean;   // can we stop this loop as soon as a key = true??  Didn't like 'while'VAR clear : boolean;BEGIN    clear := TRUE;    BEGIN        FOR key:= minKey TO maxKey DO BEGIN                IF (noteList[key] = TRUE) THEN BEGIN                 clear := FALSE;                       END;                                                                  END;     END;    result := clear;     END;//  ReleaseNotes  --when you release the sustain, or release the drone, or change the output channel//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//PROCEDURE ReleaseNotes;BEGIN    FOR key:= minKey TO maxKey DO BEGIN            IF (noteList[key] = TRUE) THEN BEGIN             noteOff.msg := NOTE_OFF;            noteOff.channel := outputChannel; // byte is a conversion--is this needed?            noteOff.data1 := key;            noteOff.data2 := 0;            setMidiArrayValue(notesOut, notesOutCount, noteOff);            strace('sending noteOff for ' + intToStr(key));            notesOutCount := notesOutCount + 1;            noteList[key] := FALSE;        END;                                                              END; END;    // Global Procedure StoreNoteOffs--just de-inlined for readability//----------------------------------------------//PROCEDURE StoreNoteOffs;BEGIN    IF (midi.data1 > maxKey) THEN BEGIN           maxKey := midi.data1;    END;    IF (midi.data1 < minKey) THEN BEGIN         minKey := midi.data1;     END;     noteList[midi.data1] := TRUE;END;// Callback//----------------------------------------------// procedure Callback(n:integer);BEGIN    if (n = hiNote) then begin         hiVal := round(getValue(hiNote));         setValue(upper, hiVal);    end    else if (n = lowNote) then begin         lowVal := round(getValue(lowNote));         setValue(lower, lowVal);    end    else if (n = learn) and (getValue(n) = 1) then begin         learning:= TRUE;        strace('learning...');         learnCount := 0;    end    else if (learnCount = 2) then begin        // we've just learned, so we want to send out lower and upper          learning := FALSE;        learnCount := 0;        strace(' finishedlearning');    end     else begin        // get input values            octVal := trunc(getValue(octave));        semival := trunc(getValue(semi));        transpose := (octVal * 12) + semiVal;        outputChannel := trunc(getValue(outChan));        droning := (getValue(drone) = 1);        // see if any input is enabled....        noInput := TRUE;                                                 FOR inputNum := 0 to INPUT_COUNT - 1 DO         BEGIN            IF getValue(enables[inputNum]) = 1 THEN BEGIN                isEnabled[inputNum] := TRUE;                 noInput := FALSE;            END            ELSE BEGIN                isEnabled[inputNum] := FALSE;            END;        END;                  // release notes if the drone has just been turned off, or if all inputs and notes are off, or if the channel is changed              IF ((n = drone) and (not(Droning))) OR            ((noInput = TRUE) AND (isClear() = TRUE))           OR (n = outChan)                        THEN BEGIN            strace('releasing notes');            release := true;               // booleans to check in process            disablable := true;        END        ELSE BEGIN            setValue(instEnable, 1);        END;    end;END;  //////////////////////////////////////////////////////// process//////////////////////////////////////////////////////PROCEDURE PROCESS;BEGIN     notesOutCount := 0;    otherOutCount := 0;       if release then releaseNotes;    FOR inputNum := 0 to INPUT_COUNT - 1 DO BEGIN                    midiInCount := getLength(midiIns[inputNum]);                               FOR byteNum := 0 TO (midiInCount - 1) DO BEGIN   // process input                                       getMidiArrayValue(midiIns[inputNum], byteNum, midi);            midi.channel := outputChannel;            if (learning) then begin                IF (isNoteOn(midi)) and (learnCount = 0) THEN BEGIN                    lowVal := midi.data1;                    setValue(lower, lowVal );                    learnCount := 1;                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                     strace('learnCount = ' + intToStr(learnCount));                                                 END                 ELSE IF (isNoteOn(midi)) and (learnCount = 1)  THEN BEGIN                    hiVal := midi.data1;                    setValue(upper, hiVal);                    learnCount := 2;                    learning := FALSE;  // we've set our outs....                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;            end             else if (droning) then begin  // basically ignore all midi when droning                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;            end            else begin                If isSusPed(midi) THEN BEGIN                              if (midi.data2 > 64) THEN BEGIN                        isSustained := true;                    END                    ELSE BEGIN                                                 isSustained := false;                          ReleaseNotes;          // send noteoffs when the sus pedal is released                    END;                                              END;                 IF isNoteOn(midi) AND (inRange(midi)) AND (isEnabled[inputNum]) THEN BEGIN //note on, sus on, store and send                    transList[midi.data1] := transpose;                     midi.data1 := midi.data1 + transpose;                     IF (isSustained = TRUE) THEN BEGIN                                   StoreNoteOffs;                                      setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                    END                                          ELSE BEGIN                                        // valid noteon, sus off, send it out                                       setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                     END;                END                ELSE IF isNoteOff(midi) AND (isSustained = FALSE)  THEN BEGIN // valid noteoff, sus off, send it out                        midi.data1 := midi.data1 + transList[midi.data1];                                         setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                                 END                                     ELSE IF isPitchBend(midi) THEN BEGIN                        // send PB along with the notes                                                 midi.channel := outputChannel;                                    setMidiArrayValue(notesOut, notesOutCount, midi);                    notesOutCount := notesOutCount + 1;                END                ELSE IF (NOT(isNoteOn(midi))) AND (NOT(isNoteOff(midi))) AND (NOT(isPitchBend(midi))) THEN BEGIN  //not a note, pb or sus pedal event                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;                               end;        END;    END;    setLength(notesOut, notesOutCount);    setLength(otherOut, otherOutCount);    if disablable then setValue(instEnable, 0); END;

Statistics: Posted by woodslanding — 10 Jan 2010, 11:32

Question #1: What MIDI Mapper functions would you like to see in V5?

2010-01-10T12:18:49+02:00

Okay, I am finally back at this. I have the script working now. I added a midi learn function for setting the range.

And I finally got around to checking the drone out, and it actually works. Sort of. Problem is, the noteOffs are not going out the output, even though my strace shows the code is getting called with correct values. So I'm wondering if this is somehow related to the problems above.

I tried moving the noteOut count resetting to the beginning of process, but that just gave me a bunch of stuck notes.

So thanks for any tips. This is pretty close to working!

CODE:

(*/////////////////////////////////////////////////////// CHANNEL  // Version 2009-11-21; author: eric moon//// based on work by Bsork and amiga909//////////////////////////////////////////////////////*)//  This takes a number of midi inputs (on separate cables, for visual clarity)//  and performs the following operations on each.//  enable, disable--per input//  strip CCs and AT and send them out a separate output//  read CC64 values (or a CC of your choice) to withhold noteoffs until the sus pedal is released.//  limit to minimum and maximum notes--one range affects all inputs, as it's assumed you'll typically be using one input at a time//  transpose--again, one range for all inputs.//  output rechannelizing--all outs are a single channel.  Use multiple strips to control multi-timbral modules.//  bypass output for turning off unused instruments.  waits for all notes to be released....//  drone switch that keeps current notes sounding, but discards new notesOns as long as it is held//  It is designed to function as part of a mixer channel strip, running between several keyboards and a vsti.//  When the 'learn' function is enabled, notes are sent out output 2//  the first note sets the lower range, the second note sets the upper limit.//  when both notes are sent, learn is disabled, and notes go to output 1 as usual.CONST SUS_PED= 64;    //change if you use an unorthodox CC for sustaining.CONST INPUT_COUNT = 2;  //allows up to 16 inputs, one per channelCONST NOTE_ON        = 144;CONST NOTE_OFF       = 128;CONST CONTROL        = 176;CONST PITCHBEND      = 224;VAR   noteList                              : ARRAY OF boolean;VAR   transList                             : ARRAY OF integer;VAR   midi,noteOff                          : TMidi; var midiIns                                 :  ARRAY OF Tparameter;var enables                                 :  ARRAY OF TParameter;var notesOut  : Tparameter;var otherOut  : Tparameter;       // all CCs except the sustain value go out this output.  So does AT and PgChvar octave    : TParameter;var semi      : TParameter;var hiNote    : TParameter;var lowNote   : TParameter;var drone     : TParameter;       // sustains, but ignores new noteonsvar outChan   : TParameter;       // everything goes out one channel.  It's a channel strip. Use more if you need other channels!var instEnable: TParameter;var lower    : Tparameter;var upper   : Tparameter; var learn     : TParameter;VAR   octVal, semiVal, transpose            : integer;VAR   hiVal, lowVal                         : integer; VAR   midiInCount                           : integer;VAR   otherOutCount, notesOutCount          : integer;VAR   key, inputNum, byteNum                : integer; VAR   minChn, maxChn, minKey, maxKey        : integer;VAR   outputChannel                         : integer;VAR   isSustained,noInput                   : boolean;VAR   isEnabled                             : Array of boolean;VAR   learning                              : boolean;VAR   droning                               : boolean;var   learnCount                            : integer;//////////////////////////////////////////////////////// initialize//////////////////////////////////////////////////////PROCEDURE init;    BEGIN      minChn := INPUT_COUNT - 1;   // these are initially set to their opposite extremes....    maxChn := 0;     minKey := 128;     maxKey := 0;        isSustained := FALSE;              setArrayLength(noteList, 128);      FOR key:=0 TO 127 DO BEGIN         noteList[key]:=FALSE;    END;    SetArrayLength(transList, 128);    FOR key:=0 TO 127 DO BEGIN         transList[key]:=0;    END;           setArrayLength(midiIns, INPUT_COUNT);    setArrayLength(enables, INPUT_COUNT);    FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        enables[inputNum]  := CreateParam('enable ' + intToStr(inputNum + 1),ptSwitch);         SetValue(enables[inputNum], 1);               SetIsOutPut(enables[inputNum],false);            END;           octave      := CreateParam('octave',ptDataFader);          SetIsOutPut(octave,false);    semi        := CreateParam('semi',ptDataFader);            SetIsOutPut(semi,false);    SetFormat(octave,'%.0f'); SetMin(octave,-4);  SetMax(octave,4);        SetFormat(semi,'%.0f');   SetMin(semi,-7);    SetMax(semi,7);      hiNote        := CreateParam('high note',ptMidiNoteFader);   SetIsOutPut(hiNote,false);    lowNote       := CreateParam('low note',ptMidiNoteFader);    SetIsOutPut(lowNote,false);      outChan       := CreateParam('output chan', ptDataFader);     SetIsOutPut(outchan,false);     SetFormat(outChan,'%.0f'); SetMin(outChan,1);  SetMax(outChan,16);    SetValue(lowNote, 10);    SetValue(hiNote, 115);      drone         := CreateParam('drone', ptSwitch);              SetIsOutput(drone,false);    instEnable  := CreateParam('inst enable', ptSwitch);          SetIsInput(instEnable,false);     FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        midiIns[inputNum]  := CreateParam('MIDIin ' + intToStr(inputNum + 1) ,ptMidi);               SetIsOutPut(midiIns[inputNum],false);    END;        notesOut      := CreateParam('NoteMIDI',ptMidi);             SetIsInput(notesOut,false);      otherOut      := CreateParam('otherMIDI',ptMidi);             SetIsInput(otherOut,false);    learn := CreateParam('learn',ptButton);                       SetIsOutPut(learn,false);    lower := CreateParam('lower',ptMidiNoteFader);                SetIsInPut(lower,false);    upper := CreateParam('upper',ptMidiNoteFader);                SetIsInPut(upper,false);         notesOutCount := 0;    otherOutCount := 0;    learnCount    := 0;       SetArrayLength(isEnabled, INPUT_COUNT); END;//  isNoteOn:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOn(midi: tMidi): boolean;BEGIN       IF (midi.msg = NOTE_ON) AND (midi.data2>0) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  isNoteOff:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOff(midi: tMidi): boolean;BEGIN          IF (midi.msg = NOTE_OFF) OR ((midi.msg = NOTE_ON) AND (midi.data2 = 0)) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;    END;END; //  isSusPed:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isSusPed(midi: tMidi) : boolean;BEGIN    IF (midi.msg = CONTROL) AND (midi.data1 = SUS_PED) THEN BEGIN        result := true;    END    ELSE BEGIN        result := false;    END;END; //  isPitchBend:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isPitchBend(midi: tMidi): boolean;BEGIN     IF (midi.msg = PITCHBEND) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  global function inRange--eliminates only noteons outside the range limits FUNCTION inRange(midi: tMidi) : boolean;BEGIN    IF (isNoteOn(midi)) AND (midi.data1 > lowVal) AND (midi.data1 < hiVal) THEN BEGIN        result := TRUE;    END    ELSE BEGIN        result := FALSE;    END; END;//  isClear//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//FUNCTION isClear()  : boolean;   // can we stop this loop as soon as a key = true??  Didn't like 'while'VAR clear : boolean;BEGIN    clear := TRUE;    BEGIN        FOR key:= minKey TO maxKey DO BEGIN                IF (noteList[key] = TRUE) THEN BEGIN                 clear := FALSE;                       END;                                                                  END;     END;    result := clear;     END;//  ReleaseNotes  --when you release the sustain, or release the drone, or change the output channel//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//PROCEDURE ReleaseNotes;BEGIN    FOR key:= minKey TO maxKey DO BEGIN            IF (noteList[key] = TRUE) THEN BEGIN             noteOff.msg := NOTE_OFF;            noteOff.channel := outputChannel; // byte is a conversion--is this needed?            noteOff.data1 := key;            noteOff.data2 := 0;            setMidiArrayValue(notesOut, notesOutCount, noteOff);strace('sending noteOff for ' + intToStr(key));            notesOutCount := notesOutCount + 1;            noteList[key] := FALSE;        END;                                                              END; END;    // Global Procedure StoreNoteOffs--just de-inlined for readability//----------------------------------------------//PROCEDURE StoreNoteOffs;BEGIN    IF (midi.data1 > maxKey) THEN BEGIN           maxKey := midi.data1;    END;    IF (midi.data1 < minKey) THEN BEGIN         minKey := midi.data1;     END;     noteList[midi.data1] := TRUE;END;// Callback//----------------------------------------------// procedure Callback(n:integer);BEGIN    if (n = hiNote) then begin         hiVal := round(getValue(hiNote));         setValue(upper, hiVal);    end    else if (n = lowNote) then begin         lowVal := round(getValue(lowNote));         setValue(lower, lowVal);    end    else if (n = learn) and (getValue(n) = 1) then begin         learning:= TRUE;        strace('learning...');         learnCount := 0;    end    else if (learnCount = 2) then begin         learning := FALSE;        learnCount := 0;        strace(' finishedlearning');    end     else begin        // get input values            octVal := trunc(getValue(octave));        semival := trunc(getValue(semi));        transpose := (octVal * 12) + semiVal;        outputChannel := trunc(getValue(outChan));        droning := (getValue(drone) = 1);        // see if any input is enabled....        noInput := TRUE;                                                 FOR inputNum := 0 to INPUT_COUNT - 1 DO         BEGIN            IF getValue(enables[inputNum]) = 1 THEN BEGIN                isEnabled[inputNum] := TRUE;                 noInput := FALSE;            END            ELSE BEGIN                isEnabled[inputNum] := FALSE;            END;        END;                  // release notes if the drone has just been turned off, or if all inputs and notes are off, or if the channel is changed              IF ((n = drone) and (not(Droning))) OR            ((noInput = TRUE) AND (isClear() = TRUE))           OR (n = outChan)                        THEN BEGIN            strace('releasing notes');            releaseNotes;               setValue(instEnable, 0);        END        ELSE BEGIN            setValue(instEnable, 1);        END;    end;END;  //////////////////////////////////////////////////////// process//////////////////////////////////////////////////////PROCEDURE PROCESS;BEGIN     notesOutCount := 0;    otherOutCount := 0;           FOR inputNum := 0 to INPUT_COUNT - 1 DO BEGIN                    midiInCount := getLength(midiIns[inputNum]);                               FOR byteNum := 0 TO (midiInCount - 1) DO BEGIN   // process input                                       getMidiArrayValue(midiIns[inputNum], byteNum, midi);            midi.channel := outputChannel;            if (learning) then begin                IF (isNoteOn(midi)) and (learnCount = 0) THEN BEGIN                    lowVal := midi.data1;                    setValue(lower, lowVal );                    learnCount := 1;                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                     strace('learnCount = ' + intToStr(learnCount));                                                 END                 ELSE IF (isNoteOn(midi)) and (learnCount = 1)  THEN BEGIN                    hiVal := midi.data1;                    setValue(upper, hiVal);                    learnCount := 2;                    learning := FALSE;  // we've set our outs....                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;            end             else if (droning) then begin  // basically ignore all midi when droning                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;            end            else begin                If isSusPed(midi) THEN BEGIN                              if (midi.data2 > 64) THEN BEGIN                        isSustained := true;                    END                    ELSE BEGIN                                                 isSustained := false;                          ReleaseNotes;          // send noteoffs when the sus pedal is released                    END;                                              END;                 IF isNoteOn(midi) AND (inRange(midi)) AND (isEnabled[inputNum]) THEN BEGIN //note on, sus on, store and send                    transList[midi.data1] := transpose;                     midi.data1 := midi.data1 + transpose;                     IF (isSustained = TRUE) THEN BEGIN                                   StoreNoteOffs;                                      setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                    END                                          ELSE BEGIN                                        // valid noteon, sus off, send it out                                       setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                     END;                END                ELSE IF isNoteOff(midi) AND (isSustained = FALSE)  THEN BEGIN // valid noteoff, sus off, send it out                        midi.data1 := midi.data1 + transList[midi.data1];                                         setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                                 END                                     ELSE IF isPitchBend(midi) THEN BEGIN                        // send PB along with the notes                                                 midi.channel := outputChannel;                                    setMidiArrayValue(notesOut, notesOutCount, midi);                    notesOutCount := notesOutCount + 1;                END                ELSE IF (NOT(isNoteOn(midi))) AND (NOT(isNoteOff(midi))) AND (NOT(isPitchBend(midi))) THEN BEGIN  //not a note, pb or sus pedal event                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;                               end;        END;    END;    setLength(notesOut, notesOutCount);    setLength(otherOut, otherOutCount); END;

Statistics: Posted by woodslanding — 10 Jan 2010, 11:18

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-12-04T17:15:54+02:00

If I understand you correctly, it wouldn't be too complicated to create something like that with a handful of modules in Usine. Some midi filters and midi create messages coupled with some logical checks would probably do the job.

I will try to implement stuff like this, but the more straight-forward stuff like filtering, transposition, rerouting and value scaling will have the priority.

Statistics: Posted by bsork — 04 Dec 2009, 16:15

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-12-04T04:17:34+02:00

Hmm..yeah, I just discovered MungRack today. I was in desparate need of a way to convert note off with a velocity of 0 and note on with a velocity of 64 into a midi CC per note on and off with a low value of 0 and a high value of 127 and MungRack did the trick perfectly ...I could find no way in Usine.
Definately more tools like this are needed in Usine!

Statistics: Posted by gurulogic — 04 Dec 2009, 03:17

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-12-03T22:44:29+02:00

Hi gurulogic, and thanks for directing me to MungRack. It seems to have a lot in common with the ideas I'm working. The interface will obviously look a lot different, in some ways (IMO) more user friendly, in other probably less. And since this will be Usine patches, you can allways redesign the UI if you want to.

There are some things that MungRack do that I have no plans of implementing, but there are also stuff that I - from reading the docs - don't think it will do; like the sustain/sustenotu/hold stuff mentioned before in this topic. I will also try to do my best to avoid hanging notes, even when changing channel/note range/transpose/output parameters when notes are sounding.

Just to recap a little; what I'm working on is a patch with a script to handle various filters and transformers, and I also plan to create smaller, single function version patches with most, if not all, the transformers etc.

Still got a lot of work to do, I'm afraid...

Statistics: Posted by bsork — 03 Dec 2009, 21:44

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-12-03T20:19:31+02:00

Built in functionality similar to this VST would be great!---> http://www.asseca.com/nicfit/mungrack.html

Statistics: Posted by gurulogic — 03 Dec 2009, 19:19

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-27T06:56:34+02:00

putting portamento on a pedal is not a bad idea, though!

Statistics: Posted by woodslanding — 27 Nov 2009, 05:56

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T22:11:32+02:00

It's actually a part of the (original?) midi spec, defined as CC66. Why portamento = CC65 is squeezed between sustain and sostenuto is strange, though. Go figure...

Statistics: Posted by bsork — 26 Nov 2009, 21:11

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T21:46:12+02:00

Ahhh, I understand about resetting the count now. But I did need to put it outside the 'for' loop to solve my original problem.

Sostenuto is clever--I've never seen that in the midi world!

Statistics: Posted by woodslanding — 26 Nov 2009, 20:46

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T12:50:40+02:00

'FOR i := 0 TO -1 DO' is OK, it means no looping.

You still have to move the 'notesOutCount := 0; otherOutCount := 0;' down below where you set the lengths though, as you're calling releaseNotes from Callback. Remember that Callback is executed once for each change in an input parameter before Process is called, so what happens when drone is turned off you first fill the outputs in releaseNotes, then in Process the counters are zeroed which means that the data from Callback->releaseNotes is never sent.

BTW, I'm thinking of implementing these varieties of sustain within the script I'm working on:
Sustain: Like your script (without drone); delays NoteOffs until sustain is deactivated.
Sustenuto: Delays NoteOffs only for notes held when activating sustain.
Hold: Like amiga909's script; accumulates notes until all have been released, and send NoteOffs when a new NoteOn is received or sustain is deactivated.
There will also be a trigger/button input to send all missing NoteOffs + CC123/AllNotesOff.

Statistics: Posted by bsork — 26 Nov 2009, 11:50

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T11:28:00+02:00

hmmm. okay.

Wow, just looked at the code, and in reality it would be 'for i = 0 to -1'

doesn't sound like a good thing, but it's not crashing the script.... but I guess the important thing is that I can bypass the FOR loop without specifically setting the output array length to zero--if it startes out at size zero, and nothing is added to it, it's still size zero.

Any clues why my transpose value isn't tracking? What I'm doing in callback() seems very simple and straighforward. It is the only place the value of transpose is changed......

Oh--maybe I need to be getting parameters in the process loop, ala your earlier suggestion!! I will try that.

thanks!
-e

Statistics: Posted by woodslanding — 26 Nov 2009, 10:28

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T10:41:25+02:00

I took the test for midLength > 0 out. Why was that in there?? It doesn't seem like it saves a step. If the length is zero, it's just not going to run the for loop anyway, right?? or was the script engine not able to handle 'for i = 0 to 0' correctly before?

Beware that FOR i := 0 TO 0 will execute the loop once! So you should either check length 0 with an IF before the loop, or use a WHILE loop. Something like:

CODE:

 i := 0;WHILE i < cnt DO BEGIN   do_something...   i := i + 1;END;

Statistics: Posted by bsork — 26 Nov 2009, 09:41

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T09:56:25+02:00

about the hanging-note thing:
there actually is a vst series that takes care of it:
"•most plugins include a sort of hanging-note-protection system (where applicable) to enable making changes during playback (e.g. when a MIDI thru option is toggled) without the risk of not releasing notes which are played at the same time the changes happen "

about a sustain effect:
S-CC-Sustain-Lite
http://www.s-production.de/
haven't tested it but i dont think a usine script would be much more effective.

Missed this the first time. I'm going to check it out. Looks like good stuff, and if it's programmed in C, should be fast.

Thanks!
-e

Statistics: Posted by woodslanding — 26 Nov 2009, 08:56

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T09:26:56+02:00

I took the test for midLength > 0 out. Why was that in there?? It doesn't seem like it saves a step. If the length is zero, it's just not going to run the for loop anyway, right?? or was the script engine not able to handle 'for i = 0 to 0' correctly before? It seems to be working now.

So it's functioning, and the sustain pedal is sustaining, but I am getting stuck notes, so I'll have to think carefully about the code. Also, my code as it stands seems to not always update transpose correctly. Sometimes the writeln test value changes, but the note out doesn't, and other times neither is synched up with the values on the sliders.

nevertheless it is an encouraging start.

cheers!
-eric

The code as it stands:

CODE:

(*/////////////////////////////////////////////////////// CHANNEL  // Version 2009-11-21; author: eric moon//// based on work by Bsork and amiga909//////////////////////////////////////////////////////*)//  This takes a number of midi inputs (on separate cables, for visual clarity)//  and performs the following operations on each.//  enable, disable--per input//  strip CCs and AT and send them out a separate output//  read CC64 values (or a CC of your choice) to withhold noteoffs until the sus pedal is released.//  limit to minimum and maximum notes--one range affects all inputs, as it's assumed you'll typically be using one input at a time//  transpose--again, one range for all inputs.//  output rechannelizing--all outs are a single channel.  Use multiple strips to control multi-timbral modules.//  bypass output for turning off unused instruments.  waits for all notes to be released....//  drone switch that keeps current notes sounding, but discards new notesOns as long as it is held//  It is designed to function as part of a mixer channel strip, running between several keyboards and a vsti.CONST SUS_PED= 64;    //change if you use an unorthodox CC for sustaining.CONST INPUT_COUNT = 2;  //allows up to 16 inputs, one per channelCONST NOTE_ON        = 144;CONST NOTE_OFF       = 128;CONST CONTROL        = 176;CONST PITCHBEND      = 224;VAR   noteList                              : ARRAY OF boolean;VAR   transList                             : ARRAY OF integer;VAR   midi,noteOff                          : TMidi; var midiIns                                 :  ARRAY OF Tparameter;var enables                                 :  ARRAY OF TParameter;var notesOut  : Tparameter;var otherOut  : Tparameter;       // all CCs except the sustain value go out this output.  So does AT and PgChvar octave    : TParameter;var semi      : TParameter;var hiNote    : TParameter;var lowNote   : TParameter;var drone     : TParameter;       // sustains, but ignores new noteonsvar outChan   : TParameter;       // everything goes out one channel.  It's a channel strip. Use more if you need other channels!var instBypass: TParameter; VAR   octVal, semiVal, transpose            : integer;VAR   hiVal, lowVal                         : integer; VAR   midiInCount                           : integer;VAR   otherOutCount, notesOutCount          : integer;VAR   key, inputNum, byteNum                : integer; VAR   minChn, maxChn, minKey, maxKey        : integer;VAR   outputChannel                         : integer;VAR   isSustained,noInput                   : boolean;VAR   isEnabled                             : Array of boolean;//////////////////////////////////////////////////////// initialize//////////////////////////////////////////////////////PROCEDURE init;    BEGIN      minChn := INPUT_COUNT - 1;   // these are initially set to their opposite extremes....    maxChn := 0;     minKey := 128;     maxKey := 0;        isSustained := FALSE;              setArrayLength(noteList, 128);      FOR key:=0 TO 127 DO BEGIN         noteList[key]:=FALSE;    END;    SetArrayLength(transList, 128);    FOR key:=0 TO 127 DO BEGIN         transList[key]:=0;    END;           setArrayLength(midiIns, INPUT_COUNT);    setArrayLength(enables, INPUT_COUNT);    FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        enables[inputNum]  := CreateParam('enable ' + intToStr(inputNum + 1),ptSwitch);         SetValue(enables[inputNum], 1);               SetIsOutPut(enables[inputNum],false);            END;           octave      := CreateParam('octave',ptDataFader);          SetIsOutPut(octave,false);    semi        := CreateParam('semi',ptDataFader);            SetIsOutPut(semi,false);    SetFormat(octave,'%.0f'); SetMin(octave,-4);  SetMax(octave,4);        SetFormat(semi,'%.0f');   SetMin(semi,-7);    SetMax(semi,7);      hiNote        := CreateParam('high note',ptMidiNoteFader);   SetIsOutPut(hiNote,false);    lowNote       := CreateParam('low note',ptMidiNoteFader);    SetIsOutPut(lowNote,false);      outChan       := CreateParam('output chan', ptDataFader);     SetIsOutPut(outchan,false);     SetFormat(outChan,'%.0f'); SetMin(outChan,1);  SetMax(outChan,16);    SetValue(lowNote, 10);    SetValue(hiNote, 115);      drone         := CreateParam('drone', ptSwitch);              SetIsOutput(drone,false);    instBypass  := CreateParam('inst bypass', ptSwitch);       SetIsInput(instBypass,false);      FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        midiIns[inputNum]  := CreateParam('MIDIin ' + intToStr(inputNum + 1) ,ptMidi);               SetIsOutPut(midiIns[inputNum],false);    END;        notesOut      := CreateParam('Notes Out',ptMidi);             SetIsInput(notesOut,false);      otherOut      := CreateParam('other Out',ptMidi);             SetIsInput(otherOut,false);      notesOutCount := 0;    otherOutCount := 0;       SetArrayLength(isEnabled, INPUT_COUNT); END;//  isNoteOn:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOn(midi: tMidi): boolean;BEGIN       IF (midi.msg = NOTE_ON) AND (midi.data2>0) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  isNoteOff:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOff(midi: tMidi): boolean;BEGIN          IF (midi.msg = NOTE_OFF) OR ((midi.msg = NOTE_ON) AND (midi.data2 = 0)) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;    END;END; //  isSusPed:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isSusPed(midi: tMidi) : boolean;BEGIN    IF (midi.msg = CONTROL) AND (midi.data1 = SUS_PED) THEN BEGIN        result := true;    END    ELSE BEGIN        result := false;    END;END; //  isPitchBend:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isPitchBend(midi: tMidi): boolean;BEGIN     IF (midi.msg = PITCHBEND) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  global function inRange--eliminates only noteons outside the range limits FUNCTION inRange(midi: tMidi) : boolean;BEGIN    IF (isNoteOn(midi)) AND (midi.data1 > lowVal) AND (midi.data1 < hiVal) THEN BEGIN        result := TRUE;    END    ELSE BEGIN        result := FALSE;    END; END;//  isClear//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//FUNCTION isClear()  : boolean;   // can we stop this loop as soon as a key = true??  Didn't like 'while'VAR clear : boolean;BEGIN    clear := TRUE;    BEGIN        FOR key:= minKey TO maxKey DO BEGIN                IF (noteList[key] = TRUE) THEN BEGIN                 clear := FALSE;                       END;                                                                  END;     END;    result := clear;     END;//  ReleaseNotes  --when you release the sustain, or release the drone, or change the output channel//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//PROCEDURE ReleaseNotes;BEGIN    FOR key:= minKey TO maxKey DO BEGIN            IF (noteList[key] = TRUE) THEN BEGIN             noteOff.msg := NOTE_OFF;            noteOff.channel := outputChannel; // byte is a conversion--is this needed?            noteOff.data1 := key;            noteOff.data2 := 0;            setMidiArrayValue(notesOut, notesOutCount, noteOff);  //danger when called from callback?            notesOutCount := notesOutCount + 1;            noteList[key] := FALSE;        END;                                                              END; END;    // Global Procedure StoreNoteOffs--just de-inlined for readability//----------------------------------------------//PROCEDURE StoreNoteOffs;BEGIN    IF (midi.data1 > maxKey) THEN BEGIN           maxKey := midi.data1;    END;    IF (midi.data1 < minKey) THEN BEGIN         minKey := midi.data1;     END;     noteList[midi.data1] := TRUE;END;// Callback//----------------------------------------------// procedure Callback(n:integer);BEGIN    // get input values        hiVal := trunc(getValue(hiNote));    lowVal := trunc(getValue(lowNote));    octVal := trunc(getValue(octave));    semival := trunc(getValue(semi));    transpose := (octVal * 12) + semiVal;writeln('transpose = ' + intToStr(transpose));    outputChannel := trunc(getValue(outChan));    // see if any input is enabled....    noInput := TRUE;                                             FOR inputNum := 0 to INPUT_COUNT - 1 DO     BEGIN        IF getValue(enables[inputNum]) = 1 THEN BEGIN            isEnabled[inputNum] := TRUE;             noInput := FALSE;        END        ELSE BEGIN            isEnabled[inputNum] := FALSE;        END;    END;          // release notes if the drone has just been turned off, or if all inputs and notes are off, or if the channel is changed    IF ((n = drone) and (getValue(drone) = 0)) OR        ((noInput = TRUE) AND (isClear() = TRUE))       OR (n = outChan)                    THEN     BEGIN        releaseNotes;               // can I call this from callback?        setValue(instBypass, 1);    END    ELSE BEGIN        setValue(instBypass, 0);    END;END;  //////////////////////////////////////////////////////// process//////////////////////////////////////////////////////PROCEDURE PROCESS;BEGIN     notesOutCount := 0;    otherOutCount := 0;    FOR inputNum := 0 to INPUT_COUNT - 1 DO BEGIN                    midiInCount := getLength(midiIns[inputNum]);               FOR byteNum := 0 TO (midiInCount - 1) DO BEGIN   // process input                                       getMidiArrayValue(midiIns[inputNum], byteNum, midi);                midi.channel := outputChannel;                 If isSusPed(midi) THEN BEGIN                              if (midi.data2 > 64) THEN BEGIN                        isSustained := true;                    END                    ELSE BEGIN                                                 isSustained := false;                          ReleaseNotes;          // send noteoffs when the sus pedal is released                    END;                                              END;                 IF isNoteOn(midi) AND (inRange(midi)) AND (isEnabled[inputNum]) THEN BEGIN //note on, sus on, store and send                    transList[midi.data1] := transpose;                     midi.data1 := midi.data1 + transpose;                     IF (isSustained = TRUE) THEN BEGIN                                   StoreNoteOffs;                                      setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                    END                                          ELSE BEGIN                                        // valid noteon, sus off, send it out                                       setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                     END;                END                ELSE IF isNoteOff(midi) AND (isSustained = FALSE)  THEN BEGIN // valid noteoff, sus off, send it out                        midi.data1 := midi.data1 + transList[midi.data1];                                         setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                                 END                                     ELSE IF isPitchBend(midi) THEN BEGIN                        // send PB along with the notes                                                 midi.channel := outputChannel;                                    setMidiArrayValue(notesOut, notesOutCount, midi);                    notesOutCount := notesOutCount + 1;                END                ELSE IF (NOT(isNoteOn(midi))) AND (NOT(isNoteOff(midi))) AND (NOT(isPitchBend(midi))) THEN BEGIN  //not a note, pb or sus pedal event                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;                              END;    END;    setLength(notesOut, notesOutCount);    setLength(otherOut, otherOutCount);  END;

Statistics: Posted by woodslanding — 26 Nov 2009, 08:26

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-25T09:53:16+02:00

Did you move the lines from the top of Process, or did you copy them? If you copied, the problem will persist as you fill the outputs and increment the counters in a call from Callback which is executed before Process. That's the reason you can see some activity on the outputs: You put some midi data in there and "flashes by" on the outputs, but then you set the lengths to zero, which means that nothing is sent. BTW, as you said you should also initialize the variables in Init. Most probably you won't get any problems without that, but it's good programming practice, and you have better control over anything strange the compiler might do.

In a way it behaves the opposite way of what you get by filling the array and setting the length within a block and then forget to zero the length in the next block. In that case the same data will be sent each block until something else in the script overwrites it.

I didn't have time yesterday for a closer look at your script as I was struggling with some other issues in some of the "normal" Usine modules, but as I said I managed to get data some simple data through just by moving the counter initializations down to the bottom. I did however notice that the alpha seemed more unstable running your script than most others I've tried. You better take a close look at how variables are treated etc, and remember that the new script engine seems less forgiving about minor incompatibilities and errors. You might have to quit and restart once in a while also.

The flip side of more possibilities is that you also get more possibilities for doing something wrong...

Statistics: Posted by bsork — 25 Nov 2009, 08:53

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-25T06:24:25+02:00

Well, I did that, which doubtless will help down the line, but it's not helping the current problem. I'm still seeing really correct-looking data in the midi output window for note limit, transpose and enable but no actual midi data is being sent. Drone is clearly not working correctly and I haven't tried out the sus pedal yet.

Probably should have started with a smaller script, but I got all excited!

-e

Statistics: Posted by woodslanding — 25 Nov 2009, 05:24

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-25T05:56:32+02:00

okay, so set them to zero in init, and again at the very end of the process loop?? Okay, I'll try it!

thanks,
-e

Statistics: Posted by woodslanding — 25 Nov 2009, 04:56

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T21:57:56+02:00

tkx a lot for the script woodslanding. also thanks to bsork. learnt quite a lot about the new callback thing.

Statistics: Posted by amiga909 — 24 Nov 2009, 20:57

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T15:31:06+02:00

I took a break!

Since you're adding stuff to the outputs from Callback, you have to move the resetting of notesOutCount and otherOutCount to the end of Process. (I think I have done the same mistake myself, but my script isn't yet finished enough for the problem to occur. Will have to check later.)

I've only tested with a couple of CreateMidi modules without bothering with any transposing etc and I get the expected data out of the script with the exception of NoteOffs.

Statistics: Posted by bsork — 24 Nov 2009, 14:31

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T10:32:57+02:00

At work now - will have to take a look tonight at home.

Statistics: Posted by bsork — 24 Nov 2009, 09:32

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T10:00:48+02:00

try this. I've got the code where most of the funtionality seems to be working. All the midi LOOKS so nice!!!

CODE:

(*/////////////////////////////////////////////////////// CHANNEL  // Version 2009-11-21; author: eric moon//// based on work by Bsork and amiga909//////////////////////////////////////////////////////*)//  This takes a number of midi inputs (on separate cables, for visual clarity)//  and performs the following operations on each.//  enable, disable--per input//  strip CCs and AT and send them out a separate output//  read CC64 values (or a CC of your choice) to withhold noteoffs until the sus pedal is released.//  limit to minimum and maximum notes--one range affects all inputs, as it's assumed you'll typically be using one input at a time//  transpose--again, one range for all inputs.//  output rechannelizing--all outs are a single channel.  Use multiple strips to control multi-timbral modules.//  bypass output for turning off unused instruments.  waits for all notes to be released....//  drone switch that keeps current notes sounding, but discards new notesOns as long as it is held//  It is designed to function as part of a mixer channel strip, running between several keyboards and a vsti.CONST SUS_PED= 64;    //change if you use an unorthodox CC for sustaining.CONST INPUT_COUNT = 2;  //number of midi note sourcesCONST NOTE_ON        = 144;CONST NOTE_OFF       = 128;CONST CONTROL        = 176;CONST PITCHBEND      = 224;VAR   noteList                              : ARRAY OF boolean;VAR   transList                             : ARRAY OF integer;VAR   midi,noteOff                          : TMidi; var midiIns                                 :  ARRAY OF Tparameter;var enables                                 :  ARRAY OF TParameter;var notesOut  : Tparameter;var otherOut  : Tparameter;       // all CCs except the sustain value go out this output.  So does AT and PgChvar octave    : TParameter;var semi      : TParameter;var hiNote    : TParameter;var lowNote   : TParameter;var drone     : TParameter;       // sustains, but ignores new noteonsvar outChan   : TParameter;       // everything goes out one channel.  It's a channel strip. Use more if you need other channels!var instBypass: TParameter; VAR   octVal, semiVal, transpose            : integer;VAR   hiVal, lowVal                         : integer; VAR   midiInCount                           : integer;VAR   otherOutCount, notesOutCount          : integer;VAR   key, inputNum, byteNum                : integer; VAR   minChn, maxChn, minKey, maxKey        : integer;VAR   outputChannel                         : integer;VAR   isSustained,noInput                   : boolean;VAR   isEnabled                             : Array of boolean;//////////////////////////////////////////////////////// initialize//////////////////////////////////////////////////////PROCEDURE init;    BEGIN      minChn := INPUT_COUNT - 1;   // these are initially set to their opposite extremes....    maxChn := 0;     minKey := 128;     maxKey := 0;        isSustained := FALSE;              setArrayLength(noteList, 128);      FOR key:=0 TO 127 DO BEGIN         noteList[key]:=FALSE;    END;    SetArrayLength(transList, 128);    FOR key:=0 TO 127 DO BEGIN         transList[key]:=0;    END;           setArrayLength(midiIns, INPUT_COUNT);    setArrayLength(enables, INPUT_COUNT);    FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        enables[inputNum]  := CreateParam('enable ' + intToStr(inputNum + 1),ptSwitch);         SetValue(enables[inputNum], 1);               SetIsOutPut(enables[inputNum],false);            END;           octave      := CreateParam('octave',ptDataFader);          SetIsOutPut(octave,false);    semi        := CreateParam('semi',ptDataFader);            SetIsOutPut(semi,false);    SetFormat(octave,'%.0f'); SetMin(octave,-4);  SetMax(octave,4);        SetFormat(semi,'%.0f');   SetMin(semi,-7);    SetMax(semi,7);      hiNote        := CreateParam('high note',ptMidiNoteFader);   SetIsOutPut(hiNote,false);    lowNote       := CreateParam('low note',ptMidiNoteFader);    SetIsOutPut(lowNote,false);      outChan       := CreateParam('output chan', ptDataFader);     SetIsOutPut(outchan,false);     SetFormat(outChan,'%.0f'); SetMin(outChan,1);  SetMax(outChan,16);    SetValue(lowNote, 10);    SetValue(hiNote, 115);      drone         := CreateParam('drone', ptSwitch);              SetIsOutput(drone,false);    instBypass  := CreateParam('inst bypass', ptSwitch);       SetIsInput(instBypass,false);      FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        midiIns[inputNum]  := CreateParam('MIDIin ' + intToStr(inputNum + 1) ,ptMidi);               SetIsOutPut(midiIns[inputNum],false);    END;        notesOut      := CreateParam('Notes Out',ptMidi);             SetIsInput(notesOut,false);      otherOut      := CreateParam('other Out',ptMidi);             SetIsInput(otherOut,false);      SetArrayLength(isEnabled, INPUT_COUNT);    END;//  isNoteOn:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOn(midi: tMidi): boolean;BEGIN       IF (midi.msg = NOTE_ON) AND (midi.data2>0) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  isNoteOff:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOff(midi: tMidi): boolean;BEGIN          IF (midi.msg = NOTE_OFF) OR ((midi.msg = NOTE_ON) AND (midi.data2 = 0)) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;    END;END; //  isSusPed:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isSusPed(midi: tMidi) : boolean;BEGIN    IF (midi.msg = CONTROL) AND (midi.data1 = SUS_PED) THEN BEGIN        result := true;    END    ELSE BEGIN        result := false;    END;END; //  isPitchBend:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isPitchBend(midi: tMidi): boolean;BEGIN     IF (midi.msg = PITCHBEND) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  global function inRange--eliminates only noteons outside the range limits FUNCTION inRange(midi: tMidi) : boolean;BEGIN    IF (isNoteOn(midi)) AND (midi.data1 > lowVal) AND (midi.data1 < hiVal) THEN BEGIN        result := TRUE;    END    ELSE BEGIN        result := FALSE;    END; END;//  isClear//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//FUNCTION isClear()  : boolean;   // can we stop this loop as soon as a key = true??  Didn't like 'while'VAR clear : boolean;BEGIN    clear := TRUE;    BEGIN        FOR key:= minKey TO maxKey DO BEGIN                IF (noteList[key] = TRUE) THEN BEGIN                 clear := FALSE;                       END;                                                                  END;     END;    result := clear;     END;//  ReleaseNotes  --when you release the sustain, or release the drone, or change the output channel//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//PROCEDURE ReleaseNotes;BEGIN    FOR key:= minKey TO maxKey DO BEGIN            IF (noteList[key] = TRUE) THEN BEGIN             noteOff.msg := NOTE_OFF;            noteOff.channel := outputChannel; // byte is a conversion--is this needed?            noteOff.data1 := key;            noteOff.data2 := 0;            setMidiArrayValue(notesOut, notesOutCount, noteOff);  //danger when called from callback?            notesOutCount := notesOutCount + 1;            noteList[key] := FALSE;        END;                                                              END; END;    // Global Procedure StoreNoteOffs--just de-inlined for readability//----------------------------------------------//PROCEDURE StoreNoteOffs;BEGIN    IF (midi.data1 > maxKey) THEN BEGIN           maxKey := midi.data1;    END;    IF (midi.data1 < minKey) THEN BEGIN         minKey := midi.data1;     END;     noteList[midi.data1] := TRUE;END;// Callback//----------------------------------------------// procedure Callback(n:integer);BEGIN    // get input values        hiVal := trunc(getValue(hiNote));    lowVal := trunc(getValue(lowNote));    octVal := trunc(getValue(octave));    semival := trunc(getValue(semi));    transpose := (octVal * 12) + semiVal;writeln('transpose = ' + intToStr(transpose));    outputChannel := trunc(getValue(outChan));    // see if any input is enabled....    noInput := TRUE;                                             FOR inputNum := 0 to INPUT_COUNT - 1 DO     BEGIN        IF getValue(enables[inputNum]) = 1 THEN BEGIN            isEnabled[inputNum] := TRUE;             noInput := FALSE;        END        ELSE BEGIN            isEnabled[inputNum] := FALSE;        END;    END;            // release notes if the drone has just been turned off, or if all inputs and notes are off, or if the channel is changed    IF ((n = drone) and (getValue(drone) = 0)) OR        ((noInput = TRUE) AND (isClear() = TRUE))       OR (n = outChan)                    THEN     BEGIN        releaseNotes;               // can I call this from callback?        setValue(instBypass, 1);    END    ELSE BEGIN        setValue(instBypass, 0);    END;END;  //////////////////////////////////////////////////////// process//////////////////////////////////////////////////////PROCEDURE PROCESS;BEGIN     FOR inputNum := 0 to INPUT_COUNT - 1 DO BEGIN                    midiInCount := getLength(midiIns[inputNum]);    IF (midiInCount > 0) THEN BEGIN            notesOutCount := 0;            otherOutCount := 0;                FOR byteNum := 0 TO (midiInCount - 1) DO BEGIN   // process input                                       getMidiArrayValue(midiIns[inputNum], byteNum, midi);                midi.channel := outputChannel;                 If isSusPed(midi) THEN BEGIN                              if (midi.data2 > 64) THEN BEGIN                        isSustained := true;                    END                    ELSE BEGIN                                                 isSustained := false;                          ReleaseNotes;          // send noteoffs when the sus pedal is released                    END;                                              END;                 IF isNoteOn(midi) AND (inRange(midi)) AND (isEnabled[inputNum]) THEN BEGIN //note on, sus on, store and send                    IF (isSustained = TRUE) THEN BEGIN                                   StoreNoteOffs;                                      setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                    END                                          ELSE BEGIN                                        // valid noteon, sus off, send it out                        transList[midi.data1] := transpose;                         midi.data1 := midi.data1 + transpose;                                        setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                     END;                END                ELSE IF isNoteOff(midi) AND (isSustained = FALSE)  THEN BEGIN // valid noteoff, sus off, send it out                        midi.data1 := midi.data1 + transList[midi.data1];                                         setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                                 END                                     ELSE IF isPitchBend(midi) THEN BEGIN                        // send PB along with the notes                                                 midi.channel := outputChannel;                                    setMidiArrayValue(notesOut, notesOutCount, midi);                    notesOutCount := notesOutCount + 1;                END                ELSE IF (NOT(isNoteOn(midi))) AND (NOT(isNoteOff(midi))) AND (NOT(isPitchBend(midi))) THEN BEGIN  //not a note, pb or sus pedal event                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;                               END;                        // process input            setLength(notesOut, notesOutCount);            setLength(otherOut, otherOutCount);                    END        ELSE BEGIN             setLength(notesOut,0);            setLength(otherOut, 0);         END;    END;  END;

Does it do this for you???

Statistics: Posted by woodslanding — 24 Nov 2009, 09:00

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T09:14:34+02:00

Oh, that was strange, can't say I've experienced that. Maybe I have to check some more the scripts I've already converted?

Statistics: Posted by bsork — 24 Nov 2009, 08:14

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T08:13:36+02:00

well, that's all very helpful.... I'm going to do some more debugging and see if I can get this script to work. I'm seeing midi out activity on the script object, but nothing is going down the cable. Curious....

Statistics: Posted by woodslanding — 24 Nov 2009, 07:13

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-23T22:52:03+02:00

Callback is called once for a change in an input parameter, so as long as a script isn't supposed to do anything unless something happens at the input(s) and that can be done within the same block, you actually don't need Process. For something like a delay, however, you would have to use Process. For any midi script with an output, you would also have to use Process, as you will need to set the length of the midi output in the next block.

As long as you're defining your variables globally you can access them from anywhere in the script. (Well, I suppose they have to be declared before getting used. ) Within the scripts themselves, there are no differences between the Init, Callback and Process methods and the procedures and/or functions you declare yourself, except for when they are called. Regarding Callback you have to remember that it's called once for each parameter that's changed within the block, so if you have a patch where several parameters may be updated simultaneously (on a recall of preset for instance), and you do a lot of computing with these parameters, it can be wise to use a boolean (doUpdate := TRUE) in Callback, and check that boolean in Process. As far as I can tell, all the Callback calls happen before Process is called.

Eg:

CODE:

VAR pParam1, pParam2, pParam3 : tParameter;VAR param1, param2, param3 : single;VAR doUpdate : boolean;....PROCEDURE Init;BEGIN   pParam1 := CreateParam('param 1', ...   pParam2 := CreateParam('param 2', ...   pParam3 := CreateParam('param 3', ...   doUpdate := FALSE;END;PROCEDURE GetParams;BEGIN    param1 := GetValue(pParam1);    param2 := GetValue(pParam2);    param3 := GetValue(pParam3); END;PROCEDURE Callback(n ; integer);BEGIN   // You can of course use IF-statements instead of CASE   CASE n OF       pParam1 : doUpdate := TRUE;       pParam2 : doUpdate := TRUE;       pParam3 : doUpdate := TRUE;   END;END;PROCEDURE Process;BEGIN   IF (doUpdate) THEN BEGIN      GetParams;      doUpdate := FALSE;   END;   ...END;

To sum up:
Init is called only when compiling, that means only once, so as well defining input/output parameters, put all code that initializes variables (values, array lengths, ...) in here.
Callback is called every time an input parameter is changed, and can be called several times within the same block.
Process is called once for each block.
You can create a script with only the Init procedure, bot mostly you would want to use either Callback or Process or both as well.

Did that help?

Statistics: Posted by bsork — 23 Nov 2009, 21:52

Question #1: What MIDI Mapper functions would you like to see in V5?

2010-01-10T12:47:11+02:00

crap, this still isn't working.... and it's getting late.

tomorrow....

Statistics: Posted by woodslanding — 10 Jan 2010, 11:47

Question #1: What MIDI Mapper functions would you like to see in V5?

2010-01-10T12:32:26+02:00

CODE:

(*/////////////////////////////////////////////////////// CHANNEL  // Version 2009-11-21; author: eric moon//// based on work by Bsork and amiga909//////////////////////////////////////////////////////*)//  This takes a number of midi inputs (on separate cables, for visual clarity)//  and performs the following operations on each.//  enable, disable--per input//  strip CCs and AT and send them out a separate output//  read CC64 values (or a CC of your choice) to withhold noteoffs until the sus pedal is released.//  limit to minimum and maximum notes--one range affects all inputs, as it's assumed you'll typically be using one input at a time//  transpose--again, one range for all inputs.//  output rechannelizing--all outs are a single channel.  Use multiple strips to control multi-timbral modules.//  bypass output for turning off unused instruments.  waits for all notes to be released....//  drone switch that keeps current notes sounding, but discards new notesOns as long as it is held//  It is designed to function as part of a mixer channel strip, running between several keyboards and a vsti.//  When the 'learn' function is enabled, notes are sent out output 2//  the first note sets the lower range, the second note sets the upper limit.//  when both notes are sent, learn is disabled, and notes go to output 1 as usual.CONST SUS_PED= 64;    //change if you use an unorthodox CC for sustaining.CONST INPUT_COUNT = 2;  //allows up to 16 inputs, one per channelCONST NOTE_ON        = 144;CONST NOTE_OFF       = 128;CONST CONTROL        = 176;CONST PITCHBEND      = 224;VAR   noteList                              : ARRAY OF boolean;VAR   transList                             : ARRAY OF integer;VAR   midi,noteOff                          : TMidi; var midiIns                                 :  ARRAY OF Tparameter;var enables                                 :  ARRAY OF TParameter;var notesOut  : Tparameter;var otherOut  : Tparameter;       // all CCs except the sustain value go out this output.  So does AT and PgChvar octave    : TParameter;var semi      : TParameter;var hiNote    : TParameter;var lowNote   : TParameter;var drone     : TParameter;       // sustains, but ignores new noteonsvar outChan   : TParameter;       // everything goes out one channel.  It's a channel strip. Use more if you need other channels!var instEnable: TParameter;var lower    : Tparameter;var upper   : Tparameter; var learn     : TParameter;VAR   octVal, semiVal, transpose            : integer;VAR   hiVal, lowVal                         : integer; VAR   midiInCount                           : integer;VAR   otherOutCount, notesOutCount          : integer;VAR   key, inputNum, byteNum                : integer; VAR   minChn, maxChn, minKey, maxKey        : integer;VAR   outputChannel                         : integer;VAR   isSustained,noInput                   : boolean;VAR   isEnabled                             : Array of boolean;VAR   learning                              : boolean;VAR   droning                               : boolean;VAR   release                               : boolean;VAR   disablable                            : boolean;var   learnCount                            : integer;//////////////////////////////////////////////////////// initialize//////////////////////////////////////////////////////PROCEDURE init;    BEGIN      minChn := INPUT_COUNT - 1;   // these are initially set to their opposite extremes....    maxChn := 0;     minKey := 128;     maxKey := 0;        isSustained := FALSE;              setArrayLength(noteList, 128);      FOR key:=0 TO 127 DO BEGIN         noteList[key]:=FALSE;    END;    SetArrayLength(transList, 128);    FOR key:=0 TO 127 DO BEGIN         transList[key]:=0;    END;           setArrayLength(midiIns, INPUT_COUNT);    setArrayLength(enables, INPUT_COUNT);    FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        enables[inputNum]  := CreateParam('enable ' + intToStr(inputNum + 1),ptSwitch);         SetValue(enables[inputNum], 1);               SetIsOutPut(enables[inputNum],false);            END;           octave      := CreateParam('octave',ptDataFader);          SetIsOutPut(octave,false);    semi        := CreateParam('semi',ptDataFader);            SetIsOutPut(semi,false);    SetFormat(octave,'%.0f'); SetMin(octave,-4);  SetMax(octave,4);        SetFormat(semi,'%.0f');   SetMin(semi,-7);    SetMax(semi,7);      hiNote        := CreateParam('high note',ptMidiNoteFader);   SetIsOutPut(hiNote,false);    lowNote       := CreateParam('low note',ptMidiNoteFader);    SetIsOutPut(lowNote,false);      outChan       := CreateParam('output chan', ptDataFader);     SetIsOutPut(outchan,false);     SetFormat(outChan,'%.0f'); SetMin(outChan,1);  SetMax(outChan,16);    SetValue(lowNote, 10);    SetValue(hiNote, 115);      drone         := CreateParam('drone', ptSwitch);              SetIsOutput(drone,false);    instEnable  := CreateParam('inst enable', ptSwitch);          SetIsInput(instEnable,false);     FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        midiIns[inputNum]  := CreateParam('MIDIin ' + intToStr(inputNum + 1) ,ptMidi);               SetIsOutPut(midiIns[inputNum],false);    END;        notesOut      := CreateParam('NoteMIDI',ptMidi);             SetIsInput(notesOut,false);      otherOut      := CreateParam('otherMIDI',ptMidi);             SetIsInput(otherOut,false);    learn := CreateParam('learn',ptButton);                       SetIsOutPut(learn,false);    lower := CreateParam('lower',ptMidiNoteFader);                SetIsInPut(lower,false);    upper := CreateParam('upper',ptMidiNoteFader);                SetIsInPut(upper,false);         notesOutCount := 0;    otherOutCount := 0;    learnCount    := 0;    disablable   := FALSE;    droning       := FALSE;    release       := FALSE;       SetArrayLength(isEnabled, INPUT_COUNT); END;//  isNoteOn:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOn(midi: tMidi): boolean;BEGIN       IF (midi.msg = NOTE_ON) AND (midi.data2>0) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  isNoteOff:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOff(midi: tMidi): boolean;BEGIN          IF (midi.msg = NOTE_OFF) OR ((midi.msg = NOTE_ON) AND (midi.data2 = 0)) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;    END;END; //  isSusPed:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isSusPed(midi: tMidi) : boolean;BEGIN    IF (midi.msg = CONTROL) AND (midi.data1 = SUS_PED) THEN BEGIN        result := true;    END    ELSE BEGIN        result := false;    END;END; //  isPitchBend:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isPitchBend(midi: tMidi): boolean;BEGIN     IF (midi.msg = PITCHBEND) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  global function inRange--eliminates only noteons outside the range limits FUNCTION inRange(midi: tMidi) : boolean;BEGIN    IF (isNoteOn(midi)) AND (midi.data1 > lowVal) AND (midi.data1 < hiVal) THEN BEGIN        result := TRUE;    END    ELSE BEGIN        result := FALSE;    END; END;//  isClear//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//FUNCTION isClear()  : boolean;   // can we stop this loop as soon as a key = true??  Didn't like 'while'VAR clear : boolean;BEGIN    clear := TRUE;    BEGIN        FOR key:= minKey TO maxKey DO BEGIN                IF (noteList[key] = TRUE) THEN BEGIN                 clear := FALSE;                       END;                                                                  END;     END;    result := clear;     END;//  ReleaseNotes  --when you release the sustain, or release the drone, or change the output channel//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//PROCEDURE ReleaseNotes;BEGIN    FOR key:= minKey TO maxKey DO BEGIN            IF (noteList[key] = TRUE) THEN BEGIN             noteOff.msg := NOTE_OFF;            noteOff.channel := outputChannel; // byte is a conversion--is this needed?            noteOff.data1 := key;            noteOff.data2 := 0;            setMidiArrayValue(notesOut, notesOutCount, noteOff);            strace('sending noteOff for ' + intToStr(key));            notesOutCount := notesOutCount + 1;            noteList[key] := FALSE;        END;                                                              END; END;    // Global Procedure StoreNoteOffs--just de-inlined for readability//----------------------------------------------//PROCEDURE StoreNoteOffs;BEGIN    IF (midi.data1 > maxKey) THEN BEGIN           maxKey := midi.data1;    END;    IF (midi.data1 < minKey) THEN BEGIN         minKey := midi.data1;     END;     noteList[midi.data1] := TRUE;END;// Callback//----------------------------------------------// procedure Callback(n:integer);BEGIN    if (n = hiNote) then begin         hiVal := round(getValue(hiNote));         setValue(upper, hiVal);    end    else if (n = lowNote) then begin         lowVal := round(getValue(lowNote));         setValue(lower, lowVal);    end    else if (n = learn) and (getValue(n) = 1) then begin         learning:= TRUE;        strace('learning...');         learnCount := 0;    end    else if (learnCount = 2) then begin        // we've just learned, so we want to send out lower and upper          learning := FALSE;        learnCount := 0;        strace(' finishedlearning');    end     else begin        // get input values            octVal := trunc(getValue(octave));        semival := trunc(getValue(semi));        transpose := (octVal * 12) + semiVal;        outputChannel := trunc(getValue(outChan));        droning := (getValue(drone) = 1);        // see if any input is enabled....        noInput := TRUE;                                                 FOR inputNum := 0 to INPUT_COUNT - 1 DO         BEGIN            IF getValue(enables[inputNum]) = 1 THEN BEGIN                isEnabled[inputNum] := TRUE;                 noInput := FALSE;            END            ELSE BEGIN                isEnabled[inputNum] := FALSE;            END;        END;                  // release notes if the drone has just been turned off, or if all inputs and notes are off, or if the channel is changed              IF ((n = drone) and (not(Droning))) OR            ((noInput = TRUE) AND (isClear() = TRUE))           OR (n = outChan)                        THEN BEGIN            strace('releasing notes');            release := true;               // booleans to check in process            disablable := true;        END        ELSE BEGIN            setValue(instEnable, 1);        END;    end;END;  //////////////////////////////////////////////////////// process//////////////////////////////////////////////////////PROCEDURE PROCESS;BEGIN     notesOutCount := 0;    otherOutCount := 0;       if release then releaseNotes;    FOR inputNum := 0 to INPUT_COUNT - 1 DO BEGIN                    midiInCount := getLength(midiIns[inputNum]);                               FOR byteNum := 0 TO (midiInCount - 1) DO BEGIN   // process input                                       getMidiArrayValue(midiIns[inputNum], byteNum, midi);            midi.channel := outputChannel;            if (learning) then begin                IF (isNoteOn(midi)) and (learnCount = 0) THEN BEGIN                    lowVal := midi.data1;                    setValue(lower, lowVal );                    learnCount := 1;                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                     strace('learnCount = ' + intToStr(learnCount));                                                 END                 ELSE IF (isNoteOn(midi)) and (learnCount = 1)  THEN BEGIN                    hiVal := midi.data1;                    setValue(upper, hiVal);                    learnCount := 2;                    learning := FALSE;  // we've set our outs....                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;            end             else if (droning) then begin  // basically ignore all midi when droning                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;            end            else begin                If isSusPed(midi) THEN BEGIN                              if (midi.data2 > 64) THEN BEGIN                        isSustained := true;                    END                    ELSE BEGIN                                                 isSustained := false;                          ReleaseNotes;          // send noteoffs when the sus pedal is released                    END;                                              END;                 IF isNoteOn(midi) AND (inRange(midi)) AND (isEnabled[inputNum]) THEN BEGIN //note on, sus on, store and send                    transList[midi.data1] := transpose;                     midi.data1 := midi.data1 + transpose;                     IF (isSustained = TRUE) THEN BEGIN                                   StoreNoteOffs;                                      setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                    END                                          ELSE BEGIN                                        // valid noteon, sus off, send it out                                       setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                     END;                END                ELSE IF isNoteOff(midi) AND (isSustained = FALSE)  THEN BEGIN // valid noteoff, sus off, send it out                        midi.data1 := midi.data1 + transList[midi.data1];                                         setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                                 END                                     ELSE IF isPitchBend(midi) THEN BEGIN                        // send PB along with the notes                                                 midi.channel := outputChannel;                                    setMidiArrayValue(notesOut, notesOutCount, midi);                    notesOutCount := notesOutCount + 1;                END                ELSE IF (NOT(isNoteOn(midi))) AND (NOT(isNoteOff(midi))) AND (NOT(isPitchBend(midi))) THEN BEGIN  //not a note, pb or sus pedal event                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;                               end;        END;    END;    setLength(notesOut, notesOutCount);    setLength(otherOut, otherOutCount);    if disablable then setValue(instEnable, 0); END;

Statistics: Posted by woodslanding — 10 Jan 2010, 11:32

Question #1: What MIDI Mapper functions would you like to see in V5?

2010-01-10T12:18:49+02:00

CODE:

(*/////////////////////////////////////////////////////// CHANNEL  // Version 2009-11-21; author: eric moon//// based on work by Bsork and amiga909//////////////////////////////////////////////////////*)//  This takes a number of midi inputs (on separate cables, for visual clarity)//  and performs the following operations on each.//  enable, disable--per input//  strip CCs and AT and send them out a separate output//  read CC64 values (or a CC of your choice) to withhold noteoffs until the sus pedal is released.//  limit to minimum and maximum notes--one range affects all inputs, as it's assumed you'll typically be using one input at a time//  transpose--again, one range for all inputs.//  output rechannelizing--all outs are a single channel.  Use multiple strips to control multi-timbral modules.//  bypass output for turning off unused instruments.  waits for all notes to be released....//  drone switch that keeps current notes sounding, but discards new notesOns as long as it is held//  It is designed to function as part of a mixer channel strip, running between several keyboards and a vsti.//  When the 'learn' function is enabled, notes are sent out output 2//  the first note sets the lower range, the second note sets the upper limit.//  when both notes are sent, learn is disabled, and notes go to output 1 as usual.CONST SUS_PED= 64;    //change if you use an unorthodox CC for sustaining.CONST INPUT_COUNT = 2;  //allows up to 16 inputs, one per channelCONST NOTE_ON        = 144;CONST NOTE_OFF       = 128;CONST CONTROL        = 176;CONST PITCHBEND      = 224;VAR   noteList                              : ARRAY OF boolean;VAR   transList                             : ARRAY OF integer;VAR   midi,noteOff                          : TMidi; var midiIns                                 :  ARRAY OF Tparameter;var enables                                 :  ARRAY OF TParameter;var notesOut  : Tparameter;var otherOut  : Tparameter;       // all CCs except the sustain value go out this output.  So does AT and PgChvar octave    : TParameter;var semi      : TParameter;var hiNote    : TParameter;var lowNote   : TParameter;var drone     : TParameter;       // sustains, but ignores new noteonsvar outChan   : TParameter;       // everything goes out one channel.  It's a channel strip. Use more if you need other channels!var instEnable: TParameter;var lower    : Tparameter;var upper   : Tparameter; var learn     : TParameter;VAR   octVal, semiVal, transpose            : integer;VAR   hiVal, lowVal                         : integer; VAR   midiInCount                           : integer;VAR   otherOutCount, notesOutCount          : integer;VAR   key, inputNum, byteNum                : integer; VAR   minChn, maxChn, minKey, maxKey        : integer;VAR   outputChannel                         : integer;VAR   isSustained,noInput                   : boolean;VAR   isEnabled                             : Array of boolean;VAR   learning                              : boolean;VAR   droning                               : boolean;var   learnCount                            : integer;//////////////////////////////////////////////////////// initialize//////////////////////////////////////////////////////PROCEDURE init;    BEGIN      minChn := INPUT_COUNT - 1;   // these are initially set to their opposite extremes....    maxChn := 0;     minKey := 128;     maxKey := 0;        isSustained := FALSE;              setArrayLength(noteList, 128);      FOR key:=0 TO 127 DO BEGIN         noteList[key]:=FALSE;    END;    SetArrayLength(transList, 128);    FOR key:=0 TO 127 DO BEGIN         transList[key]:=0;    END;           setArrayLength(midiIns, INPUT_COUNT);    setArrayLength(enables, INPUT_COUNT);    FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        enables[inputNum]  := CreateParam('enable ' + intToStr(inputNum + 1),ptSwitch);         SetValue(enables[inputNum], 1);               SetIsOutPut(enables[inputNum],false);            END;           octave      := CreateParam('octave',ptDataFader);          SetIsOutPut(octave,false);    semi        := CreateParam('semi',ptDataFader);            SetIsOutPut(semi,false);    SetFormat(octave,'%.0f'); SetMin(octave,-4);  SetMax(octave,4);        SetFormat(semi,'%.0f');   SetMin(semi,-7);    SetMax(semi,7);      hiNote        := CreateParam('high note',ptMidiNoteFader);   SetIsOutPut(hiNote,false);    lowNote       := CreateParam('low note',ptMidiNoteFader);    SetIsOutPut(lowNote,false);      outChan       := CreateParam('output chan', ptDataFader);     SetIsOutPut(outchan,false);     SetFormat(outChan,'%.0f'); SetMin(outChan,1);  SetMax(outChan,16);    SetValue(lowNote, 10);    SetValue(hiNote, 115);      drone         := CreateParam('drone', ptSwitch);              SetIsOutput(drone,false);    instEnable  := CreateParam('inst enable', ptSwitch);          SetIsInput(instEnable,false);     FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        midiIns[inputNum]  := CreateParam('MIDIin ' + intToStr(inputNum + 1) ,ptMidi);               SetIsOutPut(midiIns[inputNum],false);    END;        notesOut      := CreateParam('NoteMIDI',ptMidi);             SetIsInput(notesOut,false);      otherOut      := CreateParam('otherMIDI',ptMidi);             SetIsInput(otherOut,false);    learn := CreateParam('learn',ptButton);                       SetIsOutPut(learn,false);    lower := CreateParam('lower',ptMidiNoteFader);                SetIsInPut(lower,false);    upper := CreateParam('upper',ptMidiNoteFader);                SetIsInPut(upper,false);         notesOutCount := 0;    otherOutCount := 0;    learnCount    := 0;       SetArrayLength(isEnabled, INPUT_COUNT); END;//  isNoteOn:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOn(midi: tMidi): boolean;BEGIN       IF (midi.msg = NOTE_ON) AND (midi.data2>0) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  isNoteOff:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOff(midi: tMidi): boolean;BEGIN          IF (midi.msg = NOTE_OFF) OR ((midi.msg = NOTE_ON) AND (midi.data2 = 0)) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;    END;END; //  isSusPed:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isSusPed(midi: tMidi) : boolean;BEGIN    IF (midi.msg = CONTROL) AND (midi.data1 = SUS_PED) THEN BEGIN        result := true;    END    ELSE BEGIN        result := false;    END;END; //  isPitchBend:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isPitchBend(midi: tMidi): boolean;BEGIN     IF (midi.msg = PITCHBEND) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  global function inRange--eliminates only noteons outside the range limits FUNCTION inRange(midi: tMidi) : boolean;BEGIN    IF (isNoteOn(midi)) AND (midi.data1 > lowVal) AND (midi.data1 < hiVal) THEN BEGIN        result := TRUE;    END    ELSE BEGIN        result := FALSE;    END; END;//  isClear//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//FUNCTION isClear()  : boolean;   // can we stop this loop as soon as a key = true??  Didn't like 'while'VAR clear : boolean;BEGIN    clear := TRUE;    BEGIN        FOR key:= minKey TO maxKey DO BEGIN                IF (noteList[key] = TRUE) THEN BEGIN                 clear := FALSE;                       END;                                                                  END;     END;    result := clear;     END;//  ReleaseNotes  --when you release the sustain, or release the drone, or change the output channel//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//PROCEDURE ReleaseNotes;BEGIN    FOR key:= minKey TO maxKey DO BEGIN            IF (noteList[key] = TRUE) THEN BEGIN             noteOff.msg := NOTE_OFF;            noteOff.channel := outputChannel; // byte is a conversion--is this needed?            noteOff.data1 := key;            noteOff.data2 := 0;            setMidiArrayValue(notesOut, notesOutCount, noteOff);strace('sending noteOff for ' + intToStr(key));            notesOutCount := notesOutCount + 1;            noteList[key] := FALSE;        END;                                                              END; END;    // Global Procedure StoreNoteOffs--just de-inlined for readability//----------------------------------------------//PROCEDURE StoreNoteOffs;BEGIN    IF (midi.data1 > maxKey) THEN BEGIN           maxKey := midi.data1;    END;    IF (midi.data1 < minKey) THEN BEGIN         minKey := midi.data1;     END;     noteList[midi.data1] := TRUE;END;// Callback//----------------------------------------------// procedure Callback(n:integer);BEGIN    if (n = hiNote) then begin         hiVal := round(getValue(hiNote));         setValue(upper, hiVal);    end    else if (n = lowNote) then begin         lowVal := round(getValue(lowNote));         setValue(lower, lowVal);    end    else if (n = learn) and (getValue(n) = 1) then begin         learning:= TRUE;        strace('learning...');         learnCount := 0;    end    else if (learnCount = 2) then begin         learning := FALSE;        learnCount := 0;        strace(' finishedlearning');    end     else begin        // get input values            octVal := trunc(getValue(octave));        semival := trunc(getValue(semi));        transpose := (octVal * 12) + semiVal;        outputChannel := trunc(getValue(outChan));        droning := (getValue(drone) = 1);        // see if any input is enabled....        noInput := TRUE;                                                 FOR inputNum := 0 to INPUT_COUNT - 1 DO         BEGIN            IF getValue(enables[inputNum]) = 1 THEN BEGIN                isEnabled[inputNum] := TRUE;                 noInput := FALSE;            END            ELSE BEGIN                isEnabled[inputNum] := FALSE;            END;        END;                  // release notes if the drone has just been turned off, or if all inputs and notes are off, or if the channel is changed              IF ((n = drone) and (not(Droning))) OR            ((noInput = TRUE) AND (isClear() = TRUE))           OR (n = outChan)                        THEN BEGIN            strace('releasing notes');            releaseNotes;               setValue(instEnable, 0);        END        ELSE BEGIN            setValue(instEnable, 1);        END;    end;END;  //////////////////////////////////////////////////////// process//////////////////////////////////////////////////////PROCEDURE PROCESS;BEGIN     notesOutCount := 0;    otherOutCount := 0;           FOR inputNum := 0 to INPUT_COUNT - 1 DO BEGIN                    midiInCount := getLength(midiIns[inputNum]);                               FOR byteNum := 0 TO (midiInCount - 1) DO BEGIN   // process input                                       getMidiArrayValue(midiIns[inputNum], byteNum, midi);            midi.channel := outputChannel;            if (learning) then begin                IF (isNoteOn(midi)) and (learnCount = 0) THEN BEGIN                    lowVal := midi.data1;                    setValue(lower, lowVal );                    learnCount := 1;                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                     strace('learnCount = ' + intToStr(learnCount));                                                 END                 ELSE IF (isNoteOn(midi)) and (learnCount = 1)  THEN BEGIN                    hiVal := midi.data1;                    setValue(upper, hiVal);                    learnCount := 2;                    learning := FALSE;  // we've set our outs....                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;            end             else if (droning) then begin  // basically ignore all midi when droning                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;            end            else begin                If isSusPed(midi) THEN BEGIN                              if (midi.data2 > 64) THEN BEGIN                        isSustained := true;                    END                    ELSE BEGIN                                                 isSustained := false;                          ReleaseNotes;          // send noteoffs when the sus pedal is released                    END;                                              END;                 IF isNoteOn(midi) AND (inRange(midi)) AND (isEnabled[inputNum]) THEN BEGIN //note on, sus on, store and send                    transList[midi.data1] := transpose;                     midi.data1 := midi.data1 + transpose;                     IF (isSustained = TRUE) THEN BEGIN                                   StoreNoteOffs;                                      setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                    END                                          ELSE BEGIN                                        // valid noteon, sus off, send it out                                       setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                     END;                END                ELSE IF isNoteOff(midi) AND (isSustained = FALSE)  THEN BEGIN // valid noteoff, sus off, send it out                        midi.data1 := midi.data1 + transList[midi.data1];                                         setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                                 END                                     ELSE IF isPitchBend(midi) THEN BEGIN                        // send PB along with the notes                                                 midi.channel := outputChannel;                                    setMidiArrayValue(notesOut, notesOutCount, midi);                    notesOutCount := notesOutCount + 1;                END                ELSE IF (NOT(isNoteOn(midi))) AND (NOT(isNoteOff(midi))) AND (NOT(isPitchBend(midi))) THEN BEGIN  //not a note, pb or sus pedal event                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;                               end;        END;    END;    setLength(notesOut, notesOutCount);    setLength(otherOut, otherOutCount); END;

Statistics: Posted by woodslanding — 10 Jan 2010, 11:18

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-12-04T17:15:54+02:00

Statistics: Posted by bsork — 04 Dec 2009, 16:15

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-12-04T04:17:34+02:00

Statistics: Posted by gurulogic — 04 Dec 2009, 03:17

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-12-03T22:44:29+02:00

Statistics: Posted by bsork — 03 Dec 2009, 21:44

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-12-03T20:19:31+02:00

Built in functionality similar to this VST would be great!---> http://www.asseca.com/nicfit/mungrack.html

Statistics: Posted by gurulogic — 03 Dec 2009, 19:19

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-27T06:56:34+02:00

putting portamento on a pedal is not a bad idea, though!

Statistics: Posted by woodslanding — 27 Nov 2009, 05:56

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T22:11:32+02:00

It's actually a part of the (original?) midi spec, defined as CC66. Why portamento = CC65 is squeezed between sustain and sostenuto is strange, though. Go figure...

Statistics: Posted by bsork — 26 Nov 2009, 21:11

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T21:46:12+02:00

Ahhh, I understand about resetting the count now. But I did need to put it outside the 'for' loop to solve my original problem.

Sostenuto is clever--I've never seen that in the midi world!

Statistics: Posted by woodslanding — 26 Nov 2009, 20:46

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T12:50:40+02:00

Statistics: Posted by bsork — 26 Nov 2009, 11:50

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T11:28:00+02:00

Statistics: Posted by woodslanding — 26 Nov 2009, 10:28

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T10:41:25+02:00

I took the test for midLength > 0 out. Why was that in there?? It doesn't seem like it saves a step. If the length is zero, it's just not going to run the for loop anyway, right?? or was the script engine not able to handle 'for i = 0 to 0' correctly before?

Beware that FOR i := 0 TO 0 will execute the loop once! So you should either check length 0 with an IF before the loop, or use a WHILE loop. Something like:

CODE:

 i := 0;WHILE i < cnt DO BEGIN   do_something...   i := i + 1;END;

Statistics: Posted by bsork — 26 Nov 2009, 09:41

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T09:56:25+02:00

about the hanging-note thing:
there actually is a vst series that takes care of it:
"•most plugins include a sort of hanging-note-protection system (where applicable) to enable making changes during playback (e.g. when a MIDI thru option is toggled) without the risk of not releasing notes which are played at the same time the changes happen "

about a sustain effect:
S-CC-Sustain-Lite
http://www.s-production.de/
haven't tested it but i dont think a usine script would be much more effective.

Missed this the first time. I'm going to check it out. Looks like good stuff, and if it's programmed in C, should be fast.

Thanks!
-e

Statistics: Posted by woodslanding — 26 Nov 2009, 08:56

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-26T09:26:56+02:00

CODE:

(*/////////////////////////////////////////////////////// CHANNEL  // Version 2009-11-21; author: eric moon//// based on work by Bsork and amiga909//////////////////////////////////////////////////////*)//  This takes a number of midi inputs (on separate cables, for visual clarity)//  and performs the following operations on each.//  enable, disable--per input//  strip CCs and AT and send them out a separate output//  read CC64 values (or a CC of your choice) to withhold noteoffs until the sus pedal is released.//  limit to minimum and maximum notes--one range affects all inputs, as it's assumed you'll typically be using one input at a time//  transpose--again, one range for all inputs.//  output rechannelizing--all outs are a single channel.  Use multiple strips to control multi-timbral modules.//  bypass output for turning off unused instruments.  waits for all notes to be released....//  drone switch that keeps current notes sounding, but discards new notesOns as long as it is held//  It is designed to function as part of a mixer channel strip, running between several keyboards and a vsti.CONST SUS_PED= 64;    //change if you use an unorthodox CC for sustaining.CONST INPUT_COUNT = 2;  //allows up to 16 inputs, one per channelCONST NOTE_ON        = 144;CONST NOTE_OFF       = 128;CONST CONTROL        = 176;CONST PITCHBEND      = 224;VAR   noteList                              : ARRAY OF boolean;VAR   transList                             : ARRAY OF integer;VAR   midi,noteOff                          : TMidi; var midiIns                                 :  ARRAY OF Tparameter;var enables                                 :  ARRAY OF TParameter;var notesOut  : Tparameter;var otherOut  : Tparameter;       // all CCs except the sustain value go out this output.  So does AT and PgChvar octave    : TParameter;var semi      : TParameter;var hiNote    : TParameter;var lowNote   : TParameter;var drone     : TParameter;       // sustains, but ignores new noteonsvar outChan   : TParameter;       // everything goes out one channel.  It's a channel strip. Use more if you need other channels!var instBypass: TParameter; VAR   octVal, semiVal, transpose            : integer;VAR   hiVal, lowVal                         : integer; VAR   midiInCount                           : integer;VAR   otherOutCount, notesOutCount          : integer;VAR   key, inputNum, byteNum                : integer; VAR   minChn, maxChn, minKey, maxKey        : integer;VAR   outputChannel                         : integer;VAR   isSustained,noInput                   : boolean;VAR   isEnabled                             : Array of boolean;//////////////////////////////////////////////////////// initialize//////////////////////////////////////////////////////PROCEDURE init;    BEGIN      minChn := INPUT_COUNT - 1;   // these are initially set to their opposite extremes....    maxChn := 0;     minKey := 128;     maxKey := 0;        isSustained := FALSE;              setArrayLength(noteList, 128);      FOR key:=0 TO 127 DO BEGIN         noteList[key]:=FALSE;    END;    SetArrayLength(transList, 128);    FOR key:=0 TO 127 DO BEGIN         transList[key]:=0;    END;           setArrayLength(midiIns, INPUT_COUNT);    setArrayLength(enables, INPUT_COUNT);    FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        enables[inputNum]  := CreateParam('enable ' + intToStr(inputNum + 1),ptSwitch);         SetValue(enables[inputNum], 1);               SetIsOutPut(enables[inputNum],false);            END;           octave      := CreateParam('octave',ptDataFader);          SetIsOutPut(octave,false);    semi        := CreateParam('semi',ptDataFader);            SetIsOutPut(semi,false);    SetFormat(octave,'%.0f'); SetMin(octave,-4);  SetMax(octave,4);        SetFormat(semi,'%.0f');   SetMin(semi,-7);    SetMax(semi,7);      hiNote        := CreateParam('high note',ptMidiNoteFader);   SetIsOutPut(hiNote,false);    lowNote       := CreateParam('low note',ptMidiNoteFader);    SetIsOutPut(lowNote,false);      outChan       := CreateParam('output chan', ptDataFader);     SetIsOutPut(outchan,false);     SetFormat(outChan,'%.0f'); SetMin(outChan,1);  SetMax(outChan,16);    SetValue(lowNote, 10);    SetValue(hiNote, 115);      drone         := CreateParam('drone', ptSwitch);              SetIsOutput(drone,false);    instBypass  := CreateParam('inst bypass', ptSwitch);       SetIsInput(instBypass,false);      FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        midiIns[inputNum]  := CreateParam('MIDIin ' + intToStr(inputNum + 1) ,ptMidi);               SetIsOutPut(midiIns[inputNum],false);    END;        notesOut      := CreateParam('Notes Out',ptMidi);             SetIsInput(notesOut,false);      otherOut      := CreateParam('other Out',ptMidi);             SetIsInput(otherOut,false);      notesOutCount := 0;    otherOutCount := 0;       SetArrayLength(isEnabled, INPUT_COUNT); END;//  isNoteOn:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOn(midi: tMidi): boolean;BEGIN       IF (midi.msg = NOTE_ON) AND (midi.data2>0) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  isNoteOff:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOff(midi: tMidi): boolean;BEGIN          IF (midi.msg = NOTE_OFF) OR ((midi.msg = NOTE_ON) AND (midi.data2 = 0)) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;    END;END; //  isSusPed:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isSusPed(midi: tMidi) : boolean;BEGIN    IF (midi.msg = CONTROL) AND (midi.data1 = SUS_PED) THEN BEGIN        result := true;    END    ELSE BEGIN        result := false;    END;END; //  isPitchBend:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isPitchBend(midi: tMidi): boolean;BEGIN     IF (midi.msg = PITCHBEND) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  global function inRange--eliminates only noteons outside the range limits FUNCTION inRange(midi: tMidi) : boolean;BEGIN    IF (isNoteOn(midi)) AND (midi.data1 > lowVal) AND (midi.data1 < hiVal) THEN BEGIN        result := TRUE;    END    ELSE BEGIN        result := FALSE;    END; END;//  isClear//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//FUNCTION isClear()  : boolean;   // can we stop this loop as soon as a key = true??  Didn't like 'while'VAR clear : boolean;BEGIN    clear := TRUE;    BEGIN        FOR key:= minKey TO maxKey DO BEGIN                IF (noteList[key] = TRUE) THEN BEGIN                 clear := FALSE;                       END;                                                                  END;     END;    result := clear;     END;//  ReleaseNotes  --when you release the sustain, or release the drone, or change the output channel//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//PROCEDURE ReleaseNotes;BEGIN    FOR key:= minKey TO maxKey DO BEGIN            IF (noteList[key] = TRUE) THEN BEGIN             noteOff.msg := NOTE_OFF;            noteOff.channel := outputChannel; // byte is a conversion--is this needed?            noteOff.data1 := key;            noteOff.data2 := 0;            setMidiArrayValue(notesOut, notesOutCount, noteOff);  //danger when called from callback?            notesOutCount := notesOutCount + 1;            noteList[key] := FALSE;        END;                                                              END; END;    // Global Procedure StoreNoteOffs--just de-inlined for readability//----------------------------------------------//PROCEDURE StoreNoteOffs;BEGIN    IF (midi.data1 > maxKey) THEN BEGIN           maxKey := midi.data1;    END;    IF (midi.data1 < minKey) THEN BEGIN         minKey := midi.data1;     END;     noteList[midi.data1] := TRUE;END;// Callback//----------------------------------------------// procedure Callback(n:integer);BEGIN    // get input values        hiVal := trunc(getValue(hiNote));    lowVal := trunc(getValue(lowNote));    octVal := trunc(getValue(octave));    semival := trunc(getValue(semi));    transpose := (octVal * 12) + semiVal;writeln('transpose = ' + intToStr(transpose));    outputChannel := trunc(getValue(outChan));    // see if any input is enabled....    noInput := TRUE;                                             FOR inputNum := 0 to INPUT_COUNT - 1 DO     BEGIN        IF getValue(enables[inputNum]) = 1 THEN BEGIN            isEnabled[inputNum] := TRUE;             noInput := FALSE;        END        ELSE BEGIN            isEnabled[inputNum] := FALSE;        END;    END;          // release notes if the drone has just been turned off, or if all inputs and notes are off, or if the channel is changed    IF ((n = drone) and (getValue(drone) = 0)) OR        ((noInput = TRUE) AND (isClear() = TRUE))       OR (n = outChan)                    THEN     BEGIN        releaseNotes;               // can I call this from callback?        setValue(instBypass, 1);    END    ELSE BEGIN        setValue(instBypass, 0);    END;END;  //////////////////////////////////////////////////////// process//////////////////////////////////////////////////////PROCEDURE PROCESS;BEGIN     notesOutCount := 0;    otherOutCount := 0;    FOR inputNum := 0 to INPUT_COUNT - 1 DO BEGIN                    midiInCount := getLength(midiIns[inputNum]);               FOR byteNum := 0 TO (midiInCount - 1) DO BEGIN   // process input                                       getMidiArrayValue(midiIns[inputNum], byteNum, midi);                midi.channel := outputChannel;                 If isSusPed(midi) THEN BEGIN                              if (midi.data2 > 64) THEN BEGIN                        isSustained := true;                    END                    ELSE BEGIN                                                 isSustained := false;                          ReleaseNotes;          // send noteoffs when the sus pedal is released                    END;                                              END;                 IF isNoteOn(midi) AND (inRange(midi)) AND (isEnabled[inputNum]) THEN BEGIN //note on, sus on, store and send                    transList[midi.data1] := transpose;                     midi.data1 := midi.data1 + transpose;                     IF (isSustained = TRUE) THEN BEGIN                                   StoreNoteOffs;                                      setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                    END                                          ELSE BEGIN                                        // valid noteon, sus off, send it out                                       setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                     END;                END                ELSE IF isNoteOff(midi) AND (isSustained = FALSE)  THEN BEGIN // valid noteoff, sus off, send it out                        midi.data1 := midi.data1 + transList[midi.data1];                                         setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                                 END                                     ELSE IF isPitchBend(midi) THEN BEGIN                        // send PB along with the notes                                                 midi.channel := outputChannel;                                    setMidiArrayValue(notesOut, notesOutCount, midi);                    notesOutCount := notesOutCount + 1;                END                ELSE IF (NOT(isNoteOn(midi))) AND (NOT(isNoteOff(midi))) AND (NOT(isPitchBend(midi))) THEN BEGIN  //not a note, pb or sus pedal event                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;                              END;    END;    setLength(notesOut, notesOutCount);    setLength(otherOut, otherOutCount);  END;

Statistics: Posted by woodslanding — 26 Nov 2009, 08:26

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-25T09:53:16+02:00

Statistics: Posted by bsork — 25 Nov 2009, 08:53

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-25T06:24:25+02:00

Statistics: Posted by woodslanding — 25 Nov 2009, 05:24

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-25T05:56:32+02:00

okay, so set them to zero in init, and again at the very end of the process loop?? Okay, I'll try it!

thanks,
-e

Statistics: Posted by woodslanding — 25 Nov 2009, 04:56

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T21:57:56+02:00

tkx a lot for the script woodslanding. also thanks to bsork. learnt quite a lot about the new callback thing.

Statistics: Posted by amiga909 — 24 Nov 2009, 20:57

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T15:31:06+02:00

Statistics: Posted by bsork — 24 Nov 2009, 14:31

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T10:32:57+02:00

At work now - will have to take a look tonight at home.

Statistics: Posted by bsork — 24 Nov 2009, 09:32

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T10:00:48+02:00

try this. I've got the code where most of the funtionality seems to be working. All the midi LOOKS so nice!!!

CODE:

(*/////////////////////////////////////////////////////// CHANNEL  // Version 2009-11-21; author: eric moon//// based on work by Bsork and amiga909//////////////////////////////////////////////////////*)//  This takes a number of midi inputs (on separate cables, for visual clarity)//  and performs the following operations on each.//  enable, disable--per input//  strip CCs and AT and send them out a separate output//  read CC64 values (or a CC of your choice) to withhold noteoffs until the sus pedal is released.//  limit to minimum and maximum notes--one range affects all inputs, as it's assumed you'll typically be using one input at a time//  transpose--again, one range for all inputs.//  output rechannelizing--all outs are a single channel.  Use multiple strips to control multi-timbral modules.//  bypass output for turning off unused instruments.  waits for all notes to be released....//  drone switch that keeps current notes sounding, but discards new notesOns as long as it is held//  It is designed to function as part of a mixer channel strip, running between several keyboards and a vsti.CONST SUS_PED= 64;    //change if you use an unorthodox CC for sustaining.CONST INPUT_COUNT = 2;  //number of midi note sourcesCONST NOTE_ON        = 144;CONST NOTE_OFF       = 128;CONST CONTROL        = 176;CONST PITCHBEND      = 224;VAR   noteList                              : ARRAY OF boolean;VAR   transList                             : ARRAY OF integer;VAR   midi,noteOff                          : TMidi; var midiIns                                 :  ARRAY OF Tparameter;var enables                                 :  ARRAY OF TParameter;var notesOut  : Tparameter;var otherOut  : Tparameter;       // all CCs except the sustain value go out this output.  So does AT and PgChvar octave    : TParameter;var semi      : TParameter;var hiNote    : TParameter;var lowNote   : TParameter;var drone     : TParameter;       // sustains, but ignores new noteonsvar outChan   : TParameter;       // everything goes out one channel.  It's a channel strip. Use more if you need other channels!var instBypass: TParameter; VAR   octVal, semiVal, transpose            : integer;VAR   hiVal, lowVal                         : integer; VAR   midiInCount                           : integer;VAR   otherOutCount, notesOutCount          : integer;VAR   key, inputNum, byteNum                : integer; VAR   minChn, maxChn, minKey, maxKey        : integer;VAR   outputChannel                         : integer;VAR   isSustained,noInput                   : boolean;VAR   isEnabled                             : Array of boolean;//////////////////////////////////////////////////////// initialize//////////////////////////////////////////////////////PROCEDURE init;    BEGIN      minChn := INPUT_COUNT - 1;   // these are initially set to their opposite extremes....    maxChn := 0;     minKey := 128;     maxKey := 0;        isSustained := FALSE;              setArrayLength(noteList, 128);      FOR key:=0 TO 127 DO BEGIN         noteList[key]:=FALSE;    END;    SetArrayLength(transList, 128);    FOR key:=0 TO 127 DO BEGIN         transList[key]:=0;    END;           setArrayLength(midiIns, INPUT_COUNT);    setArrayLength(enables, INPUT_COUNT);    FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        enables[inputNum]  := CreateParam('enable ' + intToStr(inputNum + 1),ptSwitch);         SetValue(enables[inputNum], 1);               SetIsOutPut(enables[inputNum],false);            END;           octave      := CreateParam('octave',ptDataFader);          SetIsOutPut(octave,false);    semi        := CreateParam('semi',ptDataFader);            SetIsOutPut(semi,false);    SetFormat(octave,'%.0f'); SetMin(octave,-4);  SetMax(octave,4);        SetFormat(semi,'%.0f');   SetMin(semi,-7);    SetMax(semi,7);      hiNote        := CreateParam('high note',ptMidiNoteFader);   SetIsOutPut(hiNote,false);    lowNote       := CreateParam('low note',ptMidiNoteFader);    SetIsOutPut(lowNote,false);      outChan       := CreateParam('output chan', ptDataFader);     SetIsOutPut(outchan,false);     SetFormat(outChan,'%.0f'); SetMin(outChan,1);  SetMax(outChan,16);    SetValue(lowNote, 10);    SetValue(hiNote, 115);      drone         := CreateParam('drone', ptSwitch);              SetIsOutput(drone,false);    instBypass  := CreateParam('inst bypass', ptSwitch);       SetIsInput(instBypass,false);      FOR inputNum := 0 TO INPUT_COUNT - 1 DO  BEGIN        midiIns[inputNum]  := CreateParam('MIDIin ' + intToStr(inputNum + 1) ,ptMidi);               SetIsOutPut(midiIns[inputNum],false);    END;        notesOut      := CreateParam('Notes Out',ptMidi);             SetIsInput(notesOut,false);      otherOut      := CreateParam('other Out',ptMidi);             SetIsInput(otherOut,false);      SetArrayLength(isEnabled, INPUT_COUNT);    END;//  isNoteOn:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOn(midi: tMidi): boolean;BEGIN       IF (midi.msg = NOTE_ON) AND (midi.data2>0) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  isNoteOff:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isNoteOff(midi: tMidi): boolean;BEGIN          IF (midi.msg = NOTE_OFF) OR ((midi.msg = NOTE_ON) AND (midi.data2 = 0)) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;    END;END; //  isSusPed:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isSusPed(midi: tMidi) : boolean;BEGIN    IF (midi.msg = CONTROL) AND (midi.data1 = SUS_PED) THEN BEGIN        result := true;    END    ELSE BEGIN        result := false;    END;END; //  isPitchBend:  //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^// FUNCTION isPitchBend(midi: tMidi): boolean;BEGIN     IF (midi.msg = PITCHBEND) THEN BEGIN         result := true;    END    ELSE BEGIN         result := false;     END;END;//  global function inRange--eliminates only noteons outside the range limits FUNCTION inRange(midi: tMidi) : boolean;BEGIN    IF (isNoteOn(midi)) AND (midi.data1 > lowVal) AND (midi.data1 < hiVal) THEN BEGIN        result := TRUE;    END    ELSE BEGIN        result := FALSE;    END; END;//  isClear//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//FUNCTION isClear()  : boolean;   // can we stop this loop as soon as a key = true??  Didn't like 'while'VAR clear : boolean;BEGIN    clear := TRUE;    BEGIN        FOR key:= minKey TO maxKey DO BEGIN                IF (noteList[key] = TRUE) THEN BEGIN                 clear := FALSE;                       END;                                                                  END;     END;    result := clear;     END;//  ReleaseNotes  --when you release the sustain, or release the drone, or change the output channel//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//PROCEDURE ReleaseNotes;BEGIN    FOR key:= minKey TO maxKey DO BEGIN            IF (noteList[key] = TRUE) THEN BEGIN             noteOff.msg := NOTE_OFF;            noteOff.channel := outputChannel; // byte is a conversion--is this needed?            noteOff.data1 := key;            noteOff.data2 := 0;            setMidiArrayValue(notesOut, notesOutCount, noteOff);  //danger when called from callback?            notesOutCount := notesOutCount + 1;            noteList[key] := FALSE;        END;                                                              END; END;    // Global Procedure StoreNoteOffs--just de-inlined for readability//----------------------------------------------//PROCEDURE StoreNoteOffs;BEGIN    IF (midi.data1 > maxKey) THEN BEGIN           maxKey := midi.data1;    END;    IF (midi.data1 < minKey) THEN BEGIN         minKey := midi.data1;     END;     noteList[midi.data1] := TRUE;END;// Callback//----------------------------------------------// procedure Callback(n:integer);BEGIN    // get input values        hiVal := trunc(getValue(hiNote));    lowVal := trunc(getValue(lowNote));    octVal := trunc(getValue(octave));    semival := trunc(getValue(semi));    transpose := (octVal * 12) + semiVal;writeln('transpose = ' + intToStr(transpose));    outputChannel := trunc(getValue(outChan));    // see if any input is enabled....    noInput := TRUE;                                             FOR inputNum := 0 to INPUT_COUNT - 1 DO     BEGIN        IF getValue(enables[inputNum]) = 1 THEN BEGIN            isEnabled[inputNum] := TRUE;             noInput := FALSE;        END        ELSE BEGIN            isEnabled[inputNum] := FALSE;        END;    END;            // release notes if the drone has just been turned off, or if all inputs and notes are off, or if the channel is changed    IF ((n = drone) and (getValue(drone) = 0)) OR        ((noInput = TRUE) AND (isClear() = TRUE))       OR (n = outChan)                    THEN     BEGIN        releaseNotes;               // can I call this from callback?        setValue(instBypass, 1);    END    ELSE BEGIN        setValue(instBypass, 0);    END;END;  //////////////////////////////////////////////////////// process//////////////////////////////////////////////////////PROCEDURE PROCESS;BEGIN     FOR inputNum := 0 to INPUT_COUNT - 1 DO BEGIN                    midiInCount := getLength(midiIns[inputNum]);    IF (midiInCount > 0) THEN BEGIN            notesOutCount := 0;            otherOutCount := 0;                FOR byteNum := 0 TO (midiInCount - 1) DO BEGIN   // process input                                       getMidiArrayValue(midiIns[inputNum], byteNum, midi);                midi.channel := outputChannel;                 If isSusPed(midi) THEN BEGIN                              if (midi.data2 > 64) THEN BEGIN                        isSustained := true;                    END                    ELSE BEGIN                                                 isSustained := false;                          ReleaseNotes;          // send noteoffs when the sus pedal is released                    END;                                              END;                 IF isNoteOn(midi) AND (inRange(midi)) AND (isEnabled[inputNum]) THEN BEGIN //note on, sus on, store and send                    IF (isSustained = TRUE) THEN BEGIN                                   StoreNoteOffs;                                      setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                    END                                          ELSE BEGIN                                        // valid noteon, sus off, send it out                        transList[midi.data1] := transpose;                         midi.data1 := midi.data1 + transpose;                                        setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                     END;                END                ELSE IF isNoteOff(midi) AND (isSustained = FALSE)  THEN BEGIN // valid noteoff, sus off, send it out                        midi.data1 := midi.data1 + transList[midi.data1];                                         setMidiArrayValue(notesOut, notesOutCount, midi);                        notesOutCount := notesOutCount + 1;                                 END                                     ELSE IF isPitchBend(midi) THEN BEGIN                        // send PB along with the notes                                                 midi.channel := outputChannel;                                    setMidiArrayValue(notesOut, notesOutCount, midi);                    notesOutCount := notesOutCount + 1;                END                ELSE IF (NOT(isNoteOn(midi))) AND (NOT(isNoteOff(midi))) AND (NOT(isPitchBend(midi))) THEN BEGIN  //not a note, pb or sus pedal event                    setMidiArrayValue(otherOut, otherOutCount, midi);                    otherOutCount := otherOutCount + 1;                END;                               END;                        // process input            setLength(notesOut, notesOutCount);            setLength(otherOut, otherOutCount);                    END        ELSE BEGIN             setLength(notesOut,0);            setLength(otherOut, 0);         END;    END;  END;

Does it do this for you???

Statistics: Posted by woodslanding — 24 Nov 2009, 09:00

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T09:14:34+02:00

Oh, that was strange, can't say I've experienced that. Maybe I have to check some more the scripts I've already converted?

Statistics: Posted by bsork — 24 Nov 2009, 08:14

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-24T08:13:36+02:00

Statistics: Posted by woodslanding — 24 Nov 2009, 07:13

Question #1: What MIDI Mapper functions would you like to see in V5?

2009-11-23T22:52:03+02:00

CODE:

VAR pParam1, pParam2, pParam3 : tParameter;VAR param1, param2, param3 : single;VAR doUpdate : boolean;....PROCEDURE Init;BEGIN   pParam1 := CreateParam('param 1', ...   pParam2 := CreateParam('param 2', ...   pParam3 := CreateParam('param 3', ...   doUpdate := FALSE;END;PROCEDURE GetParams;BEGIN    param1 := GetValue(pParam1);    param2 := GetValue(pParam2);    param3 := GetValue(pParam3); END;PROCEDURE Callback(n ; integer);BEGIN   // You can of course use IF-statements instead of CASE   CASE n OF       pParam1 : doUpdate := TRUE;       pParam2 : doUpdate := TRUE;       pParam3 : doUpdate := TRUE;   END;END;PROCEDURE Process;BEGIN   IF (doUpdate) THEN BEGIN      GetParams;      doUpdate := FALSE;   END;   ...END;

Statistics: Posted by bsork — 23 Nov 2009, 21:52