%I
%S 5,5,2,5,2,3,5,5,2,5,2,5,2,3,3,3,5,2,4,1,3,5,2,5,5,2,2,5,5,3,3,2,5,5,
%T 2,5,2,3,5,5,2,5,2,5,2,3,3,3,5,2,4,1,3,5,2,5,5,2,2,5,5,3,3,2,5,5,2,5,
%U 2,3,5,5,2,5,2,5,2,3,3,3,5,2,4,1,3,5,2,5,5,2,2,5,5,3,3,2,5,5,2,5,2,3,5,5,2
%N Algorithmic drum function based on two bar 16 notes per bar: Funk drum : Based on Andy Newark "In Time" from Sly Stone's "Fresh" 1973.
%C The functions are sequences of drum choices: A> Bass drum (1) B> Snare Drum (2) C> High hat closed with foot (3) D> Open high hat struck with stick (4) E> Closed High hat Struck with stick.
%D Mark C. Gridley, Jazz Styles; History and Analysis, Courier Kendallville, 7th edition, ISBN 013021227X, 2000, page 447.
%H <a href="/index/Mu#music">Index entries for sequences related to music</a>
%F First "or" choice Function: f(n)=If[Mod[n, 32] == 0  Mod[n, 32] == 3  Mod[n, 32] == 5  Mod[n, 32] == 11 Mod[n, 32] == 9  Mod[n, 32] == 13  Mod[n, 32] == 18  Mod[n, 32] == 23  Mod[n, 32] == 26  Mod[n, 32] == 27, 2, g(n)]; Second Function: g(n)=If[Mod[n, 32] == 6  Mod[n, 32] == 9  Mod[n, 32] == 14  Mod[n, 32] == 15  Mod[n, 32] == 16  Mod[n, 32] == 21  Mod[n, 32] == 26  Mod[n, 32] == 30  Mod[n, 32] == 31, 3, h(n)]; Third Function: h(n)=If[Mod[n, 32] == 20, 1, k(n)]; Last Function: k(n)=If[Mod[n, 32] == 19, 4, 5]
%t (*Funk drum : Based on Andy Newark "In Time" from Sly Stone's Fresh 1973"*) (* Page 447 : Mark C. Gridley, "Jazz Styles;History and Analysis", 7th edition, ISBN 0  13  021227  x, 200, Courier Kendallville*) (*A*) f[n_] = If[Mod[n, 32] == 0  Mod[n, 32] == 3  Mod[n, 32] == 5  Mod[n, 32] == 11  Mod[n, 32] == 9  Mod[n, 32] == 13  Mod[n, 32] == 18  Mod[n, 32] == 23  Mod[n, 32] == 26  Mod[n, 32] == 27, 2, g[n]]; (*B*) g[n_] = If[ Mod[n, 32] == 6  Mod[n, 32] == 9  Mod[n, 32] == 14  Mod[n, 32] == 15  Mod[ n, 32] == 16  Mod[n, 32] == 21  Mod[n, 32] == 26  Mod[n, 32] == 30  Mod[n, 32] == 31, 3, h[n]]; (*C*) h[n_] = If[Mod[n, 32] == 20, 1, k[n]]; (*D*) k[n_] = If[Mod[n, 32] == 19, 4, 5]; a = Table[f[n], {n, 1, 256}]
%K nonn,uned
%O 1,1
%A _Roger L. Bagula_, Nov 10 2007
