
[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        : 25/11/2010                                                                                                                                                --[m
[31m-- Description : Surface de contrôle pour instrument MIDI                                                                                                                  --[m
[31m--                                                                                                                                                                         --[m
[31m-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------[m


[01;34mwith[m Gtk[31m.[mFrame[31m;[m                         [01;34muse[m Gtk[31m.[mFrame[31m;[m
[01;34mwith[m Gtk[31m.[mLabel[31m;[m                         [01;34muse[m Gtk[31m.[mLabel[31m;[m
[01;34mwith[m Gtk[31m.[mBox[31m;[m                           [01;34muse[m Gtk[31m.[mBox[31m;[m
[01;34mwith[m Gtk[31m.[mSpin_Button[31m;[m                   [01;34muse[m Gtk[31m.[mSpin_Button[31m;[m
[01;34mwith[m Gtk[31m.[mCheck_Button[31m;[m                  [01;34muse[m Gtk[31m.[mCheck_Button[31m;[m
[01;34mwith[m Gtk[31m.[mGEntry[31m;[m                        [01;34muse[m Gtk[31m.[mGEntry[31m;[m
[01;34mwith[m Gtk[31m.[mButton[31m;[m                        [01;34muse[m Gtk[31m.[mButton[31m;[m
[01;34mwith[m Gtk[31m.[mFile_Selection[31m;[m                [01;34muse[m Gtk[31m.[mFile_Selection[31m;[m


[01;34mwith[m Libsens[31m.[mOutput_Drivers[31m;[m                 [01;34muse[m Libsens[31m.[mOutput_Drivers[31m;[m
[01;34mwith[m Libsens[31m.[mMidi_Types[31m;[m                     [01;34muse[m Libsens[31m.[mMidi_Types[31m;[m

[01;34mwith[m Calendar[31m;[m                          [01;34muse[m Calendar[31m;[m

[01;34mwith[m Ada[31m.[mFinalization[31m;[m

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


   [01;34mtype[m T_Intelligence[31m;[m
   
   [01;34mtask[m [01;34mtype[m [01;30mT_Intelligence_Driver[m[31m([mIntelligence [31m:[m [01;34maccess[m T_Intelligence[31m)[m [01;34mis[m
      [01;34mentry[m Start
        [31m([mTop [31m:[m [01;34min[m Time[31m;[m
         Bpm [31m:[m [01;34min[m T_Bpm[31m;[m
         Channel [31m:[m [01;34min[m T_Channel[31m;[m
         Chord [31m:[m [01;34min[m T_Chord[31m);[m
      [01;34mentry[m Stop[31m;[m
      [01;34mentry[m Halt[31m;[m
      [01;34mentry[m reset[31m;[m
      [01;34mentry[m Set_Last_Step
        [31m([mLast [31m:[m [01;34min[m Positive[31m);[m
      [01;34mentry[m [01;30mSet_Transpose[m[31m([mTranspose [31m:[m [01;34min[m [32mInteger[m[31m);[m
   [01;34mend[m T_Intelligence_Driver[31m;[m


   [01;34mtype[m T_Note [01;34mis[m [01;34mnew[m Ada[31m.[mFinalization[31m.[mLimited_Controlled [01;34mwith[m [01;34mprivate[m[31m;[m
   
   [01;34mtype[m Note_Access [01;34mis[m [01;34maccess[m [01;34mall[m T_Note[31m;[m

   [01;34mtype[m T_Note_Table [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Note_Access[31m;[m
   
   [01;34mtype[m T_Step [01;34mis[m [01;34mnew[m Ada[31m.[mFinalization[31m.[mLimited_Controlled [01;34mwith[m [01;34mprivate[m[31m;[m
   [01;34mtype[m Step_Access [01;34mis[m [01;34maccess[m [01;34mall[m T_Step[31m;[m

   [01;34mtype[m T_Step_Table [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Step_access[31m;[m


   [01;34mtype[m T_Intelligence [01;34mis[m
      [01;34mrecord[m
         Main_Frame            [31m:[m Gtk_Frame[31m;[m
	 [31m--[m
         Main_Vbox             [31m:[m Gtk_Vbox[31m;[m
         Main_Hbox             [31m:[m Gtk_Hbox[31m;[m
         Parameters            [31m:[m Gtk_Vbox[31m;[m
         Key_Label             [31m:[m Gtk_Label[31m;[m
         Sens_Label            [31m:[m Gtk_Label[31m;[m
         Label_Vbox            [31m:[m Gtk_Vbox[31m;[m
         [31m--[m
	 [31m--[m
         Chord_Hbox            [31m:[m Gtk_Hbox[31m;[m

         Last_Label            [31m:[m Gtk_Label[31m;[m
         [31m--[m
         Last_Spin_Button      [31m:[m Gtk_Spin_Button[31m;[m
         Transpose_Label       [31m:[m Gtk_Label[31m;[m
         [31m--[m
         Transpose_Spin_Button [31m:[m Gtk_Spin_Button[31m;[m

         Network_Parameters    [31m:[m Gtk_Vbox[31m;[m
         Filename_Label        [31m:[m Gtk_Label[31m;[m
         Filename_Gentry       [31m:[m Gtk_Gentry[31m;[m
         File_Selection_button [31m:[m Gtk_Button[31m;[m
         File_Selection        [31m:[m Gtk_File_Selection[31m;[m
	 [31m--[m
         Step_Table            [31m:[m [01;30mT_Step_Table[m[31m([m[35m1[m[31m..[m[35m32[m[31m);[m
         Stepseq_Hbox          [31m:[m Gtk_Hbox[31m;[m
         Step_Parameters       [31m:[m Gtk_Vbox[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m

   [01;34mtype[m Intelligence_Access [01;34mis[m [01;34maccess[m [01;34mall[m T_Intelligence[31m;[m

   [01;34mprocedure[m Initialize
     [31m([mIntelligence [31m:[m [01;34min[m [01;34mout[m Intelligence_Access[31m;[m
      Driver       [31m:[m [01;34min[m Output_Driver_Access[31m);[m


[01;34mprivate[m
   [01;34mtype[m T_Note [01;34mis[m [01;34mnew[m Ada[31m.[mFinalization[31m.[mLimited_Controlled [01;34mwith[m
      [01;34mrecord[m
         Note_Vbox          [31m:[m Gtk_Vbox[31m;[m
         Set_Check_button   [31m:[m Gtk_Check_Button[31m;[m
         Key_Spin_Button    [31m:[m Gtk_Spin_Button[31m;[m
         Sens_Spin_button   [31m:[m Gtk_Spin_Button[31m;[m
	 Length_Spin_button [31m:[m Gtk_Spin_Button[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m

   [01;34mprocedure[m Initialize
     [31m([mNote [31m:[m [01;34min[m [01;34mout[m Note_Access[31m);[m


   [01;34mtype[m T_Step [01;34mis[m [01;34mnew[m Ada[31m.[mFinalization[31m.[mLimited_Controlled [01;34mwith[m
      [01;34mrecord[m
         Step_Vbox        [31m:[m Gtk_Vbox[31m;[m
         Step_Label       [31m:[m Gtk_Label[31m;[m         
         Set_Check_button [31m:[m Gtk_Check_Button[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m

   [01;34mprocedure[m Initialize
     [31m([mStep [31m:[m [01;34min[m [01;34mout[m Step_Access[31m;[m
     Label [31m:[m [01;34min[m [32mstring[m[31m);[m



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