[01;34mwith[m PragmARC[31m.[mREM_NN_Wrapper[31m;[m           [01;34muse[m PragmARC[31m.[mREM_NN_Wrapper[31m;[m
[01;34mwith[m Libsens[31m.[mCommon[31m;[m                    [01;34muse[m Libsens[31m.[mCommon[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.[mPlugins[31m;[m           [01;34muse[m Libsens[31m.[mVirtual[31m.[mPlugins[31m;[m
[01;34mpackage[m Libsens[31m.[mVirtual[31m.[mArp_Sequencer [01;34mis[m
   

   [01;34mtype[m Type_Step [01;34mis[m [01;34mnew[m T_Note [01;34mwith[m
      [01;34mrecord[m         
         Set              [31m:[m [32mBoolean[m [31m:=[m True[31m;[m
	 Length            [31m:[m Value_Type [31m:=[m [35m6[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Step_Access [01;34mis[m [01;34maccess[m [01;34mall[m Type_Step[31m;[m

   [01;34mtype[m Type_Step_Table [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Step_access[31m;[m
   
   [01;34mprocedure[m Initialize
     [31m([mStep [31m:[m [01;34min[m [01;34mout[m Step_Access[31m);[m
   
   [01;34mtype[m Arp_Seq_Plugin_Record [01;34mis[m
     [01;34mnew[m [01;30mPlugin_Class[m[31m([mArp_seq[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Network               [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"Accords.txt"[m[31m);[m
	 Reuse                 [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Converged             [31m:[m Real [31m:=[m [35m0.1[m[31m;[m	
	 Max_Epoch             [31m:[m Positive [31m:=[m [35m8000[m[31m;[m
	 
	 Last_Step             [31m:[m Positive     [31m:=[m [35m32[m[31m;[m
	 Transpose             [31m:[m value_type [31m:=[m [35m0[m[31m;[m
	 Step_Table            [31m:[m [01;30mType_Step_Table[m[31m([m[35m1[m[31m..[m[35m32[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m [01;34mnew[m Type_Step[31m);[m
	 Resolution            [31m:[m T_Figure [31m:=[m simple[31m;[m
	 
	 
	 Start_Chord           [31m:[m Chord_Access [31m:=[m [01;34mnew[m T_Chord[31m' (new T_Note'[m [31m([m[35m48[m[31m,[m [35m101[m[31m,[m [35m64[m[31m),[m [01;34mnew[m T_Note [31m' (50, 95, 64), new T_Note '[m [31m([m[35m52[m[31m,[m [35m100[m[31m,[m [35m64[m[31m));[m
         Chord                 [31m:[m [01;30mT_Chord[m[31m([m[35m1[m[31m..[m[35m3[m[31m)[m [31m:=[m [31m([m[01;34mothers[m [31m=>[m [01;34mnew[m T_Note ' [31m([m[35m64[m[31m,[m [35m95[m[31m,[m [35m64[m[31m));[m
	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mprocedure[m [01;30mPrint[m [31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Plug [31m:[m [01;34min[m Arp_Seq_Plugin_record[31m);[m
   
[01;34mend[m Libsens[31m.[mVirtual[31m.[mArp_Sequencer[31m;[m
