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

[01;34mpackage[m Libsens[31m.[mData[31m.[mDrums [01;34mis[m
   [01;34mpragma[m Elaborate_Body[31m;[m
   
   
   [01;34msubtype[m Drums_Value_type [01;34mis[m Value_Type [01;34mrange[m [35m36[m[31m..[m[35m51[m[31m;[m   
                 
   [01;34msubtype[m Drums_Sentence_Type [01;34mis[m [01;30mSentence_type[m [31m([mDrums_Value_Type[31m);[m
   
   Rime [31m:[m [01;34mconstant[m Word16_Type [31m:=[m [35m16[m#[35m0100[m#[31m;[m
   Hat_Roll [31m:[m [01;34mconstant[m Word16_Type [31m:=[m [35m16[m#[35m0101[m#[31m;[m
   [01;34mfunction[m [01;30mTribe[m[31m([mDen [31m:[m [01;34min[m Den_Type[31m)[m [01;34mreturn[m Word16_Type[31m;[m
   [01;34mfunction[m [01;30mRand[m[31m([mDen [31m:[m [01;34min[m Den_Type[31m;[m Length [31m:[m [01;34min[m Positive[31m)[m [01;34mreturn[m Word16_Type[31m;[m
   
   
   
   [01;34mtask[m Drums_Gen [01;34mis[m
      [01;34mpragma[m [01;30mStorage_size[m[31m([m[35m8388608[m[31m);[m      
      [01;34mentry[m [01;30mInitialize[m[31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Reuse [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;34mentry[m [01;30mRespond[m[31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Channel [31m:[m [01;34min[m Channel_Type[31m;[m Seq [31m:[m [01;34min[m [01;34mout[m Seq_Vectors[31m.[mVector[31m);[m
      
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Drums_Gen[31m;[m
   
[01;34mend[m Libsens[31m.[mData[31m.[mDrums[31m;[m
