1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76
|
with Message;
use Message;
package body Midi_Implementation is
function Note_On(Chanel : in T_Chanel;
Note : in T_Note;
Sens : in T_Note_Sens) return T_Message is
Message : T_Message := (16#90# + Chanel, Note, Sens);
begin
return Message;
end;
function Note_Off (Chanel : in T_Chanel;
Note : in T_Note) return T_Message is
Message : T_Message := (16#80# + Chanel, Note, 64);
begin
return Message;
end;
function Bank_Select_MSB(Chanel : in T_Chanel;
Bank : in T_Bank) return T_Message is
Message : T_Message := (16#B# + chanel, 0 , Bank);
begin
return Message;
end;
function Bank_Select_LSB(Chanel : in T_Chanel;
Program : in T_Program) return T_Message is
Message : T_Message := (16#B# + chanel, 32 , Program);
begin
return Message;
end;
function Program_Change(Chanel : in T_Chanel;
Program : in T_Program) return T_Message is
Message : T_Message := (16#B# + chanel, 1, 0);
begin
return Message;
end;
function NRPM_MSB (Chanel : in T_Chanel;
Value : in T_Value) return T_Message is
Message : T_Message := (16#B# + Chanel, 98, Value);
begin
return Message;
end;
function NRPM_LSB (Chanel : in T_Chanel;
Value : in T_Value) return T_Message is
Message : T_Message := (16#B# + Chanel, 99, Value);
begin
return Message;
end;
function Data_Entry_MSB (Chanel : in T_Chanel;
Value : in T_Value) return T_Message is
Message : T_Message := (16#B# + Chanel, 6, Value);
begin
return Message;
end;
-- Voilà, le reste n'est pas implémenté. |
Partager