
[01;34mwith[m Libsens[31m.[mCommon[31m;[m                    [01;34muse[m Libsens[31m.[mCommon[31m;[m
[01;34mwith[m Libsens[31m.[mVirtual[31m;[m                   [01;34muse[m Libsens[31m.[mVirtual[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.[mStep_Sequencer [01;34mis[m
   
   [01;34mtype[m Voice_Type [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
	 Id      [31m:[m Positive [31m:=[m [35m1[m[31m;[m
	 Key     [31m:[m Key_Type [31m:=[m [35m36[m[31m;[m
	 Sens    [31m:[m Sens_Type [31m:=[m [35m95[m[31m;[m
	 Length  [31m:[m Length_Type [31m:=[m [35m2[m[31m;[m
	 Bar     [31m:[m Positive [31m:=[m [35m1[m[31m;[m
	 Number  [31m:[m Time_Number_Type [31m:=[m [35m1[m[31m;[m
	 Step    [31m:[m Time_Unit_Type [31m:=[m [35m1[m[31m;[m
	 Played  [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Note    [31m:[m String_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
	 Octave  [31m:[m Octave_num [31m:=[m [35m0[m[31m;[m
	 In_Loop [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Step_Array_Type [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Voice_Type[31m;[m
   
   
   [01;34mtype[m Step_Seq_Plugin_Record [01;34mis[m
     [01;34mnew[m [01;30mPlugin_Class[m[31m([mStep_seq[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Sequencer [31m:[m [01;30mStep_Array_Type[m[31m([m[35m1[m[31m..[m[35m128[m[31m);[m
	 Bars_Max  [31m:[m Positive [31m:=[m [35m8[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 Step_Seq_Plugin_record[31m);[m
   
[01;34mend[m Libsens[31m.[mVirtual[31m.[mStep_Sequencer[31m;[m
