[01;34mwith[m Libsens[31m.[mMIDI[31m.[mPortmidi[31m;[m             [01;34muse[m Libsens[31m.[mMIDI[31m.[mPortmidi[31m;[m
[01;34mwith[m Libsens[31m.[mMIDI[31m.[mDrivers[31m;[m              [01;34muse[m Libsens[31m.[mMIDI[31m.[mDrivers[31m;[m
[01;34mwith[m Libsens[31m.[mMIDI[31m.[mMessages[31m;[m             [01;34muse[m Libsens[31m.[mMIDI[31m.[mMessages[31m;[m
[01;34mwith[m Libsens[31m.[mVirtual[31m.[mArp_Sequencer[31m;[m     [01;34muse[m Libsens[31m.[mVirtual[31m.[mArp_sequencer[31m;[m

[01;34mwith[m Libsens[31m.[mProcessing[31m.[mCommon[31m;[m         [01;34muse[m Libsens[31m.[mProcessing[31m.[mCommon[31m;[m

[01;34mwith[m Libsens[31m.[mREM_Common[31m;[m                [01;34muse[m Libsens[31m.[mREM_Common[31m;[m
[01;34mwith[m Libsens[31m.[mNeural_Chord[31m;[m              [01;34muse[m Libsens[31m.[mNeural_Chord[31m;[m
[01;34mwith[m Libsens[31m.[mNeural_Chord[31m.[mIo[31m;[m           [01;34muse[m Libsens[31m.[mNeural_Chord[31m.[mIo[31m;[m
[01;34mwith[m Libsens[31m.[mNeural_Chord[31m.[mTrainner[31m;[m     [01;34muse[m Libsens[31m.[mNeural_Chord[31m.[mTrainner[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 Ada[31m.[mNumerics[31m.[mDiscrete_Random[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;34mwith[m Ada[31m.[mCalendar[31m.[mFormatting[31m;[m

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

[01;34mwith[m Interfaces[31m.[mC[31m;[m                      [01;34muse[m Interfaces[31m.[mC[31m;[m

[01;34mpackage[m [01;34mbody[m Libsens[31m.[mProcessing[31m.[mNeural_Arpegiator [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;34mpackage[m Value_Rand [01;34mis[m [01;34mnew[m Ada[31m.[mNumerics[31m.[m[01;30mDiscrete_Random[m[31m([mValue_Type[31m);[m
   
   
   [01;34mprocedure[m [01;30mInitialize[m[31m([mPlugin_Process [31m:[m [01;34min[m Neural_Arpegiator_Processing[31m;[mOptions [31m:[m [01;34min[m Work_Options_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      Plugin_Process[31m.[mProcess[31m.[m[01;30mInitialize[m[31m([mOptions[31m);[m
   [01;34mend[m Initialize[31m;[m   
   
   
   [01;34mprocedure[m [01;30mStart[m[31m([mPlugin_Process [31m:[m [01;34min[m Neural_Arpegiator_Processing[31m;[m
		   Start_Time [31m:[m [01;34min[m Time[31m;[m
		   Tempo [31m:[m [01;34min[m Tempo_Type[31m;[m
		   Signature [31m:[m [01;34min[m Time_Signature_Type[31m)[m [01;34mis[m
   [01;34mbegin[m
      Plugin_Process[31m.[mProcess[31m.[m[01;30mStart[m[31m([mStart_Time[31m,[m Tempo[31m,[m Signature[31m);[m
   [01;34mend[m Start[31m;[m
   
   [01;34mprocedure[m [01;30mStop[m[31m([mPlugin_Process [31m:[m [01;34min[m Neural_Arpegiator_Processing[31m)[m [01;34mis[m
   [01;34mbegin[m
      Plugin_Process[31m.[mProcess[31m.[mStop[31m;[m
   [01;34mend[m Stop[31m;[m
   
   [01;34mprocedure[m [01;30mHalt[m[31m([mPlugin_Process [31m:[m [01;34min[m Neural_Arpegiator_Processing[31m)[m [01;34mis[m
   [01;34mbegin[m
      Plugin_Process[31m.[mProcess[31m.[mHalt[31m;[m
   [01;34mend[m Halt[31m;[m
   
   
   [01;34mtask[m [01;34mbody[m Neural_Arpegiator_Process [01;34mis[m      
      
      
      Start_Time  [31m:[m Time [31m:=[m Clock[31m;[m
      Quantum     [31m:[m [32mDuration[m [31m:=[m [35m0.0[m[31m;[m
      
      Tempo [31m:[m Tempo_Type [31m:=[m [35m120.0[m[31m;[m	 
      Date      [31m:[m Time [31m:=[m Clock[31m;[m
      
      End_Of_Task [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Bar_Beat [31m:[m Bar_Beat_Type[31m;[m
      Signature [31m:[m Time_Signature_Type [31m:=[m [31m([m[35m4[m[31m,[m [35m4[m[31m);[m
      
      Current_Form [31m:[m Form_Index_Type [31m:=[m [35m1[m[31m;[m
      Current_Break    [31m:[m Break_Type [31m:=[m Down_Break[31m;[m
      Prev_Break       [31m:[m Break_Type [31m:=[m Null_Break[31m;[m	 
      Next_Break       [31m:[m Break_Type [31m:=[m Down_Break[31m;[m
      
      

      
      Options [31m:[m [01;34maccess[m Work_Options_Record[31m;[m
      
      

      Message [31m:[m Message_Type[31m;[m
      Message_Note_On  [31m:[m Long [31m:=[m [35m0[m[31m;[m
      Message_Note_Off [31m:[m Long [31m:=[m [35m0[m[31m;[m
      
      
      Current_Step [31m:[m Positive [31m:=[m [35m1[m[31m;[m
      
      The_Chord [31m:[m Chord_Access[31m;[m
      
      Value_Gen [31m:[m Value_Rand[31m.[mGenerator[31m;[m
      
      [01;34muse[m Value_Rand[31m;[m
      
      Register [31m:[m T_Register[31m;[m
      
      
      Networks_Path [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"./data/sources/"[m[31m;[m
      
      Network_Filename  [31m:[m [01;34maccess[m [32mString[m[31m;[m
      
      
      Prob_File [31m:[m Register_Io[31m.[mFile_Type[31m;[m
      Prob_Flt [31m:[m [01;34maccess[m [32mString[m[31m;[m
      
      Channel [31m:[m Channel_Type [31m:=[m [01;30mLong[m[31m([m[01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mCh_Id[31m-[m[35m1[m[31m);[m
      
   [01;34mbegin[m
      
      [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mInitialize[m[31m([mOptions [31m:[m [01;34min[m Work_Options_Access[31m)[m [01;34mdo[m
		  [01;30mPut_Line[m[31m([m[31m"Plugin id : "[m [31m&[m
			     Plugin_Num'[01;30mImage[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mId[31m)[m [31m&[m
			     [31m" ready for process "[m [31m&[m
			     Plugin_Enum'[01;30mImage[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mClass[31m));[m
		  
		  Neural_Arpegiator_Process[31m.[mOptions [31m:=[m Options[31m;[m
		  
		  
		  
		  Prob_flt[31m:=[m [01;34mnew[m [32mString[m [31m' (Networks_Path & Options.Filename.all & "-" & Plugin_Num'[m[01;30mImage[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mId[31m)[m [31m&[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mNetwork[31m.[m[01;34mall[m [31m&[m [31m".pbm"[m[31m);[m            
		  
		  [01;30mPut_Line[m[31m([mNetworks_Path [31m&[m Options[31m.[mFilename[31m.[m[01;34mall[m [31m&[m [31m"-"[m [31m&[m  Plugin_Num'[01;30mImage[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mId[31m)[m [31m&[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mNetwork[31m.[m[01;34mall[m[31m);[m
		  
		  Network_Filename [31m:=[m [01;34mnew[m [32mString[m [31m' (Networks_Path & Options.Filename.all & "-" &  Plugin_Num'[m[01;30mImage[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mId[31m)[m [31m&[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mNetwork[31m.[m[01;34mall[m[31m);[m
		  
		  
		  
		  [01;34mif[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mNetwork [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
		    [01;34mnot[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mReuse [01;34mthen[m		     
		     
		     
		     [01;30mPut_Line[m[31m([mNetworks_Path [31m&[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mNetwork[31m.[m[01;34mall[m[31m);[m
		     [01;30mPut_Line[m[31m([mNetwork_Filename[31m.[m[01;34mall[m[31m);[m
		     
		     [01;30mRead_From_File[m[31m([mNetworks_Path [31m&[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mNetwork[31m.[m[01;34mall[m[31m,[m Network_Filename[31m.[m[01;34mall[m[31m);[m
		     
		     [01;30mPut_Line[m[31m([mNetwork_Filename[31m.[m[01;34mall[m[31m);[m
		     
		     [01;30mTrain_From_File[m[31m([mNetwork_Filename[31m.[m[01;34mall[m[31m,[m
				     [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mReuse[31m,[m
				     [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mConverged[31m,[m
				     [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mMax_Epoch[31m);[m
		     
		     [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mReuse [31m:=[m True[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  The_Chord [31m:=[m [01;34mnew[m T_Chord ' [31m([m[01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mStart_Chord[31m.[m[01;34mall[m[31m);[m
		  [31m--Put_Line("tutu 1.4.11");[m
		  Register [31m:=[m [01;30mChord_To_Register[m[31m([mThe_Chord[31m.[m[01;34mall[m[31m);[m
		  [31m--Put_Line("tutu 1.4.12");[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
		  [31m--Put_Line("tutu 1.4.13");		     [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 Initialize[31m;[m
	       
	       
	       
	    [01;34mor[m
	       
	       
	       [01;34maccept[m [01;30mStart[m[31m([mStart_Time [31m:[m [01;34min[m Time[31m;[m
			    Tempo [31m:[m [01;34min[m Tempo_Type[31m;[m
			    Signature [31m:[m [01;34min[m Time_Signature_Type[31m)[m [01;34mdo[m
		  Quantum [31m:=[m  [32mDuration[m[31m([m[35m60000.0[m[31m/[m[32mFloat[m[31m([mTempo[31m))/[mSignature[31m.[mUnit[31m/[m[35m1000.0[m[31m;[m
		  Neural_Arpegiator_Process[31m.[mTempo [31m:=[m Tempo[31m;[m
		  Neural_Arpegiator_Process[31m.[mSignature [31m:=[m Signature[31m;[m
		  
		  Bar_Beat [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m [35m1[m[31m);[m
		  Neural_Arpegiator_Process[31m.[mStart_Time [31m:=[m Start_Time[31m;[m		  
		  
		  
		  
	       [01;34mend[m Start[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m  Stop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       End_Of_Task [31m:=[m True[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 
	 
	 [01;30mPut_Line[m[31m([m[31m"Neural_Arpegiator started ::= MIMI 0.1.0"[m[31m);[m
	 
	 
	 [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mInitialize[m[31m([mOptions [31m:[m [01;34min[m Work_Options_Access[31m);[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mStart[m[31m([mStart_Time [31m:[m [01;34min[m Time[31m;[m
			    Tempo [31m:[m [01;34min[m Tempo_Type[31m;[m
			    Signature [31m:[m [01;34min[m Time_Signature_Type[31m)[m [01;34mdo[m
		  Quantum [31m:=[m  [32mDuration[m[31m([m[35m60000.0[m[31m/[m[32mFloat[m[31m([mTempo[31m))/[mSignature[31m.[mUnit[31m/[m[35m1000.0[m[31m;[m
		  Neural_Arpegiator_Process[31m.[mTempo [31m:=[m Tempo[31m;[m
		  Neural_Arpegiator_Process[31m.[mSignature [31m:=[m Signature[31m;[m		  
		  Neural_Arpegiator_Process[31m.[mOptions [31m:=[m Options[31m;[m
	       [01;34mend[m Start[31m;[m
	    [01;34mor[m
	       [01;34maccept[m  Stop[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       End_Of_Task [31m:=[m True[31m;[m
	       [01;34mexit[m[31m;[m
	       
	       
	    [01;34mor[m
	       [01;34mdelay[m [01;34muntil[m Start_Time[31m;[m
	       [31m--Put_Line("Neural_Arpegiator started ::= MIMI 0.1.1");[m
	       [31m--if current_form = Neural_Arpegiator.plugin.played_form then[m
	       [31m--  if Neural_Arpegiator.Plugin.Algo = Null_Algo then[m
	       [01;34mif[m [31m([m[01;34mnot[m Neural_Arpegiator[31m.[mplugin[31m.[mmutted[31m)[m 
		 [01;34mand[m [01;30mis_formed[m[31m([mOptions[31m.[mtrue_table[31m,[m			       
			       Neural_Arpegiator[31m.[mPlugin[31m.[mCat_id[31m,[m 
			       Options[31m.[mPrev_Break[31m,[m 
			       Options[31m.[mNext_Break[31m)[m [01;34mthen[m
		  [31m--Put_Line("Neural arpegiator started ::= MIMI 0.1.2");[m
		  
		  
		  [01;34mif[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mStep_Table[m[31m([mCurrent_Step[31m).[mSet [01;34mthen[m
		     [31m--Put_Line("Plantage 0.0");[m
		     [31m--Put_Line("Plantage 0.1");[m
		     
		     [31m--Put_Line("tutu 1.4.5");[m
		     [01;34mif[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mNetwork [31m/=[m [01;34mnull[m [01;34mthen[m
			
			[31m--Put_Line("tutu 1.4.6");[m
			Register [31m:=[m [01;30mREM_NN_Expl[m[31m([mNetwork_Filename[31m.[m[01;34mall[m [31m&[m [31m".wgt"[m[31m,[m 
						Prob_Flt[31m.[m[01;34mall[m[31m);[m
			
			[31m--Put_Line("tutu 1.4.7");[m
		     [01;34mend[m [01;34mif[m[31m;[m
		     [31m--Put_Line("tutu 1.4.8");[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
		     [31m--Put_Line("tutu 1.4.9");[m
		     [31m-------------------------------------------------------------------------------------------[m
		     [01;30mFree_Chord[m[31m([mThe_Chord[31m);[m
		     [31m--Put_Line("tutu 1.4.10");[m
		     [31m--[m
		     The_chord [31m:=[m [01;34mnew[m T_Chord' [31m([m[01;30mRegister_To_Chord[m[31m([mRegister[31m));[m
		     
		     
		     Date [31m:=[m Clock[31m;[m
		     
		     [01;34mfor[m I [01;34min[m The_Chord'[01;34mrange[m [01;34mloop[m
			
			
			[31m--Put_Line("The_Chord(i).Key : " & Value_type'image(The_Chord(i).Key));[m
			[31m--Put_Line("The_Chord(i).Vel : " & Value_type'image(The_Chord(i).Vel));[m
			[31m--Put_Line("The_Chord(i).Len : " & Value_type'image(The_Chord(i).len));[m
			
			[01;34mif[m [31m(([m[01;30mThe_Chord[m[31m([mi[31m).[mKey [31m+[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mTranspose [31m>[m [35m0[m[31m)[m [01;34mand[m
			      [31m([m[01;30mThe_Chord[m[31m([mi[31m).[mKey [31m+[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mTranspose [31m<[m [35m128[m[31m))[m [01;34mand[m
			  [31m(([m[01;30mThe_Chord[m[31m([mi[31m).[mVel [31m>[m [35m0[m[31m)[m [01;34mand[m
			     [31m([m[01;30mThe_Chord[m[31m([mi[31m).[mVel [31m<[m [35m128[m[31m))[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 [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mtranspose[31m,[m [01;30mThe_Chord[m[31m([mi[31m).[mvel[31m);[m
			   [31m--Intelligence.Driver.Receive(Message);[m
			   
			   
			   [31m--Put_Line("Plantage 0.0.2");[m
			   Message_Note_On [31m:=[m [01;30mTo_Long[m[31m([mMessage[31m);[m
			   [31m--Put_Line("Plantage 0.3");[m
			   [01;34mif[m Neural_Arpegiator[31m.[mplugin[31m.[mprinted [01;34mthen[m
			      [31m--Put_Line("tutu 1.4.1");[m
			      [01;34mdeclare[m				       
				 printed_message [31m:[m [01;34mconstant[m printed_message_access [31m:=[m [01;34mnew[m printed_message_type '
				   [31m([msource [31m=>[m [01;34mnew[m [32mstring[m [31m' (Positive'[m[01;30mimage[m[31m([m[01;30mPositive[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mid[31m))),[m
				    destination [31m=>[m [01;34mnew[m [32mstring[m [31m' (Positive'[m[01;30mImage[m[31m([m[01;30mPositive[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mdevice_id[31m))),[m
				    data_type [31m=>[m [01;34mnew[m [32mstring[m [31m' (control_type'[m[01;30mimage[m[31m([m[01;30mcontrol_of[m[31m([mMessage_Note_On[31m))),[m
				    channel [31m=>[m [01;34mnew[m [32mstring[m [31m' (channel_type'[m[01;30mimage[m[31m([m[01;30mchannel_of[m[31m([mMessage_Note_On[31m))),[m
				    data1 [31m=>[m [01;34mnew[m [32mstring[m [31m' (interfaces.c.long'[m[01;30mimage[m[31m([m[01;30mdata1[m[31m([mMessage_Note_On[31m))),[m
				    data2 [31m=>[m [01;34mnew[m [32mstring[m [31m' (interfaces.c.long'[m[01;30mimage[m[31m([m[01;30mdata2[m[31m([mMessage_Note_On[31m))),[m
				    hour [31m=>[m [01;34mnew[m [32mstring[m ' [31m([mformatting[31m.[m[01;30mimage[m[31m([mdate[31m,[m true[31m)),[m
				    hexa_sum [31m=>[m [01;34mnew[m [32mstring[m ' [31m([m[01;30mhex_image[m[31m([mMessage_Note_On[31m)),[m
				    long_sum [31m=>[m [01;34mnew[m [32mstring[m [31m' (long'[m[01;30mimage[m[31m([mMessage_Note_On[31m)));[m
			      [01;34mbegin[m
				 [31m--Put_Line("tutu 1.4.1.0");[m
				 [31m--print(printed_Message_Note_On.all);[m
				 
				 Neural_Arpegiator[31m.[mbox[31m.[m[01;30mreceive[m[31m([mprinted_Message[31m);[m
				 [31m--Put_Line("Message_Note_On sended to message box");[m
				 
			      [01;34mend[m[31m;[m
			      [31m--Put_Line("tutu 1.4.2");[m
			      
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			   Neural_arpegiator[31m.[mEvent_Process[31m.[m[01;30mReceive[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mDevice_Id[31m,[m date[31m,[m Message_Note_On[31m,[m [35m0.0[m[31m,[m tempo[31m);[m
			   [31m--Put_Line("tutu 1.4.3");[m
			   
			   [31m--Put_Line("Plantage 0.0.2");[m
			   Message [31m:=[m [01;30mNote_off[m[31m([mChannel[31m,[m [01;30mThe_Chord[m[31m([mi[31m).[mKey [31m+[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mtranspose[31m);[m
			   [31m--Intelligence.Driver.Receive(Message);[m
			   [31m--Put_Line("Plantage 0.3");[m
			   
			   
			   Message_Note_Off [31m:=[m [01;30mTo_Long[m[31m([mMessage[31m);[m
			   
			   [01;34mif[m Neural_Arpegiator[31m.[mplugin[31m.[mprinted [01;34mthen[m
			      [31m----Put_Line("tutu 1.4.1");[m
			      [01;34mdeclare[m				       
				 printed_message [31m:[m [01;34mconstant[m printed_message_access [31m:=[m [01;34mnew[m printed_message_type '
				   [31m([msource [31m=>[m [01;34mnew[m [32mstring[m [31m' (Positive'[m[01;30mimage[m[31m([m[01;30mPositive[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mid[31m))),[m
				    destination [31m=>[m [01;34mnew[m [32mstring[m [31m' (Positive'[m[01;30mImage[m[31m([m[01;30mPositive[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mdevice_id[31m))),[m
				    data_type [31m=>[m [01;34mnew[m [32mstring[m [31m' (control_type'[m[01;30mimage[m[31m([m[01;30mcontrol_of[m[31m([mMessage_Note_Off[31m))),[m
				    channel [31m=>[m [01;34mnew[m [32mstring[m [31m' (channel_type'[m[01;30mimage[m[31m([m[01;30mchannel_of[m[31m([mMessage_Note_Off[31m))),[m
				    data1 [31m=>[m [01;34mnew[m [32mstring[m [31m' (interfaces.c.long'[m[01;30mimage[m[31m([m[01;30mdata1[m[31m([mMessage_Note_Off[31m))),[m
				    data2 [31m=>[m [01;34mnew[m [32mstring[m [31m' (interfaces.c.long'[m[01;30mimage[m[31m([m[01;30mdata2[m[31m([mMessage_Note_Off[31m))),[m
				    hour [31m=>[m [01;34mnew[m [32mstring[m ' [31m([mformatting[31m.[m[01;30mimage[m[31m([mDate [31m+[m quantum[31m,[m true[31m)),[m
				    hexa_sum [31m=>[m [01;34mnew[m [32mstring[m ' [31m([m[01;30mhex_image[m[31m([mMessage_Note_Off[31m)),[m
				    long_sum [31m=>[m [01;34mnew[m [32mstring[m [31m' (long'[m[01;30mimage[m[31m([mMessage_Note_Off[31m)));[m
			      [01;34mbegin[m
				 [31m----Put_Line("tutu 1.4.1.0");[m
				 [31m--print(printed_Message_Note_On.all);[m
				 
				 Neural_Arpegiator[31m.[mbox[31m.[m[01;30mreceive[m[31m([mprinted_Message[31m);[m
				 [31m----Put_Line("Message_Note_Off sended to message box");[m
				 
			      [01;34mend[m[31m;[m
			      [31m--Put_Line("tutu 1.4.2");[m
			      
			      
			   [01;34mend[m [01;34mif[m[31m;[m
			   
			   Neural_arpegiator[31m.[mEvent_Process[31m.[m[01;30mReceive[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[mDevice_Id[31m,[m Date[31m+[mquantum[31m,[m Message_Note_Off[31m,[m quantum[31m,[m tempo[31m);[m
			   [31m--Put_Line("tutu 1.4.3");[m
			   
			   
			   
			[01;34mend[m [01;34mif[m[31m;[m
									
			
		     [01;34mend[m [01;34mloop[m[31m;[m
		     
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  
		  
		  [01;30mFree_Chord[m[31m([mThe_Chord[31m);[m
		  [31m--Put_Line("tutu 1.4.14");[m
		  The_chord [31m:=[m [01;34mnew[m [01;30mT_Chord[m[31m([m[35m1[m[31m..[m[35m3[m[31m);[m
		  [01;30mReset[m[31m([mValue_Gen[31m);[m
		  [01;34mfor[m I [01;34min[m The_Chord'[01;34mRange[m [01;34mloop[m
		     [01;30mThe_Chord[m[31m([mI[31m)[m [31m:=[m [01;34mnew[m T_Note ' [31m([m[01;30mRandom[m[31m([mValue_Gen[31m),[m [01;30mRandom[m[31m([mValue_Gen[31m),[m [01;30mRandom[m[31m([mValue_Gen[31m));[m
		  [01;34mend[m [01;34mloop[m[31m;[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
		  [31m--Put_Line("tutu 1.4.11");[m
		  Register_Io[31m.[m[01;30mwrite[m[31m([mProb_File[31m,[m Register[31m);[m
		  [31m--Put_Line("tutu 1.4.12");[m
		  [01;34mdelay[m [35m0.015[m[31m;[m
		  Register_Io[31m.[m[01;30mclose[m[31m([mProb_File[31m);[m
		  [31m--Put_Line("tutu 1.4.13");[m
		  
		  
		  [01;34mif[m Current_Step [31m=[m [01;30mArp_Seq_Plugin_Record[m[31m([mNeural_Arpegiator[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mLast_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
		  [31m--Put_Line("tutu 1.4.15");[m
		  start_time [31m:=[m start_time [31m+[m Quantum[31m;[m
	       [01;34melse[m
		  [31m--Put_Line("tutu 1.4.16");[m
		  start_time [31m:=[m start_time [31m+[m Quantum[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m		  
	       [31m--Put_Line("tatata 3");		     		     		  		  [m
	       [31m-- end if;[m
	       [31m--   end if;[m
	       
	    [01;34mend[m [01;34mselect[m[31m;[m	    
	    
	    [31m--Put_Line("Neural_Arpegiator loop..... ::= MIMI 0.1.275");[m
	    
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;30mPut_Line[m[31m([m[31m"Neural_Arpegiator halted ::= MIMI 0.1.276"[m[31m);[m
   [01;34mend[m Neural_Arpegiator_Process[31m;[m
   
[01;34mend[m Libsens[31m.[mProcessing[31m.[mNeural_Arpegiator[31m;[m
