

[31m-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m--                                                                                                                                                                         --[m
[31m--                                                                      ---------------------------                                                                        --[m
[31m--                                                                      --       El-Sofware      --                                                                        --[m
[31m--                                                                      ---------------------------                                                                        --[m
[31m--                                                                                                                                                                         --[m
[31m--                                                                                present                                                                                  --[m
[31m--                                                                                                                                                                         --[m
[31m--                                                                            ---------------                                                                              --[m
[31m--                                                                            --  MidiSurf --                                                                              --[m
[31m--                                                                            ---------------                                                                              --[m
[31m--                                                                                                                                                                         --[m
[31m-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m--                                                                                                                                                                         --[m
[31m-- Auteur      : Manuel De Girardi                                                                                                                                         --[m
[31m-- Date        : 21/11/2010                                                                                                                                                --[m
[31m-- Description : Surface de contrôle pour instrument MIDI                                                                                                                  --[m
[31m--                                                                                                                                                                         --[m
[31m-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------[m

[01;34mwith[m PragmARC[31m.[mREM_NN_Wrapper[31m;[m
[01;34muse[m PragmARC[31m.[mREM_NN_Wrapper[31m;[m


[01;34mwith[m Direct_Io[31m;[m
[01;34mwith[m Libsens[31m.[mCommon[31m;[m                           [01;34muse[m Libsens[31m.[mCommon[31m;[m

[01;34mpackage[m Libsens[31m.[mRem_Common [01;34mis[m

   [01;34msubtype[m T_Register [01;34mis[m [01;30mNode_Set[m[31m([m[35m1[m[31m..[m[35m63[m[31m);[m
   [01;34mpackage[m register_Io [01;34mis[m [01;34mnew[m [01;30mDirect_Io[m[31m([mT_Register[31m);[m
   [01;34muse[m Register_Io[31m;[m
   [01;34mfunction[m [01;30mChord_To_Register[m[31m([mChord [31m:[m T_Chord[31m)[m [01;34mreturn[m T_Register[31m;[m
   [01;34mfunction[m [01;30mRegister_To_Chord[m[31m([mRegister [31m:[m T_Register[31m)[m [01;34mreturn[m T_Chord[31m;[m
   
   [01;34mfunction[m [01;30mREM_NN_Expl[m[31m([mNetwork [31m:[m [32mString[m[31m;[mProb [31m:[m [32mstring[m[31m)[m [01;34mreturn[m T_Register[31m;[m
   
   
   [01;34mtype[m T_Bbyte [01;34mis[m [01;34marray[m [31m([m[35m1[m[31m..[m[35m7[m[31m)[m [01;34mof[m [32mBoolean[m[31m;[m
   [01;34msubtype[m T_Byte [01;34mis[m Natural [01;34mrange[m [35m0[m[31m..[m[35m127[m[31m;[m
   
   [01;34mfunction[m [01;30mTo_Bbyte[m[31m([mByte [31m:[m [01;34min[m T_Byte[31m)[m [01;34mreturn[m T_Bbyte[31m;[m
   [01;34mfunction[m [01;30mTo_byte[m[31m([mBbyte [31m:[m [01;34min[m T_Bbyte[31m)[m [01;34mreturn[m T_Byte[31m;[m

[01;34mend[m Libsens[31m.[mRem_Common[31m;[m
