-- egg rolling

let edo31dor p = tScale' 31 "0 8 13 18 23 26 " p

let egg a b = sqrt $ ((a + b*(sine*sine/cosine/cosine)) / (1 + sine * sine / cosine / cosine) )


let egg_kicc = rizz 1 (range 0 0.02 $ egg 1 4) $
mask "[t t [f t t t] t]" $ drumz $
struct "t([5 11]/2, 18, <0 3 2 3>)" $
n "[0,1]!9" # mm 7
egg_ghost_notes = r 0.0015 $ rizz 1 (range 0 0.02 $
egg 1 4) $
mask "[t t [f t t t] t]" $ drumz $
struct (inv "t([5 11]/2, 18, <0 3 2 3>)") $
(|+ nT "gn" 8 "0 1 2 3 4 5 6 7") $ n "0!9"
# mm 11
egg_macarena = (|- n 14) $ (|+ n 31) $
rizz 1 (range 0 0.02 $ egg 1 4) $
mask "[t t [f t t t] t]" $
struct "t([5 11]/2, 18, <0 3 2 3>)" $
n ("[0, 13]!9" |+
"[0@3 [3 5 8 11] 13@3 13@3 [18 15 13 8] -5@3]/4") #
mm 10
egg_clap = r 0.003 $
rizz 1 (range 0 0.02 $ egg 1 4) $
drumz $ (# amp 0.7) $ fast 1 $
n "[~ <[2,4] [2,3]>]" # mm 7
egg_bass = (|- n 14) $ rizz 1 (range 0 0.02 $ egg 1 4 ) $ (|* amp (r 0.25 $ range 0.05 1.1 $ egg 1 4)) $ (# amp 0.5) $
(|+ legato "0 <1.25 [1.8]>") $ sus 6 "2 0.5 0.8" $
struct (inv "t(<13 11>,18)") $
n (edo31dor (segfunc "<16 18>/2" (range 5 13 $ egg 2 7 ) |+ 0 ) ) # mm 8
egg_melody = (|- n "<0 >") $ rizz 1 (range 0 0.02 $ egg 1 4) $
(|* amp (r 0.25 $ range 0.05 1.1 $ egg 1 4)) $
(# amp 0.5) $
sus 9 "1 8" $
struct "t(<13 11>,18)" $
n (edo31dor (segfunc "<13 <18 19 >>/2" (range "<2 5>" 22 $
egg 1 4 ) |- "<1 3 2 4>" |- 0 ) ) # mm 9
egg_hats = r (0.001) $
rizz 1 (range 0 0.02 $ egg 1 4 ) $
(|- amp (fast 9 $ "0.0 0.025") ) $
(|* amp (fast 2 $ range 0.05 0.8 $ egg 1 4)) $
mask (inv "[f f [f <t f!3> f f] <f t> ]") $
(# amp 0.5) $
drumz $ n "<[[6,7]!9 [6]!9]!3 [[7](13,18)] >" # mm 7


-- drum intro
do
all $ id
resetCycles
hush
d1 $ egg_kicc
d2 $ egg_clap

d3 $ egg_hats

do
hush
d1 $ egg_bass
d2 $ egg_macarena
d3 $ egg_ghost_notes

-- drumz and melody
do
hush
d1 $ egg_kicc
d2 $ egg_clap
d4 $ egg_melody

-- bass drumz and chordz
do
d4 $ egg_bass
d5 $ egg_macarena
d6 $ egg_hats
d7 $ egg_ghost_notes

-- break
do
hush
d4 $ egg_melody
d5 $ egg_macarena
d6 $ egg_ghost_notes

-- drop???
do
hush
d1 $ egg_kicc
d2 $ egg_clap
d3 $ egg_hats
d4 $ egg_melody
d5 $ egg_macarena
d6 $ egg_bass
d7 $ egg_ghost_notes

-- less clap
do
d2 $ mask "f <f t> " $ egg_clap
-- silence macarena
d5 silence

-- drop again
do
d2 $ egg_clap
d5 $ egg_macarena
-- no foley
d7 silence

-- still feelin it now mr krabs? C^^C
do
-- no kick
d1 silence
-- no melody
d4 silence

-- drum outro

do
hush
d1 $ egg_kicc
d2 $ egg_clap

-- end egg rolling