

[01;34mwith[m Libsens[31m.[mVirtual[31m;[m                   [01;34muse[m Libsens[31m.[mVirtual[31m;[m


[01;34mwith[m libsens[31m.[mNeural_Generator[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 Gnat[31m.[mSemaphores[31m;[m
[01;34muse[m Gnat[31m.[mSemaphores[31m;[m


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

[01;34mgeneric[m
      Filename     [31m:[m [32mString[m[31m;[m
      Width        [31m:[m Positive[31m;[m
      Hidden_Num   [31m:[m Positive[31m;[m
      Samples_Max  [31m:[m Positive[31m;[m
[01;34mpackage[m Libsens[31m.[mRythmic_Generator [01;34mis[m
      
      
      
   [01;34mprocedure[m [01;30mInitialize[m [31m([mReuse [31m:[m [01;34min[m [32mBoolean[m[31m;[m Converged [31m:[m [01;34min[m [32mFloat[m[31m;[m Max_Epochs [31m:[m [01;34min[m Positive[31m);[m
   [01;34mfunction[m [01;30mRespond[m[31m([mProblem  [31m:[m [01;34min[m Node_Set[31m)[m [01;34mreturn[m Node_Set[31m;[m
   
   [01;34mpackage[m Generator [01;34mis[m [01;34mnew[m Libsens[31m.[m[01;30mNeural_Generator[m[31m([mWidth[31m,[m Hidden_Num[31m,[m Samples_Max[31m);[m
   [01;34muse[m Generator[31m,[m Generator[31m.[mNetwork[31m;[m
   Samples [31m:[m [01;30mSamples_Type[m[31m([m[35m1[m[31m..[mSamples_Max[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m([m[01;34mothers[m [31m=>[m [35m0.0[m[31m));[m
   
   Rythmic_Lock [31m:[m [01;30mBinary_Semaphore[m[31m([mTrue[31m,[m Default_Ceiling[31m);[m
   
   
   [31m---------------------------------------------[m
   [31m--   Conversion Node_set to/from note(s).  --[m
   [31m---------------------------------------------[m
   [01;34mpackage[m Neural2chord [01;34mis[m
      
      [01;34mtype[m Note_Type [01;34mis[m
	 [01;34mrecord[m
	    Key [31m:[m Key_Type [31m:=[m [35m63[m[31m;[m
	    Sens [31m:[m Sens_Type [31m:=[m [35m64[m[31m;[m
	    Length [31m:[m Length_Type [31m:=[m [35m8[m[31m;[m
	 [01;34mend[m [01;34mrecord[m[31m;[m
	          
      [01;34mtype[m Notes_Set_Type [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Note_Type[31m;[m
      
      [01;34mtype[m Notes_Set_Access [01;34mis[m [01;34maccess[m Notes_Set_Type[31m;[m
      
      [01;34mfunction[m [01;30mTo_Chord[m[31m([mFrom [31m:[m [01;34min[m Node_Set[31m)[m [01;34mreturn[m Notes_Set_Access[31m;[m
      
      [01;34mprocedure[m Free [01;34mis[m [01;34mnew[m Ada[31m.[m[01;30mUnchecked_Deallocation[m[31m([mNotes_Set_Type[31m,[m Notes_Set_Access[31m);[m
      
   [01;34mend[m Neural2chord[31m;[m
   
   [31m----------------------------------------------------------[m
   [31m-- End conversion MONO [m
   [31m----------------------------------------------------------      [m

   [01;34muse[m Neural2chord[31m;[m
   
[01;34mend[m Libsens[31m.[mRythmic_Generator[31m;[m
   
