
[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 Glib[31m;[m                              [01;34muse[m Glib[31m;[m
[01;34mwith[m Gtk[31m.[mWidget[31m;[m                        [01;34muse[m Gtk[31m.[mWidget[31m;[m
[01;34mwith[m Gtk[31m.[mStock[31m;[m                         [01;34muse[m Gtk[31m.[mStock[31m;[m

[01;34mwith[m Gtk[31m.[mHandlers[31m;[m
[01;34mpragma[m [01;30mElaborate_All[m [31m([mGtk[31m.[mHandlers[31m);[m


[01;34mwith[m Libsens[31m.[mMidi_Messages[31m;[m                  [01;34muse[m Libsens[31m.[mMidi_Messages[31m;[m
[01;34mwith[m Midi_Implementation[31m;[m               [01;34muse[m Midi_Implementation[31m;[m


[01;34mwith[m Text_Io[31m;[m                           [01;34muse[m Text_Io[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 Rem_Common[31m;[m
[01;34muse[m Rem_Common[31m;[m
[01;34mwith[m Text_Io[31m;[m
[01;34muse[m Text_Io[31m;[m
[01;34mwith[m Ada[31m.[mUnchecked_Deallocation[31m;[m
[01;34mwith[m Ada[31m.[mDirectories[31m;[m                   [01;34muse[m Ada[31m.[mDirectories[31m;[m

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



   [01;34mprocedure[m Free_Chord [01;34mis[m [01;34mnew[m Ada[31m.[m[01;30mUnchecked_Deallocation[m[31m([mT_Chord[31m,[m Chord_Access[31m);[m



   [01;34mtask[m [01;34mbody[m T_Intelligence_Driver [01;34mis[m
      Suspended [31m:[m [32mBoolean[m [31m:=[m True[31m;[m
      End_Of_Task [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Message [31m:[m T_Message[31m;[m
      Date  [31m:[m Time [31m:=[m Clock[31m;[m
      Tempo [31m:[m T_Bpm [31m:=[m [35m120.0[m[31m;[m
      Channel [31m:[m T_Channel [31m:=[m [35m1[m[31m;[m


      Current_Step [31m:[m Positive [31m:=[m [35m1[m[31m;[m
      Resolution [31m:[m T_Figure [31m:=[m double[31m;[m
      Last_Step [31m:[m Positive [31m:=[m [35m32[m[31m;[m
      Transpose [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m

      Saved_Chord [31m:[m Chord_Access[31m;[m
      The_Chord [31m:[m Chord_Access[31m;[m

      Register [31m:[m T_Register[31m;[m
      Prob_File [31m:[m Register_Io[31m.[mFile_Type[31m;[m
      prob_Flt [31m:[m [01;34maccess[m [32mString[m[31m;[m
      Network [31m:[m [01;34maccess[m [32mString[m[31m;[m

   [01;34mbegin[m
      [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
         [01;34mselect[m
            [01;34maccept[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;34mdo[m
               T_Intelligence_Driver[31m.[mChannel [31m:=[m Channel[31m;[m
               [01;30mPut_Line[m[31m([m[31m"Stratting intelligence"[m[31m);[m
               Date [31m:=[m Top[31m;[m
               Tempo [31m:=[m Bpm[31m;[m
               Suspended [31m:=[m False[31m;[m
               The_Chord [31m:=[m [01;34mnew[m T_Chord ' [31m([mChord[31m);[m
               Network [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mGet_Text[m[31m([mIntelligence[31m.[mFilename_Gentry[31m));[m
               Prob_Flt [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mBase_Name[m[31m([mNetwork[31m.[m[01;34mall[m[31m)[m [31m&[m [31m".pbm"[m[31m);[m
               Register [31m:=[m [01;30mChord_To_Register[m[31m([mThe_Chord[31m.[m[01;34mall[m[31m);[m
               Register_Io[31m.[m[01;30mCreate[m[31m([mProb_File[31m,[m Register_Io[31m.[mOut_File[31m,[m Prob_Flt[31m.[m[01;34mall[m[31m);[m
               Register_Io[31m.[m[01;30mwrite[m[31m([mProb_File[31m,[m Register[31m);[m
               Register_Io[31m.[m[01;30mclose[m[31m([mProb_File[31m);[m
               Current_Step [31m:=[m [35m1[m[31m;[m
            [01;34mend[m Start[31m;[m
         [01;34mor[m
            [01;34maccept[m Halt [01;34mdo[m
               Suspended [31m:=[m True[31m;[m
               End_Of_Task [31m:=[m True[31m;[m
            [01;34mend[m Halt[31m;[m
         [01;34mor[m

            [01;34maccept[m Stop[31m;[m
         [01;34mor[m
            [01;34maccept[m Reset [01;34mdo[m
               The_Chord [31m:=[m [01;34mnew[m [01;30mT_Chord[m[31m([mIntelligence[31m.[mChord'[01;34mrange[m[31m);[m
               [01;34mfor[m I [01;34min[m Intelligence[31m.[mChord'[01;34mRange[m [01;34mloop[m
                  [01;34mif[m Intelligence[31m.[m[01;30mChord[m[31m([mI[31m).[mSet [01;34mthen[m
                     [01;30mThe_Chord[m[31m([mI[31m).[mkey [31m:=[m Intelligence[31m.[m[01;30mChord[m[31m([mI[31m).[mKey[31m;[m
                     [01;30mThe_Chord[m[31m([mI[31m).[mvel [31m:=[m Intelligence[31m.[m[01;30mChord[m[31m([mI[31m).[msens[31m;[m

                  [01;34melse[m
                     [01;30mThe_Chord[m[31m([mI[31m).[mkey [31m:=[m [35m0[m[31m;[m
                     [01;30mThe_Chord[m[31m([mI[31m).[mvel [31m:=[m [35m0[m[31m;[m

                  [01;34mend[m [01;34mif[m[31m;[m
               [01;34mend[m [01;34mloop[m[31m;[m
               Register [31m:=[m [01;30mChord_To_Register[m[31m([mThe_Chord[31m.[m[01;34mall[m[31m);[m
            [01;34mend[m Reset[31m;[m
         [01;34mor[m
            [01;34maccept[m Set_Last_Step
              [31m([mLast [31m:[m [01;34min[m Positive[31m)[m [01;34mdo[m
               Last_Step [31m:=[m Last[31m;[m
            [01;34mend[m Set_Last_Step[31m;[m
         [01;34mor[m
            [01;34maccept[m [01;30mSet_Transpose[m[31m([mTranspose [31m:[m [01;34min[m [32mInteger[m[31m)[m [01;34mdo[m
               T_Intelligence_Driver[31m.[mTranspose [31m:=[m Transpose[31m;[m
            [01;34mend[m Set_Transpose[31m;[m
         [01;34mend[m [01;34mselect[m[31m;[m
         [01;34mdelay[m [01;34muntil[m Date[31m;[m
         [01;34mwhile[m [01;34mnot[m Suspended [01;34mloop[m
            [01;34mselect[m
               [01;34maccept[m Reset [01;34mdo[m
                  The_Chord [31m:=[m [01;34mnew[m [01;30mT_Chord[m[31m([mIntelligence[31m.[mChord'[01;34mrange[m[31m);[m
                  [01;34mfor[m I [01;34min[m Intelligence[31m.[mChord'[01;34mRange[m [01;34mloop[m
                     [01;34mif[m Intelligence[31m.[m[01;30mChord[m[31m([mI[31m).[mSet [01;34mthen[m
                        [01;30mThe_Chord[m[31m([mI[31m).[mkey [31m:=[m Intelligence[31m.[m[01;30mChord[m[31m([mI[31m).[mKey[31m;[m
                        [01;30mThe_Chord[m[31m([mI[31m).[mvel [31m:=[m Intelligence[31m.[m[01;30mChord[m[31m([mI[31m).[msens[31m;[m

                     [01;34melse[m
                        [01;30mThe_Chord[m[31m([mI[31m).[mkey [31m:=[m [35m0[m[31m;[m
                        [01;30mThe_Chord[m[31m([mI[31m).[mvel [31m:=[m [35m0[m[31m;[m

                     [01;34mend[m [01;34mif[m[31m;[m
                  [01;34mend[m [01;34mloop[m[31m;[m
                  Register [31m:=[m [01;30mChord_To_Register[m[31m([mThe_Chord[31m.[m[01;34mall[m[31m);[m
               [01;34mend[m Reset[31m;[m
            [01;34mor[m
               [01;34maccept[m Set_Last_Step
                 [31m([mLast [31m:[m [01;34min[m Positive[31m)[m [01;34mdo[m
                  [01;34mif[m Current_Step [31m>[m Last [01;34mthen[m
                     Current_Step [31m:=[m Last[31m;[m
                  [01;34mend[m [01;34mif[m[31m;[m
                  Last_Step [31m:=[m Last[31m;[m
               [01;34mend[m Set_Last_Step[31m;[m
            [01;34mor[m
               [01;34maccept[m [01;30mSet_Transpose[m[31m([mTranspose [31m:[m [01;34min[m [32mInteger[m[31m)[m [01;34mdo[m
                  T_Intelligence_Driver[31m.[mTranspose [31m:=[m Transpose[31m;[m
                  Message [31m:=[m [01;30mAll_Note_off[m[31m([mChannel[31m);[m
                  Intelligence[31m.[mDriver[31m.[m[01;30mReceive[m[31m([mMessage[31m);[m
               [01;34mend[m Set_Transpose[31m;[m
            [01;34mor[m
               [01;34maccept[m Stop [01;34mdo[m
                  [01;30mPut_Line[m[31m([m[31m"Stopping intelligence"[m[31m);[m
                  Suspended [31m:=[m True[31m;[m
               [01;34mend[m Stop[31m;[m
            [01;34mor[m
               [01;34maccept[m Halt [01;34mdo[m
                  Suspended [31m:=[m True[31m;[m
                  End_Of_Task [31m:=[m True[31m;[m
               [01;34mend[m Halt[31m;[m

            [01;34melse[m
               [01;34mif[m Date [31m<=[m Clock [01;34mthen[m

                  [01;34mif[m Intelligence[31m.[m[01;30mStep_Table[m[31m([mCurrent_Step[31m).[mSet [01;34mthen[m
                     [01;34mfor[m I [01;34min[m The_Chord'[01;34mrange[m [01;34mloop[m
                        [01;34mif[m [01;30mThe_Chord[m[31m([mi[31m).[mKey [31m+[m Transpose [31m>[m [35m0[m [01;34mand[m
                          [01;30mThe_Chord[m[31m([mi[31m).[mKey [31m+[m Transpose [31m<[m [35m128[m [01;34mthen[m
                           Message [31m:=[m [01;30mNote_On[m[31m([mChannel[31m,[m [01;30mThe_Chord[m[31m([mi[31m).[mKey [31m+[m transpose[31m,[m [01;30mThe_Chord[m[31m([mi[31m).[mvel[31m);[m
                           Intelligence[31m.[mDriver[31m.[m[01;30mReceive[m[31m([mMessage[31m);[m
                        [01;34mend[m [01;34mif[m[31m;[m
                     [01;34mend[m [01;34mloop[m[31m;[m
                     [01;34mdelay[m [01;30mBpm_To_Duration[m[31m([mtempo[31m,[m triple[31m);[m
                     [01;34mfor[m I [01;34min[m The_Chord'[01;34mrange[m [01;34mloop[m
                        [01;34mif[m [01;30mThe_Chord[m[31m([mi[31m).[mKey [31m+[m Transpose [31m>[m [35m0[m [01;34mand[m
                          [01;30mThe_Chord[m[31m([mi[31m).[mKey [31m+[m Transpose [31m<[m [35m128[m [01;34mthen[m
                           Message [31m:=[m [01;30mNote_Off[m[31m([mChannel[31m,[m [01;30mThe_Chord[m[31m([mi[31m).[mKey [31m+[m transpose[31m);[m
                           Intelligence[31m.[mDriver[31m.[m[01;30mReceive[m[31m([mMessage[31m);[m
                        [01;34mend[m [01;34mif[m[31m;[m
                     [01;34mend[m [01;34mloop[m[31m;[m
                     [01;34mif[m Network[31m.[m[01;34mall[m [31m/=[m [31m"no_network"[m [01;34mthen[m
                     Register [31m:=[m [01;30mREM_NN_Expl[m[31m([mNetwork[31m.[m[01;34mall[m[31m,[m Prob_Flt[31m.[m[01;34mall[m[31m);[m
                  [01;34mend[m [01;34mif[m[31m;[m
                  [01;34mfor[m I [01;34min[m Register'[01;34mRange[m [01;34mloop[m
                     [01;34mif[m [01;30mRegister[m[31m([mI[31m)[m [31m<=[m [35m0.5[m [01;34mthen[m
                        [01;30mRegister[m[31m([mI[31m)[m [31m:=[m [35m0.0[m[31m;[m
                     [01;34melsif[m [01;30mRegister[m[31m([mI[31m)[m [31m>[m [35m0.5[m [01;34mthen[m
                        [01;30mRegister[m[31m([mI[31m)[m [31m:=[m [35m1.0[m[31m;[m
                     [01;34mend[m [01;34mif[m[31m;[m
                  [01;34mend[m [01;34mloop[m[31m;[m
                  [01;30mFree_Chord[m[31m([mThe_Chord[31m);[m
                  The_chord [31m:=[m [01;34mnew[m T_Chord' [31m([m[01;30mRegister_To_Chord[m[31m([mRegister[31m));[m
                  [31m--Register := Chord_To_Register(The_Chord.all);[m
                  Register_Io[31m.[m[01;30mCreate[m[31m([mProb_File[31m,[m Register_Io[31m.[mOut_File[31m,[m Prob_Flt[31m.[m[01;34mall[m[31m);[m
                  Register_Io[31m.[m[01;30mwrite[m[31m([mProb_File[31m,[m Register[31m);[m
                  Register_Io[31m.[m[01;30mclose[m[31m([mProb_File[31m);[m
                  [01;34mend[m [01;34mif[m[31m;[m
                  Date [31m:=[m Date [31m+[m [01;30mBpm_To_Duration[m[31m([mtempo[31m,[m Resolution[31m);[m
                  [01;34mif[m Current_Step [31m=[m Last_step [01;34mthen[m
                     Current_Step [31m:=[m [35m1[m[31m;[m
                  [01;34melse[m
                     Current_Step [31m:=[m Current_Step [31m+[m [35m1[m[31m;[m
                  [01;34mend[m [01;34mif[m[31m;[m
               [01;34melse[m
                  [01;34mdelay[m [35m0.001[m[31m;[m
               [01;34mend[m [01;34mif[m[31m;[m

            [01;34mend[m [01;34mselect[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
   [01;34mend[m T_Intelligence_Driver[31m;[m



   [01;34mpackage[m Intelligence_Handlers [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[m[01;30mUser_Callback[m[31m([mGtk_Widget_Record[31m,[m Intelligence_access[31m);[m



   [01;34mprocedure[m [01;30mReset_Intelligence[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Intelligence [31m:[m Intelligence_access[31m)[m [01;34mis[m
   [01;34mbegin[m
      Intelligence[31m.[mIntelligence_Driver[31m.[mReset[31m;[m
   [01;34mend[m Reset_Intelligence[31m;[m


   [01;34mprocedure[m [01;30mSet_Last_step[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Intelligence [31m:[m Intelligence_access[31m)[m [01;34mis[m
    [01;34mbegin[m
       Intelligence[31m.[mLast_step [31m:=[m [01;30mT_value[m[31m([m[01;30mGet_value[m[31m([mIntelligence[31m.[mLast_Spin_Button[31m));[m
       Intelligence[31m.[mIntelligence_Driver[31m.[m[01;30mSet_Last_Step[m[31m([mIntelligence[31m.[mLast_Step[31m);[m
    [01;34mend[m Set_Last_step[31m;[m

    [01;34mprocedure[m [01;30mSet_Transpose[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Intelligence [31m:[m Intelligence_access[31m)[m [01;34mis[m
    [01;34mbegin[m
       Intelligence[31m.[mTranspose [31m:=[m [32minteger[m[31m([m[01;30mGet_value[m[31m([mIntelligence[31m.[mTranspose_Spin_Button[31m));[m
       Intelligence[31m.[mIntelligence_Driver[31m.[m[01;30mSet_Transpose[m[31m([mIntelligence[31m.[mTranspose[31m);[m
    [01;34mend[m Set_Transpose[31m;[m


    [01;34mprocedure[m [01;30mOk[m [31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Intelligence [31m:[m Intelligence_access[31m)[m [01;34mis[m
    [01;34mbegin[m
       [01;30mSet_Text[m[31m([mIntelligence[31m.[mFilename_Gentry[31m,[m [01;30mGet_Filename[m[31m([mIntelligence[31m.[mFile_Selection[31m));[m
       [01;30mDestroy[m[31m([mIntelligence[31m.[mFile_Selection[31m);[m
    [01;34mend[m Ok[31m;[m

    [01;34mprocedure[m [01;30mdestroy[m [31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Intelligence [31m:[m Intelligence_access[31m)[m [01;34mis[m
    [01;34mbegin[m
       [01;30mDestroy[m[31m([mIntelligence[31m.[mFile_Selection[31m);[m
    [01;34mend[m destroy[31m;[m

    [01;34mprocedure[m [01;30mSet_filename[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Intelligence [31m:[m Intelligence_access[31m)[m [01;34mis[m

    [01;34mbegin[m
       [01;30mGtk_New[m[31m([mIntelligence[31m.[mFile_Selection[31m,[m [31m"Select network filename..."[m[31m);[m
       Intelligence_Handlers[31m.[m[01;30mConnect[m[31m([m[01;30mGet_Ok_Button[m[31m([mIntelligence[31m.[mFile_Selection[31m),[m
                                     [31m"clicked"[m[31m,[m
                                     Intelligence_Handlers[31m.[m[01;30mTo_Marshaller[m[31m([mok'[01;34maccess[m[31m),[m
                                     intelligence[31m);[m

       intelligence_Handlers[31m.[m[01;30mConnect[m[31m([m[01;30mGet_Ok_Button[m[31m([mIntelligence[31m.[mFile_Selection[31m),[m
                                     [31m"destroy"[m[31m,[m
                                     intelligence_Handlers[31m.[m[01;30mTo_Marshaller[m[31m([mdestroy'[01;34maccess[m[31m),[m
                                     intelligence[31m);[m
       intelligence_Handlers[31m.[m[01;30mConnect[m[31m([m[01;30mGet_Cancel_Button[m[31m([mIntelligence[31m.[mFile_Selection[31m),[m
                                     [31m"clicked"[m[31m,[m
                                     intelligence_Handlers[31m.[m[01;30mTo_Marshaller[m[31m([mdestroy'[01;34maccess[m[31m),[m
                                     intelligence[31m);[m

       [01;30mShow_All[m[31m([mIntelligence[31m.[mFile_Selection[31m);[m
    [01;34mend[m Set_Filename[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;34mis[m

   [01;34mbegin[m
      Intelligence [31m:=[m [01;34mnew[m [01;30mT_Intelligence[m[31m([mDriver[31m);[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mMain_Frame[31m,[m [31m"Intelligence"[m[31m);[m
      [01;30mGtk_New_Vbox[m[31m([mIntelligence[31m.[mMain_Vbox[31m);[m
      [01;30mGtk_New_Hbox[m[31m([mIntelligence[31m.[mMain_Hbox[31m);[m
      [01;30mGtk_New_Vbox[m[31m([mIntelligence[31m.[mparameters[31m);[m
      [01;30mGtk_New_Hbox[m[31m([mIntelligence[31m.[mChord_Hbox[31m);[m
      [01;34mfor[m I [01;34min[m Intelligence[31m.[mchord'[01;34mRange[m [01;34mloop[m
         [01;30mInitialize[m[31m([mintelligence[31m.[m[01;30mChord[m[31m([mI[31m));[m
         [01;30mPack_Start[m[31m([mIntelligence[31m.[mChord_Hbox[31m,[m Intelligence[31m.[m[01;30mChord[m[31m([mI[31m).[mNote_Vbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
         Intelligence_Handlers[31m.[m[01;30mConnect[m[31m([mIntelligence[31m.[m[01;30mChord[m[31m([mI[31m).[mKey_Spin_button[31m,[m
                                       [31m"value_changed"[m[31m,[m
                                       Intelligence_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mReset_Intelligence'[01;34maccess[m[31m),[m
                                       intelligence[31m);[m
         Intelligence_Handlers[31m.[m[01;30mConnect[m[31m([mIntelligence[31m.[m[01;30mChord[m[31m([mI[31m).[mSens_Spin_button[31m,[m
                                       [31m"value_changed"[m[31m,[m
                                       Intelligence_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mReset_Intelligence'[01;34maccess[m[31m),[m
                                       intelligence[31m);[m

         Intelligence_Handlers[31m.[m[01;30mConnect[m[31m([mIntelligence[31m.[m[01;30mChord[m[31m([mI[31m).[mSet_Check_Button[31m,[m
                                       [31m"toggled"[m[31m,[m
                                       Intelligence_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mReset_Intelligence'[01;34maccess[m[31m),[m
                                       intelligence[31m);[m
      [01;34mend[m [01;34mloop[m[31m;[m

      [01;30mGtk_New[m[31m([mIntelligence[31m.[mKey_Label[31m,[m [31m"Key"[m[31m);[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mSens_Label[31m,[m [31m"Sens"[m[31m);[m

      [01;30mGtk_New_Vbox[m[31m([mIntelligence[31m.[mLabel_Vbox[31m);[m

      [01;30mPack_Start[m[31m([mIntelligence[31m.[mLabel_Vbox[31m,[m Intelligence[31m.[mKey_Label[31m,[m False[31m,[m False[31m,[m [35m5[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mLabel_Vbox[31m,[m Intelligence[31m.[mSens_Label[31m,[m False[31m,[m False[31m,[m [35m5[m[31m);[m


      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Hbox[31m,[m Intelligence[31m.[mLabel_Vbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Hbox[31m,[m Intelligence[31m.[mChord_Hbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Hbox[31m,[m Intelligence[31m.[mparameters[31m,[m False[31m,[m False[31m,[m [35m15[m[31m);[m


      [01;30mGtk_New[m[31m([mIntelligence[31m.[mLast_Label[31m,[m [31m"Last step :"[m[31m);[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mLast_Spin_Button[31m,[m [35m1.0[m[31m,[m [35m32.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mIntelligence[31m.[mLast_Spin_Button[31m,[m [35m32.0[m[31m);[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mTranspose_Label[31m,[m [31m"Transpose :"[m[31m);[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mTranspose_Spin_Button[31m,[m [31m-[m[35m24.0[m[31m,[m [35m24.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mIntelligence[31m.[mTranspose_Spin_Button[31m,[m [35m0.0[m[31m);[m
      [01;30mGtk_New_Hbox[m[31m([mIntelligence[31m.[mStepseq_Hbox[31m);[m
      [01;34mfor[m I [01;34min[m Intelligence[31m.[mStep_Table'[01;34mRange[m [01;34mloop[m
         [01;30mInitialize[m[31m([mIntelligence[31m.[m[01;30mStep_Table[m[31m([mI[31m),[m [32mInteger[m'[01;30mImage[m[31m([mI[31m));[m
         [01;30mPack_Start[m[31m([mIntelligence[31m.[mStepseq_Hbox[31m,[m Intelligence[31m.[m[01;30mStep_Table[m[31m([mI[31m).[mStep_Vbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;34mend[m [01;34mloop[m[31m;[m

      [01;30mGtk_New[m[31m([mIntelligence[31m.[mFilename_Gentry[31m);[m
      [01;30mGtk_New_From_stock[m[31m([mIntelligence[31m.[mFile_Selection_button[31m,[m Stock_open[31m);[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mFilename_Label[31m,[m [31m"Network filename : "[m[31m);[m
      [01;30mGtk_New_Vbox[m[31m([mIntelligence[31m.[mStep_Parameters[31m);[m
      [01;30mGtk_New_Vbox[m[31m([mIntelligence[31m.[mNetwork_Parameters[31m);[m

      [01;30mPack_Start[m[31m([mIntelligence[31m.[mStep_Parameters[31m,[m Intelligence[31m.[mLast_label[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mStep_Parameters[31m,[m Intelligence[31m.[mLast_Spin_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mStep_Parameters[31m,[m Intelligence[31m.[mTranspose_Label[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mStep_Parameters[31m,[m Intelligence[31m.[mTranspose_Spin_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m

      [01;30mPack_Start[m[31m([mIntelligence[31m.[mNetwork_Parameters[31m,[m Intelligence[31m.[mFilename_Label[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mNetwork_Parameters[31m,[m Intelligence[31m.[mFilename_gentry[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mNetwork_Parameters[31m,[m Intelligence[31m.[mFile_Selection_button[31m,[m False[31m,[m False[31m,[m [35m10[m[31m);[m

      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Hbox[31m,[m Intelligence[31m.[mStep_Parameters[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Hbox[31m,[m Intelligence[31m.[mNetwork_Parameters[31m,[m False[31m,[m False[31m,[m [35m15[m[31m);[m

      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Vbox[31m,[m Intelligence[31m.[mMain_Hbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Vbox[31m,[m Intelligence[31m.[mStepseq_Hbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m

      Intelligence_Handlers[31m.[m[01;30mConnect[m[31m([mIntelligence[31m.[mLast_Spin_Button[31m,[m
                                    [31m"value_changed"[m[31m,[m
                                    Intelligence_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mSet_Last_Step'[01;34maccess[m[31m),[m
                                    Intelligence[31m);[m

      Intelligence_Handlers[31m.[m[01;30mConnect[m[31m([mIntelligence[31m.[mTranspose_Spin_Button[31m,[m
                                    [31m"value_changed"[m[31m,[m
                                    Intelligence_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mSet_Transpose'[01;34maccess[m[31m),[m
                                    Intelligence[31m);[m

      Intelligence_Handlers[31m.[m[01;30mConnect[m[31m([mIntelligence[31m.[mFile_Selection_Button[31m,[m
                                    [31m"clicked"[m[31m,[m
                                    Intelligence_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mSet_filename'[01;34maccess[m[31m),[m
                                    Intelligence[31m);[m



      [01;30mAdd[m[31m([mIntelligence[31m.[mMain_Frame[31m,[m Intelligence[31m.[mMain_Vbox[31m);[m
      [01;30mShow_All[m[31m([mIntelligence[31m.[mMain_Frame[31m);[m

   [01;34mend[m Initialize[31m;[m


   [01;34mprocedure[m [01;30mSet_To_Active[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Note [31m:[m Note_access[31m)[m [01;34mis[m
   [01;34mbegin[m
      Note[31m.[mSet [31m:=[m [01;30mGet_Active[m[31m([mNote[31m.[mSet_Check_Button[31m);[m
   [01;34mend[m Set_To_Active[31m;[m

   [01;34mprocedure[m [01;30mSet_Key[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Note [31m:[m Note_access[31m)[m [01;34mis[m
   [01;34mbegin[m
         Note[31m.[mkey [31m:=[m [01;30mT_value[m[31m([m[01;30mGet_value[m[31m([mNote[31m.[mKey_Spin_button[31m));[m
   [01;34mend[m Set_Key[31m;[m

   [01;34mprocedure[m [01;30mSet_Sens[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Note [31m:[m Note_access[31m)[m [01;34mis[m
   [01;34mbegin[m
      Note[31m.[msens [31m:=[m [01;30mT_value[m[31m([m[01;30mGet_value[m[31m([mNote[31m.[msens_Spin_button[31m));[m
   [01;34mend[m Set_Sens[31m;[m


   [01;34mpackage[m Note_Handlers [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[m[01;30mUser_Callback[m[31m([mGtk_Widget_Record[31m,[m Note_access[31m);[m


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

         note [31m:=[m [01;34mnew[m T_Note[31m;[m
         [01;30mGtk_New_Vbox[m[31m([mNote[31m.[mNote_Vbox[31m);[m
         [01;30mGtk_New[m[31m([mNote[31m.[mSet_Check_Button[31m);[m
         [01;30mSet_Active[m[31m([mNote[31m.[mSet_Check_Button[31m,[m true[31m);[m
         [01;30mGtk_New[m[31m([mNote[31m.[mKey_Spin_Button[31m,[m [35m0.0[m[31m,[m [35m127.0[m[31m,[m [35m1.0[m[31m);[m
         [01;30mSet_Value[m[31m([mNote[31m.[mKey_Spin_Button[31m,[m [35m60.0[m[31m);[m
         [01;30mGtk_New[m[31m([mNote[31m.[mSens_Spin_Button[31m,[m [35m0.0[m[31m,[m [35m127.0[m[31m,[m [35m1.0[m[31m);[m
         [01;30mSet_Value[m[31m([mNote[31m.[msens_Spin_Button[31m,[m [35m100.0[m[31m);[m

         [01;30mPack_Start[m[31m([mNote[31m.[mNote_Vbox[31m,[m Note[31m.[mKey_Spin_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
         [01;30mPack_Start[m[31m([mNote[31m.[mNote_Vbox[31m,[m Note[31m.[mSens_Spin_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m

         [01;30mPack_Start[m[31m([mNote[31m.[mNote_Vbox[31m,[m Note[31m.[mSet_check_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m


         Note_Handlers[31m.[m[01;30mConnect[m[31m([mNote[31m.[mSet_Check_Button[31m,[m
                               [31m"toggled"[m[31m,[m
                               Note_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mSet_To_Active'[01;34maccess[m[31m),[m
                               Note[31m);[m

         Note_Handlers[31m.[m[01;30mConnect[m[31m([mNote[31m.[mKey_Spin_Button[31m,[m
                               [31m"value_changed"[m[31m,[m
                               Note_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mSet_key'[01;34maccess[m[31m),[m
                               Note[31m);[m

         Note_Handlers[31m.[m[01;30mConnect[m[31m([mNote[31m.[msens_Spin_Button[31m,[m
                               [31m"value_changed"[m[31m,[m
                               Note_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mSet_sens'[01;34maccess[m[31m),[m
                               Note[31m);[m

   [01;34mend[m Initialize[31m;[m



   [01;34mprocedure[m [01;30mSet_To_Active[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Step [31m:[m step_access[31m)[m [01;34mis[m
    [01;34mbegin[m
       Step[31m.[mSet [31m:=[m [01;30mGet_Active[m[31m([mStep[31m.[mSet_Check_Button[31m);[m
    [01;34mend[m Set_To_Active[31m;[m

    [01;34mpackage[m Step_Handlers [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[m[01;30mUser_Callback[m[31m([mGtk_Widget_Record[31m,[m Step_access[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;34mis[m
    [01;34mbegin[m

       Step [31m:=[m [01;34mnew[m T_Step[31m;[m
       [01;30mGtk_New_Vbox[m[31m([mStep[31m.[mStep_Vbox[31m);[m
       [01;30mGtk_New[m[31m([mStep[31m.[mStep_Label[31m,[m Label[31m);[m
       [01;30mGtk_New[m[31m([mStep[31m.[mSet_Check_Button[31m);[m
       [01;30mSet_Active[m[31m([mStep[31m.[mSet_Check_Button[31m,[m true[31m);[m

       [01;30mPack_Start[m[31m([mStep[31m.[mStep_Vbox[31m,[m Step[31m.[mStep_label[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m

       [01;30mPack_Start[m[31m([mStep[31m.[mStep_Vbox[31m,[m Step[31m.[mSet_check_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m

       Step_Handlers[31m.[m[01;30mConnect[m[31m([mStep[31m.[mSet_Check_Button[31m,[m
                             [31m"toggled"[m[31m,[m
                             Step_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mSet_To_Active'[01;34maccess[m[31m),[m
                             step[31m);[m

    [01;34mend[m Initialize[31m;[m


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