I have it set up like this:
Midi In (set up as profiler) > Alist.
But nothing comes up. Every other midi monitoring app does tho.

I need to use MidiPipe to translate 2 particular messages into something more "workable".
Code: Select all
-- set MicroFreak Midi channel
property MF_channel : 8
-- INPUT which MF preset is called per MS pattern, range: 0 to 127,
property BankA : { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 }
property BankB : { 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 101, 102, 103 }
property BankC : { 101, 101, 101, 101, 101, 101, 101, 102, 101, 101, 103, 101, 101, 101, 101, 101 }
property BankD : { 60, 61, 62, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 110, 111, 113 }
property BankE : { 50, 51, 100, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31 }
property BankF : { 50, 51, 100, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31 }
on runme(message)
set StatusByte to (item 1 of message)
set DataByte to (item 2 of message)
-- if program change on MF_channel
if (StatusByte = 191 + MF_channel) then
if (DataByte < 16 and DataByte > -1) then
-- read the PC command and assign the correct index based on Bank
set PatternIndex to (DataByte +1)
-- assign the MF preset
set item 2 of message to ((item (PatternIndex) of BankA) - 1)
return message
else if (DataByte < 32 and DataByte > -1) then
-- read the PC command and assign the correct index based on Bank
set PatternIndex to (item 2 of message -15)
-- assign the MF preset
set item 2 of message to ((item (PatternIndex) of BankB) - 1)
return message
else if (DataByte < 48 and DataByte > -1) then
-- read the PC command and assign the correct index based on Bank
set PatternIndex to (item 2 of message -31)
-- assign the MF preset
set item 2 of message to ((item (PatternIndex) of BankC) - 1)
return message
else if (DataByte < 64 and DataByte > -1) then
-- read the PC command and assign the correct index based on Bank
set PatternIndex to (item 2 of message -47)
-- assign the MF preset
set item 2 of message to ((item (PatternIndex) of BankD) - 1)
return message
else if (DataByte < 80 and DataByte > -1) then
-- read the PC command and assign the correct index based on Bank
set PatternIndex to (item 2 of message -63)
-- assign the MF preset
set item 2 of message to ((item (PatternIndex) of BankE) - 1)
return message
else if (DataByte < 97 and DataByte > -1) then
-- read the PC command and assign the correct index based on Bank
set PatternIndex to (item 2 of message -79)
-- assign the MF preset
set item 2 of message to ((item (PatternIndex) of BankF) - 1)
return message
end if
end if
end runme