[31m-- Author      : Manuel De Girardi[m
[31m-- Date        : 2010/12/9[m
[31m-- Version     : 0.0.0pre-alpha_010[m
[31m-- Description : artificial neural network generator for MidiSurf[m
[31m-------------------------------------------------------------------------------[m


[01;34mwith[m Libsens[31m.[mRem_Common[31m;[m                [01;34muse[m Libsens[31m.[mRem_Common[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 PragmARC[31m.[mMath[31m.[mFunctions[31m;[m

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

[01;34mpackage[m Libsens[31m.[mNeural_chord [01;34mis[m
   Arg_Error [31m:[m [01;34mexception[m[31m;[m
   Data_File [31m:[m File_Type[31m;[m
   The_Line [31m:[m [32mString[m[31m([m[35m1[m[31m..[m[35m80[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m [32mCharacter[m'[01;30mVal[m[31m([m[35m32[m[31m));[m
   The_Index[31m,[m Last [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   Position [31m:[m Positive [31m:=[m [35m1[m[31m;[m
   Buffer [31m:[m [01;34marray[m [31m([m[35m1[m[31m..[mT_Register'length[31m/[m[35m7[m[31m)[m [01;34mof[m [32minteger[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m [35m0[m[31m);[m
   Buffer_Length [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   First[31m,[m Register [31m:[m T_register [31m:=[m [31m([m[01;34mothers[m [31m=>[m [35m0.0[m[31m);[m
   The_Bbyte [31m:[m T_bbyte [31m:=[m [31m([m[01;34mothers[m [31m=>[m False[31m);[m
   Reg_File [31m:[m Register_Io[31m.[mFile_Type[31m;[m
   [01;34mpackage[m Real_Io [01;34mis[m [01;34mnew[m Text_Io[31m.[m[01;30mFloat_Io[m[31m([mReal[31m);[m
   [01;34mpackage[m Real_Math [01;34mis[m [01;34mnew[m PragmARC[31m.[mMath[31m.[m[01;30mFunctions[m [31m([mSupplied_Real [31m=>[m Real[31m);[m
   Data_Length [31m:[m Natural [31m:=[m [35m0[m[31m;[m
   New_Weigth [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   [31m--Converged  : real := 0.0075;[m
[01;34mend[m Libsens[31m.[mNeural_Chord[31m;[m
