
[01;34mwith[m Glib[31m;[m                              [01;34muse[m Glib[31m;[m
[01;34mwith[m Glib[31m.[mObject[31m;[m                       [01;34muse[m Glib[31m.[mObject[31m;[m

[01;34mwith[m Gtk[31m.[mHandlers[31m;[m                      [01;34muse[m Gtk[31m.[mHandlers[31m;[m
[01;34mpragma[m [01;30mElaborate_All[m [31m([mGtk[31m.[mHandlers[31m);[m
[01;34mwith[m Gtk[31m.[mWidget[31m;[m                        [01;34muse[m Gtk[31m.[mWidget[31m;[m
[01;34mwith[m Gtk[31m.[mEnums[31m;[m                         [01;34muse[m Gtk[31m.[mEnums[31m;[m
[01;34mwith[m Gtk[31m.[mFrame[31m;[m                         [01;34muse[m Gtk[31m.[mFrame[31m;[m
[01;34mwith[m Gtk[31m.[mBox[31m;[m                           [01;34muse[m Gtk[31m.[mBox[31m;[m
[01;34mwith[m Gtk[31m.[mLabel[31m;[m                         [01;34muse[m Gtk[31m.[mLabel[31m;[m


[01;34mwith[m Libsens[31m.[mVirtual[31m.[mnn_plugin[31m;[m         [01;34muse[m Libsens[31m.[mVirtual[31m.[mNN_Plugin[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 Text_Io[31m;[m                           [01;34muse[m Text_Io[31m;[m


[01;34mpackage[m [01;34mbody[m Libsens[31m.[mGtk_Neural [01;34mis[m
   
   [31m----------------------[m
   [31m-- Neural generator --[m
   [31m----------------------   [m
   
  
   [01;34mpackage[m Plugin_Cb [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[mUser_Callback 
     [31m([mGtk[31m.[mWidget[31m.[mGtk_Widget_Record[31m,[m 
      Abstract_Plugin_Access[31m);[m
   
   
   [01;34mprocedure[m Name_Mono_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mname [31m:=[m [01;34mnew[m [32mString[m ' [31m([mGtk[31m.[mGentry[31m.[m[01;30mGet_text[m[31m([m[01;30mGtk_entry[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Name_Mono_Callback[31m;[m
   
   [01;34mprocedure[m Reuse_Mono_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mReuse [31m:=[m [32mBoolean[m'[01;30mVal[m[31m([mGtk[31m.[mCombo_Box_Text[31m.[m[01;30mGet_Active[m[31m([m[01;30mGtk_Combo_Box_Text[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Reuse_Mono_Callback[31m;[m

   
   [01;34mprocedure[m Width_Mono_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mwidth [31m:=[m [32mInteger[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Width_Mono_Callback[31m;[m
   
   [01;34mprocedure[m Sample_Max_Mono_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mSample_Max [31m:=[m [32mInteger[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Sample_Max_Mono_Callback[31m;[m
   
   
   [01;34mprocedure[m Converged_Mono_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mConverged [31m:=[m [01;30mreal[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Converged_Mono_Callback[31m;[m
   
   [01;34mprocedure[m Max_Epoch_Mono_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Epoch [31m:=[m [32mInteger[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Max_Epoch_Mono_Callback[31m;[m

   
            
   [01;34mprocedure[m [01;30mInitialize[m [31m([mSpec [31m:[m [01;34min[m [01;34mout[m Neural_Mono_Specifications[31m;[m
     			 Plugin [31m:[m [01;34min[m Abstract_Plugin_access[31m)[m [01;34mis[m            
      
      
      
      Vbox [31m:[m Gtk_Vbox[31m;[m
      Label [31m:[m Gtk_Label[31m;[m
      Hbox [31m:[m Gtk_Hbox[31m;[m
   [01;34mbegin[m      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mSpecifications_Frame[31m,[m [31m"Neural mono : "[m[31m);[m
      
      [01;30mGtk_New_Vbox[m[31m([mVbox[31m,[m Homogeneous [31m=>[m False[31m);[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Weight filename : "[m[31m);[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mName[31m);[m
      [01;30mSet_text[m[31m([mSpec[31m.[mNetwork[31m.[mName[31m,[m [01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mNetwork_Name[31m.[m[01;34mall[m[31m);[m
      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mName[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mName[31m,[m [31m"activate"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mName_Mono_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mWidth[31m,[m [35m4.0[m[31m,[m [35m16.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mWidth[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mWidth[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Network width   : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mwidth[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
            
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mWidth[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mWidth_Mono_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mSample_Max[31m,[m [35m64.0[m[31m,[m [35m1024.0[m[31m,[m [35m16.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mSample_max[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mSample_Max[31m));[m
      
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Sample max      : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mSample_Max[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mSample_Max[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mSample_Max_Mono_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m);[m
      [01;30mInsert_Text[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [35m0[m[31m,[m [32mBoolean[m'[01;30mImage[m[31m([mFalse[31m));[m
      [01;30mInsert_Text[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [35m1[m[31m,[m [32mBoolean[m'[01;30mImage[m[31m([mTrue[31m));[m                  
      [01;30mSet_Active[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [32mBoolean[m'[01;30mPos[m[31m([m[01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mReuse[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Reuse network   : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mReuse[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [31m"changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mReuse_Mono_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mConverged[31m,[m [35m0.0001[m[31m,[m [35m1.0[m[31m,[m [35m0.0001[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mConverged[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mConverged[31m));[m
           
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Converged       :"[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mConverged[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mConverged[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mConverged_Mono_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mMax_Epoch[31m,[m [35m1.0[m[31m,[m [35m65537.0[m[31m,[m [35m128.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mMax_Epoch[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Mono_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Epoch[31m));[m

      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Max epoch       : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mMax_epoch[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mMax_Epoch[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Epoch_Mono_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      
      [01;30mAdd[m [31m([mSpec[31m.[mSpecifications_Frame[31m,[m Vbox[31m);[m      
      
      [31m--Put_Line("Load seq 0.1.8.1");[m
      
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mprocedure[m Name_Poly_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mname [31m:=[m [01;34mnew[m [32mString[m ' [31m([mGtk[31m.[mGentry[31m.[m[01;30mGet_text[m[31m([m[01;30mGtk_entry[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Name_Poly_Callback[31m;[m
   
   [01;34mprocedure[m Reuse_Poly_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mReuse [31m:=[m [32mBoolean[m'[01;30mVal[m[31m([mGtk[31m.[mCombo_Box_Text[31m.[m[01;30mGet_Active[m[31m([m[01;30mGtk_Combo_Box_Text[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Reuse_Poly_Callback[31m;[m

   
   [01;34mprocedure[m Width_Poly_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mwidth [31m:=[m [32mInteger[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Width_Poly_Callback[31m;[m
   
   [01;34mprocedure[m Sample_Max_Poly_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mSample_Max [31m:=[m [32mInteger[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Sample_Max_Poly_Callback[31m;[m
   
   
   [01;34mprocedure[m Converged_Poly_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mConverged [31m:=[m [01;30mreal[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Converged_Poly_Callback[31m;[m
   
   [01;34mprocedure[m Max_Epoch_Poly_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Epoch [31m:=[m [32mInteger[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Max_Epoch_Poly_Callback[31m;[m

   
   [01;34mprocedure[m [01;30mInitialize[m [31m([mSpec [31m:[m [01;34min[m [01;34mout[m Neural_Poly_Specifications[31m;[m
     			 Plugin [31m:[m [01;34min[m Abstract_Plugin_access[31m)[m [01;34mis[m
      

      
      
      
      Vbox [31m:[m Gtk_Vbox[31m;[m
      Label [31m:[m Gtk_Label[31m;[m
      Hbox [31m:[m Gtk_Hbox[31m;[m
   [01;34mbegin[m
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mSpecifications_Frame[31m,[m [31m"Neural poly : "[m[31m);[m
      
      [01;30mGtk_New_Vbox[m[31m([mVbox[31m,[m Homogeneous [31m=>[m False[31m);[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Weight filename : "[m[31m);[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mName[31m);[m
      [01;30mSet_text[m[31m([mSpec[31m.[mNetwork[31m.[mName[31m,[m [01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mNetwork_Name[31m.[m[01;34mall[m[31m);[m
      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mName[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mName[31m,[m [31m"activate"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mName_Poly_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mWidth[31m,[m [35m4.0[m[31m,[m [35m16.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mWidth[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mWidth[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Network width   : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mwidth[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
            
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mWidth[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mWidth_Poly_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mSample_Max[31m,[m [35m64.0[m[31m,[m [35m1024.0[m[31m,[m [35m16.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mSample_max[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mSample_Max[31m));[m
      
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Sample max      : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mSample_Max[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mSample_Max[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mSample_Max_Poly_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m);[m
      [01;30mInsert_Text[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [35m0[m[31m,[m [32mBoolean[m'[01;30mImage[m[31m([mFalse[31m));[m
      [01;30mInsert_Text[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [35m1[m[31m,[m [32mBoolean[m'[01;30mImage[m[31m([mTrue[31m));[m                  
      [01;30mSet_Active[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [32mBoolean[m'[01;30mPos[m[31m([m[01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mReuse[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Reuse network   : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mReuse[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [31m"changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mReuse_Poly_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mConverged[31m,[m [35m0.0001[m[31m,[m [35m1.0[m[31m,[m [35m0.0001[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mConverged[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mConverged[31m));[m
           
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Converged       :"[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mConverged[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mConverged[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mConverged_Poly_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mMax_Epoch[31m,[m [35m1.0[m[31m,[m [35m65537.0[m[31m,[m [35m128.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mMax_Epoch[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Poly_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Epoch[31m));[m

      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Max epoch       : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mMax_epoch[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mMax_Epoch[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Epoch_Poly_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      
      [01;30mAdd[m [31m([mSpec[31m.[mSpecifications_Frame[31m,[m Vbox[31m);[m      
      

      
      
      [31m--Put_Line("Load seq 0.1.8.1");[m
      
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mprocedure[m Name_Rythm_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mname [31m:=[m [01;34mnew[m [32mString[m ' [31m([mGtk[31m.[mGentry[31m.[m[01;30mGet_text[m[31m([m[01;30mGtk_entry[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Name_Rythm_Callback[31m;[m
   
   [01;34mprocedure[m Reuse_Rythm_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mReuse [31m:=[m [32mBoolean[m'[01;30mVal[m[31m([mGtk[31m.[mCombo_Box_Text[31m.[m[01;30mGet_Active[m[31m([m[01;30mGtk_Combo_Box_Text[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Reuse_Rythm_Callback[31m;[m

   
   [01;34mprocedure[m Width_Rythm_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mwidth [31m:=[m [32mInteger[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Width_Rythm_Callback[31m;[m
   
   [01;34mprocedure[m Sample_Max_Rythm_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mSample_Max [31m:=[m [32mInteger[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Sample_Max_Rythm_Callback[31m;[m
   
   
   [01;34mprocedure[m Converged_Rythm_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mConverged [31m:=[m [01;30mreal[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Converged_Rythm_Callback[31m;[m
   
   [01;34mprocedure[m Max_Epoch_Rythm_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Epoch [31m:=[m [32mInteger[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Max_Epoch_Rythm_Callback[31m;[m

   
   [01;34mprocedure[m [01;30mInitialize[m [31m([mSpec [31m:[m [01;34min[m [01;34mout[m Neural_Rythm_Specifications[31m;[m
     			 Plugin [31m:[m [01;34min[m Abstract_Plugin_access[31m)[m [01;34mis[m
      

      
      
      
      Vbox [31m:[m Gtk_Vbox[31m;[m
      Label [31m:[m Gtk_Label[31m;[m
      Hbox [31m:[m Gtk_Hbox[31m;[m
   [01;34mbegin[m
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mSpecifications_Frame[31m,[m [31m"Neural rythm : "[m[31m);[m
      
      [01;30mGtk_New_Vbox[m[31m([mVbox[31m,[m Homogeneous [31m=>[m False[31m);[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Weight filename : "[m[31m);[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mName[31m);[m
      [01;30mSet_text[m[31m([mSpec[31m.[mNetwork[31m.[mName[31m,[m [01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mNetwork_Name[31m.[m[01;34mall[m[31m);[m
      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mName[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mName[31m,[m [31m"activate"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mName_Rythm_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mWidth[31m,[m [35m4.0[m[31m,[m [35m16.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mWidth[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mWidth[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Network width   : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mwidth[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
            
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mWidth[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mWidth_Rythm_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mSample_Max[31m,[m [35m64.0[m[31m,[m [35m1024.0[m[31m,[m [35m16.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mSample_max[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mSample_Max[31m));[m
      
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Sample max      : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mSample_Max[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mSample_Max[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mSample_Max_Rythm_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m);[m
      [01;30mInsert_Text[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [35m0[m[31m,[m [32mBoolean[m'[01;30mImage[m[31m([mFalse[31m));[m
      [01;30mInsert_Text[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [35m1[m[31m,[m [32mBoolean[m'[01;30mImage[m[31m([mTrue[31m));[m                  
      [01;30mSet_Active[m[31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [32mBoolean[m'[01;30mPos[m[31m([m[01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mReuse[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Reuse network   : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mReuse[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mReuse[31m,[m [31m"changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mReuse_Rythm_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mConverged[31m,[m [35m0.0001[m[31m,[m [35m1.0[m[31m,[m [35m0.0001[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mConverged[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mConverged[31m));[m
           
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Converged       :"[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mConverged[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mConverged[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mConverged_Rythm_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mNetwork[31m.[mMax_Epoch[31m,[m [35m1.0[m[31m,[m [35m65537.0[m[31m,[m [35m128.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mNetwork[31m.[mMax_Epoch[31m,[m [01;30mGdouble[m[31m([m[01;30mNN_Rythm_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Epoch[31m));[m

      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Max epoch       : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Spec[31m.[mNetwork[31m.[mMax_epoch[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mNetwork[31m.[mMax_Epoch[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Epoch_Rythm_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      
      [01;30mAdd[m [31m([mSpec[31m.[mSpecifications_Frame[31m,[m Vbox[31m);[m      
      

      [31m--Put_Line("Load seq 0.1.8.1");[m
      
   [01;34mend[m Initialize[31m;[m
      
[01;34mend[m Libsens[31m.[mGtk_Neural[31m;[m
