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


[01;34mpackage[m Libsens[31m.[mData[31m.[mBassDrum [01;34mis[m
   
   [01;34msubtype[m BassDrum_Value_type [01;34mis[m Value_Type [01;34mrange[m [35m36[m[31m..[m[35m51[m[31m;[m
   [31m-- Normalement la note est indifférente.[m
	 
   [01;34msubtype[m BassDrum_Sentence_Type [01;34mis[m [01;30mSentence_type[m [31m([mBassDrum_Value_Type[31m);[m
   
   Rime [31m:[m [01;34mconstant[m Word16_Type [31m:=[m [35m16[m#[35m1010[m#[31m;[m
   Hat_Roll [31m:[m [01;34mconstant[m Word16_Type [31m:=[m [35m16[m#[35m5151[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 BassDrum_Gen [01;34mis[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 BassDrum_Gen[31m;[m
   
[01;34mend[m Libsens[31m.[mData[31m.[mBassDrum[31m;[m
