Skip to content

Instantly share code, notes, and snippets.

@egonSchiele egonSchiele/tidal.hs Secret
Created Jan 16, 2014

Embed
What would you like to do?
tidal
{-# LANGUAGE OverloadedStrings #-}
import Sound.Tidal.Strategies
import Sound.Tidal.Dirt
import Sound.Tidal.Pattern
import Sound.Tidal.Stream
import Sound.Tidal.Parse
import Sound.Tidal.Tempo
import Sound.Tidal.Time
import Sound.Tidal.Context
main = stack [ every 4 (0.25 <~) $ every 3 rev $ striate 64 $ sound "[lesshuman lesshuman/4 lesshuman/7 lesshuman/4]/2" |+| speed "[1 1 1 1.5]/8", spread' (striate) "[8 3 2 4]/2" $ slow 2 $ striate 64 $ sound "[[cities cities/1 cities cities/2]/4]" |+| speed "[1.0 0.8 1.0 0.9]/4" |+| shape "-0.4"]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session.