----------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -- -- -- --------------------------- -- -- -- El-Sofware -- -- -- --------------------------- -- -- -- -- present -- -- -- -- --------------- -- -- -- MidiSurf -- -- -- --------------- -- -- -- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -- -- -- Auteur : Manuel De Girardi -- -- Date : 21/11/2010 -- -- Description : Surface de contrĂ´le pour instrument MIDI -- -- -- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------- with PragmARC.REM_NN_Wrapper; use PragmARC.REM_NN_Wrapper; with Direct_Io; with Libsens.Common; use Libsens.Common; package Libsens.Rem_Common is subtype T_Register is Node_Set(1..63); package register_Io is new Direct_Io(T_Register); use Register_Io; function Chord_To_Register(Chord : T_Chord) return T_Register; function Register_To_Chord(Register : T_Register) return T_Chord; function REM_NN_Expl(Network : String;Prob : string) return T_Register; type T_Bbyte is array (1..7) of Boolean; subtype T_Byte is Natural range 0..127; function To_Bbyte(Byte : in T_Byte) return T_Bbyte; function To_byte(Bbyte : in T_Bbyte) return T_Byte; end Libsens.Rem_Common;