Skip to content

Instantly share code, notes, and snippets.

@algorev

algorev/main.hs

Created May 23, 2017 16:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save algorev/8549da0e4c4860a133cd39cf20e23cab to your computer and use it in GitHub Desktop.
Save algorev/8549da0e4c4860a133cd39cf20e23cab to your computer and use it in GitHub Desktop.
Download ZIP
Haskell function to convert tidal scales (Sound.Tidal.Scales) into tidal patterns
Raw
main.hs
-- Supply a base note and an Int list generated by one of the scale functions of Sound.Tidal.Scales
spat :: Int -> [Int] -> [Char]
spat note scale = unwords (map ((\x y -> show (x + y)) note) scale)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment