Skip to content

Instantly share code, notes, and snippets.

@khoparzi
Created June 5, 2019 05:34
Show Gist options
  • Star 5 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save khoparzi/622b7892a95444a2ee9930d432561985 to your computer and use it in GitHub Desktop.
Save khoparzi/622b7892a95444a2ee9930d432561985 to your computer and use it in GitHub Desktop.
Just a collection of basic beats suggested by Drum Beats Online in this video https://www.youtube.com/watch?v=mwe4HPOiUms
-- Just a collection of basic beats suggested by Drum Beats Online in this video
-- https://www.youtube.com/watch?v=mwe4HPOiUms
-- n "13" -- Kick
-- n "4" -- Hats
-- n "10" -- Tight Hats
-- n "5" -- Hats alt
-- n "11" -- Open hats
-- n "17" -- Really Open hats
-- n "21" -- Hat pedal
-- n "3" -- Soft brush Snare
-- n "20" -- Snare
-- n "22" -- Snare with rim
-- n "9" -- Flam Snare
-- n "12" -- Tom
-- n "15" -- Tom 2
-- n "7" -- Choke crash
-- n "18" -- Ride bell
-- n "19" -- Ride
p "fouronfloor"
$ stack [
n "4*8", -- Hats
n "13*2", -- Kick
n "[~ 20]*2" -- Snare
]
# s "gretsch"
p "dancebeat"
$ stack [
n "[~ 4]*4", -- Hats
n "13*4", -- Kick
n "[~ 20]*2" -- Snare
]
# s "gretsch"
p "firstBeat"
$ stack [
n "4*8", -- Hats
n "[13 ~ 13*2 ~]", -- Kick
n "[~ 20]*2" -- Snare
]
# s "gretsch"
p "secondBeat"
$ stack [
n "4*8", -- Hats
n "[13*2 ~]*2", -- Kick
n "[~ 20]*2" -- Snare
]
# s "gretsch"
p "classicRock"
$ stack [
n "4*8", -- Hats
n "[13*2 [~ 13]]*2", -- Kick
n "[~ 22]*2" -- Snare
]
# s "gretsch"
p "classicRock2"
$ stack [
n "4*8", -- Hats
n "~ [~ 13]*2", -- Kick
n "22*4" -- Snare
]
# s "gretsch"
-- Using hats instead of china
p "classicHalfTime"
$ stack [
n "17*4", -- Hats
n "[13 ~ ~ 13] [~ ~ 13 ~] ~ ~", -- Kick
n "~ 22" -- Snare
]
# s "gretsch"
p "classicHalfTime16s"
$ stack [
n "4*16", -- Hats
n "[13 ~ ~ 13] [~ ~ 13 ~] ~ ~", -- Kick
n "~ 22" -- Snare
]
# s "gretsch"
p "classicHalfTimeAtNormal"
$ stack [
n "4*8", -- Hats
n "[13 ~ ~ 13] [~ ~ 13 ~] ~ ~", -- Kick
n "[~ 22]*2" -- Snare
]
# s "gretsch"
-- Using hats instead of china
-- Attempt using euclid
p "changingItUp"
$ stack [
n "17*4", -- Really Open Hats
n "[~ 13] [13 ~] 13*2 [~ 13]", -- Kick
n "20 [~ 20] ~ 20" -- Snare
]
# s "gretsch"
-- I wonder why he calls it that
p "bieberbeat"
$ stack [
n "4*8", -- Hats
n "[13 ~]*2 ~ [~ 13] ~", -- Kick
n "[~ 20]*2", -- Snare
n "~ [~!3 21] [~ 21 ~ ~] ~" -- Ghost snare
]
# s "gretsch"
p "bieberBeatToms"
$ stack [
n "15*8", -- Low tom
n "~ [~!3 12] [~ 12 ~ ~] ~",
n "[13 ~]*2 ~ [~ 13] ~", -- Kick
n "[~ 20]*2" -- Snare
]
# s "gretsch"
p "popCountrybeat"
$ stack [
n "4*8", -- Hats
n "13 ~ [~ 13] ~", -- Kick
n "[~ 20]*2" -- Snare
]
# s "gretsch"
-- Essentially the same thing on a ride
p "popCountrybeatChorus"
$ stack [
n "19*8", -- Ride
n "13 ~ [~ 13] ~", -- Kick
n "[~ 20]*2" -- Snare
]
# s "gretsch"
p "doubleTimeBeat"
$ stack [
n "4*8", -- Hats
n "[13 [13*2 ~]]*2", -- Kick
n "[~ 20]*4" -- Snare
]
# s "gretsch"
-- TODO: Better version on high tom
p "jungleBeat"
$ stack [
n "[~!3 12] [~ 12] [[~ 12] ~] 12", -- Tom
n "15*4", -- Low tom
n "13*4" -- Kick
]
# s "gretsch"
-- With cowbell instead of crosstick
p "crossStickBeat"
$ stack [
n "4*8", -- Hats
n "13*2 ~", -- Kick
n "~ [[6 ~ ~ 6] ~]" -- Snare
]
# s "gretsch"
p "fouronfloorHalfTime"
$ stack [
n "17*4", -- Hats
n "13*4", -- Kick
n "[~ 22]" -- Snare
]
# s "gretsch"
-- Essentially a standard funk beat
p "firstGhostBeat"
$ stack [
n "10*8", -- Hats
n "[13 ~]*2 ~ [~ 13] ~", -- Kick
n "[~ 22]*2", -- Hard snare
n "[~ 21]*8" -- Ghost snare
]
# s "gretsch"
p "anthemTomBeat"
$ stack [
n "[~ 13]*2 [~ 13 13 ~] [13 ~ ~ 13] [[~ 13] ~]", -- Kick
n "12*2 [~ [~ 12]] [[~ 12] ~] 12",
n "15*2 [~ [~ 15]] [~ 15] ~", -- Low tom
n "[~ 22]*2"
]
# s "gretsch"
@yaxu
Copy link

yaxu commented Jun 9, 2019

here's a version with named samples


drum = fmap drumLookup
  where
    -- Kick
    drumLookup "kd" = 13
    drumLookup "bd" = 13
  -- Hats
    drumLookup "hh" = 4
    drumLookup "hc" = 4
    drumLookup "h1" = 10
    -- Tight Hats
    drumLookup "h2" = 10
    -- Hats alt
    drumLookup "h3" = 5
    -- Open hats
    drumLookup "ho" = 11
    -- Really Open hats
    drumLookup "hO" = 17
    -- Hat pedal
    drumLookup "hp" = 21
    -- Soft brush Snare
    drumLookup "sb" = 3
    -- Snare
    drumLookup "sn" = 20
    drumLookup "sd" = 20
    -- Snare with rim
    drumLookup "sr" = 22
    -- Flam Snare
    drumLookup "sf" = 9
    -- Tom
    drumLookup "tm" = 9
    drumLookup "t1" = 9
    drumLookup "th" = 9
    -- Tom 2
    drumLookup "t2" = 15
    drumLookup "tl" = 15
    -- Choke crash
    drumLookup "cr" = 7
    -- Ride bell
    drumLookup "rb" = 18
    -- Ride
    drumLookup "rd" = 19
    drumLookup _ = 0

p "fouronfloor"
  $ stack [
    drum "hh*8", -- Hats
    drum "kd*2", -- Kick
    drum "[~ sd]*2" -- Snare
  ]
  # s "gretsch"

p "dancebeat"
  $ stack [
    drum "[~ hh]*4", -- Hats
    drum "kd*4", -- Kick
    drum "[~ sd]*2" -- Snare
  ]
  # s "gretsch"

p "firstBeat"
  $ stack [
    drum "hh*8", -- Hats
    drum "[kd ~ kd*2 ~]", -- Kick
    drum "[~ sd]*2" -- Snare
  ]
  # s "gretsch"

p "secondBeat"
  $ stack [
    drum "hh*8", -- Hats
    drum "[kd*2 ~]*2", -- Kick
    drum "[~ sd]*2" -- Snare
  ]
  # s "gretsch"

p "classicRock"
  $ stack [
    drum "hh*8", -- Hats
    drum "[kd*2 [~ kd]]*2", -- Kick
    drum "[~ sr]*2" -- Snare
  ]
  # s "gretsch"

p "classicRock2"
  $ stack [
    drum "hh*8", -- Hats
    drum "~ [~ kd]*2", -- Kick
    drum "sr*4" -- Snare
  ]
  # s "gretsch"

-- Using hats instead of china
p "classicHalfTime"
  $ stack [
    drum "hO*4", -- Hats
    drum "[kd ~ ~ kd] [~ ~ kd ~] ~ ~", -- Kick
    drum "~ sr" -- Snare
  ]
  # s "gretsch"

p "classicHalfTime16s"
  $ stack [
    drum "hh*16", -- Hats
    drum "[kd ~ ~ kd] [~ ~ kd ~] ~ ~", -- Kick
    drum "~ sr" -- Snare
  ]
  # s "gretsch"

p "classicHalfTimeAtNormal"
  $ stack [
    drum "hh*8", -- Hats
    drum "[kd ~ ~ kd] [~ ~ kd ~] ~ ~", -- Kick
    drum "[~ sr]*2" -- Snare
  ]
  # s "gretsch"

-- Using hats instead of china
-- Attempt using euclid
p "changingItUp"
  $ stack [
    drum "hO*4", -- Really Open Hats
    drum "[~ kd] [kd ~] kd*2 [~ kd]", -- Kick
    drum "sd [~ sd] ~ sd" -- Snare
  ]
  # s "gretsch"

-- I wonder why he calls it that
p "bieberbeat"
  $ stack [
    drum "hh*8", -- Hats
    drum "[kd ~]*2 ~ [~ kd] ~", -- Kick
    drum "[~ sd]*2", -- Snare
    drum "~ [~!3 hp] [~ hp ~ ~] ~" -- Ghost snare
  ]
  # s "gretsch"

p "bieberBeatToms"
  $ stack [
    drum "tl*8", -- Low tom
    drum "~ [~!3 th] [~ th ~ ~] ~",
    drum "[kd ~]*2 ~ [~ kd] ~", -- Kick
    drum "[~ sd]*2" -- Snare
  ]
  # s "gretsch"

p "popCountrybeat"
  $ stack [
    drum "hh*8", -- Hats
    drum "kd ~ [~ kd] ~", -- Kick
    drum "[~ sd]*2" -- Snare
  ]
  # s "gretsch"

-- Essentially the same thing on a ride
p "popCountrybeatChorus"
  $ stack [
    drum "19*8", -- Ride
    drum "kd ~ [~ kd] ~", -- Kick
    drum "[~ sd]*2" -- Snare
  ]
  # s "gretsch"

p "doubleTimeBeat"
  $ stack [
    drum "hh*8", -- Hats
    drum "[kd [kd*2 ~]]*2", -- Kick
    drum "[~ sd]*4" -- Snare
  ]
  # s "gretsch"

-- TODO: Better version on high tom
p "jungleBeat"
  $ stack [
    drum "[~!3 th] [~ th] [[~ th] ~] th", -- Tom
    drum "tl*4", -- Low tom
    drum "kd*4" -- Kick
  ]
  # s "gretsch"

-- With cowbell instead of crosstick
p "crossStickBeat"
  $ stack [
    drum "hh*8", -- Hats
    drum "kd*2 ~", -- Kick
    drum "~ [[6 ~ ~ 6] ~]" -- Snare
  ]
  # s "gretsch"

p "fouronfloorHalfTime"
  $ stack [
    drum "hO*4", -- Hats
    drum "kd*4", -- Kick
    drum "[~ sr]" -- Snare
  ]
  # s "gretsch"

-- Essentially a standard funk beat
p "firstGhostBeat"
  $ stack [
    drum "h1*8", -- Hats
    drum "[kd ~]*2 ~ [~ kd] ~", -- Kick
    drum "[~ sr]*2", -- Hard snare
    drum "[~ hp]*8" -- Ghost snare
  ]
  # s "gretsch"

p "anthemTomBeat"
  $ stack [
    drum "[~ kd]*2 [~ kd kd ~] [kd ~ ~ kd] [[~ kd] ~]", -- Kick
    drum "th*2 [~ [~ th]] [[~ th] ~] th",
    drum "tl*2 [~ [~ tl]] [~ tl] ~", -- Low tom
    drum "[~ sr]*2"
  ]
# s "gretsch"

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment